Browse Source

+ support for unaligned as lvalue

git-svn-id: trunk@3352 -
florian 19 years ago
parent
commit
600af6c9d0
1 changed files with 6 additions and 2 deletions
  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