From 93fcdb9a5ae4452022867378d7b203291c873f21 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Thu, 14 May 2015 14:42:22 +0000 Subject: [PATCH] * fixed initialisation of procvar typed const with a pointerconstn: 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 - --- compiler/ngtcon.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ngtcon.pas b/compiler/ngtcon.pas index e6947be53e..8926c79300 100644 --- a/compiler/ngtcon.pas +++ b/compiler/ngtcon.pas @@ -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