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

* TP compatibility: For retro CPUs always copy the function result to

Browse Source 
the register(s) on function exit if assembler blocks are present.
This commit is contained in:
Yuriy Sydorov 2021-08-16 00:40:06 +03:00
parent c78e9557f8
commit 64ddf22e1b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pstatmnt.pas
View File

@ -1085,7 +1085,13 @@ implementation
{ Mark procedure that it has assembler blocks } { Mark procedure that it has assembler blocks }
include(current_procinfo.flags,pi_has_assembler_block); include(current_procinfo.flags,pi_has_assembler_block);
{$if defined(cpu8bitalu) or defined(cpu16bitalu)}
{ We assume the function result is always used in the TP mode }
if (m_tp7 in current_settings.modeswitches) and
not (po_assembler in current_procinfo.procdef.procoptions) and
assigned(current_procinfo.procdef.funcretsym) then
current_procinfo.procdef.funcretsym.IncRefCount;
{$endif}
{ Read first the _ASM statement } { Read first the _ASM statement }
consume(_ASM); consume(_ASM);