2 files changed, 13 insertions, 1 deletions

diff --git a/src/LuaSL/LuaSL_LSL_tree.h b/src/LuaSL/LuaSL_LSL_tree.h
index b95b82e..30a12f5 100644
--- a/src/LuaSL/LuaSL_LSL_tree.h
+++ b/src/LuaSL/LuaSL_LSL_tree.h
@@ -4,6 +4,7 @@
 
 #define LUASL_DEBUG             0
 #define LUASL_DIFF_CHECK        0
+#define LUASL_BAD_CHECK         0
 
 
 #include <stddef.h>     // So we can have NULL defined.
diff --git a/src/LuaSL/LuaSL_compile.c b/src/LuaSL/LuaSL_compile.c
index 94d7f9b..5da2724 100644
--- a/src/LuaSL/LuaSL_compile.c
+++ b/src/LuaSL/LuaSL_compile.c
@@ -2224,6 +2224,9 @@ boolean compilerSetup(gameGlobals *ourGlobals)
 boolean compileLSL(LuaSL_compiler *compiler)
 {
     void *pParser = ParseAlloc(malloc);
+#if LUASL_BAD_CHECK
+    char tempName[PATH_MAX];
+#endif
     int yv;
 
 // Parse the LSL script, validating it and reporting errors.
@@ -2246,6 +2249,12 @@ boolean compileLSL(LuaSL_compiler *compiler)
         PE("Error opening file %s.", compiler->compiler.file);
         return FALSE;
     }
+#if LUASL_BAD_CHECK
+    // Mark the file as bad, in case we crash while compiling it.
+    // NOTE - wont work so well when we are threaded.
+    sprintf(tempName, "%s.BAD", compiler->compiler.file);
+    ecore_file_mv(compiler->compiler.file, tempName);
+#endif
     compiler->ast = NULL;
     compiler->lval = newLeaf(LSL_UNKNOWN, NULL, NULL);
     // Text editors usually start counting at 1, even programmers editors. mcedit is an exception, but you can deal with that yourself.
@@ -2382,7 +2391,9 @@ boolean compileLSL(LuaSL_compiler *compiler)
 
     if (!compiler->doConstants)
         burnLeaf(compiler->ast);
-// end compile thread here
 
+#if LUASL_BAD_CHECK
+    ecore_file_mv(tempName, compiler->compiler.file);
+#endif
     return compiler->result;
 }