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

* fixed for unix

Browse Source
This commit is contained in:
Jonas Maebe 2004-12-05 16:24:18 +00:00
parent 353d5cc3de
commit b5d6262fb9
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/test/units/dos/tfexpand.pp
View File

@ -258,7 +258,7 @@ begin
GetDir (0, CurDir); GetDir (0, CurDir);
{$IFDEF NODRIVEC} {$IFDEF NODRIVEC}
{$IFDEF UNIX} {$IFDEF UNIX}
CDir = CurDir; CDir := CurDir;
{$ELSE UNIX} {$ELSE UNIX}
CDir := 'C:'; CDir := 'C:';
{$ENDIF UNIX} {$ENDIF UNIX}
@ -477,7 +477,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2004-12-05 14:16:59 hajny Revision 1.8 2004-12-05 16:24:18 jonas
* fixed for unix
Revision 1.7 2004/12/05 14:16:59 hajny
* popuperr instead of win32err, additional checks (mostly support for more platforms) * popuperr instead of win32err, additional checks (mostly support for more platforms)