Found the bug: Expressions need to handle errors in a memsafe way. Wi…

…ll work on that.

Value.cpp

@@ -86,11 +86,11 @@ Value* Value::incref(Value *val) throw(int,InterpEx*) {
 }
 
 Value* Value::decref(Value *val) throw(int,InterpEx*) {
-    if (!--val->refcount) {
-        delete val;
-        val = 0;
-    }
-    return val;
+    if (val->refcount > 5)
+        std::cout << "test " << val->refcount << '\n';
+    if (--val->refcount) return val;
+    delete val;
+    return 0;
 }
 
 Value::Value() : Element(ELEM_VALUE), typeObj(Type::getNil()), type(TYPE_NIL), refcount(1) {

fpc/maze.pas

@@ -315,7 +315,7 @@ procedure benland100_solver(var jacks_path: TPointArray; var jills_routes: Integ
   //writeln('d1:'+inttostr(length(maze)));
   //writeln('d2:'+inttostr(length(maze[0])));
   writeln('preparing to solve maze');
-  thin(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0]));
+  //thin(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0]));
   writeln('thinned the maze');
   //writeln('start: (' + inttostr(start.x) + ',' + inttostr(start.y) + ') finish: (' + inttostr(finish.x) + ',' + inttostr(finish.y) + ')');
   all_paths:= flood(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0]));

nbproject/Makefile-Debug.mk

@@ -50,8 +50,8 @@ OBJECTFILES= \
 CFLAGS=
 
 # CC Compiler Flags
-CCFLAGS=-Wall
-CXXFLAGS=-Wall
+CCFLAGS=-Wall -O3
+CXXFLAGS=-Wall -O3
 
 # Fortran Compiler Flags
 FFLAGS=

nbproject/configurations.xml

@@ -57,7 +57,7 @@
       </toolsSet>
       <compileType>
         <ccTool>
-          <commandLine>-Wall</commandLine>
+          <commandLine>-Wall -O3</commandLine>
         </ccTool>
         <linkerTool>
           <output>dist/Debug/${CND_PLATFORM}/cpascal</output>