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

* better support for flags result

Browse Source
This commit is contained in:
peter 1999-04-16 11:44:24 +00:00
parent ee148a5d08
commit 2df973753e
1 changed files with 32 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/cg386add.pas
View File

@ -48,6 +48,24 @@ implementation
Helpers Helpers
*****************************************************************************} *****************************************************************************}
procedure locflags2reg(var l:tlocation;opsize:topsize);
var
hregister : tregister;
begin
if (l.loc=LOC_FLAGS) then
begin
case opsize of
S_L : hregister:=getregister32;
S_W : hregister:=reg32toreg16(getregister32);
S_B : hregister:=reg32toreg8(getregister32);
end;
emit_flag2reg(l.resflags,hregister);
l.loc:=LOC_REGISTER;
l.register:=hregister;
end;
end;
function getresflags(p : ptree;unsigned : boolean) : tresflags; function getresflags(p : ptree;unsigned : boolean) : tresflags;
begin begin
@ -616,11 +634,11 @@ implementation
if p^.left^.treetype=ordconstn then if p^.left^.treetype=ordconstn then
swaptree(p); swaptree(p);
secondpass(p^.left); secondpass(p^.left);
{ if in flags then copy first to register, because the
flags can be destroyed }
if (p^.left^.location.loc=LOC_FLAGS) then
locflags2reg(p^.left^.location,opsize);
set_location(p^.location,p^.left^.location); set_location(p^.location,p^.left^.location);
{p^.location:=p^.left^.location;
created a bug !!! PM
because symbol was used twice }
{ are enough registers free ? }
pushed:=maybe_push(p^.right^.registers32,p); pushed:=maybe_push(p^.right^.registers32,p);
secondpass(p^.right); secondpass(p^.right);
if pushed then restore(p); if pushed then restore(p);
@ -881,6 +899,12 @@ implementation
exit; exit;
end; end;
{ Convert flags to register first }
if (p^.left^.location.loc=LOC_FLAGS) then
locflags2reg(p^.left^.location,opsize);
if (p^.right^.location.loc=LOC_FLAGS) then
locflags2reg(p^.right^.location,opsize);
{ left and right no register? } { left and right no register? }
{ then one must be demanded } { then one must be demanded }
if (p^.left^.location.loc<>LOC_REGISTER) and if (p^.left^.location.loc<>LOC_REGISTER) and
@ -912,16 +936,6 @@ implementation
hregister); hregister);
end end
end end
else
{ Flags ? }
if (p^.left^.location.loc=LOC_FLAGS) then
begin
case opsize of
S_L : hregister:=getregister32;
S_B : hregister:=reg32toreg8(getregister32);
end;
emit_flag2reg(p^.left^.location.resflags,hregister);
end
else else
begin begin
ungetiftemp(p^.left^.location.reference); ungetiftemp(p^.left^.location.reference);
@ -1900,7 +1914,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.48 1999-04-14 09:14:45 peter Revision 1.49 1999-04-16 11:44:24 peter
* better support for flags result
Revision 1.48 1999/04/14 09:14:45 peter
* first things to store the symbol/def number in the ppu * first things to store the symbol/def number in the ppu
Revision 1.47 1999/04/12 19:09:08 florian Revision 1.47 1999/04/12 19:09:08 florian