- Fix parse.c when parsedebug is used

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

Parser/parse.c

@@ -324,15 +324,15 @@ void* parseFile(void* fileNameRML, int flags)
   bool parsedump     = check_debug_flag("parsedump");
   bool parseonly     = check_debug_flag("parseonly");
 
-  if (debug) { fprintf(stderr, "Starting parsing of file: %s\n", ModelicaParser_filename_C); }
-
   pANTLR3_UINT8               fName;
   pANTLR3_INPUT_STREAM        input;
   ModelicaParser_filename_C = RML_STRINGDATA(fileNameRML);
   /* For some reason we get undefined values if we use the old pointer; but only in rare cases */
   ModelicaParser_filename_RML = mk_scon((char*)ModelicaParser_filename_C);
   ModelicaParser_flags = flags;
 
+  if (debug) { fprintf(stderr, "Starting parsing of file: %s\n", ModelicaParser_filename_C); }
+
   int len = strlen(ModelicaParser_filename_C);
   if (len > 3 && 0==strcmp(ModelicaParser_filename_C+len-4,".mof"))
     ModelicaParser_flags |= PARSE_FLAT;
@@ -351,8 +351,6 @@ void* parseString(void* stringRML, int flags)
   bool parsedump     = check_debug_flag("parsedump");
   bool parseonly     = check_debug_flag("parseonly");
 
-  if (debug) { fprintf(stderr, "Starting parsing of file: %s\n", ModelicaParser_filename_C); }
-
   pANTLR3_UINT8               fName;
   pANTLR3_INPUT_STREAM        input;
 
@@ -361,6 +359,8 @@ void* parseString(void* stringRML, int flags)
   ModelicaParser_filename_RML = mk_scon((char*)ModelicaParser_filename_C);
   ModelicaParser_flags = flags;
 
+  if (debug) { fprintf(stderr, "Starting parsing of file: %s\n", ModelicaParser_filename_C); }
+
   fName  = (pANTLR3_UINT8)ModelicaParser_filename_C;
   char* data = RML_STRINGDATA(stringRML);
   input  = antlr3NewAsciiStringInPlaceStream(data,strlen(data),fName);