Browse Source

* Replace 220 -> 219

carl 23 years ago
parent
commit
9afe6d5835
2 changed files with 6 additions and 3 deletions
  1. 1 1
      docs/internal/comparch.tex
  2. 5 2
      rtl/i386/i386.inc

+ 1 - 1
docs/internal/comparch.tex

@@ -4635,7 +4635,7 @@ if vmt = nil or size of method table =0 then
 \Declaration
 \Declaration
 procedure Int{\_}Check{\_}Object{\_}Ext(vmt, expvmt : pointer);
 procedure Int{\_}Check{\_}Object{\_}Ext(vmt, expvmt : pointer);
 \Description
 \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
 \Parameters
 vmt = Current value of the SELF register \par
 vmt = Current value of the SELF register \par
 expvmt = Pointer to TRUE object definition
 expvmt = Pointer to TRUE object definition

+ 5 - 2
rtl/i386/i386.inc

@@ -716,7 +716,7 @@ asm
         movl    %eax,%edi
         movl    %eax,%edi
         jmp     .Lcoext_obj
         jmp     .Lcoext_obj
 .Lcoext_re:
 .Lcoext_re:
-        pushl   $220
+        pushl   $219
         call    HandleError
         call    HandleError
 .Lcoext_ok:
 .Lcoext_ok:
         popl    %eax
         popl    %eax
@@ -1195,7 +1195,10 @@ end;
 
 
 {
 {
   $Log$
   $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
     * threads unit added for thread support
 
 
   Revision 1.32  2002/10/05 14:20:16  peter
   Revision 1.32  2002/10/05 14:20:16  peter