From ccf011dbc5c35f78da2a2498947dfe395962df4b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 5 Jun 2016 21:34:42 +0000
Subject: [PATCH]   * C-style blocks are implicit pointers -> don't parse such
 typed constants     as a record

git-svn-id: trunk@33924 -
---
 compiler/aasmcnst.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/aasmcnst.pas b/compiler/aasmcnst.pas
index 9945521e7a..fa8c63ee78 100644
--- a/compiler/aasmcnst.pas
+++ b/compiler/aasmcnst.pas
@@ -877,7 +877,8 @@ implementation
        if (def.typ in [recorddef,filedef,variantdef]) or
           is_object(def) or
           ((def.typ=procvardef) and
-           not tprocvardef(def).is_addressonly) then
+           not tprocvardef(def).is_addressonly and
+           not is_block(def)) then
          result:=tck_record
        else if ((def.typ=arraydef) and
            not is_dynamic_array(def)) or