diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-07-18 09:15:29 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-07-18 09:15:29 +0000 |
commit | b2b9fb825d2c0e2b937f0d6dd074635b1880b88c (patch) | |
tree | e8e6a6798a16ec1bd8befd755d2c6383a2585f25 /compiler/blockutl.pas | |
parent | 806f1a2409160f9fbb1dac1b5c5a3c2812cb46d6 (diff) | |
download | fpc-b2b9fb825d2c0e2b937f0d6dd074635b1880b88c.tar.gz |
* changed the syntax for block procvars from "xxx is block" to
"reference to ...; cdecl;". The "reference to ..." syntax is what Delphi
uses for anonymous function references. The "cdecl;" indicates that this
is for the C-variant of such references, which is what blocks are
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/blocks@28233 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/blockutl.pas')
-rw-r--r-- | compiler/blockutl.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/blockutl.pas b/compiler/blockutl.pas index 5ef4bd9079..1375b39084 100644 --- a/compiler/blockutl.pas +++ b/compiler/blockutl.pas @@ -65,7 +65,7 @@ implementation { todo: nested functions and Objective-C methods } else if not is_nested_pd(pd) and not is_objcclass(tdef(pd.owner.defowner)) then - result:=trecorddef(search_named_unit_globaltype('BLOCKRTL','FPC_BLOCK_LITERAL_PROCVAR',true).typedef) + result:=trecorddef(search_named_unit_globaltype('BLOCKRTL','FPC_BLOCK_LITERAL_COMPLEX_PROCVAR',true).typedef) else internalerror(2014071304); end; |