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

* fixed tprocvardef.size() for

Browse Source 
a) C-blocks: they are equivalent to a voidpointertype, as they are
      implicit pointer types
   b) procvardefs created from static class methods (there is no
      self pointer in this case)
  o fixes webtbs/tw30936.pp with LLVM

git-svn-id: trunk@34977 -
This commit is contained in:
Jonas Maebe 2016-11-26 21:51:21 +00:00
parent b2e99da3e6
commit 477283031c
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -6386,9 +6386,13 @@ implementation
function tprocvardef.size : asizeint; function tprocvardef.size : asizeint;
begin begin
if ((po_methodpointer in procoptions) or { we return false for is_addressonly for a block (because it's not a
is_nested_pd(self)) and simple pointer to a function), but they are handled as implicit
not(po_addressonly in procoptions) then pointers to a datastructure that contains everything ->
voidpointertype.size instead of voidcodepointertype.size }
if po_is_block in procoptions then
size:=voidpointertype.size
else if not is_addressonly then
begin begin
if is_nested_pd(self) then if is_nested_pd(self) then
size:=voidcodepointertype.size+parentfpvoidpointertype.size size:=voidcodepointertype.size+parentfpvoidpointertype.size