paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 16:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:09:19 +01:00 committed by Michaël Van Canneyt
parent 08200fffa1
commit d70d11a650
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/sinclairql/system.pp
View File

@ -80,8 +80,8 @@ type
function SetQLJobName(const s: string): longint; function SetQLJobName(const s: shortstring): longint;
function GetQLJobName: string; function GetQLJobName: shortstring;
function GetQLJobNamePtr: pointer; function GetQLJobNamePtr: pointer;
procedure SetQLDefaultConExitMessage(const msg: PAnsiChar); procedure SetQLDefaultConExitMessage(const msg: PAnsiChar);
@ -138,7 +138,7 @@ begin
end; end;
{ argument number l } { argument number l }
function ParamStr(l: LongInt): string; function ParamStr(l: LongInt): shortstring;
begin begin
if (l >= 0) and (l <= argc) then if (l >= 0) and (l <= argc) then
ParamStr:=argv[l] ParamStr:=argv[l]
@ -235,7 +235,7 @@ var
const const
JOB_NAME_MAX_LEN = 48; JOB_NAME_MAX_LEN = 48;
function SetQLJobName(const s: string): longint; function SetQLJobName(const s: shortstring): longint;
var var
len: longint; len: longint;
begin begin
@ -251,7 +251,7 @@ begin
end; end;
end; end;
function GetQLJobName: string; function GetQLJobName: shortstring;
var var
len: longint; len: longint;
begin begin