Просмотр исходного кода

* fixed expectloc of unaligned(...)

git-svn-id: trunk@4830 -
florian 19 лет назад
Родитель
Сommit
bacded2cf8
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      compiler/ninl.pas

+ 1 - 1
compiler/ninl.pas

@@ -2553,7 +2553,7 @@ implementation
 {$ifdef SUPPORT_UNALIGNED}
 {$ifdef SUPPORT_UNALIGNED}
          in_unaligned_x:
          in_unaligned_x:
            begin
            begin
-             expectloc:=left.expectloc;
+             expectloc:=tcallparanode(left).left.expectloc;
            end;
            end;
 {$endif SUPPORT_UNALIGNED}
 {$endif SUPPORT_UNALIGNED}
           else
           else