msg->AssignCat(aName);
msg->AssignCat(" is not in the 'uses' clause of ");
msg->AssignCat(Container);
- CDLerror(msg->ToCString());
+ CDLerror((char *)msg->ToCString());
}
strncpy(Pack_Name,aName,MAX_CHAR);
if (SimpleClass->Name()->IsSameString(thethetypename)) {
- return Container->ToCString();
+ return (char *)Container->ToCString();
}
aSeqOfPackage = SimpleClass->GetUsesNames();
aFullName->AssignCat(aName);
if (theMetaSchema->IsDefined(aFullName)) {
- return aSeqOfPackage->Value(i)->ToCString();
+ return (char *)aSeqOfPackage->Value(i)->ToCString();
}
aFullName->Clear();
Handle(TCollection_HAsciiString) msg = new TCollection_HAsciiString("the type '");
msg->AssignCat(thetypename);
msg->AssignCat("' must be followed by a package name.");
- CDLerror(msg->ToCString());
+ CDLerror((char *)msg->ToCString());
}
}
}
}
}
else {
- Type_Pack(Container->ToCString());
+ Type_Pack((char *)Container->ToCString());
}
}
aType = theMetaSchema->GetType(aFullName);
}
else {
- char *athetypename = TypeCompletion(ListOfTypes->Value(i)->ToCString());
+ char *athetypename = TypeCompletion((char *)ListOfTypes->Value(i)->ToCString());
if (athetypename == aDummyPackageName) {
ListOfPackages->Value(i)->Clear();
try {
OCC_CATCH_SIGNALS
- ErrorLevel = TraductionMain(aFileName->ToCString());
+ ErrorLevel = TraductionMain((char *)aFileName->ToCString());
}
catch(Standard_Failure) {
fclose(CDLin);