Handle errors during FMI initialization

Author: sjoelund

SimulationRuntime/c/util/omc_error.c

@@ -458,6 +458,10 @@ void debugStreamPrintWithEquationIndexes(int stream, int indentNext, const int *
 
 static inline jmp_buf* getBestJumpBuffer(threadData_t *threadData)
 {
+  if (!threadData) {
+    fprintf(stderr, "OpenModelica threadData is NULL; this should not be possible");
+    abort();
+  }
   switch (threadData->currentErrorStage) {
   case ERROR_EVENTSEARCH:
   case ERROR_SIMULATION:

SimulationRuntime/fmi/export/fmi2/fmu2_model_interface.c

@@ -291,6 +291,8 @@ fmi2Component fmi2Instantiate(fmi2String instanceName, fmi2Type fmuType, fmi2Str
     fmi2Boolean visible, fmi2Boolean loggingOn) {
   // ignoring arguments: fmuResourceLocation, visible
   ModelInstance *comp;
+  int fmi2callbacksOK = 0;
+  threadData_t *threadData = NULL;
   if (!functions->logger) {
     return NULL;
   }
@@ -310,9 +312,8 @@ fmi2Component fmi2Instantiate(fmi2String instanceName, fmi2Type fmuType, fmi2Str
   comp = (ModelInstance *)functions->allocateMemory(1, sizeof(ModelInstance));
   if (comp) {
     DATA* fmudata = NULL;
-	MODEL_DATA* modelData = NULL;
-	SIMULATION_INFO* simInfo = NULL;
-    threadData_t *threadData = NULL;
+    MODEL_DATA* modelData = NULL;
+    SIMULATION_INFO* simInfo = NULL;
     int i;
 
     comp->instanceName = (fmi2String)functions->allocateMemory(1 + strlen(instanceName), sizeof(char));
@@ -367,6 +368,9 @@ fmi2Component fmi2Instantiate(fmi2String instanceName, fmi2Type fmuType, fmi2Str
   /* read input vars */
   //input_function(comp->fmuData);
   /* initial sample and delay before initial the system */
+  MMC_INIT(X);
+  pthread_setspecific(mmc_thread_data_key, threadData);
+  MMC_TRY_INTERNAL(mmc_jumper)
   comp->fmuData->callback->callExternalObjectConstructors(comp->fmuData, comp->threadData);
   /* allocate memory for non-linear system solvers */
   initializeNonlinearSystems(comp->fmuData, comp->threadData);
@@ -376,6 +380,11 @@ fmi2Component fmi2Instantiate(fmi2String instanceName, fmi2Type fmuType, fmi2Str
   initializeMixedSystems(comp->fmuData, comp->threadData);
   /* allocate memory for state selection */
   initializeStateSetJacobians(comp->fmuData, comp->threadData);
+  fmi2callbacksOK = 1;
+  MMC_CATCH_INTERNAL(mmc_jumper)
+  if (!fmi2callbacksOK) {
+    return NULL;
+  }
 
 #ifdef FMU_EXPERIMENTAL
   /* allocate memory for Jacobian */