瀏覽代碼

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

git-svn-id: trunk@6549 -
florian 18 年之前
父節點
當前提交
f42a2d67b9
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/systemh.inc

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