paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 10:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* LOC_JUMP support for vecn

Browse Source
This commit is contained in:
peter 1999-11-15 21:54:38 +00:00
parent 76e4b69919
commit 79f6135498
1 changed files with 40 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
compiler/cg386mem.pas
View File

@ -407,7 +407,7 @@ implementation
tai : Paicpu;
pushed : tpushed;
hightree : ptree;
hl,otl,ofl : pasmlabel;
begin
secondpass(p^.left);
rl:=p^.left^.resulttype;
@ -602,6 +602,13 @@ implementation
if (p^.location.loc<>LOC_REFERENCE) and
(p^.location.loc<>LOC_MEM) then
CGMessage(cg_e_illegal_expression);
if (p^.right^.location.loc=LOC_JUMP) then
begin
otl:=truelabel;
getlabel(truelabel);
ofl:=falselabel;
getlabel(falselabel);
end;
is_pushed:=maybe_push(p^.right^.registers32,p,false);
secondpass(p^.right);
if is_pushed then
@ -669,20 +676,35 @@ implementation
ind:=getregister32;
emit_flag2reg(p^.right^.location.resflags,reg32toreg8(ind));
emit_reg_reg(A_MOVZX,S_BL,reg32toreg8(ind),ind);
end
end;
LOC_JUMP :
begin
ind:=getregister32;
emitlab(truelabel);
truelabel:=otl;
emit_const_reg(A_MOV,S_L,1,ind);
getlabel(hl);
emitjmp(C_None,hl);
emitlab(falselabel);
falselabel:=ofl;
emit_reg_reg(A_XOR,S_L,ind,ind);
emitlab(hl);
end;
LOC_REFERENCE,LOC_MEM :
begin
del_reference(p^.right^.location.reference);
ind:=getregister32;
{ Booleans are stored in an 8 bit memory location, so
the use of MOVL is not correct }
case p^.right^.resulttype^.size of
1 : tai:=new(paicpu,op_ref_reg(A_MOVZX,S_BL,newreference(p^.right^.location.reference),ind));
2 : tai:=new(Paicpu,op_ref_reg(A_MOVZX,S_WL,newreference(p^.right^.location.reference),ind));
4 : tai:=new(Paicpu,op_ref_reg(A_MOV,S_L,newreference(p^.right^.location.reference),ind));
end;
exprasmlist^.concat(tai);
end;
else
begin
del_reference(p^.right^.location.reference);
ind:=getregister32;
{ Booleans are stored in an 8 bit memory location, so
the use of MOVL is not correct }
case p^.right^.resulttype^.size of
1 : tai:=new(paicpu,op_ref_reg(A_MOVZX,S_BL,newreference(p^.right^.location.reference),ind));
2 : tai:=new(Paicpu,op_ref_reg(A_MOVZX,S_WL,newreference(p^.right^.location.reference),ind));
4 : tai:=new(Paicpu,op_ref_reg(A_MOV,S_L,newreference(p^.right^.location.reference),ind));
end;
exprasmlist^.concat(tai);
end;
internalerror(5913428);
end;
{ produce possible range check code: }
@ -861,7 +883,10 @@ implementation
end.
{
$Log$
Revision 1.60 1999-11-06 14:34:18 peter
Revision 1.61 1999-11-15 21:54:38 peter
* LOC_JUMP support for vecn
Revision 1.60 1999/11/06 14:34:18 peter
* truncated log to 20 revs
Revision 1.59 1999/10/30 17:35:26 peter