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

* fixed stupid bug of mine in g_flags2reg() when optimizations are on

Browse Source
This commit is contained in:
Jonas Maebe 2002-08-10 10:06:04 +00:00
parent 589f06c18f
commit c7aefd286b
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/cgx86.pas
View File

@ -1041,12 +1041,12 @@ unit cgx86;
ai : taicpu; ai : taicpu;
hreg : tregister; hreg : tregister;
begin begin
if not(size in [OS_8,OS_S8]) then
a_load_const_reg(list,size,0,reg);
hreg := rg.makeregsize(reg,OS_8); hreg := rg.makeregsize(reg,OS_8);
ai:=Taicpu.Op_reg(A_Setcc,S_B,hreg); ai:=Taicpu.Op_reg(A_Setcc,S_B,hreg);
ai.SetCondition(flags_to_cond(f)); ai.SetCondition(flags_to_cond(f));
list.concat(ai); list.concat(ai);
if (reg <> hreg) then
a_load_reg_reg(list,OS_8,hreg,reg);
end; end;
@ -1651,7 +1651,10 @@ unit cgx86;
end. end.
{ {
$Log$ $Log$
Revision 1.6 2002-08-09 19:18:27 carl Revision 1.7 2002-08-10 10:06:04 jonas
* fixed stupid bug of mine in g_flags2reg() when optimizations are on
Revision 1.6 2002/08/09 19:18:27 carl
* fix generic exception handling * fix generic exception handling
Revision 1.5 2002/08/04 19:52:04 carl Revision 1.5 2002/08/04 19:52:04 carl