paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 10:49:31 +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:09:19 +01:00 committed by Michaël Van Canneyt
parent 08200fffa1
commit d70d11a650
1 changed files with 5 additions and 5 deletions

10
rtl/sinclairql/system.pp
View File

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