paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 15:10:12 +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 is_interfacecom(t) then
begin begin
g_decrrefcount(list,t,ref); g_decrrefcount(list,t,ref);
{ Temp locations are already reset to 0 } a_load_const_ref(list,OS_ADDR,0,ref);
if not tg.istemp(ref) then
a_load_const_ref(list,OS_ADDR,0,ref);
end end
else else
begin begin
@ -2083,7 +2081,12 @@ finalization
end. end.
{ {
$Log$ $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 + implemented overflow checking for 64 bit types on sparc
Revision 1.191 2005/01/24 22:08:32 peter Revision 1.191 2005/01/24 22:08:32 peter