* use do_halt instead of halt

compiler/compiler.pas

@@ -144,7 +144,7 @@ begin
   if recoverpospointer<>nil then
     LongJmp(recoverpospointer^,1)
   else
-    Halt(1);
+    Do_Halt(1);
 end;
 {$endif USEEXCEPT}
 
@@ -299,7 +299,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.32  1999-09-02 18:47:44  daniel
+  Revision 1.33  1999-09-07 15:10:04  pierre
+   * use do_halt instead of halt
+
+  Revision 1.32  1999/09/02 18:47:44  daniel
     * Could not compile with TP, some arrays moved to heap
     * NOAG386BIN default for TP
     * AG386* files were not compatible with TP, fixed.