Browse Source

* runerror => do_halt

pierre 26 years ago
parent
commit
79f1833059
1 changed files with 12 additions and 9 deletions
  1. 12 9
      compiler/og386.pas

+ 12 - 9
compiler/og386.pas

@@ -88,7 +88,7 @@ unit og386;
   implementation
   implementation
 
 
     uses
     uses
-      strings,
+      strings,comphook,
       globtype,globals,verbose,files,
       globtype,globals,verbose,files,
       assemble;
       assemble;
 
 
@@ -241,44 +241,47 @@ unit og386;
 
 
     procedure tobjectoutput.writesymbol(p:pasmsymbol);
     procedure tobjectoutput.writesymbol(p:pasmsymbol);
       begin
       begin
-        RunError(211);
+        Do_halt(211);
       end;
       end;
 
 
     procedure tobjectoutput.writereloc(data,len:longint;p:pasmsymbol;relative:relative_type);
     procedure tobjectoutput.writereloc(data,len:longint;p:pasmsymbol;relative:relative_type);
       begin
       begin
-        RunError(211);
+        Do_halt(211);
       end;
       end;
 
 
     procedure tobjectoutput.writebytes(var data;len:longint);
     procedure tobjectoutput.writebytes(var data;len:longint);
       begin
       begin
-        RunError(211);
+        Do_halt(211);
       end;
       end;
 
 
     procedure tobjectoutput.writealloc(len:longint);
     procedure tobjectoutput.writealloc(len:longint);
       begin
       begin
-        RunError(211);
+        Do_halt(211);
       end;
       end;
 
 
     procedure tobjectoutput.writealign(len:longint);
     procedure tobjectoutput.writealign(len:longint);
       begin
       begin
-        RunError(211);
+        Do_halt(211);
       end;
       end;
 
 
    procedure tobjectoutput.writestabs(section:tsection;offset:longint;p:pchar;nidx,nother,line:longint;reloc:boolean);
    procedure tobjectoutput.writestabs(section:tsection;offset:longint;p:pchar;nidx,nother,line:longint;reloc:boolean);
       begin
       begin
-        RunError(211);
+        Do_halt(211);
       end;
       end;
 
 
    procedure tobjectoutput.writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;
    procedure tobjectoutput.writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;
      nidx,nother,line:longint;reloc:boolean);
      nidx,nother,line:longint;reloc:boolean);
       begin
       begin
-        RunError(211);
+        Do_halt(211);
       end;
       end;
 
 
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.11  1999-08-04 00:23:04  florian
+  Revision 1.12  1999-09-07 15:22:20  pierre
+   * runerror => do_halt
+
+  Revision 1.11  1999/08/04 00:23:04  florian
     * renamed i386asm and i386base to cpuasm and cpubase
     * renamed i386asm and i386base to cpuasm and cpubase
 
 
   Revision 1.10  1999/07/18 10:19:56  florian
   Revision 1.10  1999/07/18 10:19:56  florian