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

Change type_id to the more descriptive type_ctor everywhere.

Browse Source 
Estimated hours taken: 6
Branches: main

compiler/*.m:
	Change type_id to the more descriptive type_ctor everywhere.
This commit is contained in:
Zoltan Somogyi
2002-03-07 08:30:28 +00:00
parent ed371cd28a
commit 41a27af862
63 changed files with 1250 additions and 1214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/mlds_to_java.m
View File

@@ -1390,7 +1390,6 @@ output_func(Indent, Name, CtorData, Context, Signature, MaybeBody)
io__write_string("}\n") % end the function
).
:- pred output_func_decl(indent, qualified_entity_name, ctor_data,
mlds__context, func_params, io__state, io__state).
:- mode output_func_decl(in, in, in, in, in, di, uo) is det.
@@ -1583,8 +1582,8 @@ output_mlds_var_name(var_name(Name, yes(Num))) -->
% XXX Most of this code doesn't yet work/hasn't been implemented in the Java
% backend.
%
output_data_name(rtti(RttiTypeId, RttiName)) -->
{ rtti__addr_to_string(RttiTypeId, RttiName, RttiAddrName) },
output_data_name(rtti(RttiTypeCtor, RttiName)) -->
{ rtti__addr_to_string(RttiTypeCtor, RttiName, RttiAddrName) },
io__write_string(RttiAddrName).
output_data_name(base_typeclass_info(ClassId, InstanceStr)) -->
{ llds_out__make_base_typeclass_info_name(ClassId, InstanceStr,
@@ -1701,8 +1700,8 @@ output_mercury_type(Type, TypeCategory) -->
:- mode output_mercury_user_type(in, in, di, uo) is det.
output_mercury_user_type(Type, TypeCategory) -->
( { type_to_type_id(Type, TypeId, _ArgsTypes) } ->
{ ml_gen_type_name(TypeId, ClassName, ClassArity) },
( { type_to_ctor_and_args(Type, TypeCtor, _ArgsTypes) } ->
{ ml_gen_type_name(TypeCtor, ClassName, ClassArity) },
( { TypeCategory = enum_type } ->
{ MLDS_Type = mlds__class_type(ClassName,
ClassArity, mlds__enum) }