* adapted to new system.exitcode definition

git-svn-id: trunk@6557 -

tests/webtbs/tw1622.pp

@@ -63,7 +63,7 @@ end;
 
 procedure test_global_var;
 var
-  y : integer absolute system.exitcode;
+  y : longint absolute system.exitcode;
 begin
   y := 315;
 end;