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

* fixed opsize for assignment with LOC_JUMP

Browse Source
This commit is contained in:
peter 2001-07-28 15:13:17 +00:00
parent b6d8dca442
commit 2f3b205358
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/i386/n386ld.pas
View File

@ -780,29 +780,28 @@ implementation
end;
end;
LOC_JUMP : begin
opsize:=def_opsize(left.resulttype.def);
getlabel(hlabel);
emitlab(truelabel);
if pushed then
restore(left,false);
if loc=LOC_CREGISTER then
emit_const_reg(A_MOV,S_B,
emit_const_reg(A_MOV,opsize,
1,left.location.register)
else
emit_const_ref(A_MOV,S_B,
emit_const_ref(A_MOV,opsize,
1,newreference(left.location.reference));
{emit_const_loc(A_MOV,S_B,
1,left.location);}
emitjmp(C_None,hlabel);
emitlab(falselabel);
if pushed then
restore(left,false);
if loc=LOC_CREGISTER then
emit_reg_reg(A_XOR,S_B,
emit_reg_reg(A_XOR,opsize,
left.location.register,
left.location.register)
else
begin
emit_const_ref(A_MOV,S_B,
emit_const_ref(A_MOV,opsize,
0,newreference(left.location.reference));
{$IfDef regallocfix}
del_reference(left.location.reference);
@ -1073,7 +1072,10 @@ begin
end.
{
$Log$
Revision 1.14 2001-05-27 14:30:56 florian
Revision 1.15 2001-07-28 15:13:17 peter
* fixed opsize for assignment with LOC_JUMP
Revision 1.14 2001/05/27 14:30:56 florian
+ some widestring stuff added
Revision 1.13 2001/04/13 01:22:19 peter