diff --git a/trunk/Projects/SAMufasaGUI/libcpascal.a b/trunk/Projects/SAMufasaGUI/libcpascal.a index 234888a..51a710d 100644 Binary files a/trunk/Projects/SAMufasaGUI/libcpascal.a and b/trunk/Projects/SAMufasaGUI/libcpascal.a differ diff --git a/trunk/Projects/SAMufasaGUI/libcpascal.dll b/trunk/Projects/SAMufasaGUI/libcpascal.dll index 20d37fa..632844d 100755 Binary files a/trunk/Projects/SAMufasaGUI/libcpascal.dll and b/trunk/Projects/SAMufasaGUI/libcpascal.dll differ diff --git a/trunk/Projects/SAMufasaGUI/libcpascal.so b/trunk/Projects/SAMufasaGUI/libcpascal.so index f15f9c7..bc0a71b 100755 Binary files a/trunk/Projects/SAMufasaGUI/libcpascal.so and b/trunk/Projects/SAMufasaGUI/libcpascal.so differ diff --git a/trunk/Projects/SAMufasaGUI/project1.lpi b/trunk/Projects/SAMufasaGUI/project1.lpi index 688c24a..c004aaf 100644 --- a/trunk/Projects/SAMufasaGUI/project1.lpi +++ b/trunk/Projects/SAMufasaGUI/project1.lpi @@ -27,7 +27,7 @@ - + diff --git a/trunk/Tests/CPascal/maze.simb b/trunk/Tests/CPascal/maze.simb index 07242c6..b5ea097 100644 --- a/trunk/Tests/CPascal/maze.simb +++ b/trunk/Tests/CPascal/maze.simb @@ -315,10 +315,10 @@ begin //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])); + //all_paths:= flood(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0])); writeln('found all possible paths'); jills_routes:= Length(all_paths) - 1; max_pos:= 0; diff --git a/trunk/Units/MMLAddon/mmlpsthread.pas b/trunk/Units/MMLAddon/mmlpsthread.pas index 9439822..e51b79b 100644 --- a/trunk/Units/MMLAddon/mmlpsthread.pas +++ b/trunk/Units/MMLAddon/mmlpsthread.pas @@ -198,7 +198,7 @@ uses {$endif} {Some General PS Functions here} -procedure psWriteln(str : string); ps_decl; +procedure psWriteln(str : string); stdcall; begin if Assigned(CurrThread.DebugTo) then CurrThread.DebugTo(str)