paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed getdir(byte,string) to getdir(byte,shortstring)

Browse Source
This commit is contained in:
pierre 1998-11-16 14:14:58 +00:00
parent c85141c23a
commit 62d78e76ad
4 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/dos/go32v1/system.pp
View File

@ -542,7 +542,7 @@ begin
end;
procedure getdir(drivenr : byte;var dir : string);
procedure getdir(drivenr : byte;var dir : shortstring);
var
temp : array[0..255] of char;
sof : pchar;
@ -609,7 +609,10 @@ Begin
End.
{
$Log$
Revision 1.9 1998-09-14 10:48:03 peter
Revision 1.10 1998-11-16 14:15:01 pierre
* changed getdir(byte,string) to getdir(byte,shortstring)
Revision 1.9 1998/09/14 10:48:03 peter
* FPC_ names
* Heap manager is now system independent

7
rtl/dos/go32v2/system.pp
View File

@ -1117,7 +1117,7 @@ begin
end;
procedure getdir(drivenr : byte;var dir : string);
procedure getdir(drivenr : byte;var dir : shortstring);
var
temp : array[0..255] of char;
i : longint;
@ -1225,7 +1225,10 @@ Begin
End.
{
$Log$
Revision 1.22 1998-10-26 14:49:46 pierre
Revision 1.23 1998-11-16 14:15:02 pierre
* changed getdir(byte,string) to getdir(byte,shortstring)
Revision 1.22 1998/10/26 14:49:46 pierre
* system debug info output to stderr
Revision 1.21 1998/10/20 07:34:07 pierre

2
rtl/os2/sysos2.pas
View File

@ -595,7 +595,7 @@ begin
DosDir($3b,s);
end;
procedure getdir(drivenr : byte;var dir : string);
procedure getdir(drivenr : byte;var dir : shortstring);
{Written by Michael Van Canneyt.}

7
rtl/win32/syswin32.pp
View File

@ -581,7 +581,7 @@ procedure chdir(const s:string);[IOCHECK];
dirfn(TDirFnType(@SetCurrentDirectory),s);
end;
procedure getdir(drivenr:byte;var dir:string);
procedure getdir(drivenr:byte;var dir:shortstring);
const
Drive:array[0..3]of char=(#0,':',#0,#0);
var
@ -757,7 +757,10 @@ end.
{
$Log$
Revision 1.22 1998-10-27 15:07:16 florian
Revision 1.23 1998-11-16 14:14:58 pierre
* changed getdir(byte,string) to getdir(byte,shortstring)
Revision 1.22 1998/10/27 15:07:16 florian
+ Is* flags added
+ IsLibrary works also