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

Avoid line longer than 255 characters, to be able to edit inside FP IDE

Browse Source 
git-svn-id: trunk@30158 -
This commit is contained in:
pierre 2015-03-10 07:56:18 +00:00
parent 3cd33af823
commit 21fe7616a4
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/cgutils.pas
View File

@ -301,25 +301,38 @@ uses
{$elseif defined(cpu16bitalu)}
OS_64,OS_S64:
if getsupreg(locreg.register)<first_int_imreg then
result:='??:'+std_regname(locreg.registerhi)+':??:'+std_regname(locreg.register)
result:='??:'+std_regname(locreg.registerhi)
+':??:'+std_regname(locreg.register)
else
result:=std_regname(GetNextReg(locreg.registerhi))+':'+std_regname(locreg.registerhi)+':'+std_regname(GetNextReg(locreg.register))+':'+std_regname(locreg.register);
result:=std_regname(GetNextReg(locreg.registerhi))+':'+std_regname(locreg.registerhi)
+':'+std_regname(GetNextReg(locreg.register))+':'+std_regname(locreg.register);
OS_32,OS_S32:
if getsupreg(locreg.register)<first_int_imreg then
result:='??:'+std_regname(locreg.register)
else
result:=std_regname(GetNextReg(locreg.register))+':'+std_regname(locreg.register);
result:=std_regname(GetNextReg(locreg.register))
+':'+std_regname(locreg.register);
{$elseif defined(cpu8bitalu)}
OS_64,OS_S64:
if getsupreg(locreg.register)<first_int_imreg then
result:='??:??:??:'+std_regname(locreg.registerhi)+':??:??:??:'+std_regname(locreg.register)
result:='??:??:??:'+std_regname(locreg.registerhi)
+':??:??:??:'+std_regname(locreg.register)
else
result:=std_regname(GetNextReg(GetNextReg(GetNextReg(locreg.registerhi))))+':'+std_regname(GetNextReg(GetNextReg(locreg.registerhi)))+':'+std_regname(GetNextReg(locreg.registerhi))+':'+std_regname(locreg.registerhi)+':'+std_regname(GetNextReg(GetNextReg(GetNextReg(locreg.register))))+':'+std_regname(GetNextReg(GetNextReg(locreg.register)))+':'+std_regname(GetNextReg(locreg.register))+':'+std_regname(locreg.register);
result:=std_regname(GetNextReg(GetNextReg(GetNextReg(locreg.registerhi))))
+':'+std_regname(GetNextReg(GetNextReg(locreg.registerhi)))
+':'+std_regname(GetNextReg(locreg.registerhi))
+':'+std_regname(locreg.registerhi)
+':'+std_regname(GetNextReg(GetNextReg(GetNextReg(locreg.register))))
+':'+std_regname(GetNextReg(GetNextReg(locreg.register)))
+':'+std_regname(GetNextReg(locreg.register))
+':'+std_regname(locreg.register);
OS_32,OS_S32:
if getsupreg(locreg.register)<first_int_imreg then
result:='??:??:??:'+std_regname(locreg.register)
else
result:=std_regname(GetNextReg(GetNextReg(GetNextReg(locreg.register))))+':'+std_regname(GetNextReg(GetNextReg(locreg.register)))+':'+std_regname(GetNextReg(locreg.register))+':'+std_regname(locreg.register);
result:=std_regname(GetNextReg(GetNextReg(GetNextReg(locreg.register))))
+':'+std_regname(GetNextReg(GetNextReg(locreg.register)))
+':'+std_regname(GetNextReg(locreg.register))+':'+std_regname(locreg.register);
OS_16,OS_S16:
if getsupreg(locreg.register)<first_int_imreg then
result:='??:'+std_regname(locreg.register)