瀏覽代碼

+ support for unaligned as lvalue

git-svn-id: trunk@3352 -
florian 19 年之前
父節點
當前提交
600af6c9d0
共有 1 個文件被更改,包括 6 次插入2 次删除
  1. 6 2
      compiler/htypechk.pas

+ 6 - 2
compiler/htypechk.pas

@@ -1174,8 +1174,12 @@ implementation
                end;
              inlinen :
                begin
-                 if (valid_const in opts) and
-                    (tinlinenode(hp).inlinenumber in [in_typeof_x]) then
+                 if ((valid_const in opts) and
+                    (tinlinenode(hp).inlinenumber in [in_typeof_x]))
+{$ifdef SUPPORT_UNALIGNED}
+                    or (tinlinenode(hp).inlinenumber in [in_unaligned_x])
+{$endif SUPPORT_UNALIGNED}
+                    then
                    result:=true
                  else
                    if report_errors then