Skip to content

Commit

Permalink
- Linux fixes to Peter A. changes
Browse files Browse the repository at this point in the history
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@2767 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
adrpo committed Apr 11, 2007
1 parent 7ad7c51 commit 342fd13
Showing 1 changed file with 13 additions and 16 deletions.
29 changes: 13 additions & 16 deletions Compiler/runtime/systemimpl.c
Expand Up @@ -502,8 +502,6 @@ RML_BEGIN_LABEL(System__cd)
}
RML_END_LABEL

#if defined(__MINGW32__) || defined(_MSC_VER)
#include <Windows.h>
RML_BEGIN_LABEL(System__pwd)
{
char buf[MAXPATHLEN];
Expand All @@ -520,19 +518,6 @@ RML_BEGIN_LABEL(System__pwd)
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
#else

RML_BEGIN_LABEL(System__pwd)
{
char buf[MAXPATHLEN];
getcwd(buf,MAXPATHLEN);
rmlA0 = (void*) mk_scon(buf);

RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
#endif


RML_BEGIN_LABEL(System__writeFile)
{
Expand Down Expand Up @@ -992,7 +977,19 @@ RML_BEGIN_LABEL(System__platform)
RML_TAILCALLK(rmlSC);
}
RML_END_LABEL
#else

#else /********************************* LINUX PART!!! *************************************/

RML_BEGIN_LABEL(System__pwd)
{
char buf[MAXPATHLEN];
getcwd(buf,MAXPATHLEN);
rmlA0 = (void*) mk_scon(buf);

RML_TAILCALLK(rmlSC);
}
RML_END_LABEL

RML_BEGIN_LABEL(System__platform)
{
rmlA0 = (void*) mk_scon("");
Expand Down

0 comments on commit 342fd13

Please sign in to comment.