* halt moved to system.inc

rtl/go32v2/system.pp

@@ -626,19 +626,12 @@ begin
 end;
 
 
-procedure halt(errnum : byte);
-begin
-  exitcode:=errnum;
-  do_exit;
-  { do_exit should call system_exit but this does not hurt }
-  System_exit;
-end;
-
 procedure new_int00;
 begin
   HandleError(200);
 end;
 
+
 procedure new_int75;
 begin
   asm
@@ -1377,7 +1370,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.31  2000-01-24 11:57:18  daniel
+  Revision 1.32  2000-02-09 12:41:14  peter
+    * halt moved to system.inc
+
+  Revision 1.31  2000/01/24 11:57:18  daniel
     * !proxy support in environment added (Peter)
 
   Revision 1.30  2000/01/20 23:38:02  peter

rtl/os2/sysos2.pas

@@ -169,12 +169,11 @@ end;
 
 ****************************************************************************}
 
-procedure halt(errnum:byte);
-
+procedure system_exit;
 begin
     asm
         movb $0x4c,%ah
-        movb errnum,%al
+        movb exitcode,%al
         call syscall
     end;
 end;
@@ -667,13 +666,6 @@ end;
 
 
 
-{*****************************************************************************
-                         System Dependent Exit code
-*****************************************************************************}
-Procedure system_exit;
-begin
-end;
-
 {****************************************************************************
 
                         System unit initialization.
@@ -760,7 +752,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.24  2000-01-20 23:38:02  peter
+  Revision 1.25  2000-02-09 12:39:11  peter
+    * halt moved to system.inc
+
+  Revision 1.24  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