paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support for unaligned as lvalue

Browse Source 
git-svn-id: trunk@3352 -
This commit is contained in:
florian 2006-04-29 11:52:57 +00:00
parent 0780616dee
commit 600af6c9d0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/htypechk.pas
View File

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