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

* use 8-bit registers for the function return regs

Browse Source 
git-svn-id: branches/z80@44653 -
This commit is contained in:
nickysn 2020-04-09 00:07:20 +00:00
parent b896d2fea2
commit 3c8ed1cfbc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/z80/cpubase.pas
View File

@ -212,14 +212,14 @@ unit cpubase;
}
NR_PIC_OFFSET_REG = NR_INVALID;
{ Results are returned in this register (32-bit values) }
NR_FUNCTION_RETURN_REG = NR_HL;
RS_FUNCTION_RETURN_REG = RS_HL;
NR_FUNCTION_RETURN_REG = NR_L;
RS_FUNCTION_RETURN_REG = RS_L;
{ Low part of 64bit return value }
NR_FUNCTION_RETURN64_LOW_REG = NR_HL;
RS_FUNCTION_RETURN64_LOW_REG = RS_HL;
NR_FUNCTION_RETURN64_LOW_REG = NR_L;
RS_FUNCTION_RETURN64_LOW_REG = RS_L;
{ High part of 64bit return value }
NR_FUNCTION_RETURN64_HIGH_REG = NR_BC;
RS_FUNCTION_RETURN64_HIGH_REG = RS_BC;
NR_FUNCTION_RETURN64_HIGH_REG = NR_C;
RS_FUNCTION_RETURN64_HIGH_REG = RS_C;
{ The value returned from a function is available in this register }
NR_FUNCTION_RESULT_REG = NR_FUNCTION_RETURN_REG;
RS_FUNCTION_RESULT_REG = RS_FUNCTION_RETURN_REG;