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

+ reinstate novell stack checking

Browse Source
This commit is contained in:
carl 2002-04-15 18:47:34 +00:00
parent 96e7db8292
commit 63613709f2
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/netware/system.pp
View File

@ -33,12 +33,7 @@ interface
{$I systemh.inc} {$I systemh.inc}
{Platform specific information} {Platform specific information}
const const LineEnding = #13#10; LFNSupport = false; { ??? - that's how it was declared in dos.pp! } DirectorySeparator = '\'; DriveSeparator = ':'; PathSeparator = ';';
LineEnding = #13#10;
LFNSupport = false; { ??? - that's how it was declared in dos.pp! }
DirectorySeparator = '\';
DriveSeparator = ':';
PathSeparator = ';';
{ FileNameCaseSensitive is defined separately below!!! } { FileNameCaseSensitive is defined separately below!!! }
type type
@ -87,10 +82,9 @@ PROCEDURE ConsolePrintf (FormatStr : PCHAR); CDecl;
implementation implementation
{ Indicate that stack checking is taken care by OS} {$DEFINE NO_GENERIC_STACK_CHECK}
{ include system independent routines } { include system independent routines } {$I system.inc}
{$I system.inc}
{ some declarations for Netware API calls } { some declarations for Netware API calls }
{$I nwsys.inc} {$I nwsys.inc}
@ -154,8 +148,18 @@ begin
end; end;
end; end;
{*****************************************************************************
Stack check code
*****************************************************************************}
procedure int_stackcheck(stack_size:longint);[public,alias:'FPC_STACKCHECK'];
{
called when trying to get local stack if the compiler directive $S is set this function must preserve esi !!!! because esi is set by 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
IF _stackavail > stack_size + 2048 THEN EXIT;
HandleError (202);
end;
{***************************************************************************** {*****************************************************************************
ParamStr/Randomize ParamStr/Randomize
*****************************************************************************} *****************************************************************************}
@ -767,7 +771,10 @@ Begin StackBottom := SPtr - StackLength;
End. End.
{ {
$Log$ $Log$
Revision 1.11 2002-04-12 17:40:11 carl Revision 1.12 2002-04-15 18:47:34 carl
+ reinstate novell stack checking
Revision 1.11 2002/04/12 17:40:11 carl
+ generic stack checking + generic stack checking
Revision 1.10 2002/04/01 15:20:08 armin Revision 1.10 2002/04/01 15:20:08 armin