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

* fixed unsigned mul

Browse Source
This commit is contained in:
peter 1998-10-25 23:32:48 +00:00
parent 94dfc5edd8
commit d736ecaf4d
1 changed files with 36 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/cg386add.pas
View File

@ -476,7 +476,7 @@ implementation
var
hregister : tregister;
noswap,
noswap,popeax,popedx,
pushed,mboverflow,cmpop : boolean;
op : tasmop;
flags : tresflags;
@ -764,6 +764,35 @@ implementation
CGMessage(type_e_mismatch);
end;
{ filter MUL, which requires special handling }
if op=A_MUL then
begin
popeax:=false;
popedx:=false;
p^.location.register:=getregister32;
p^.location.loc:=LOC_REGISTER;
if not(R_EAX in unused) and (p^.location.register<>R_EAX) then
begin
exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EAX)));
popeax:=true;
end;
if not(R_EDX in unused) and (p^.location.register<>R_EDX) then
begin
exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EDX)));
popedx:=true;
end;
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)));
emit_reg_reg(A_MOV,S_L,R_EAX,p^.location.register);
if popeax then
exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EAX)));
if popedx then
exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EDX)));
SetResultLocation(false,true,p);
exit;
end;
{ left and right no register? }
{ then one must be demanded }
if (p^.left^.location.loc<>LOC_REGISTER) and
@ -832,7 +861,8 @@ implementation
{ at this point, p^.location.loc should be LOC_REGISTER }
{ and p^.location.register should be a valid register }
{ containing the left result }
if p^.right^.location.loc<>LOC_REGISTER then
if p^.right^.location.loc<>LOC_REGISTER then
begin
if (p^.treetype=subn) and p^.swaped then
begin
@ -1366,7 +1396,10 @@ implementation
end.
{
$Log$
Revision 1.20 1998-10-21 08:39:56 florian
Revision 1.21 1998-10-25 23:32:48 peter
* fixed unsigned mul
Revision 1.20 1998/10/21 08:39:56 florian
+ ansistring operator +
+ $h and string[n] for n>255 added
* small problem with TP fixed