Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* made exitcode a longint, at least windows supports it, delphi uses a longint too

git-svn-id: trunk@6549 -
florian 18 years ago
parent
b8d56a1512
commit
f42a2d67b9
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/systemh.inc
View File 

@@ -357,7 +357,7 @@ const
 
   InitProc : Pointer = nil;
 
   InitProc : Pointer = nil;
 
 
 
 var
 
 var
 
-  ExitCode    : Word; public name 'operatingsystem_result';
 
+  ExitCode    : Longint; public name 'operatingsystem_result';
 
   RandSeed    : Cardinal;
 
   RandSeed    : Cardinal;
 
   { Delphi compatibility }
 
   { Delphi compatibility }
 
   IsLibrary : boolean = false;
 
   IsLibrary : boolean = false;