paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 14:26:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed typo

Browse Source
This commit is contained in:
peter 2000-09-03 11:09:23 +00:00
parent 91d31892d7
commit be8e9ae57e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tbug1092.pp
View File

@ -7,7 +7,7 @@ const
path='c:\'; path='c:\';
{$endif} {$endif}
BEGIN BEGIN
if FSearch('tbug1092.pp',path))<>'tbug1092.pp' then if FSearch('tbug1092.pp',path)<>'tbug1092.pp' then
begin begin
writeln('FSearch didn''t find file in the current dir!'); writeln('FSearch didn''t find file in the current dir!');
halt(1); halt(1);