* halt moved to system.inc

rtl/win32/syswin32.pp

@@ -208,14 +208,6 @@ end;
 {$endif dummy}
 
 
-procedure halt(errnum : byte);
-begin
-  ExitCode:=errnum;
-  do_exit;
-  system_exit;
-end;
-
-
 function paramcount : longint;
 begin
   paramcount := argc - 1;
@@ -229,7 +221,6 @@ end;
    function GetCommandFile:pchar;forward;
 
 function paramstr(l : longint) : string;
-
 begin
   if (l>=0) and (l<argc) then
     paramstr:=strpas(argv[l])
@@ -1170,7 +1161,10 @@ end.
 
 {
   $Log$
-  Revision 1.58  2000-01-20 23:38:02  peter
+  Revision 1.59  2000-02-09 12:24:39  peter
+    * halt moved to system.inc
+
+  Revision 1.58  2000/01/20 23:38:02  peter
     * support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
       rewrite opens always with filemode 2
 
@@ -1352,4 +1346,4 @@ end.
 
   Revision 1.3  1998/04/26 21:49:57  florian
     + more stuff added (??dir procedures etc.)
-}
+}