Explorar el Código

+ support for unaligned as lvalue

git-svn-id: trunk@3352 -
florian hace 19 años
padre
commit
600af6c9d0
Se han modificado 1 ficheros con 6 adiciones y 2 borrados
  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