+namespace {
+static Standard_CString copy_string (const char* theString)
+{
+ size_t aLength = strlen (theString);
+ char* aResult = static_cast<char*> (Standard::Allocate (aLength + 1));
+ strncpy (aResult, theString, aLength + 1); //including null-character
+ return aResult;
+}
+}
+
+Standard_Type::Standard_Type (const char* theSystemName,
+ const char* theName,
+ Standard_Size theSize,
+ const Handle(Standard_Type)& theParent) :
+ mySystemName (copy_string (theSystemName)),
+ myName(theName), mySize(theSize), myParent(theParent)
+{
+}
+
+//============================================================================
+