- the system call is the same for Windows/Linux, moved at the end.

- also added tracing to the System__systemCall function. 

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@5451 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: adrpo

Compiler/runtime/systemimpl.c

@@ -780,17 +780,6 @@ RML_BEGIN_LABEL(System__compileCFile)
 }
 RML_END_LABEL
 
-RML_BEGIN_LABEL(System__systemCall)
-{
-  int ret_val;
-  char* str = RML_STRINGDATA(rmlA0);
-  ret_val  = system(str);
-  rmlA0 = (void*) mk_icon(ret_val);
-
-  RML_TAILCALLK(rmlSC);
-}
-RML_END_LABEL
-
 RML_BEGIN_LABEL(System__pathDelimiter)
 {
   rmlA0 = (void*) mk_scon("/");
@@ -2571,18 +2560,6 @@ RML_BEGIN_LABEL(System__compileCFile)
 }
 RML_END_LABEL
 
-
-RML_BEGIN_LABEL(System__systemCall)
-{
-  int ret_val;
-  char* str = RML_STRINGDATA(rmlA0);
-  ret_val = system(str);
-  rmlA0 = (void*) mk_icon(ret_val);
-
-  RML_TAILCALLK(rmlSC);
-}
-RML_END_LABEL
-
 RML_BEGIN_LABEL(System__cd)
 {
   char* str = RML_STRINGDATA(rmlA0);
@@ -3739,3 +3716,27 @@ RML_BEGIN_LABEL(System__disableTrace)
 }
 RML_END_LABEL
 
+/* is the same for both Windows/Linux */
+RML_BEGIN_LABEL(System__systemCall)
+{
+  int ret_val;
+  char* str = RML_STRINGDATA(rmlA0);
+
+  if (rml_trace_enabled)
+  {
+    fprintf(stderr, "System.systemCall: %s\n", str); fflush(stderr);
+  }
+
+  ret_val = system(str);
+
+  if (rml_trace_enabled)
+  {
+    fprintf(stderr, "System.systemCall: returned value: %d\n", ret_val); fflush(stderr);
+  }
+
+  rmlA0 = (void*) mk_icon(ret_val);
+
+  RML_TAILCALLK(rmlSC);
+}
+RML_END_LABEL
+