paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 14:58:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

sinclairql: fix exitCode parameter accidentally overwritten in mt_frjob. also save d2 register.

Browse Source 
git-svn-id: trunk@47568 -
This commit is contained in:
Károly Balogh 2020-11-25 04:33:05 +00:00
parent 45fc515400
commit 3eece73a89
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/sinclairql/qdos.inc
View File

@ -24,12 +24,12 @@ const
procedure mt_frjob(jobID: Tjobid; exitCode: longint); assembler; nostackframe; public name '_mt_frjob';
asm
move.l d3,-(sp)
move.l jobID,d1
movem.l d2-d3,-(sp)
move.l exitCode,d3
move.l jobID,d1
moveq #_MT_FRJOB,d0
trap #1
move.l (sp)+,d3
movem.l (sp)+,d2-d3
end;
function mt_inf(sys_vars: ppchar; ver_ascii: plongint): Tjobid; assembler; nostackframe; public name '_mt_inf';