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

* compilation fix for OS/2 and (hopefully) MacOS

Browse Source 
git-svn-id: trunk@12379 -
This commit is contained in:
Tomas Hajny 2008-12-17 21:49:25 +00:00
parent d3923b315a
commit 5432694059
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/utils/redir.pp
View File

@ -90,7 +90,7 @@ const
Implementation Implementation
{$if defined(macos) or defined(windows)} {$if defined(macos) or defined(windows) or defined(shell_implemented)}
{$define usedos} {$define usedos}
{$endif} {$endif}
@ -827,10 +827,13 @@ begin
CompleteDir:=Path; CompleteDir:=Path;
end; end;
function LocateExeFile(var FileName:string): boolean; function LocateExeFile(var FileName:string): boolean;
var var
{$IFDEF USEDOS}
dir,s,d,n,e : shortstring;
{$ELSE USEDOS}
dir,s,d,n,e : string; dir,s,d,n,e : string;
{$ENDIF USEDOS}
i : longint; i : longint;
begin begin
LocateExeFile:=False; LocateExeFile:=False;