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

* fixed invalid class typecasts in rol/ror handling

Browse Source 
git-svn-id: trunk@12703 -
This commit is contained in:
Jonas Maebe 2009-02-07 21:21:43 +00:00
parent ef7d9c7a41
commit 0a14c8824e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncginl.pas
View File

@ -728,7 +728,8 @@ implementation
op1,op2 : tnode; op1,op2 : tnode;
begin begin
{ one or two parameters? } { one or two parameters? }
if assigned(tcallparanode(left).right) then if (left.nodetype=callparan) and
assigned(tcallparanode(left).right) then
begin begin
op1:=tcallparanode(tcallparanode(left).right).left; op1:=tcallparanode(tcallparanode(left).right).left;
op2:=tcallparanode(left).left; op2:=tcallparanode(left).left;
@ -749,7 +750,8 @@ implementation
end; end;
location_force_reg(current_asmdata.CurrAsmList,location,location.size,false); location_force_reg(current_asmdata.CurrAsmList,location,location.size,false);
if assigned(tcallparanode(left).right) then if (left.nodetype=callparan) and
assigned(tcallparanode(left).right) then
begin begin
secondpass(op2); secondpass(op2);
{ rotating by a constant directly coded: } { rotating by a constant directly coded: }