carl преди 23 години
родител
ревизия
9afe6d5835
променени са 2 файла, в които са добавени 6 реда и са изтрити 3 реда
  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