+ compile z80.inc even without FULL_RTL

+ added extra defines to the system unit without FULL_RTL, so that more things can be compiled
- commented out stuff from z80.inc that doesn't compile yet. It will be uncommented as soon as the code generator
  starts being able to compile it



git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@44968 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 8 deletions

diff --git a/rtl/z80/z80.inc b/rtl/z80/z80.inc
index 299d416880..299bb2839b 100644
--- a/rtl/z80/z80.inc
+++ b/rtl/z80/z80.inc
@@ -22,10 +22,10 @@ procedure fpc_cpuinit;{$ifdef SYSTEMINLINE}inline;{$endif}
 
 {$define FPC_SYSTEM_HAS_MOVE}
 procedure Move(const source;var dest;count:SizeInt);[public, alias: 'FPC_MOVE'];
-var
-  pdest,psrc,pend : pbyte;
+{var
+  pdest,psrc,pend : pbyte;}
 begin
-  if (@dest=@source) or (count<=0) then
+(*  if (@dest=@source) or (count<=0) then
     exit;
   if (@dest<@source) or (@source+count<@dest) then
     begin
@@ -51,7 +51,7 @@ begin
           dec(psrc);
           pdest^:=psrc^;
         end;
-    end;
+    end;*)
 end;
 
 
@@ -175,8 +175,8 @@ function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comp
     end;
 
     Result:=Target;
-    if Target=Comperand then
-      Target:=NewValue;
+//    if Target=Comperand then
+//      Target:=NewValue;
 
     { release interrupts }
     asm
@@ -261,8 +261,8 @@ function InterlockedCompareExchange(var Target: smallint; NewValue: smallint; Co
     end;
 
     Result:=Target;
-    if Target=Comperand then
-      Target:=NewValue;
+//    if Target=Comperand then
+//      Target:=NewValue;
 
     { release interrupts }
     asm