* removed unused checkobject method

compiler/i386/n386cnv.pas

@@ -52,9 +52,6 @@ interface
          { procedure second_pchar_to_string;override; }
          { procedure second_class_to_intf;override;  }
          { procedure second_char_to_char;override; }
-{$ifdef TESTOBJEXT2}
-          procedure checkobject;override;
-{$endif TESTOBJEXT2}
        end;
 
 
@@ -154,48 +151,15 @@ implementation
          location.register:=NR_ST;
       end;
 
-
-{$ifdef TESTOBJEXT2}
-    procedure ti386typeconvnode.checkobject;
-      var
-         r : preference;
-         nillabel : plabel;
-       begin
-         new(r);
-         reset_reference(r^);
-         if p^.location.loc in [LOC_REGISTER,LOC_CREGISTER] then
-          r^.base:=p^.location.register
-         else
-           begin
-              cg.getexplicitregister(exprasmlist,R_EDI);
-              emit_mov_loc_reg(p^.location,R_EDI);
-              r^.base:=R_EDI;
-           end;
-         { NIL must be accepted !! }
-         emit_reg_reg(A_OR,S_L,r^.base,r^.base);
-         rg.ungetregisterint(exprasmlist,R_EDI);
-         objectlibrary.getlabel(nillabel);
-         cg.a_jmp_flags(exprasmlist,F_E,nillabel);
-         { this is one point where we need vmt_offset (PM) }
-         r^.offset:= tobjectdef(tpointerdef(p^.resulttype.def).definition).vmt_offset;
-         rg.getexplicitregisterint(exprasmlist,R_EDI);
-         emit_ref_reg(A_MOV,S_L,r,R_EDI);
-         emit_sym(A_PUSH,S_L,
-           objectlibrary.newasmsymbol(tobjectdef(tpointerdef(p^.resulttype.def).definition).vmt_mangledname));
-         emit_reg(A_PUSH,S_L,R_EDI);
-         rg.ungetregister32(exprasmlist,R_EDI);
-         emitcall('FPC_CHECK_OBJECT_EXT');
-         emitlab(nillabel);
-       end;
-{$endif TESTOBJEXT2}
-
-
 begin
    ctypeconvnode:=ti386typeconvnode;
 end.
 {
   $Log$
-  Revision 1.70  2003-12-08 15:35:00  peter
+  Revision 1.71  2003-12-22 23:08:59  peter
+    * removed unused checkobject method
+
+  Revision 1.70  2003/12/08 15:35:00  peter
     * fix loading of word/byte to real
 
   Revision 1.69  2003/12/03 23:13:20  peter

compiler/ncgcnv.pas

@@ -47,9 +47,6 @@ interface
          procedure second_class_to_intf;override;
          procedure second_char_to_char;override;
          procedure second_nothing;override;
-{$ifdef TESTOBJEXT2}
-         procedure checkobject;virtual;
-{$endif TESTOBJEXT2}
          procedure pass_2;override;
        end;
 
@@ -514,7 +511,10 @@ end.
 
 {
   $Log$
-  Revision 1.50  2003-11-04 22:30:15  florian
+  Revision 1.51  2003-12-22 23:08:59  peter
+    * removed unused checkobject method
+
+  Revision 1.50  2003/11/04 22:30:15  florian
     + type cast variant<->enum
     * cnv. node second pass uses now as well helper wrappers