mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-11 03:45:33 +00:00
Code Issues Projects Releases Wiki Activity

Do not generate assignments to the variables that used to hold the

Browse Source 
Estimated hours taken: 0.5
Branches: main

util/mkinit.c:
	Do not generate assignments to the variables that used to hold the
	address of the type_ctor_infos of the variable arity type_ctor_infos,
	since those variables aren't needed anymore.

runtime/mercury_wrapper.[ch]:
	Delete those variables.
This commit is contained in:
Zoltan Somogyi
2002-09-25 07:54:13 +00:00
parent 06f2029688
commit f00567129e
3 changed files with 0 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
util/mkinit.c
View File

@@ -249,22 +249,6 @@ static const char mercury_funcs1[] =
" #endif\n"
"#endif\n"
"\n"
"#ifdef MR_HIGHLEVEL_CODE\n"
"extern const struct MR_TypeCtorInfo_Struct\n"
" mercury__builtin__builtin__type_ctor_info_func_0;\n"
"extern const struct MR_TypeCtorInfo_Struct\n"
" mercury__builtin__builtin__type_ctor_info_pred_0;\n"
"extern const struct MR_TypeCtorInfo_Struct\n"
" mercury__builtin__builtin__type_ctor_info_tuple_0;\n"
"#else\n"
"extern const struct MR_TypeCtorInfo_Struct\n"
" mercury_data_builtin__type_ctor_info_func_0;\n"
"extern const struct MR_TypeCtorInfo_Struct\n"
" mercury_data_builtin__type_ctor_info_pred_0;\n"
"extern const struct MR_TypeCtorInfo_Struct\n"
" mercury_data_builtin__type_ctor_info_tuple_0;\n"
"#endif\n"
"\n"
"void\n"
"mercury_init(int argc, char **argv, void *stackbottom)\n"
"{\n"
@@ -304,21 +288,6 @@ static const char mercury_funcs2[] =
" write_out_proc_statics;\n"
"#endif\n"
" MR_address_of_do_load_aditi_rl_code = %s;\n"
"#ifdef MR_HIGHLEVEL_CODE\n"
" MR_address_of_type_ctor_info_for_func ="
" &mercury__builtin__builtin__type_ctor_info_func_0;\n"
" MR_address_of_type_ctor_info_for_pred ="
" &mercury__builtin__builtin__type_ctor_info_pred_0;\n"
" MR_address_of_type_ctor_info_for_tuple ="
" &mercury__builtin__builtin__type_ctor_info_tuple_0;\n"
"#else\n"
" MR_address_of_type_ctor_info_for_func ="
" &mercury_data_builtin__type_ctor_info_func_0;\n"
" MR_address_of_type_ctor_info_for_pred ="
" &mercury_data_builtin__type_ctor_info_pred_0;\n"
" MR_address_of_type_ctor_info_for_tuple ="
" &mercury_data_builtin__type_ctor_info_tuple_0;\n"
"#endif\n"
"#ifdef MR_CONSERVATIVE_GC\n"
" MR_address_of_init_gc = init_gc;\n"
"#endif\n"