|
@@ -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)
|