From d0fa5fff8c4e5dbea9ca51653f9ae4c45e50a8d0 Mon Sep 17 00:00:00 2001 From: nickysn Date: Wed, 31 Jul 2013 15:18:13 +0000 Subject: [PATCH] * use Tai_const.Create_nil_dataptr in TVMTWriter.intf_gen_intf_ref for writing the nil value for the GUID ptr of Corba interfaces git-svn-id: trunk@25201 - --- compiler/ncgvmt.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ncgvmt.pas b/compiler/ncgvmt.pas index 1a881d8614..21739d26f4 100644 --- a/compiler/ncgvmt.pas +++ b/compiler/ncgvmt.pas @@ -600,7 +600,7 @@ implementation rawdata.concat(Tai_const.CreateName( make_mangledname('IID',AImplIntf.IntfDef.owner,AImplIntf.IntfDef.objname^),0)) else - rawdata.concat(Tai_const.Create_sym(nil)); + rawdata.concat(Tai_const.Create_nil_dataptr); { VTable } rawdata.concat(Tai_const.Createname(intf_get_vtbl_name(AImplIntf.VtblImplIntf),0));