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

* fixed initialisation of procvar typed const with a pointerconstn:

Browse Source 
we start a typeconversion queue before, so we have to emit to that
    queue as well (to get all the type conversions)

git-svn-id: trunk@30850 -
This commit is contained in:
Jonas Maebe 2015-05-14 14:42:22 +00:00
parent d71f6e9840
commit 93fcdb9a5a
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/ngtcon.pas
View File

@ -1389,7 +1389,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
end
else if n.nodetype=pointerconstn then
begin
ftcb.emit_tai_procvar2procdef(Tai_const.Create_pint(tpointerconstnode(n).value),def);
ftcb.queue_emit_ordconst(tpointerconstnode(n).value,def);
if not def.is_addressonly then
ftcb.emit_tai(Tai_const.Create_sym(nil),voidpointertype);
end