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

* fixed handling of imul with one parameter

Browse Source 
git-svn-id: trunk@1964 -
This commit is contained in:
florian 2005-12-15 22:36:16 +00:00
parent e2a4dac215
commit 5ea49bedd0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/daopt386.pas
View File

@ -1130,7 +1130,7 @@ begin
((p.typ in (SkipInstr - [ait_RegAlloc])) or ((p.typ in (SkipInstr - [ait_RegAlloc])) or
((p.typ = ait_label) and ((p.typ = ait_label) and
labelCanBeSkipped(tai_label(p))) or labelCanBeSkipped(tai_label(p))) or
((p.typ = ait_marker) and ((p.typ = ait_marker) and
(tai_Marker(p).Kind in [AsmBlockend,inlinestart,inlineend]))) do (tai_Marker(p).Kind in [AsmBlockend,inlinestart,inlineend]))) do
p := tai(p.next); p := tai(p.next);
while assigned(p) and while assigned(p) and
@ -2587,7 +2587,7 @@ begin
if (taicpu(p).ops >= 2) then if (taicpu(p).ops >= 2) then
ReadOp(curprop,taicpu(p).oper[1]^); ReadOp(curprop,taicpu(p).oper[1]^);
if (taicpu(p).ops <= 2) then if (taicpu(p).ops <= 2) then
if (taicpu(p).oper[1]^.typ = top_none) then if (taicpu(p).ops=1) then
begin begin
readreg(curprop,RS_EAX); readreg(curprop,RS_EAX);
{$ifdef statedebug} {$ifdef statedebug}