From 9669e5aa003d063e5b6d8291c9bd0451fa39d11a Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 10 Oct 2016 14:03:52 +0000
Subject: [PATCH] * use .create_nil_dataptr instead of .create_pint(0) for
 writing the 'next'   field in tobjcrttiwriter.gen_objc_protocol_list

git-svn-id: trunk@34704 -
---
 compiler/objcgutl.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/objcgutl.pas b/compiler/objcgutl.pas
index 30c59dbab6..183d9426a3 100644
--- a/compiler/objcgutl.pas
+++ b/compiler/objcgutl.pas
@@ -475,7 +475,7 @@ procedure tobjcrttiwriter.gen_objc_protocol_list(list: tasmlist; protolist: tfpo
 
     if (abi=oa_fragile) then
       { From Clang: next, always nil}
-      tcb.emit_tai(tai_const.Create_pint(0),ptruinttype);
+      tcb.emit_tai(tai_const.Create_nil_dataptr,ptruinttype);
     { From Clang: protocols count}
     tcb.emit_tai(Tai_const.Create_pint(protolist.Count),ptruinttype);
     for i:=0 to protolist.Count-1 do