Implement construct and destruct interfaces.

include/clang/Interpreter/InterOp.h

@@ -21,6 +21,7 @@ namespace InterOp {
   using TCppFuncAddr_t = void*;
   using TCppSema_t = void*;
   using TInterp_t = void*;
+  using TCppObject_t = void*;
   typedef void (*CallFuncWrapper_t)(void*, int, void**, void*);
 
   /// Enables or disables the debugging printouts on stderr.
@@ -243,6 +244,20 @@ namespace InterOp {
   }
 
   std::vector<long int> GetDimensions(TCppType_t type);
+
+  /// Allocates memory for a given class.
+  TCppObject_t Allocate(TCppScope_t scope);
+
+  /// Deallocates memory for a given class.
+  void Deallocate(TCppScope_t scope, TCppObject_t address);
+
+  /// Creates an object of class \c scope and calls its default constructor. If
+  /// \c arena is set it uses placement new.
+  TCppObject_t Construct(TInterp_t interp, TCppScope_t scope,
+                         void* arena = nullptr);
+
+  /// Calls the destructor of object of type \c type.
+  void Destruct(TInterp_t interp, TCppObject_t This, TCppScope_t type);
 } // end namespace InterOp
 
 #endif // INTEROP_INTEROP_H

include/clang/Interpreter/InterOpInterpreter.h

@@ -307,11 +307,20 @@ class Interpreter {
       }
     }
 
+    clang::LangOptions& LO
+      = const_cast<clang::LangOptions&>(getCompilerInstance()->getLangOpts());
+    bool SavedAccessControl = LO.AccessControl;
+    LO.AccessControl = withAccessControl;
+
     if (auto Err = ParseAndExecute(code)) {
+      LO.AccessControl = SavedAccessControl;
       llvm::logAllUnhandledErrors(std::move(Err), llvm::errs(),
                                   "Failed to compileFunction: ");
       return nullptr;
     }
+
+    LO.AccessControl = SavedAccessControl;
+
     return getAddressOfGlobal(name);
   }