- some more fixes of 'Restart'. Still not working as intended.

src/dobjtype.cpp

@@ -45,6 +45,7 @@
 #include "v_text.h"
 #include "a_pickups.h"
 #include "d_player.h"
+#include "fragglescript/t_fs.h"
 
 // MACROS ------------------------------------------------------------------
 
@@ -2032,6 +2033,7 @@ void PClass::StaticShutdown ()
 	TArray<size_t *> uniqueFPs(64);
 	unsigned int i, j;
 
+	FS_Close();	// this must be done before the classes get deleted.
 	for (i = 0; i < PClass::AllClasses.Size(); ++i)
 	{
 		PClass *type = PClass::AllClasses[i];

src/fragglescript/t_fs.h

@@ -10,5 +10,6 @@ class AActor;
 void T_PreprocessScripts();
 void T_LoadScripts(MapData * map);
 void T_AddSpawnedThing(AActor * );
+void FS_Close();
 
 #endif

src/fragglescript/t_script.cpp

@@ -670,24 +670,28 @@ void FS_Close()
 	int i;
 	DFsVariable *current, *next;
 
-	// we have to actually delete the global variables if we don't want
+	if (global_script != NULL)
-	// to get them reported as memory leaks.
+	{
-	for(i=0; i<VARIABLESLOTS; i++)
+		// we have to actually delete the global variables if we don't want
-    {
+		// to get them reported as memory leaks.
-		current = global_script->variables[i];
+		for (i = 0; i < VARIABLESLOTS; i++)
-		
-		while(current)
 		{
-			next = current->next; // save for after freeing
+			current = global_script->variables[i];
-			
+
-			current->ObjectFlags |= OF_YesReallyDelete;
+			while (current)
-			delete current;
+			{
-			current = next; // go to next in chain
+				next = current->next; // save for after freeing
+
+				current->ObjectFlags |= OF_YesReallyDelete;
+				delete current;
+				current = next; // go to next in chain
+			}
 		}
-    }
+		GC::DelSoftRoot(global_script);
-	GC::DelSoftRoot(global_script);
+		global_script->ObjectFlags |= OF_YesReallyDelete;
-	global_script->ObjectFlags |= OF_YesReallyDelete;
+		delete global_script;
-	delete global_script;
+		global_script = NULL;
+	}
 }
 
 void T_Init()
@@ -701,7 +705,6 @@ void T_Init()
 		global_script = new DFsScript;
 		GC::AddSoftRoot(global_script);
 		init_functions();
-		atterm(FS_Close);
 	}
 }
 

src/thingdef/thingdef.cpp

@@ -218,6 +218,7 @@ void FinishActor(const FScriptPosition &sc, PClassActor *info, Baggage &bag)
 	if (bag.DropItemSet)
 	{
 		info->DropItems = bag.DropItemList;
+		GC::WriteBarrier(info, info->DropItems);
 	}
 	if (info->IsDescendantOf (RUNTIME_CLASS(AInventory)))
 	{

src/thingdef/thingdef_data.cpp

@@ -594,6 +594,7 @@ void InitThingdef()
 	}
 
 	// Create a sorted list of native action functions
+	AFTable.Clear();
 	if (AFTable.Size() == 0)
 	{
 		FAutoSegIterator probe(ARegHead, ARegTail);

src/thingdef/thingdef_properties.cpp

@@ -797,6 +797,7 @@ DEFINE_PROPERTY(dropitem, S_i_i, Actor)
 	}
 	di->Next = bag.DropItemList;
 	bag.DropItemList = di;
+	GC::WriteBarrier(di);
 }
 
 //==========================================================================
@@ -2739,6 +2740,7 @@ DEFINE_CLASS_PROPERTY_PREFIX(player, startitem, S_i, PlayerPawn)
 	}
 	di->Next = bag.DropItemList;
 	bag.DropItemList = di;
+	GC::WriteBarrier(di);
 }
 
 //==========================================================================