paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 14:48:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

- rm the ifdef cpu16bitalu and cpu64bitalu from thlcgobj.a_load_ref_cgpara,

Browse Source 
because they:
  - worsen readability (especially if we add cpu8bitalu as well, for
    completeness)
  - are not needed, because the else clause of the previous if ensures that we
    have (sizeleft<=sizeof(aint)) and sizeof(aint) follows the target cpu alu
    size

git-svn-id: trunk@27664 -
This commit is contained in:
nickysn 2014-04-26 13:46:36 +00:00
parent 471ffb017c
commit 9758a53fa6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/hlcgobj.pas
View File

@ -870,7 +870,7 @@ implementation
{ we're at the end of the data, and it can be loaded into
the current location's register with a single regular
load }
else if (sizeleft in [1,2{$ifndef cpu16bitalu},4{$endif}{$ifdef cpu64bitalu},8{$endif}]) then
else if sizeleft in [1,2,4,8] then
begin
{ don't use cgsize_orddef(int_cgsize(sizeleft)) as fromdef,
because that may be larger than location^.register in