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

* data with inittables need to have a memory location assigned

Browse Source 
for incrref
This commit is contained in:
peter 2005-02-10 21:54:36 +00:00
parent 76a2dbb4a7
commit 2ce81b5177
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgld.pas
View File

@ -432,6 +432,7 @@ implementation
if (right.resulttype.def.needs_inittable) and if (right.resulttype.def.needs_inittable) and
(right.nodetype<>stringconstn) then (right.nodetype<>stringconstn) then
begin begin
location_force_mem(exprasmlist,right.location);
location_get_data_ref(exprasmlist,right.location,href,false); location_get_data_ref(exprasmlist,right.location,href,false);
cg.g_incrrefcount(exprasmlist,right.resulttype.def,href); cg.g_incrrefcount(exprasmlist,right.resulttype.def,href);
end; end;
@ -481,6 +482,7 @@ implementation
if (right.resulttype.def.needs_inittable) and if (right.resulttype.def.needs_inittable) and
(right.nodetype<>stringconstn) then (right.nodetype<>stringconstn) then
begin begin
location_force_mem(exprasmlist,right.location);
location_get_data_ref(exprasmlist,right.location,href,false); location_get_data_ref(exprasmlist,right.location,href,false);
cg.g_incrrefcount(exprasmlist,right.resulttype.def,href); cg.g_incrrefcount(exprasmlist,right.resulttype.def,href);
end; end;
@ -954,7 +956,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.136 2005-01-23 17:14:21 florian Revision 1.137 2005-02-10 21:54:36 peter
* data with inittables need to have a memory location assigned
for incrref
Revision 1.136 2005/01/23 17:14:21 florian
+ optimized code generation on sparc + optimized code generation on sparc
+ some stuff for pic code on sparc added + some stuff for pic code on sparc added