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

- rm bogus ifdef cpu16bitalu from tparamanager.allocparaloc and .freecgpara

Browse Source 
(leftover from my initial hacky implementation of returning int64 function
  results in ax:bx:cx:dx, that is no longer in use?)

git-svn-id: trunk@27662 -
This commit is contained in:
nickysn 2014-04-26 13:37:53 +00:00
parent af2bc84a9a
commit d8d35a32c9
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/paramgr.pas
View File

@ -290,13 +290,7 @@ implementation
LOC_CREGISTER: LOC_CREGISTER:
begin begin
if getsupreg(paraloc^.register)<first_int_imreg then if getsupreg(paraloc^.register)<first_int_imreg then
begin cg.getcpuregister(list,paraloc^.register);
cg.getcpuregister(list,paraloc^.register);
{$ifdef cpu16bitalu}
if paraloc^.Size in [OS_32, OS_S32] then
cg.getcpuregister(list,GetNextReg(paraloc^.register));
{$endif cpu16bitalu}
end;
end; end;
{$ifndef x86} {$ifndef x86}
{ don't allocate ST(x), they're not handled by the register allocator } { don't allocate ST(x), they're not handled by the register allocator }
@ -345,13 +339,7 @@ implementation
LOC_CREGISTER: LOC_CREGISTER:
begin begin
if getsupreg(paraloc^.register)<first_int_imreg then if getsupreg(paraloc^.register)<first_int_imreg then
begin cg.ungetcpuregister(list,paraloc^.register);
cg.ungetcpuregister(list,paraloc^.register);
{$ifdef cpu16bitalu}
if paraloc^.Size in [OS_32, OS_S32] then
cg.ungetcpuregister(list,GetNextReg(paraloc^.register));
{$endif cpu16bitalu}
end;
end; end;
LOC_FPUREGISTER, LOC_FPUREGISTER,
LOC_CFPUREGISTER: LOC_CFPUREGISTER: