Explorar o código

* allow type postfix like: [esi].currency

git-svn-id: trunk@1098 -
florian %!s(int64=20) %!d(string=hai) anos
pai
achega
23d1caba7e
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      compiler/i386/ra386int.pas

+ 2 - 0
compiler/i386/ra386int.pas

@@ -1653,6 +1653,8 @@ Unit Ra386int;
                                 if oper.opr.typ in [OPR_REFERENCE,OPR_LOCAL] then
                                 if oper.opr.typ in [OPR_REFERENCE,OPR_LOCAL] then
                                   oper.SetSize(typesize,true);
                                   oper.SetSize(typesize,true);
                               end;
                               end;
+                            else
+                              oper.SetSize(typesize,true);
                           end;
                           end;
                         end
                         end
                        else
                        else