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

* finalize for refcounted strings shall also reset temps to 0, the

Browse Source 
previous exception that decrrefcnt already set it to 0 is not valid
    anymore
This commit is contained in:
peter 2005-01-29 00:32:53 +00:00
parent 1768ad35ce
commit f818478945
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cgobj.pas
View File

@ -1570,9 +1570,7 @@ implementation
is_interfacecom(t) then
begin
g_decrrefcount(list,t,ref);
{ Temp locations are already reset to 0 }
if not tg.istemp(ref) then
a_load_const_ref(list,OS_ADDR,0,ref);
a_load_const_ref(list,OS_ADDR,0,ref);
end
else
begin
@ -2083,7 +2081,12 @@ finalization
end.
{
$Log$
Revision 1.192 2005-01-27 20:32:51 florian
Revision 1.193 2005-01-29 00:32:53 peter
* finalize for refcounted strings shall also reset temps to 0, the
previous exception that decrrefcnt already set it to 0 is not valid
anymore
Revision 1.192 2005/01/27 20:32:51 florian
+ implemented overflow checking for 64 bit types on sparc
Revision 1.191 2005/01/24 22:08:32 peter