Skip to content

Commit

Permalink
- merge cases based on output from rml -Eunify (https://dev.openmodel…
Browse files Browse the repository at this point in the history
…ica.org/~adrpo/rml-unifications-original.txt)

- increase size given to GC_expand_hp to 300M to get a bit more speedup

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@23093 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
adrpo committed Oct 30, 2014
1 parent f6cf013 commit bc53862
Show file tree
Hide file tree
Showing 3 changed files with 143 additions and 144 deletions.
17 changes: 17 additions & 0 deletions Compiler/FFrontEnd/FNode.mo
Expand Up @@ -844,6 +844,16 @@ algorithm
end match;
end isClass;

public function isInstance
input Node inNode;
output Boolean b;
algorithm
b := match(inNode)
case FCore.N(data = FCore.CL(status = FCore.CLS_INSTANCE(_))) then true;
else false;
end match;
end isInstance;

public function isRedeclare
input Node inNode;
output Boolean b;
Expand Down Expand Up @@ -1399,6 +1409,13 @@ algorithm
b := isClass(fromRef(inRef));
end isRefClass;

public function isRefInstance
input Ref inRef;
output Boolean b;
algorithm
b := isInstance(fromRef(inRef));
end isRefInstance;

public function isRefRedeclare
input Ref inRef;
output Boolean b;
Expand Down

0 comments on commit bc53862

Please sign in to comment.