moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-07 03:38:06 -05:00
Code Issues Releases Wiki Activity

Tests/Lape: Test now works! (on x64 with lape)

Browse Source
This commit is contained in:
Merlijn Wajer 2011-08-09 15:31:31 +02:00
parent 3810941f52
commit 21a4f94ab7
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Tests/lape/finder.simba
View File

@ -55,12 +55,19 @@ var f: integer;
t: integer;
w,h: integer;
const LE =
{$IFDEF LINUX}
#10;
{$ELSE}
#10#13;
{$ENDIF}
type
PInteger = ^Integer;
procedure write_str(s: string);
begin
writefilestring(f, s);
writefilestring(f, s + LE);
writeln(s);
end;