xxx

OCamlPro · Nov 13, 2023 · 6c3d3cc · 6c3d3cc
1 parent cc0a5b2
commit 6c3d3cc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/libcob/Makefile.am b/libcob/Makefile.am
@@ -22,7 +22,9 @@
 lib_LTLIBRARIES = libcob.la
 libcob_la_SOURCES = common.c move.c numeric.c strings.c \
 	fileio.c call.c intrinsic.c termio.c screenio.c reportio.c cobgetopt.c \
-	mlio.c coblocal.h cconv.c system.def profiling.c
+	mlio.c coblocal.h cconv.c system.def
+
+# Fabrice profiling.c
 
 if LOCAL_CJSON
 nodist_libcob_la_SOURCES = cJSON.c

diff --git a/libcob/common.c b/libcob/common.c
@@ -495,10 +495,12 @@ static struct config_tbl gc_conf[] = {
 	{"COB_CORE_ON_ERROR", "core_on_error", 	"0", 	coeopts, GRP_MISC, ENV_UINT | ENV_ENUMVAL, SETPOS (cob_core_on_error)},
 	{"COB_CORE_FILENAME", "core_filename", 	"./core.libcob", 	NULL, GRP_MISC, ENV_STR, SETPOS (cob_core_filename)},
 	{"COB_DUMP_FILE", "dump_file",		NULL,	NULL, GRP_MISC, ENV_FILE, SETPOS (cob_dump_filename)},
+	/*
 	{"COB_PROF_FILE", "prof_file",		NULL,	NULL, GRP_MISC, ENV_FILE, SETPOS (cob_prof_filename)},
 	{"COB_PROF_DISABLE", "prof_disable",		"0",	NULL, GRP_MISC, ENV_BOOL, SETPOS (cob_prof_disable)},
 	{"COB_PROF_MAX_DEPTH", "prof_max_depth",        "255",	NULL, GRP_MISC, ENV_UINT, SETPOS (cob_prof_max_depth)},
 	{"COB_IS_RUNNING_IN_TESTMODE", "testsuite_mode",	"0",	NULL, GRP_MISC, ENV_BOOL, SETPOS (cob_testsuite_mode)},
+	*/
 	{"COB_DUMP_WIDTH", "dump_width",		"100",	NULL, GRP_MISC, ENV_UINT, SETPOS (cob_dump_width)},
 #ifdef  _WIN32
 	/* checked before configuration load if set from environment in cob_common_init() */
@@ -3019,7 +3021,7 @@ call_exit_handlers_and_terminate (void)
 			h = h->next;
 		}
 	}
-	// cob_prof_end();
+	// Fabrice cob_prof_end();
 	cob_terminate_routines ();
 }
 
@@ -10166,7 +10168,7 @@ cob_init (const int argc, char **argv)
 	cob_init_numeric (cobglobptr);
 	cob_init_strings (cobglobptr);
 	cob_init_move (cobglobptr, cobsetptr);
-	// cob_init_prof (cobglobptr, cobsetptr);
+	// Fabrice cob_init_prof (cobglobptr, cobsetptr);
 	cob_init_intrinsic (cobglobptr);
 	cob_init_fileio (cobglobptr, cobsetptr);
 	cob_init_call (cobglobptr, cobsetptr, check_mainhandle);