set first position of a free block to -1, to catch errors

1 files changed, 2 insertions, 1 deletions

diff --git a/luamem.c b/luamem.c
index ddbd5e47..b28bd3b9 100644
--- a/luamem.c
+++ b/luamem.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_mem = "$Id: $";
+char *rcs_mem = "$Id: mem.c,v 1.1 1994/11/16 17:38:08 roberto Exp $";
 
 #include <stdlib.h>
 
@@ -12,6 +12,7 @@ char *rcs_mem = "$Id: $";
 
 void luaI_free (void *block)
 {
+  *((int *)block) = -1;  /* to catch errors */
   free(block);
 }