paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 20:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* runerror => do_halt

Browse Source
This commit is contained in:
pierre 1999-09-07 15:22:20 +00:00
parent 7439aa4828
commit 79f1833059
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/og386.pas
View File

@ -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