Changeset 28f4207 in OpenModelica

Timestamp:

2014-05-30T16:04:22+02:00 (10 years ago)

Author:

Lennart Ochel <lennart.ochel@…>

Branches:

Added-citation-metadata, maintenance/v1.14, maintenance/v1.15, maintenance/v1.16, maintenance/v1.17, maintenance/v1.18, maintenance/v1.19, maintenance/v1.20, maintenance/v1.21, maintenance/v1.22, maintenance/v1.23, master, omlib-staging

Children:

6e0d6731

Parents:

19c18417

Message:

• workaround for builtin functions that are impure, but not marked as impure
• expected output (revert some bad changes from r20848)

git-svn-id: ​https://openmodelica.org/svn/OpenModelica/trunk@20907 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

File:

• Compiler/FrontEnd/Expression.mo (modified) (1 diff)

Compiler/FrontEnd/Expression.mo

@@ -7171 +7171 @@
     then ((e, true));
 
-    case (((e as DAE.CALL(path = Absyn.IDENT(name="sample"))), _))
+    // workaround for builtin functions that are impure, but not marked as impure
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="alarm"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="compareFilesAndMove"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="delay"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="initial"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="print"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="readFile"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="sample"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="system"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="system_parallel"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="terminal"), attr=DAE.CALL_ATTR(builtin=true))), _))
+    then ((e, true));
+
+    case (((e as DAE.CALL(path = Absyn.IDENT(name="writeFile"), attr=DAE.CALL_ATTR(builtin=true))), _))
     then ((e, true));