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

* psizeint($1234)^ for generic cg fixed

Browse Source 
git-svn-id: trunk@570 -
This commit is contained in:
florian 2005-07-03 15:08:04 +00:00
parent bc3ada6860
commit 1f8d6aa678
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgmem.pas
View File

@ -245,6 +245,12 @@ implementation
location.reference.base:=cg.getaddressregister(exprasmlist); location.reference.base:=cg.getaddressregister(exprasmlist);
cg.a_load_loc_reg(exprasmlist,OS_ADDR,left.location,location.reference.base); cg.a_load_loc_reg(exprasmlist,OS_ADDR,left.location,location.reference.base);
end; end;
LOC_CONSTANT:
begin
location.reference.offset:=left.location.value;
end;
else
internalerror(200507031);
end; end;
if (cs_gdb_heaptrc in aktglobalswitches) and if (cs_gdb_heaptrc in aktglobalswitches) and
(cs_checkpointer in aktlocalswitches) and (cs_checkpointer in aktlocalswitches) and