paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 14:30:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation of netware system unit

Browse Source 
git-svn-id: trunk@36838 -
This commit is contained in:
pierre 2017-08-04 13:51:07 +00:00
parent c9be061921
commit 1aab7e7ee2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/netware/system.pp
View File

@ -177,7 +177,7 @@ end;
const StackErr : boolean = false;
procedure int_stackcheck(stack_size:SizeUInt);[public,alias:'FPC_STACKCHECK']; compilerproc;
procedure fpc_stackcheck(stack_size:SizeUInt);[public,alias:'FPC_STACKCHECK']; compilerproc;
{
called when trying to get local stack if the compiler directive $S
is set this function must preserve all registers
@ -392,7 +392,7 @@ begin
ConsolePrintf (#13'Calling do_exit'#13#10);
{$endif}
SigTermHandlerActive := true; { to avoid that system_exit calls _exit }
do_exit; { calls finalize units }
internal_do_exit; { calls finalize units }
if assigned (SetThreadDataAreaPtr) then
SetThreadDataAreaPtr (oldPtr);
_SetThreadGroupID (oldTG);