mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-31 11:30:30 +02:00
* decrrefcount resets temps to nil
This commit is contained in:
parent
a4178230a7
commit
fa9e45b7cb
@ -1625,6 +1625,9 @@ implementation
|
||||
a_call_name(list,'FPC_DECREF');
|
||||
deallocexplicitregisters(list,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
|
||||
end;
|
||||
{ Temp locations need always to be reset to 0 }
|
||||
if tg.istemp(ref) then
|
||||
a_load_const_ref(list,OS_ADDR,0,ref);
|
||||
end;
|
||||
|
||||
|
||||
@ -2109,7 +2112,10 @@ finalization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.150 2004-01-21 21:01:34 peter
|
||||
Revision 1.151 2004-01-21 22:13:20 peter
|
||||
* decrrefcount resets temps to nil
|
||||
|
||||
Revision 1.150 2004/01/21 21:01:34 peter
|
||||
* fixed stackchecking for register calling
|
||||
|
||||
Revision 1.149 2004/01/20 12:59:36 florian
|
||||
|
@ -1689,7 +1689,8 @@ begin
|
||||
def_symbol('NOCLASSHELPERS');
|
||||
if pocall_default = pocall_register then
|
||||
def_symbol('REGCALL');
|
||||
|
||||
def_symbol('DECRREFNOTNIL');
|
||||
|
||||
{ using a case is pretty useless here (FK) }
|
||||
{ some stuff for TP compatibility }
|
||||
{$ifdef i386}
|
||||
@ -1994,7 +1995,10 @@ finalization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.120 2004-01-10 00:16:21 jonas
|
||||
Revision 1.121 2004-01-21 22:13:20 peter
|
||||
* decrrefcount resets temps to nil
|
||||
|
||||
Revision 1.120 2004/01/10 00:16:21 jonas
|
||||
* fixed mtfsb0 instruction for assembler reader/writer
|
||||
* fixed initialisation of fpscr register to avoid spurious SIGPFE's
|
||||
(uses mtfsb0 instruction, so added extra define in options.pas to avoid
|
||||
|
Loading…
Reference in New Issue
Block a user