paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

sinclairql: also have a function which returns a pointer directly to the QLstring job name

Browse Source 
git-svn-id: trunk@49191 -
This commit is contained in:
Károly Balogh 2021-04-12 12:21:25 +00:00
parent 3280ec3220
commit 8128736233
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/sinclairql/system.pp
View File

@ -72,6 +72,7 @@ var
function SetQLJobName(const s: string): longint; function SetQLJobName(const s: string): longint;
function GetQLJobName: string; function GetQLJobName: string;
function GetQLJobNamePtr: pointer;
implementation implementation
@ -252,6 +253,14 @@ begin
end; end;
end; end;
function GetQLJobNamePtr: pointer;
begin
GetQLJobNamePtr:=nil;
if pword(@start_proc)[3] = $4afb then
begin
GetQLJobNamePtr:=@pword(@start_proc)[4];
end;
end;
{***************************************************************************** {*****************************************************************************
System Dependent Entry code System Dependent Entry code