Merge pull request livecode#6880 from montegoulding/listtonsarraycrash-9.0

runrevmark · web-flow · commit a5f2dabc3e37 · 2019-04-08T11:59:40.000+01:00
[[ Bug ]] Fix over-release crash in ListToNSArray
diff --git a/libfoundation/src/foundation-cf.cpp b/libfoundation/src/foundation-cf.cpp
@@ -514,7 +514,7 @@ bool MCValueConvertToCFTypeRef(MCValueRef p_value, bool p_use_lists, CFTypeRef&
         default:
             if (MCValueGetTypeInfo(p_value) == kMCObjcObjectTypeInfo)
             {
-                r_cf_type = MCObjcObjectGetId((MCObjcObjectRef)p_value);
+                r_cf_type = CFRetain(MCObjcObjectGetId((MCObjcObjectRef)p_value));
                 return true;
             }
             break;

Original file line number	Diff line number	Diff line change
`@@ -514,7 +514,7 @@ bool MCValueConvertToCFTypeRef(MCValueRef p_value, bool p_use_lists, CFTypeRef&`
`514`	`514`	`default:`
`515`	`515`	`if (MCValueGetTypeInfo(p_value) == kMCObjcObjectTypeInfo)`
`516`	`516`	`{`
`517`		`- r_cf_type = MCObjcObjectGetId((MCObjcObjectRef)p_value);`
	`517`	`+ r_cf_type = CFRetain(MCObjcObjectGetId((MCObjcObjectRef)p_value));`
`518`	`518`	`return true;`
`519`	`519`	`}`
`520`	`520`	`break;`