/* ChapelIO.chpl:179 */
static void chpl__init_ChapelIO(int64_t _ln, int32_t _fn) {
  c_string modFormatStr;
  c_string modStr;
  _ref_int32_t refIndentLevel = NULL;
#line 179 "ChapelIO.chpl"
  if (chpl__init_ChapelIO_p) /* ZLINE: 179 /home/agobin/Documents/chapel-1.13.0/modules/internal/ChapelIO.chpl */
#line 179 "ChapelIO.chpl"
  {
#line 179 "ChapelIO.chpl"
    goto _exit_chpl__init_ChapelIO;
#line 179 "ChapelIO.chpl"
  }
#line 179 "ChapelIO.chpl"
  modFormatStr = "%*s\n";
#line 179 "ChapelIO.chpl"
  modStr = "ChapelIO";
#line 179 "ChapelIO.chpl"
  printModuleInit(modFormatStr, modStr, INT64(8), _ln, _fn);
#line 179 "ChapelIO.chpl"
  refIndentLevel = &moduleInitLevel;
#line 179 "ChapelIO.chpl"
  *(refIndentLevel) += INT64(1);
#line 179 "ChapelIO.chpl"
  chpl__init_ChapelIO_p = UINT8(true);
#line 179 "ChapelIO.chpl"
  {
#line 179 "ChapelIO.chpl"
    chpl__init_ChapelBase(_ln, _fn);
#line 179 "ChapelIO.chpl"
    chpl__init_SysBasic(_ln, _fn);
#line 179 "ChapelIO.chpl"
    chpl__init_IO(_ln, _fn);
#line 179 "ChapelIO.chpl"
  }
#line 779 "ChapelIO.chpl"
  chpl__testParOn = UINT8(false);
#line 179 "ChapelIO.chpl"
  *(refIndentLevel) -= INT64(1);
#line 179 "ChapelIO.chpl"
  _exit_chpl__init_ChapelIO:;
#line 179 "ChapelIO.chpl"
  return;
#line 179 "ChapelIO.chpl"
}
Exemple #2
0
/* Error.chpl:1 */
static void chpl__init_Error(int64_t _ln, c_string _fn) {
  c_string modFormatStr;
  c_string modStr;
  _ref_int32_t refIndentLevel = NULL;
  if (chpl__init_Error_p) {
    goto _exit_chpl__init_Error;
  }
  modFormatStr = "%*s\n";
  modStr = "Error";
  printModuleInit(modFormatStr, modStr, INT64(5), _ln, _fn);
  refIndentLevel = &moduleInitLevel;
  *(refIndentLevel) += INT64(1);
  chpl__init_Error_p = true;
  {
    chpl__init_SysBasic(_ln, _fn);
  }
  *(refIndentLevel) -= INT64(1);
  _exit_chpl__init_Error:;
  return;
}