|
@@ -81,10 +81,10 @@ begin
|
|
exit;
|
|
exit;
|
|
end;
|
|
end;
|
|
{ do the normal dos chdir }
|
|
{ do the normal dos chdir }
|
|
- DosDir($3b,s,len);
|
|
|
|
|
|
+ DosDir($3b,s);
|
|
end;
|
|
end;
|
|
|
|
|
|
-procedure GetDir (DriveNr: byte; var Dir: RawByteString);
|
|
|
|
|
|
+procedure do_GetDir (DriveNr: byte; var Dir: RawByteString);
|
|
var
|
|
var
|
|
temp : array[0..260] of char;
|
|
temp : array[0..260] of char;
|
|
i : longint;
|
|
i : longint;
|