- small fix to extends from basic type.

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@13717 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 30, 2012 · 3d3c19e · 3d3c19e
1 parent 1d312ab
commit 3d3c19e
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/Compiler/FrontEnd/SCodeInstShortcut.mo b/Compiler/FrontEnd/SCodeInstShortcut.mo
@@ -814,6 +814,7 @@ algorithm
       SCode.Visibility visibility;
       Option<SCode.Annotation> ann;
       InstInfo ii;
+      Boolean isBasic;
 
     case (SCode.EXTENDS(path, visibility, smod, ann, info),
         _, _, _, _, _, _)
@@ -838,14 +839,18 @@ algorithm
         smod = SCodeMod.removeRedeclaresFromMod(smod);
 
         name = Absyn.pathStringReplaceDot(path, "$");
-        name = "'" +& name +& "$ext_" +& SCodeEnv.getEnvName(inEnv) +& "'";
+        isBasic = isBasicType(name);
+        name = Util.if_(
+                isBasic, 
+                name, 
+                "'" +& name +& "$ext_" +& SCodeEnv.getEnvName(inEnv) +& "'");
 
         cls::classes = classes;
         cls = SCode.setClassName(name, cls);
         classes = cls::classes; 
 
         cls = SCode.EXTENDS(Absyn.IDENT(name), visibility, smod, ann, info);
-        classes = listAppend(classes, {cls});
+        classes = Util.if_(isBasic, {cls}, listAppend(classes, {cls}));
       then
         (classes, ii);