Merge pull request livecode#3448 from livecodeali/bugfix-16351

livecodeali · livecodeali · commit ab4b85da6c4f · 2016-01-12T10:49:03.000Z
[[ Bug 16351 ]] Make MCtargetptr an MCObjectPtr
diff --git a/docs/notes/bugfix-16351.md b/docs/notes/bugfix-16351.md
@@ -0,0 +1 @@
+# After a dispatch command, the long id of the target resolves correctly for shared groups and their children
diff --git a/engine/src/cardlst.cpp b/engine/src/cardlst.cpp
@@ -88,7 +88,7 @@ bool MCCardlist::GetRecent(MCExecContext& ctxt, MCStack *stack, Properties which
 				if (which == P_SHORT_NAME)
 					tmp -> card -> GetShortName(ctxt, &t_property);
 				else
-					tmp -> card -> GetLongId(ctxt, &t_property);
+					tmp -> card -> GetLongId(ctxt, 0, &t_property);
 					
 				t_success = !ctxt . HasError();
 				if (t_success)
diff --git a/engine/src/chunk.cpp b/engine/src/chunk.cpp
@@ -902,10 +902,12 @@ void MCChunk::getoptionalobj(MCExecContext& ctxt, MCObjectPtr &r_object, Boolean
                 case DT_ME:
                     //MCEngineEvalMeAsObject(ctxt, t_object);
                     if (ctxt . GetParentScript() == NULL)
+                    {
                         t_object . object = destobj;
+                        t_object . part_id = 0;
+                    }
                     else
-                        t_object . object = ctxt . GetObject();
-                    t_object . part_id = 0;
+                        t_object = ctxt . GetObjectPtr();
                     break;
                 case DT_MENU_OBJECT:
                     MCEngineEvalMenuObjectAsObject(ctxt, t_object);
diff --git a/engine/src/cmdsc.cpp b/engine/src/cmdsc.cpp
@@ -4433,13 +4433,15 @@ void MCRelayer::exec_ctxt(MCExecContext& ctxt)
             MCInterfaceExecRelayer(ctxt, relation, t_source, t_layer);
             break;
         case kMCRelayerFormRelativeToControl:
+        {
             MCObjectPtr t_target;
             if (!target -> getobj(ctxt, t_target, True))
             {
                 ctxt . LegacyThrow(EE_RELAYER_NOTARGET);
                 return;
             }
             MCInterfaceExecRelayerRelativeToControl(ctxt, relation, t_source, t_target);
+        }
             break;
         case kMCRelayerFormRelativeToOwner:
             MCInterfaceExecRelayerRelativeToOwner(ctxt, relation, t_source);
diff --git a/engine/src/cmdss.cpp b/engine/src/cmdss.cpp
@@ -1611,6 +1611,7 @@ void MCHide::exec_ctxt(MCExecContext &ctxt)
 		MCInterfaceExecHideGroups(ctxt);
 		break;
 	case SO_OBJECT:
+    {
 		MCObjectPtr t_target;
         if (!object->getobj(ctxt, t_target, True))
 		{
@@ -1621,6 +1622,7 @@ void MCHide::exec_ctxt(MCExecContext &ctxt)
 			MCInterfaceExecHideObjectWithEffect(ctxt, t_target, effect);
 		else
 			MCInterfaceExecHideObject(ctxt, t_target);
+    }
 		break;
 	case SO_MENU:
 		MCInterfaceExecHideMenuBar(ctxt);
diff --git a/engine/src/dispatch.cpp b/engine/src/dispatch.cpp
@@ -373,7 +373,7 @@ Exec_stat MCDispatch::handle(Handler_type htype, MCNameRef mess, MCParameter *pa
     }
     
 	if (MCmessagemessages && stat != ES_PASS)
-		MCtargetptr->sendmessage(htype, mess, False);
+		MCtargetptr . object -> sendmessage(htype, mess, False);
 		
 	if (t_has_passed)
 		return ES_PASS;
diff --git a/engine/src/exec-engine.cpp b/engine/src/exec-engine.cpp
@@ -602,18 +602,18 @@ void MCEngineEvalMe(MCExecContext& ctxt, MCStringRef& r_string)
 
 void MCEngineEvalTarget(MCExecContext& ctxt, MCStringRef& r_string)
 {
-	if (MCtargetptr == nil)
+	if (MCtargetptr . object == nil)
 		r_string = MCValueRetain(kMCEmptyString);
 	else
-		MCtargetptr->getstringprop(ctxt, 0, P_NAME, False, r_string);
+		MCtargetptr . object -> getstringprop(ctxt, MCtargetptr . part_id, P_NAME, False, r_string);
 }
 
 void MCEngineEvalTargetContents(MCExecContext& ctxt, MCStringRef& r_string)
 {
-	if (MCtargetptr == nil)
+	if (MCtargetptr . object == nil)
 		r_string = MCValueRetain(kMCEmptyString);
 	else
-		MCtargetptr->getstringprop(ctxt, 0, MCtargetptr->gettype() == CT_FIELD ? P_TEXT : P_NAME, False, r_string);
+		MCtargetptr . object -> getstringprop(ctxt, MCtargetptr . part_id, MCtargetptr . object -> gettype() == CT_FIELD ? P_TEXT : P_NAME, False, r_string);
 }
 
 //////////
@@ -1169,22 +1169,22 @@ void MCEngineExecDispatch(MCExecContext& ctxt, int p_handler_type, MCNameRef p_m
 	}
 	
 	// Work out the target object
-	MCObject *t_object;
+	MCObjectPtr t_object;
 	if (p_target != nil)
-		t_object = p_target -> object;
+		t_object = *p_target;
 	else
-		t_object = ctxt . GetObject();
+		t_object = ctxt . GetObjectPtr();
 		
 	// Fetch current default stack and target settings
 	MCStack *t_old_stack;
 	t_old_stack = MCdefaultstackptr;
-	MCObject *t_old_target;
+	MCObjectPtr t_old_target;
 	t_old_target = MCtargetptr;
 	
 	// Cache the current 'this stack' (used to see if we should switch back
 	// the default stack).
 	MCStack *t_this_stack;
-	t_this_stack = t_object -> getstack();
+	t_this_stack = t_object . object -> getstack();
 	
 	// Retarget this stack and the target to be relative to the target object
 	MCdefaultstackptr = t_this_stack;
@@ -1212,7 +1212,7 @@ void MCEngineExecDispatch(MCExecContext& ctxt, int p_handler_type, MCNameRef p_m
 	Boolean olddynamic = MCdynamicpath;
 	MCdynamicpath = MCdynamiccard != NULL;
 	if (t_stat == ES_PASS || t_stat == ES_NOT_HANDLED)
-		switch(t_stat = t_object->handle((Handler_type)p_handler_type, p_message, p_parameters, t_object))
+		switch(t_stat = t_object . object -> handle((Handler_type)p_handler_type, p_message, p_parameters, t_object . object))
 		{
 		case ES_ERROR:
 			ctxt . LegacyThrow(EE_DISPATCH_BADCOMMAND, p_message);
@@ -1856,20 +1856,12 @@ void MCEngineEvalMeAsObject(MCExecContext& ctxt, MCObjectPtr& r_object)
     // refers to the derived object context, otherwise it is the object
     // we were compiled in.
     
-    MCObject *t_object;
+    MCObjectPtr t_object;
     
     if (ctxt . GetParentScript() == NULL)
-        t_object = nil; // destobj!
+        r_object . object = nil; // destobj!
     else
-        t_object = ctxt . GetObject();
-
-        r_object . object = t_object;
-        r_object . part_id = 0;
-    
-    if (t_object != nil)
-        return;
-    
-  //  ctxt . LegacyThrow(EE_CHUNK_NOTARGET);
+        r_object = ctxt . GetObjectPtr();
 }
 
 void MCEngineEvalMenuObjectAsObject(MCExecContext& ctxt, MCObjectPtr& r_object)
@@ -1886,10 +1878,9 @@ void MCEngineEvalMenuObjectAsObject(MCExecContext& ctxt, MCObjectPtr& r_object)
 
 void MCEngineEvalTargetAsObject(MCExecContext& ctxt, MCObjectPtr& r_object)
 {
-    if (MCtargetptr != nil)
+    if (MCtargetptr . object != nil)
     {
-        r_object . object = MCtargetptr;
-        r_object . part_id = 0;
+        r_object = MCtargetptr;
         return;
     }
     
diff --git a/engine/src/exec-interface-card.cpp b/engine/src/exec-interface-card.cpp
@@ -277,9 +277,9 @@ void MCCard::GetDefaultButton(MCExecContext& ctxt, MCStringRef& r_button)
 		return;
 	else
 		if (defbutton != nil)
-			defbutton -> GetLongId(ctxt, r_button);
+			defbutton -> GetLongId(ctxt, 0, r_button);
 		else
-			odefbutton -> GetLongId(ctxt, r_button);
+			odefbutton -> GetLongId(ctxt, 0, r_button);
 }
 
 void MCCard::SetForePixel(MCExecContext& ctxt, uinteger_t* pixel)
diff --git a/engine/src/exec-interface-object.cpp b/engine/src/exec-interface-object.cpp
@@ -1342,20 +1342,20 @@ void MCObject::GetAbbrevId(MCExecContext& ctxt, MCStringRef& r_abbrev_id)
 	ctxt . Throw();
 }
 
-void MCObject::GetLongName(MCExecContext& ctxt, MCStringRef& r_long_name)
+void MCObject::GetLongName(MCExecContext& ctxt, uint32_t p_part_id, MCStringRef& r_long_name)
 {
 	MCAutoValueRef t_long_name;
-	if (names(P_LONG_NAME, &t_long_name))
+	if (getnameproperty(P_LONG_NAME, p_part_id, &t_long_name))
 		if (ctxt.ConvertToString(*t_long_name, r_long_name))
 			return;
 	
 	ctxt . Throw();
 }
 
-void MCObject::GetLongId(MCExecContext& ctxt, MCStringRef& r_long_id)
+void MCObject::GetLongId(MCExecContext& ctxt, uint32_t p_part_id, MCStringRef& r_long_id)
 {
 	MCAutoValueRef t_long_id;
-	if (names(P_LONG_ID, &t_long_id))
+	if (getnameproperty(P_LONG_ID, p_part_id, &t_long_id))
 		if (ctxt.ConvertToString(*t_long_id, r_long_id))
 			return;
 	
@@ -3252,10 +3252,10 @@ void MCObject::GetAbbrevOwner(MCExecContext& ctxt, MCStringRef& r_owner)
 		parent -> GetAbbrevName(ctxt, r_owner);
 }
 
-void MCObject::GetLongOwner(MCExecContext& ctxt, MCStringRef& r_owner)
+void MCObject::GetLongOwner(MCExecContext& ctxt, uint32_t p_part_id, MCStringRef& r_owner)
 {
 	if (parent != nil)
-		parent -> GetLongName(ctxt, r_owner);
+        parent -> GetLongName(ctxt, p_part_id, r_owner);
 }
 
 void MCObject::DoGetProperties(MCExecContext& ctxt, uint32_t part, bool p_effective, MCArrayRef& r_props)
diff --git a/engine/src/exec-interface-stack.cpp b/engine/src/exec-interface-stack.cpp
@@ -1001,7 +1001,7 @@ void MCStack::SetIcon(MCExecContext& ctxt, uinteger_t p_id)
 void MCStack::GetOwner(MCExecContext& ctxt, MCStringRef& r_owner)
 {
 	if (parent != nil && !MCdispatcher -> ismainstack(this))
-		parent -> GetLongId(ctxt, r_owner);
+		parent -> GetLongId(ctxt, 0, r_owner);
 }
 
 void MCStack::GetMainStack(MCExecContext& ctxt, MCStringRef& r_main_stack)
diff --git a/engine/src/exec-interface.cpp b/engine/src/exec-interface.cpp
@@ -2849,7 +2849,7 @@ void MCInterfaceExecPopupButton(MCExecContext& ctxt, MCButton *p_target, MCPoint
 		while (t_state)
 		{
 			if (t_state & 0x1)
-				MCtargetptr -> mup(t_which, true);
+				MCtargetptr . object -> mup(t_which, true);
 			t_state >>= 1;
 			t_which += 1;
 		}
@@ -3005,21 +3005,21 @@ void MCInterfaceExecOpenStackByName(MCExecContext& ctxt, MCNameRef p_name, int p
 void MCInterfaceExecPopupStack(MCExecContext& ctxt, MCStack *p_target, MCPoint *p_at, int p_mode)
 {
 	// MW-2007-04-10: [[ Bug 4260 ]] We shouldn't attempt to attach a menu to a control that is descendent of itself
-	if (MCtargetptr -> getstack() == p_target)
+	if (MCtargetptr . object -> getstack() == p_target)
 	{
 		ctxt . LegacyThrow(EE_SUBWINDOW_BADEXP);
 		return;
 	}
 
-	if (MCtargetptr->attachmenu(p_target))
+	if (MCtargetptr . object -> attachmenu(p_target))
 	{
 		if (p_mode == WM_POPUP && p_at != nil)
 		{
 			MCmousex = p_at -> x;
 			MCmousey = p_at -> y;
 		}
 		MCRectangle t_rect;
-		t_rect = MCU_recttoroot(MCtargetptr->getstack(), MCtargetptr->getrect());
+		t_rect = MCU_recttoroot(MCtargetptr . object -> getstack(), MCtargetptr . object -> getrect());
 		MCInterfaceExecSubwindow(ctxt, p_target, nil, t_rect, WP_DEFAULT, OP_NONE, p_mode);
 		if (!MCabortscript)
 			return;
diff --git a/engine/src/exec-interface2.cpp b/engine/src/exec-interface2.cpp
@@ -3819,7 +3819,7 @@ void MCInterfaceExecResolveImageById(MCExecContext& ctxt, MCObject *p_object, ui
     if (t_found_image != nil)
     {
         
-        t_found_image -> GetLongId(ctxt, &t_long_id);
+        t_found_image -> GetLongId(ctxt, 0, &t_long_id);
         if (!ctxt . HasError())
             ctxt . SetItToValue(*t_long_id);
     }
@@ -3837,7 +3837,7 @@ void MCInterfaceExecResolveImageByName(MCExecContext& ctxt, MCObject *p_object,
     
     if (t_found_image != nil)
     {
-        t_found_image -> GetLongId(ctxt, &t_long_id);
+        t_found_image -> GetLongId(ctxt, 0, &t_long_id);
         if (!ctxt . HasError())
             ctxt . SetItToValue(*t_long_id);
     }
diff --git a/engine/src/exec-misc.cpp b/engine/src/exec-misc.cpp
@@ -325,8 +325,8 @@ void MCMiscExecClearTouches(MCExecContext& ctxt)
     MCEventQueueClearTouches();
 
     // PM-2015-03-16: [[ Bug 14333 ]] Make sure the object that triggered a mouse down msg is not focused, as this stops later mouse downs from working
-    if (MCtargetptr != nil)
-        MCtargetptr -> munfocus();
+    if (MCtargetptr . object != nil)
+        MCtargetptr . object -> munfocus();
 }
 
 void MCMiscGetSystemIdentifier(MCExecContext& ctxt, MCStringRef& r_identifier)
@@ -372,7 +372,7 @@ void MCMiscGetReachabilityTarget(MCExecContext& ctxt, MCStringRef& r_hostname)
 
 void MCMiscExecLibUrlDownloadToFile(MCExecContext& ctxt, MCStringRef p_url, MCStringRef p_filename)
 {
-    MCS_downloadurl(MCtargetptr, p_url, p_filename);
+    MCS_downloadurl(MCtargetptr . object, p_url, p_filename);
 }
 
 void MCMiscExecLibUrlSetSSLVerification(MCExecContext& ctxt, bool p_enabled)
diff --git a/engine/src/exec.cpp b/engine/src/exec.cpp
@@ -1187,7 +1187,7 @@ MCVarref* MCExecContext::GetIt() const
 #ifdef _SERVER
     // If we are here it means we must be in global scope, executing in a
     // MCServerScript object.
-    return static_cast<MCServerScript *>(m_object) -> GetIt();
+    return static_cast<MCServerScript *>(m_object . object) -> GetIt();
 #else
     // We should never get here as execution only occurs within handlers unless
     // in server mode.
diff --git a/engine/src/exec.h b/engine/src/exec.h
@@ -1272,7 +1272,8 @@ class MCExecContext
     MCExecContext(MCObject *object, MCHandlerlist *hlist, MCHandler *handler)
     {
         memset(this, 0, sizeof(MCExecContext));
-        m_object = object;
+        m_object . object = object;
+        m_object . part_id = 0;
         m_hlist = hlist;
         m_curhandler = handler;
         m_itemdel = MCValueRetain(kMCCommaString);
@@ -1651,10 +1652,21 @@ class MCExecContext
     
     MCObject *GetObject(void) const
 	{
-        return m_object;
+        return m_object . object;
 	}
 
-	void SetObject(MCObject *p_object)
+    MCObjectPtr GetObjectPtr(void) const
+    {
+        return m_object;
+    }
+    
+    void SetObject(MCObject *p_object)
+    {
+        m_object . object = p_object;
+        m_object . part_id = 0;
+    }
+    
+	void SetObjectPtr(MCObjectPtr p_object)
 	{
         m_object = p_object;
     }
@@ -1778,7 +1790,7 @@ class MCExecContext
 #endif
 	Exec_stat m_stat;
 
-    MCObject *m_object;
+    MCObjectPtr m_object;
 
     // MW-2009-01-30: [[ Inherited parentScripts ]]
     // We store a reference to the parentScript use which is the current context
diff --git a/engine/src/externalv1.cpp b/engine/src/externalv1.cpp
@@ -1154,7 +1154,7 @@ static MCExternalError MCExternalContextQuery(MCExternalContextQueryTag op, MCEx
         case kMCExternalContextQueryTarget:
         {
             MCObjectHandle *t_handle;
-            t_handle = MCtargetptr -> gethandle();
+            t_handle = MCtargetptr . object -> gethandle();
             if (t_handle == nil)
                 return kMCExternalErrorOutOfMemory;
             *(MCObjectHandle **)result = t_handle;
diff --git a/engine/src/globals.cpp b/engine/src/globals.cpp
@@ -273,7 +273,7 @@ MCCard *MCdynamiccard;
 Boolean MCdynamicpath;
 MCObject *MCerrorptr;
 MCObject *MCerrorlockptr;
-MCObject *MCtargetptr;
+MCObjectPtr MCtargetptr;
 MCObject *MCmenuobjectptr;
 MCGroup *MCsavegroupptr;
 MCGroup *MCdefaultmenubar;
@@ -663,7 +663,7 @@ void X_clear_globals(void)
 	MCdynamicpath = False;
 	MCerrorptr = nil;
 	MCerrorlockptr = nil;
-	MCtargetptr = nil;
+	memset(&MCtargetptr, 0, sizeof(MCObjectPtr));
 	MCmenuobjectptr = nil;
 	MCsavegroupptr = nil;
 	MCdefaultmenubar = nil;
diff --git a/engine/src/globals.h b/engine/src/globals.h
@@ -181,7 +181,7 @@ extern MCStack *MCstaticdefaultstackptr;
 extern MCStack *MCmousestackptr;
 extern MCStack *MCclickstackptr;
 extern MCStack *MCfocusedstackptr;
-extern MCObject *MCtargetptr;
+extern MCObjectPtr MCtargetptr;
 extern MCObject *MCmenuobjectptr;
 extern MCCard *MCdynamiccard;
 extern Boolean MCdynamicpath;
diff --git a/engine/src/hndlrlst.cpp b/engine/src/hndlrlst.cpp
@@ -729,7 +729,7 @@ static bool enumerate_handlers(MCExecContext& ctxt, const char *p_type, MCHandle
 		if (p_first && p_object != nil)
         {
             t_format = "%s%s %@ %d %d %@";
-            p_object -> GetLongId(ctxt, &t_long_id);
+            p_object -> GetLongId(ctxt, 0, &t_long_id);
         }
         else
             t_format = "%s%s %@ %d %d";
diff --git a/engine/src/mblhandlers.cpp b/engine/src/mblhandlers.cpp
diff --git a/engine/src/mbliphonecamera.mm b/engine/src/mbliphonecamera.mm
diff --git a/engine/src/mode_installer.cpp b/engine/src/mode_installer.cpp
diff --git a/engine/src/object.cpp b/engine/src/object.cpp
diff --git a/engine/src/object.h b/engine/src/object.h
diff --git a/engine/src/objectprops.cpp b/engine/src/objectprops.cpp
diff --git a/engine/src/sysdefs.h b/engine/src/sysdefs.h
diff --git a/engine/src/widget-ref.cpp b/engine/src/widget-ref.cpp

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+# After a dispatch command, the long id of the target resolves correctly for shared groups and their children`
Original file line number	Diff line number	Diff line change
`@@ -373,7 +373,7 @@ Exec_stat MCDispatch::handle(Handler_type htype, MCNameRef mess, MCParameter *pa`
`373`	`373`	`}`
`374`	`374`
`375`	`375`	`if (MCmessagemessages && stat != ES_PASS)`
`376`		`- MCtargetptr->sendmessage(htype, mess, False);`
	`376`	`+ MCtargetptr . object -> sendmessage(htype, mess, False);`
`377`	`377`
`378`	`378`	`if (t_has_passed)`
`379`	`379`	`return ES_PASS;`
Original file line number	Diff line number	Diff line change
`@@ -1342,20 +1342,20 @@ void MCObject::GetAbbrevId(MCExecContext& ctxt, MCStringRef& r_abbrev_id)`
`1342`	`1342`	`ctxt . Throw();`
`1343`	`1343`	`}`
`1344`	`1344`
`1345`		`-void MCObject::GetLongName(MCExecContext& ctxt, MCStringRef& r_long_name)`
	`1345`	`+void MCObject::GetLongName(MCExecContext& ctxt, uint32_t p_part_id, MCStringRef& r_long_name)`
`1346`	`1346`	`{`
`1347`	`1347`	`MCAutoValueRef t_long_name;`
`1348`		`- if (names(P_LONG_NAME, &t_long_name))`
	`1348`	`+ if (getnameproperty(P_LONG_NAME, p_part_id, &t_long_name))`
`1349`	`1349`	`if (ctxt.ConvertToString(*t_long_name, r_long_name))`
`1350`	`1350`	`return;`
`1351`	`1351`
`1352`	`1352`	`ctxt . Throw();`
`1353`	`1353`	`}`
`1354`	`1354`
`1355`		`-void MCObject::GetLongId(MCExecContext& ctxt, MCStringRef& r_long_id)`
	`1355`	`+void MCObject::GetLongId(MCExecContext& ctxt, uint32_t p_part_id, MCStringRef& r_long_id)`
`1356`	`1356`	`{`
`1357`	`1357`	`MCAutoValueRef t_long_id;`
`1358`		`- if (names(P_LONG_ID, &t_long_id))`
	`1358`	`+ if (getnameproperty(P_LONG_ID, p_part_id, &t_long_id))`
`1359`	`1359`	`if (ctxt.ConvertToString(*t_long_id, r_long_id))`
`1360`	`1360`	`return;`
`1361`	`1361`
`@@ -3252,10 +3252,10 @@ void MCObject::GetAbbrevOwner(MCExecContext& ctxt, MCStringRef& r_owner)`
`3252`	`3252`	`parent -> GetAbbrevName(ctxt, r_owner);`
`3253`	`3253`	`}`
`3254`	`3254`
`3255`		`-void MCObject::GetLongOwner(MCExecContext& ctxt, MCStringRef& r_owner)`
	`3255`	`+void MCObject::GetLongOwner(MCExecContext& ctxt, uint32_t p_part_id, MCStringRef& r_owner)`
`3256`	`3256`	`{`
`3257`	`3257`	`if (parent != nil)`
`3258`		`- parent -> GetLongName(ctxt, r_owner);`
	`3258`	`+ parent -> GetLongName(ctxt, p_part_id, r_owner);`
`3259`	`3259`	`}`
`3260`	`3260`
`3261`	`3261`	`void MCObject::DoGetProperties(MCExecContext& ctxt, uint32_t part, bool p_effective, MCArrayRef& r_props)`
Original file line number	Diff line number	Diff line change
`@@ -1001,7 +1001,7 @@ void MCStack::SetIcon(MCExecContext& ctxt, uinteger_t p_id)`
`1001`	`1001`	`void MCStack::GetOwner(MCExecContext& ctxt, MCStringRef& r_owner)`
`1002`	`1002`	`{`
`1003`	`1003`	`if (parent != nil && !MCdispatcher -> ismainstack(this))`
`1004`		`- parent -> GetLongId(ctxt, r_owner);`
	`1004`	`+ parent -> GetLongId(ctxt, 0, r_owner);`
`1005`	`1005`	`}`
`1006`	`1006`
`1007`	`1007`	`void MCStack::GetMainStack(MCExecContext& ctxt, MCStringRef& r_main_stack)`