paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 14:50:24 +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}
function GetShortName (var P: String): boolean;
function GetShortName (var P: ShortString): boolean;
begin
GetShortName := true;
end;
@ -181,7 +181,7 @@ end;
{$IFNDEF HAS_GETLONGNAME}
function GetLongName (var P: String): boolean;
function GetLongName (var P: ShortString): boolean;
begin
GetLongName := true;
end;

10
rtl/inc/dosh.inc
View File

@ -108,16 +108,16 @@ Procedure FindClose(Var f: SearchRec);
{File}
Procedure GetFAttr(var f; var attr: word);
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;
Procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr);
function GetShortName(var p : String) : boolean;
function GetLongName(var p : String) : boolean;
function GetShortName(var p : ShortString) : boolean;
function GetLongName(var p : ShortString) : boolean;
{Environment}
Function EnvCount: longint;
Function EnvStr (Index: longint): string;
Function GetEnv(envvar: string): string;
Function EnvStr (Index: longint): shortstring;
Function GetEnv(envvar: shortstring): shortstring;
{Misc}
Procedure SetFAttr(var f; attr: word);