+ support for unaligned as lvalue

git-svn-id: trunk@3352 -
2025-04-14 12:39:31 +02:00 · 2006-04-29 11:52:57 +00:00 · 2006-04-29 11:52:57 +00:00 · 600af6c9d0
commit 600af6c9d0
parent 0780616dee
1 changed files with 6 additions and 2 deletions
--- a/compiler/htypechk.pas
+++ b/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