+ added lwsync instruction to the compiler

  * fixed compilation of ReadDependencyBarrier

git-svn-id: trunk@8243 -

compiler/options.pas

@@ -2046,6 +2046,9 @@ begin
 {$ifdef SUPPORT_UNALIGNED}
   def_system_macro('FPC_SUPPORTS_UNALIGNED');
 {$endif SUPPORT_UNALIGNED}
+{$ifdef powerpc64}
+  def_system_macro('FPC_HAS_LWSYNC');
+{$endif}
 
 {$if defined(x86) or defined(arm)}
   def_system_macro('INTERNAL_BACKTRACE');

compiler/powerpc64/cpubase.pas

@@ -103,7 +103,8 @@ type
     A_MULLDO, A_MULLDO_, A_MULHDU, A_MULHDU_,
     A_MFXER,
     A_FCTID, A_FCTID_, A_FCTIDZ, A_FCTIDZ_,
-    A_EXTRDI, A_EXTRDI_, A_INSRDI, A_INSRDI_);
+    A_EXTRDI, A_EXTRDI_, A_INSRDI, A_INSRDI_,
+    A_LWSYNC);
 
   {# This should define the array of instructions as string }
   op2strtable = array[tasmop] of string[8];

compiler/powerpc64/itcpugas.pas

@@ -93,7 +93,8 @@ const
     'mulldo', 'mulldo.', 'mulhdu', 'mulhdu.',
     'mfxer',
     'fctid', 'fctid.', 'fctidz', 'fctidz.',
-    'extrdi', 'extrdi.', 'insrdi', 'insrdi.');
+    'extrdi', 'extrdi.', 'insrdi', 'insrdi.',
+    'lwsync');
 
 function gas_regnum_search(const s: string): Tregister;
 function gas_regname(r: Tregister): string;

rtl/powerpc64/powerpc64.inc

@@ -842,11 +842,13 @@ end;
 
 procedure ReadBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
 asm
+{$ifdef FPC_HAS_LWSYNC}
   lwsync
+{$endif}
 end;
 
 procedure ReadDependencyBarrier;{$ifdef SYSTEMINLINE}inline;{$endif}
-asm
+begin
   { reads imply barrier on earlier reads depended on }
 end;