paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 04:38:32 +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 = ait_label) and
labelCanBeSkipped(tai_label(p))) or
((p.typ = ait_marker) and
((p.typ = ait_marker) and
(tai_Marker(p).Kind in [AsmBlockend,inlinestart,inlineend]))) do
p := tai(p.next);
while assigned(p) and
@ -2587,7 +2587,7 @@ begin
if (taicpu(p).ops >= 2) then
ReadOp(curprop,taicpu(p).oper[1]^);
if (taicpu(p).ops <= 2) then
if (taicpu(p).oper[1]^.typ = top_none) then
if (taicpu(p).ops=1) then
begin
readreg(curprop,RS_EAX);
{$ifdef statedebug}