7c6
Subj : bcb6 inheritance bug
To   : borland.public.cpp.borlandcpp
From : "Emile" <nospam@aol.com>
Date : Mon Mar 08 2004 03:58 pm

[C++ Fatal Error] Unit1.cpp(23): F1004 Internal compiler error at 0xc65906
with base 0xc10000

unit1.cpp
---------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//--------------------------------------------------------------------------
-
void create(void)
{
   client_B *cb;
   cb = new client_B();   //LIGNE 21 lol
   delete  cb;
}
//--------------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)   : TForm(Owner) { }
void __fastcall TForm1::Button1Click(TObject *Sender) {    create();    }

unit1.h
#ifndef Unit2H
#define Unit2H

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>


//--------------------------------------------------------------------------
-
class iclient_A
{
   public:
      virtual void event_iclient_A(void) = 0;
};

class EmptyClassA
{
   public:
      void EmptyFonction(void) {;}
};

class client_A : public EmptyClassA, public iclient_A
{
   public:
      void event_iclient_A(void) {ShowMessage("A");}
};

class client_B : public client_A
{
   public:
      void event_iclient_B(AnsiString M) {ShowMessage("B");}
};
//--------------------------------------------------------------------------
-












class TForm1 : public TForm
{
__published:   // IDE-managed Components
   TButton *Button1;
   void __fastcall Button1Click(TObject *Sender);
private:   // User declarations
public:      // User declarations
   __fastcall TForm1(TComponent* Owner);
};
//--------------------------------------------------------------------------
-
extern PACKAGE TForm1 *Form1;
//--------------------------------------------------------------------------
-
#endif

.

0