diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-04-29 11:52:57 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-04-29 11:52:57 +0000 |
commit | d1aeba0f2144088c27a1ecd392578e044fb94919 (patch) | |
tree | 063939a69a0e20d52c18cdab213f54cb8e43ca65 /compiler/htypechk.pas | |
parent | c987e9a63bbae0c3b91e727e6662bf5312fb1531 (diff) | |
download | fpc-d1aeba0f2144088c27a1ecd392578e044fb94919.tar.gz |
+ support for unaligned as lvalue
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@3352 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/htypechk.pas')
-rw-r--r-- | compiler/htypechk.pas | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas index 0b8049e768..801a64c46f 100644 --- 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 |