paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +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; end;
procedure getdir(drivenr : byte;var dir : string); procedure getdir(drivenr : byte;var dir : shortstring);
var var
temp : array[0..255] of char; temp : array[0..255] of char;
sof : pchar; sof : pchar;
@ -609,7 +609,10 @@ Begin
End. End.
{ {
$Log$ $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 * FPC_ names
* Heap manager is now system independent * Heap manager is now system independent

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

@ -1117,7 +1117,7 @@ begin
end; end;
procedure getdir(drivenr : byte;var dir : string); procedure getdir(drivenr : byte;var dir : shortstring);
var var
temp : array[0..255] of char; temp : array[0..255] of char;
i : longint; i : longint;
@ -1225,7 +1225,10 @@ Begin
End. End.
{ {
$Log$ $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 * system debug info output to stderr
Revision 1.21 1998/10/20 07:34:07 pierre 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); DosDir($3b,s);
end; end;
procedure getdir(drivenr : byte;var dir : string); procedure getdir(drivenr : byte;var dir : shortstring);
{Written by Michael Van Canneyt.} {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); dirfn(TDirFnType(@SetCurrentDirectory),s);
end; end;
procedure getdir(drivenr:byte;var dir:string); procedure getdir(drivenr:byte;var dir:shortstring);
const const
Drive:array[0..3]of char=(#0,':',#0,#0); Drive:array[0..3]of char=(#0,':',#0,#0);
var var
@ -757,7 +757,10 @@ end.
{ {
$Log$ $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 + Is* flags added
+ IsLibrary works also + IsLibrary works also