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

* fixed vmtptr crash in tstream.put

Browse Source
This commit is contained in:
peter 1999-12-06 18:25:30 +00:00
parent ada779a989
commit 1d2da4c432
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/objects.pp
View File

@ -1087,7 +1087,10 @@ VAR ObjType: Sw_Word; Link: pointer; Q: PStreamRec; VmtPtr: ^pointer;
ObjTypeWord: Word; ObjTypeWord: Word;
BEGIN BEGIN
VmtPtr := Pointer(P); { Xfer object to ptr } VmtPtr := Pointer(P); { Xfer object to ptr }
Link := VmtPtr^; { VMT link } if assigned(vmtptr) then
Link := VmtPtr^ { VMT link }
else
Link:=nil;
ObjType := 0; { Set objtype to zero } ObjType := 0; { Set objtype to zero }
If (P<>Nil) AND (Link<>Nil) Then Begin { We have a VMT link } If (P<>Nil) AND (Link<>Nil) Then Begin { We have a VMT link }
Q := StreamTypes; { Current reg list } Q := StreamTypes; { Current reg list }
@ -2758,7 +2761,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.31 1999-11-06 14:35:38 peter Revision 1.32 1999-12-06 18:25:30 peter
* fixed vmtptr crash in tstream.put
Revision 1.31 1999/11/06 14:35:38 peter
* truncated log * truncated log
Revision 1.30 1999/09/10 17:15:13 peter Revision 1.30 1999/09/10 17:15:13 peter