-Added Algorithm.isReinitStatement

-Fixed compilation of systemimpl.c for Visual Studio (All declarations at beginning of block for ANSI-C)


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

Compiler/Algorithm.mo

@@ -79,6 +79,16 @@ algorithm
   end matchcontinue;
 end algorithmEmpty;
 
+public function isReinitStatement "returns true if statement is a reinit"
+  input Statement stmt;
+  output Boolean res;
+algorithm
+  res := matchcontinue(stmt)
+    case(DAE.STMT_REINIT(var = _)) then true;
+    case(_) then false;  
+  end matchcontinue;
+end isReinitStatement;
+
 public function splitReinits ""
   input list<Algorithm> inAlgs;
   output list<Algorithm> reinits;

Compiler/runtime/systemimpl.c

@@ -40,6 +40,7 @@
 #include <shlwapi.h>
 #endif
 
+
 /*
  * Common includes
  */
@@ -2219,8 +2220,9 @@ RML_BEGIN_LABEL(System__getUUIDStr)
 {
   char outStr[36];
   char *uuidStr;
-  memset(&uuidStr,0,sizeof(char)*36);
   UUID uuid;
+  memset(&uuidStr,0,sizeof(char)*36);
+
   if (UuidCreate(&uuid) == RPC_S_OK)
   	UuidToString(&uuid, (unsigned char **)(&uuidStr));
   uuidStr[36] = '\0';