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

problem with EAX being overwritten before used in A_MULL code fixed

Browse Source
This commit is contained in:
pierre 1999-05-10 14:37:49 +00:00
parent 71fbd225e4
commit 7b64448f59
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cg386add.pas
View File

@ -1025,8 +1025,9 @@ implementation
exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EDX))); exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EDX)));
popedx:=true; popedx:=true;
end; end;
emitloadord2reg(p^.right^.location,u32bitdef,R_EAX,true); { p^.left^.location can be R_EAX !!! }
emitloadord2reg(p^.left^.location,u32bitdef,R_EDI,true); emitloadord2reg(p^.left^.location,u32bitdef,R_EDI,true);
emitloadord2reg(p^.right^.location,u32bitdef,R_EAX,true);
exprasmlist^.concat(new(pai386,op_reg(A_MUL,S_L,R_EDI))); exprasmlist^.concat(new(pai386,op_reg(A_MUL,S_L,R_EDI)));
emit_reg_reg(A_MOV,S_L,R_EAX,p^.location.register); emit_reg_reg(A_MOV,S_L,R_EAX,p^.location.register);
if popedx then if popedx then
@ -2055,9 +2056,12 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.54 1999-05-09 17:58:42 jonas Revision 1.55 1999-05-10 14:37:49 pierre
+ change "MUL <power of 2>, reg" to SHL (-d ShlMul) problem with EAX being overwritten before used in A_MULL code fixed
* do the NOT of a constant set when it's substracted internally
Revision 1.54 1999/05/09 17:58:42 jonas
+ change "MUL <power of 2>, reg" to SHL (-d ShlMul)
* do the NOT of a constant set when it's substracted internally
(-dsetconstnot) (-dsetconstnot)
Revision 1.53 1999/05/01 13:24:01 peter Revision 1.53 1999/05/01 13:24:01 peter