paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 05:29:27 +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:17:22 +01:00 committed by Michaël Van Canneyt
parent 1e587e1150
commit 0d0317b3af
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/termio.pp
View File

@ -37,7 +37,7 @@ implementation
{We can implement ttyname more efficiently using proc than by including the {We can implement ttyname more efficiently using proc than by including the
generic ttyname.inc file.} generic ttyname.inc file.}
function TTYName(Handle:cint):string; function TTYName(Handle:cint):shortstring;
{ Return the name of the current tty described by handle f. { Return the name of the current tty described by handle f.
returns empty string in case of an error.} returns empty string in case of an error.}
@ -55,7 +55,7 @@ begin
end; end;
end; end;
function TTYName(var F:Text):string;{$ifndef ver2_0}inline;{$endif} function TTYName(var F:Text):shortstring;{$ifndef ver2_0}inline;{$endif}
{ {
Idem as previous, only now for text variables; Idem as previous, only now for text variables;
} }