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

* C-style blocks are implicit pointers -> don't parse such typed constants

Browse Source 
as a record

git-svn-id: trunk@33924 -
This commit is contained in:
Jonas Maebe 2016-06-05 21:34:42 +00:00
parent 8c5fdc9dc2
commit ccf011dbc5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmcnst.pas
View File

@ -877,7 +877,8 @@ implementation
if (def.typ in [recorddef,filedef,variantdef]) or if (def.typ in [recorddef,filedef,variantdef]) or
is_object(def) or is_object(def) or
((def.typ=procvardef) and ((def.typ=procvardef) and
not tprocvardef(def).is_addressonly) then not tprocvardef(def).is_addressonly and
not is_block(def)) then
result:=tck_record result:=tck_record
else if ((def.typ=arraydef) and else if ((def.typ=arraydef) and
not is_dynamic_array(def)) or not is_dynamic_array(def)) or