Changed C# template to reflect string-to-Path data structure change.

It didn't compile before this fix. I don't know if underscorePath is the correct replacement, but at least it compiles now. git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@4902 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Feb 2, 2010 · da1f066 · da1f066
1 parent 6bd879f
commit da1f066
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/Compiler/SimCodeCSharp.mo b/Compiler/SimCodeCSharp.mo
@@ -5289,7 +5289,7 @@ algorithm
         Absyn.Path i_name;
       equation
         txt = Tpl.writeTok(txt, Tpl.ST_STRING("/*struct*/"));
-        txt = Tpl.writeStr(txt, Absyn.pathString(i_name));
+        txt = underscorePath(txt, i_name);
       then txt;
 
     case ( txt,

diff --git a/Compiler/susan_codegen/SimCode/SimCodeCSharp.mo b/Compiler/susan_codegen/SimCode/SimCodeCSharp.mo
@@ -5286,10 +5286,10 @@ algorithm
     case ( txt,
            DAE.ET_COMPLEX(name = i_name) )
       local
-        String i_name;
+        Absyn.Path i_name;
       equation
         txt = Tpl.writeTok(txt, Tpl.ST_STRING("/*struct*/"));
-        txt = Tpl.writeStr(txt, i_name);
+        txt = underscorePath(txt, i_name);
       then txt;
 
     case ( txt,

diff --git a/Compiler/susan_codegen/SimCode/SimCodeCSharp.tpl b/Compiler/susan_codegen/SimCode/SimCodeCSharp.tpl
@@ -915,7 +915,7 @@ expShortType(DAE.ExpType) ::=
   case ET_BOOL   then "bool"
   case ET_OTHER  then "#complex#"
   case ET_ARRAY then expShortType(ty)   
-  case ET_COMPLEX then '/*struct*/<name>'  
+  case ET_COMPLEX then '/*struct*/<underscorePath(name)>'  
 
 expTypeArray(DAE.ExpType ty) ::=
 <<

diff --git a/Compiler/susan_codegen/SimCode/SimCodeTV.mo b/Compiler/susan_codegen/SimCode/SimCodeTV.mo
@@ -352,7 +352,7 @@ package DAE
       list<ExpVar> varLst;
     end ET_ENUMERATION;
     record ET_COMPLEX
-      String name;
+      Absyn.Path name;
       list<ExpVar> varLst; 
       ClassInf.State complexClassType;
     end ET_COMPLEX;
@@ -789,7 +789,7 @@ package ClassInf
       String string;
     end TYPE_ENUM;
     record EXTERNAL_OBJ
-      Absyn.Path fullClassName;
+      Absyn.Path path;
     end EXTERNAL_OBJ;
   end State;