paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* few cleanups towards building the z80-embedded system unit

Browse Source 
git-svn-id: branches/z80@44550 -
This commit is contained in:
florian 2020-04-03 20:37:27 +00:00
parent d723b69325
commit a6cfaa996a
3 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

14
rtl/inc/systemh.inc
View File

@ -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;

15
rtl/z80/cpuh.inc Normal file
View File

@ -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.
**********************************************************************}