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

* added 2k buffer for stack checking for correct io on error

Browse Source
This commit is contained in:
carl 1998-07-07 12:33:08 +00:00
parent 34f5f72c53
commit 0e28a46c7c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/dos/go32v2/system.pp
View File

@ -151,12 +151,16 @@ procedure int_stackcheck(stack_size:longint);[public,alias: 'STACKCHECK'];
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 esi !!!! because esi is set by is set this function must preserve esi !!!! because esi is set by
the calling proc for methods it must preserve all registers !! the calling proc for methods it must preserve all registers !!
With a 2048 byte safe area used to write to StdIo without crossing
the stack boundary
} }
begin begin
asm asm
pushl %eax pushl %eax
pushl %ebx pushl %ebx
movl stack_size,%ebx movl stack_size,%ebx
addl $2048,%ebx
movl %esp,%eax movl %esp,%eax
subl %ebx,%eax subl %ebx,%eax
{$ifdef SYSTEMDEBUG} {$ifdef SYSTEMDEBUG}
@ -1054,7 +1058,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.10 1998-07-02 12:29:20 carl Revision 1.11 1998-07-07 12:33:08 carl
* added 2k buffer for stack checking for correct io on error
Revision 1.10 1998/07/02 12:29:20 carl
* IOCheck for rmdir,chdir and mkdir as in TP * IOCheck for rmdir,chdir and mkdir as in TP
NOTE: I'm pretty SURE this will not compile and link correctly with FPC NOTE: I'm pretty SURE this will not compile and link correctly with FPC
0.99.5 0.99.5