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

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:52:54 +01:00 committed by Pierre Muller
parent 5e2b9aaebf
commit b078fe8ed4
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/dos.inc
View File

@ -173,7 +173,7 @@ end;
{$IFNDEF HAS_GETSHORTNAME} {$IFNDEF HAS_GETSHORTNAME}
function GetShortName (var P: String): boolean; function GetShortName (var P: ShortString): boolean;
begin begin
GetShortName := true; GetShortName := true;
end; end;
@ -181,7 +181,7 @@ end;
{$IFNDEF HAS_GETLONGNAME} {$IFNDEF HAS_GETLONGNAME}
function GetLongName (var P: String): boolean; function GetLongName (var P: ShortString): boolean;
begin begin
GetLongName := true; GetLongName := true;
end; end;

10
rtl/inc/dosh.inc
View File

@ -108,16 +108,16 @@ Procedure FindClose(Var f: SearchRec);
{File} {File}
Procedure GetFAttr(var f; var attr: word); Procedure GetFAttr(var f; var attr: word);
Procedure GetFTime(var f; var time: longint); Procedure GetFTime(var f; var time: longint);
Function FSearch(path: pathstr; dirlist: string): pathstr; Function FSearch(path: pathstr; dirlist: shortstring): pathstr;
Function FExpand(const path: pathstr): pathstr; Function FExpand(const path: pathstr): pathstr;
Procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr); Procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr);
function GetShortName(var p : String) : boolean; function GetShortName(var p : ShortString) : boolean;
function GetLongName(var p : String) : boolean; function GetLongName(var p : ShortString) : boolean;
{Environment} {Environment}
Function EnvCount: longint; Function EnvCount: longint;
Function EnvStr (Index: longint): string; Function EnvStr (Index: longint): shortstring;
Function GetEnv(envvar: string): string; Function GetEnv(envvar: shortstring): shortstring;
{Misc} {Misc}
Procedure SetFAttr(var f; attr: word); Procedure SetFAttr(var f; attr: word);