paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 00:39:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* AG386BIN cond -> OLDASM, only cosmetic

Browse Source
This commit is contained in:
pierre 1999-05-07 00:08:48 +00:00
parent 200421f1b5
commit c48b49b0e9
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ag386int.pas
View File

@ -685,7 +685,7 @@ ait_labeled_instruction : AsmWriteLn(#9#9+int_op2str[pai386_labeled(hp)^.opcode]
s:=''; s:='';
end; end;
AsmWriteLn(#9#9+prefix+int_op2str[pai386(hp)^.opcode]+suffix+s); AsmWriteLn(#9#9+prefix+int_op2str[pai386(hp)^.opcode]+suffix+s);
{$endif AG386BIN} {$endif OLDASM}
end; end;
{$ifdef GDB} {$ifdef GDB}
ait_stabn, ait_stabn,
@ -773,7 +773,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.37 1999-05-06 09:05:09 peter Revision 1.38 1999-05-07 00:08:49 pierre
* AG386BIN cond -> OLDASM, only cosmetic
Revision 1.37 1999/05/06 09:05:09 peter
* generic write_float and str_float * generic write_float and str_float
* fixed constant float conversions * fixed constant float conversions

7
compiler/ag386nsm.pas
View File

@ -665,7 +665,7 @@ ait_labeled_instruction :
AsmWriteln(#9#9'DB'#9'09bh') AsmWriteln(#9#9'DB'#9'09bh')
else else
AsmWriteLn(#9#9+prefix+int_op2str[pai386(hp)^.opcode]+suffix+s); AsmWriteLn(#9#9+prefix+int_op2str[pai386(hp)^.opcode]+suffix+s);
{$endif AG386BIN} {$endif OLDASM}
end; end;
{$ifdef GDB} {$ifdef GDB}
ait_stabn, ait_stabn,
@ -737,7 +737,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.32 1999-05-06 09:05:11 peter Revision 1.33 1999-05-07 00:08:48 pierre
* AG386BIN cond -> OLDASM, only cosmetic
Revision 1.32 1999/05/06 09:05:11 peter
* generic write_float and str_float * generic write_float and str_float
* fixed constant float conversions * fixed constant float conversions