* use also fpc_riscv_pause

rtl/objpas/classes/classes.inc

@@ -918,6 +918,8 @@ begin
     fpc_arm_yield;
     {$ELSEIF defined(CPUAARCH64)}
     fpc_aarch64_yield;
+    {$ELSEIF defined(RISCV) and defined(CPURV_HAS_ZIHINTPAUSE)}
+    fpc_riscv_pause;
     {$ELSE}
     Inc(SpinWaitDummy); // SpinWaitDummy *MUST* be global
     {$ENDIF}
@@ -940,10 +942,10 @@ class function TThread.GetCPUUsage(var Previous: TSystemTimes): Integer;
 var
   Act : TSystemTimes;
   Load,Idle: QWord;
-  
+
 begin
   Result:=0;
-  if not GetSystemTimes(Act) then 
+  if not GetSystemTimes(Act) then
     exit;
   Load:=(Act.UserTime-Previous.UserTime) +
         (Act.KernelTime-Previous.KernelTime) +
@@ -1496,7 +1498,7 @@ function IsUniqueGlobalComponentName(const aName: string): Boolean;
 begin
   if Assigned(IsUniqueGlobalComponentNameProc) then
     Result:=IsUniqueGlobalComponentNameProc(aName)
-  else 
+  else
     Result:=Not Assigned(FindGlobalComponent(aName));
 end;
 
@@ -1538,7 +1540,7 @@ function CreateComponentfromRes(const res : string;Inst : THandle;var Component
   var
     ResStream : TResourceStream;
     ResID : TFPResourceHandle;
-    
+
   begin
 
     if Inst=0 then
@@ -1579,7 +1581,7 @@ function DefaultInitHandler(Instance: TComponent; RootAncestor: TClass): Boolean
     try
 {$endif}
       result:=doinit(Instance.ClassType);
-      if Result then 
+      if Result then
         Instance.ReadDeltaState;
 {$ifdef FPC_HAS_FEATURE_THREADING}
     finally
@@ -1683,7 +1685,7 @@ var
   HInst: THandle;
   RootName, Delta, ResName: string;
   S: TStream;
-  
+
 begin
   S:=nil;
   if (Instance=Nil) or (Proc=Nil) then
@@ -2814,7 +2816,7 @@ var
   aPos: Int64;
   Sig: Packed Array[0..3] of byte;
   IntSig : Longint absolute sig;
-  
+
 begin
   Result:=sofUnknown;
   aPos:=Stream.Position;