paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:09:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the dummy fpc_InitializeUnits and fpc_do_exit procedures are only defined if system unit is compiled

Browse Source 
without -dFULL_RTL

git-svn-id: branches/z80@45063 -
This commit is contained in:
nickysn 2020-04-25 11:13:32 +00:00
parent b15c66b396
commit 0b73bfa3ab
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/zxspectrum/system.pp
View File

@ -186,6 +186,16 @@ end;
{$else FULL_RTL} {$else FULL_RTL}
{$I z80.inc} {$I z80.inc}
procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
begin
end;
Procedure fpc_do_exit;[Public,Alias:'FPC_DO_EXIT']; compilerproc;
begin
repeat
until false;
end;
{$endif FULL_RTL} {$endif FULL_RTL}
var var
@ -205,16 +215,6 @@ begin
KeyPressed:=LastKey<>#0; KeyPressed:=LastKey<>#0;
end; end;
procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
begin
end;
Procedure fpc_do_exit;[Public,Alias:'FPC_DO_EXIT']; compilerproc;
begin
repeat
until false;
end;
procedure OpenChannel(Chan: Byte); procedure OpenChannel(Chan: Byte);
begin begin
asm asm