Forráskód Böngészése

* removed stackcheck, the generic stackcheck is used
* fixed return value for error conversion when no error was passed

peter 22 éve
szülő
commit
07fc95ca5a
1 módosított fájl, 7 hozzáadás és 26 törlés
  1. 7 26
      rtl/linux/osmain.inc

+ 7 - 26
rtl/linux/osmain.inc

@@ -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