* few cleanups towards building the z80-embedded system unit

git-svn-id: branches/z80@44550 -

.gitattributes

@@ -12145,6 +12145,7 @@ rtl/xtensa/setjumph.inc svneol=native#text/plain
 rtl/xtensa/strings.inc svneol=native#text/plain
 rtl/xtensa/stringss.inc svneol=native#text/plain
 rtl/xtensa/xtensa.inc svneol=native#text/plain
+rtl/z80/cpuh.inc svneol=native#text/plain
 rtl/z80/makefile.cpu svneol=native#text/plain
 rtl/z80/setjump.inc svneol=native#text/plain
 rtl/z80/setjumph.inc svneol=native#text/plain

rtl/inc/systemh.inc

@@ -363,11 +363,6 @@ Type
   {$endif}
 {$endif CPUXTENSA}
 
-{$if not declared(FarPointer)}
-  FarPointer = Pointer;
-{$endif}
-
-
 {$ifdef CPUZ80}
   {$define DEFAULT_SINGLE}
 
@@ -384,14 +379,15 @@ Type
     ValReal = Real;
   {$endif}
 
-  { map comp to int64, but this doesn't mean we compile the comp support in! }
-  Comp = Int64;
-  PComp = ^Comp;
-
   FarPointer = Pointer;
 {$endif CPUZ80}
 
 
+{$if not declared(FarPointer)}
+  FarPointer = Pointer;
+{$endif}
+
+
 {$ifdef CPU64}
   SizeInt = Int64;
   SizeUInt = QWord;

rtl/z80/cpuh.inc

@@ -0,0 +1,15 @@
+{
+
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2016 by the Free Pascal development team.
+
+    CPU specific system unit header file
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}