Browse Source

* changed errnum parameter of halt() from byte to longint to match the
definition of exitcode (mantis #15231)

git-svn-id: trunk@14339 -

Jonas Maebe 15 years ago
parent
commit
3138093fdf
2 changed files with 2 additions and 2 deletions
  1. 1 1
      rtl/inc/system.inc
  2. 1 1
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/system.inc

@@ -884,7 +884,7 @@ begin
 end;
 end;
 
 
 
 
-Procedure Halt(ErrNum: Byte);
+Procedure Halt(ErrNum: Longint);
 Begin
 Begin
   ExitCode:=Errnum;
   ExitCode:=Errnum;
   Do_Exit;
   Do_Exit;

+ 1 - 1
rtl/inc/systemh.inc

@@ -994,7 +994,7 @@ procedure DumpExceptionBackTrace(var f:text);
 
 
 Procedure RunError(w:Word);
 Procedure RunError(w:Word);
 Procedure RunError;{$ifdef SYSTEMINLINE}inline;{$endif}
 Procedure RunError;{$ifdef SYSTEMINLINE}inline;{$endif}
-Procedure halt(errnum:byte);
+Procedure halt(errnum:Longint);
 {$ifdef FPC_HAS_FEATURE_HEAP}
 {$ifdef FPC_HAS_FEATURE_HEAP}
 Procedure AddExitProc(Proc:TProcedure);
 Procedure AddExitProc(Proc:TProcedure);
 {$endif FPC_HAS_FEATURE_HEAP}
 {$endif FPC_HAS_FEATURE_HEAP}