paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 08:09:55 +01: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; 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 called when trying to get local stack if the compiler directive $S
is set this function must preserve all registers is set this function must preserve all registers
@ -392,7 +392,7 @@ begin
ConsolePrintf (#13'Calling do_exit'#13#10); ConsolePrintf (#13'Calling do_exit'#13#10);
{$endif} {$endif}
SigTermHandlerActive := true; { to avoid that system_exit calls _exit } SigTermHandlerActive := true; { to avoid that system_exit calls _exit }
do_exit; { calls finalize units } internal_do_exit; { calls finalize units }
if assigned (SetThreadDataAreaPtr) then if assigned (SetThreadDataAreaPtr) then
SetThreadDataAreaPtr (oldPtr); SetThreadDataAreaPtr (oldPtr);
_SetThreadGroupID (oldTG); _SetThreadGroupID (oldTG);