Skip to content

Commit

Permalink
- Reverted changes from r10570 and fixed *only* System.tolower.
Browse files Browse the repository at this point in the history
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@10571 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
perost committed Nov 24, 2011
1 parent d12bdf0 commit dd9cf74
Showing 1 changed file with 4 additions and 7 deletions.
11 changes: 4 additions & 7 deletions Compiler/runtime/System_rml.c
Expand Up @@ -43,7 +43,7 @@
#endif

#include "rml.h"
#include "Config.h"
#include "RTOptsData.h"
#include "systemimpl.c"

/* use this one to output messages depending on flags! */
Expand Down Expand Up @@ -686,8 +686,7 @@ RML_END_LABEL
RML_BEGIN_LABEL(System__freeFunction)
{
modelica_integer funcIndex = RML_UNTAGFIXNUM(rmlA0);
modelica_integer printDebug = RML_UNTAGFIXNUM(rmlA1);
if (SystemImpl__freeFunction(funcIndex, printDebug))
if (SystemImpl__freeFunction(funcIndex))
RML_TAILCALLK(rmlFC);
RML_TAILCALLK(rmlSC);
}
Expand All @@ -696,8 +695,7 @@ RML_END_LABEL
RML_BEGIN_LABEL(System__freeLibrary)
{
modelica_integer libIndex = RML_UNTAGFIXNUM(rmlA0);
modelica_integer printDebug = RML_UNTAGFIXNUM(rmlA1);
if (SystemImpl__freeLibrary(libIndex, printDebug))
if (SystemImpl__freeLibrary(libIndex))
RML_TAILCALLK(rmlFC);
RML_TAILCALLK(rmlSC);
}
Expand Down Expand Up @@ -1933,8 +1931,7 @@ RML_END_LABEL
RML_BEGIN_LABEL(System__loadLibrary)
{
const char *str = RML_STRINGDATA(rmlA0);
modelica_integer printDebug = RML_UNTAGFIXNUM(rmlA1);
int res = SystemImpl__loadLibrary(str, printDebug);
int res = SystemImpl__loadLibrary(str);
if (res == -1)
RML_TAILCALLK(rmlFC);
rmlA0 = mk_icon(res);
Expand Down

0 comments on commit dd9cf74

Please sign in to comment.