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

* set expectloc correctly for small CPUs for implicit pointer object types in the first pass of the add nodes

Browse Source 
git-svn-id: branches/z80@45041 -
This commit is contained in:
nickysn 2020-04-23 15:46:27 +00:00
parent 4ae5b81bff
commit 2ee28809d8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nadd.pas
View File

@ -4162,7 +4162,10 @@ implementation
else if is_implicit_pointer_object_type(ld) then else if is_implicit_pointer_object_type(ld) then
begin begin
expectloc:=LOC_FLAGS; if ld.size>sizeof(aint) then
expectloc:=LOC_JUMP
else
expectloc:=LOC_FLAGS;
end end
else if (ld.typ=classrefdef) then else if (ld.typ=classrefdef) then