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

* Replace 220 -> 219

Browse Source
This commit is contained in:
carl 2002-10-15 19:23:43 +00:00
parent 52ed1daebc
commit 9afe6d5835
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/internal/comparch.tex
View File

@ -4635,7 +4635,7 @@ if vmt = nil or size of method table =0 then
\Declaration
procedure Int{\_}Check{\_}Object{\_}Ext(vmt, expvmt : pointer);
\Description
This routine is called at runtime when extended object checking is enabled (on the command line) and a virtual method is called. It verifies that the object constructor has been called first to build the VMT of the object, otherwise it throws an Runtime error 210, and furthermore it check that the object is actually a descendant of the parent object, otherwise it returns a Runtime error 220.
This routine is called at runtime when extended object checking is enabled (on the command line) and a virtual method is called. It verifies that the object constructor has been called first to build the VMT of the object, otherwise it throws an Runtime error 210, and furthermore it check that the object is actually a descendant of the parent object, otherwise it returns a Runtime error 219.
\Parameters
vmt = Current value of the SELF register \par
expvmt = Pointer to TRUE object definition

7
rtl/i386/i386.inc
View File

@ -716,7 +716,7 @@ asm
movl %eax,%edi
jmp .Lcoext_obj
.Lcoext_re:
pushl $220
pushl $219
call HandleError
.Lcoext_ok:
popl %eax
@ -1195,7 +1195,10 @@ end;
{
$Log$
Revision 1.33 2002-10-14 19:39:16 peter
Revision 1.34 2002-10-15 19:24:47 carl
* Replace 220 -> 219
Revision 1.33 2002/10/14 19:39:16 peter
* threads unit added for thread support
Revision 1.32 2002/10/05 14:20:16 peter