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
 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

+ 5 - 2
rtl/i386/i386.inc

@@ -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