- Fix some F77 code generation issues (char* vs. char**, etc)

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@9698 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Aug 26, 2011 · a4862ff · a4862ff
1 parent e1cb937
commit a4862ff
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Compiler/susan_codegen/SimCode/SimCodeC.tpl b/Compiler/susan_codegen/SimCode/SimCodeC.tpl
@@ -2690,7 +2690,7 @@ template extTypeF77(ExpType type, Boolean isReference)
   let s = match type
   case ET_INT(__)         then "int"
   case ET_REAL(__)        then "double"
-  case ET_STRING(__)      then "char*"
+  case ET_STRING(__)      then "char"
   case ET_BOOL(__)        then "int"
   case ET_ENUMERATION(__) then "int"
   case ET_ARRAY(__)       then extTypeF77(ty, true)
@@ -6220,6 +6220,7 @@ template expTypeFromExpFlag(Exp exp, Integer flag)
   case BOX(__)
   case CONS(__)
   case LIST(__)
+  case SIZE(__)          then expTypeFlag(typeof(exp), flag)
 
   case META_TUPLE(__)
   case META_OPTION(__)