paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't put classes/interfaces which need to be finalized in regvars

Browse Source 
because the code generated by finalize_data_node() can't deal with that
    (and it's called from gen_finalize_code() *after* the local symtable
     of the current procedure has been allocated, and therefore the
     make_not_regable() call of the generated addrnode doesn't do anything)

git-svn-id: trunk@5414 -
This commit is contained in:
Jonas Maebe 2006-11-17 12:06:20 +00:00
parent 97f284f632
commit 4dc98db426
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -1059,7 +1059,7 @@ implementation
procvardef :
is_intregable:=not(po_methodpointer in tprocvardef(self).procoptions);
objectdef:
is_intregable:=is_class(self) or is_interface(self);
is_intregable:=(is_class(self) or is_interface(self)) and not needs_inittable;
setdef:
is_intregable:=(tsetdef(self).settype=smallset);
recorddef: