Fix comments.

This commit is contained in:
Zoltan Somogyi
2015-12-17 00:07:11 +11:00
parent 894fac9ea7
commit 7c8eeadabf
2 changed files with 7 additions and 4 deletions

View File

@@ -432,14 +432,14 @@ MR_String MR_make_string(MR_AllocSiteInfoPtr alloc_id, const char *fmt, ...);
/*
** Advance `*pos' to the beginning of the next code point in `s'.
** If `*pos' is already at the end of the string then return MR_FALSE
** If `*pos' is already at the end of the string, return MR_FALSE
** without modifying `*pos'.
*/
extern MR_bool MR_utf8_next(const MR_String s_, MR_Integer *pos);
/*
** Rewind `*pos' to the beginning of the previous code point in `s'.
** If `*pos' is already at the beginning of the string then return MR_FALSE
** If `*pos' is already at the beginning of the string, return MR_FALSE
** without modifying `*pos'.
*/
extern MR_bool MR_utf8_prev(const MR_String s_, MR_Integer *pos);

View File

@@ -231,6 +231,8 @@ MR_trace_lookup_trace_count(const MR_LabelLayout *label_layout)
return &(module_layout->MR_ml_label_exec_count[label_number]);
}
/**************************************************************************/
#define INIT_MODULE_TABLE_SIZE 10
const MR_ModuleLayout **MR_module_infos;
@@ -246,10 +248,11 @@ MR_insert_module_info_into_module_table(const MR_ModuleLayout *module)
INIT_MODULE_TABLE_SIZE, MR_ALLOC_SITE_NONE);
MR_prepare_insert_into_sorted(MR_module_infos, MR_module_info_next, slot,
strcmp(MR_module_infos[slot]->MR_ml_name, module->MR_ml_name));
MR_module_infos[slot] = module;
}
/**************************************************************************/
static void MR_trace_write_quoted_atom(FILE *fp, const char *atom);
static void MR_trace_write_string(FILE *fp, const char *atom);
static unsigned MR_trace_write_label_exec_counts_for_file(FILE *fp,
@@ -339,7 +342,7 @@ MR_trace_record_label_exec_counts(void *dummy)
snprintf(name, name_len, ".%s.%s.%d", MERCURY_TRACE_COUNTS_PREFIX,
program_name, getpid());
/* make sure name is an acceptable filename */
/* Make sure name is an acceptable filename. */
for (s = name; *s != '\0'; s++) {
if (*s == '/') {
*s = '_';