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

* noag386bin fix

Browse Source
This commit is contained in:
peter 2001-03-05 21:49:44 +00:00
parent 66aa8ba662
commit 21fc432ada
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/ra386.pas
View File

@ -635,7 +635,9 @@ begin
if assigned(ai) then if assigned(ai) then
begin begin
{ Check the instruction if it's valid } { Check the instruction if it's valid }
{$ifndef NOAG386BIN}
ai.CheckIfValid; ai.CheckIfValid;
{$endif NOAG386BIN}
p.concat(ai); p.concat(ai);
end end
else else
@ -645,7 +647,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.6 2001-02-20 21:51:36 peter Revision 1.7 2001-03-05 21:49:44 peter
* noag386bin fix
Revision 1.6 2001/02/20 21:51:36 peter
* fpu fixes (merged) * fpu fixes (merged)
Revision 1.5 2001/01/12 19:18:42 peter Revision 1.5 2001/01/12 19:18:42 peter