- fixes in the Linux part

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@3055 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Jan 16, 2008 · f9478a6 · f9478a6
1 parent e159d61
commit f9478a6
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/Compiler/runtime/systemimpl.c b/Compiler/runtime/systemimpl.c
@@ -1579,17 +1579,17 @@ char* _replace(char* source_str,char* search_str,char* replace_str)
 
 void System_5finit(void)
 {
-  set_cc("gcc");
+	char* qthome;	
+	set_cc("gcc");
 
-  set_cflags("-I$OPENMODELICAHOME/include -L$OPENMODELICAHOME/lib -lc_runtime -lm $MODELICAUSERCFLAGS");
+	set_cflags("-I$OPENMODELICAHOME/include -L$OPENMODELICAHOME/lib -lc_runtime -lm $MODELICAUSERCFLAGS");
 
 	qthome = getenv("QTHOME");
 	if(qthome && strlen(qthome))
 	{
 		char senddatalibs[] = "SENDDATALIBS= -lsendData -lQtNetwork -lQtCore -lQtGui -luuid";
-		_putenv(senddatalibs);
+		putenv(senddatalibs);
 	}
-
 }
 
 RML_BEGIN_LABEL(System__strtok)
@@ -2666,9 +2666,9 @@ RML_BEGIN_LABEL(System__enableSendData)
 {
 	int enable = RML_UNTAGFIXNUM(rmlA0);
 	if(enable)
-		setenv("enableSendData", "1");
+		setenv("enableSendData", "1", 1 /* overwrite */);
 	else
-		setenv("enableSendData", "0");
+		setenv("enableSendData", "0", 1 /* overwrite */);
 //	enableSendData(enable);
 	  RML_TAILCALLK(rmlSC);
 }
@@ -2679,17 +2679,16 @@ RML_BEGIN_LABEL(System__setDataPort)
 	int port = RML_UNTAGFIXNUM(rmlA0);
 	char* p = malloc(10);
 	sprintf(p, "%s", port);
-	setenv("sendDataPort", p);
+	setenv("sendDataPort", p, 1 /* overwrite */);
 	free(p);
 	setDataPort(port);
 	  RML_TAILCALLK(rmlSC);
 }
 RML_END_LABEL
 RML_BEGIN_LABEL(System__setVariableFilter)
 {
-	char * variables = RML_STRINGDATA(A0);
-
-	setenv("sendDataFilter", variables);
+	char * variables = RML_STRINGDATA(rmlA0);	
+	setenv("sendDataFilter", variables, 1 /* overwrite */);
 //	setVariableFilter(variables);
 	RML_TAILCALLK(rmlSC);
 }