paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* flags2reg() was not extending the byte register to the correct result size

Browse Source
This commit is contained in:
carl 2002-11-09 21:18:31 +00:00
parent 6aa2786d41
commit 7c0f175681
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/cgx86.pas
View File

@ -1054,7 +1054,7 @@ unit cgx86;
ai.SetCondition(flags_to_cond(f)); ai.SetCondition(flags_to_cond(f));
list.concat(ai); list.concat(ai);
if (reg <> hreg) then if (reg <> hreg) then
a_load_reg_reg(list,OS_8,OS_8,hreg,reg); a_load_reg_reg(list,OS_8,size,hreg,reg);
end; end;
@ -1682,7 +1682,10 @@ unit cgx86;
end. end.
{ {
$Log$ $Log$
Revision 1.19 2002-10-16 19:01:43 peter Revision 1.20 2002-11-09 21:18:31 carl
* flags2reg() was not extending the byte register to the correct result size
Revision 1.19 2002/10/16 19:01:43 peter
+ $IMPLICITEXCEPTIONS switch to turn on/off generation of the + $IMPLICITEXCEPTIONS switch to turn on/off generation of the
implicit exception frames for procedures with initialized variables implicit exception frames for procedures with initialized variables
and for constructors. The default is on for compatibility and for constructors. The default is on for compatibility