mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 13:06:18 +02:00
* patch from Peter to fix tempinfo copying
This commit is contained in:
parent
1e7fc22124
commit
1929498b42
@ -627,6 +627,7 @@ implementation
|
|||||||
new(n.tempinfo);
|
new(n.tempinfo);
|
||||||
fillchar(n.tempinfo^,sizeof(n.tempinfo^),0);
|
fillchar(n.tempinfo^,sizeof(n.tempinfo^),0);
|
||||||
n.tempinfo^.restype := tempinfo^.restype;
|
n.tempinfo^.restype := tempinfo^.restype;
|
||||||
|
n.tempinfo^.temptype := tempinfo^.temptype;
|
||||||
|
|
||||||
{ when the tempinfo has already a hookoncopy then it is not
|
{ when the tempinfo has already a hookoncopy then it is not
|
||||||
reset by a tempdeletenode }
|
reset by a tempdeletenode }
|
||||||
@ -851,7 +852,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.56 2003-06-09 18:26:46 peter
|
Revision 1.57 2003-06-10 09:10:47 jonas
|
||||||
|
* patch from Peter to fix tempinfo copying
|
||||||
|
|
||||||
|
Revision 1.56 2003/06/09 18:26:46 peter
|
||||||
* remove temptype, use tempinfo.temptype instead
|
* remove temptype, use tempinfo.temptype instead
|
||||||
|
|
||||||
Revision 1.55 2003/06/09 12:20:47 peter
|
Revision 1.55 2003/06/09 12:20:47 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user