paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added symbol_end

Browse Source
This commit is contained in:
peter 1999-09-10 15:41:18 +00:00
parent 40291ee626
commit 96bd939047
2 changed files with 38 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ag386int.pas
View File

@ -294,6 +294,8 @@ unit ag386int;
end; end;
procedure ti386intasmlist.WriteTree(p:paasmoutput); procedure ti386intasmlist.WriteTree(p:paasmoutput);
const
allocstr : array[boolean] of string[10]=(' released',' allocated');
var var
s, s,
prefix, prefix,
@ -475,6 +477,8 @@ unit ag386int;
ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit,ait_string]) then ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit,ait_string]) then
AsmWriteLn(':') AsmWriteLn(':')
end; end;
ait_symbol_end : begin
end;
ait_instruction : begin ait_instruction : begin
{ We need intel order, no At&t } { We need intel order, no At&t }
paicpu(hp)^.SwapOperands; paicpu(hp)^.SwapOperands;
@ -627,7 +631,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.53 1999-09-02 18:47:42 daniel Revision 1.54 1999-09-10 15:41:18 peter
* added symbol_end
Revision 1.53 1999/09/02 18:47:42 daniel
* Could not compile with TP, some arrays moved to heap * Could not compile with TP, some arrays moved to heap
* NOAG386BIN default for TP * NOAG386BIN default for TP
* AG386* files were not compatible with TP, fixed. * AG386* files were not compatible with TP, fixed.

34
compiler/ag386nsm.pas
View File

@ -310,10 +310,8 @@ unit ag386nsm;
procedure ti386nasmasmlist.WriteTree(p:paasmoutput); procedure ti386nasmasmlist.WriteTree(p:paasmoutput);
type const
twowords=record allocstr : array[boolean] of string[10]=(' released',' allocated');
word1,word2:word;
end;
var var
s, s,
prefix, prefix,
@ -333,13 +331,27 @@ unit ag386nsm;
while assigned(hp) do while assigned(hp) do
begin begin
case hp^.typ of case hp^.typ of
ait_comment : Begin ait_comment :
Begin
AsmWrite(target_asm.comment); AsmWrite(target_asm.comment);
AsmWritePChar(pai_asm_comment(hp)^.str); AsmWritePChar(pai_asm_comment(hp)^.str);
AsmLn; AsmLn;
End; End;
ait_regalloc,
ait_tempalloc : ; ait_regalloc :
begin
if (cs_asm_regalloc in aktglobalswitches) then
AsmWriteLn(target_asm.comment+'Register '+att_reg2str[pairegalloc(hp)^.reg]+
allocstr[pairegalloc(hp)^.allocation]);
end;
ait_tempalloc :
begin
if (cs_asm_tempalloc in aktglobalswitches) then
AsmWriteLn(target_asm.comment+'Temp '+tostr(paitempalloc(hp)^.temppos)+','+
tostr(paitempalloc(hp)^.tempsize)+allocstr[paitempalloc(hp)^.allocation]);
end;
ait_section : begin ait_section : begin
if pai_section(hp)^.sec<>sec_none then if pai_section(hp)^.sec<>sec_none then
begin begin
@ -479,6 +491,9 @@ unit ag386nsm;
ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit,ait_string]) then ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit,ait_string]) then
AsmWriteLn(':') AsmWriteLn(':')
end; end;
ait_symbol_end :
begin
end;
ait_instruction : begin ait_instruction : begin
{ We need intel order, no At&t } { We need intel order, no At&t }
paicpu(hp)^.SwapOperands; paicpu(hp)^.SwapOperands;
@ -602,7 +617,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.50 1999-09-02 18:47:43 daniel Revision 1.51 1999-09-10 15:41:18 peter
* added symbol_end
Revision 1.50 1999/09/02 18:47:43 daniel
* Could not compile with TP, some arrays moved to heap * Could not compile with TP, some arrays moved to heap
* NOAG386BIN default for TP * NOAG386BIN default for TP
* AG386* files were not compatible with TP, fixed. * AG386* files were not compatible with TP, fixed.