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

* removed stackcheck, the generic stackcheck is used

Browse Source 
* fixed return value for error conversion when no error was passed
This commit is contained in:
peter 2002-12-18 20:43:27 +00:00
parent b67cdd321d
commit 07fc95ca5a
1 changed files with 7 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/linux/osmain.inc
View File

@ -28,29 +28,6 @@ const
S_IXUSR OR S_IXGRP OR S_IXOTH;
{*****************************************************************************
Stack check code
*****************************************************************************}
{
{$IFOPT S+}
{$DEFINE STACKCHECK}
{$ENDIF}
{$S-}
procedure int_stackcheck(stack_size:longint);[public,alias:'FPC_STACKCHECK'];
var
c: cardinal;
begin
c := cardinal(Sptr) - cardinal(stack_size) - STACK_MARGIN;
if (c <= cardinal(StackBottom)) then
HandleError(202);
end;
{$IFDEF STACKCHECK}
{$S+}
{$ENDIF}
{$UNDEF STACKCHECK}
}
{*****************************************************************************
Misc. System Dependent Functions
*****************************************************************************}
@ -146,7 +123,7 @@ Function PosixToRunError (PosixErrno : longint) : longint;
begin
if PosixErrNo=0 then { Else it will go through all the cases }
exit;
exit(0);
case PosixErrNo of
ESysENFILE,
ESysEMFILE : Inoutres:=4;
@ -449,7 +426,7 @@ var
begin
{$ifdef usegetcwd}
Fpgetcwd(@tmp[1],255);
dir:=tmp;
dir:=tmp;
{$else}
dir:='';
thedir:='';
@ -654,7 +631,11 @@ End.
*)
{
$Log$
Revision 1.1 2002-12-18 16:43:26 marco
Revision 1.2 2002-12-18 20:43:27 peter
* removed stackcheck, the generic stackcheck is used
* fixed return value for error conversion when no error was passed
Revision 1.1 2002/12/18 16:43:26 marco
* new unix rtl, linux part.....
Revision 1.7 2002/11/14 12:18:03 marco