mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 21:35:49 +00:00
1e87a2cd36
Estimated hours taken: 0.25 Branches: main java/runtime/TypeClassConstraint.java: Add a new constructor which takes a PseudoTypeInfo[] array, and also a variant which takes an Object[] array. These are needed because the compiler sometimes generates calls to them.
85 lines
2.4 KiB
Java
85 lines
2.4 KiB
Java
//
|
|
// Copyright (C) 2004 The University of Melbourne.
|
|
// This file may only be copied under the terms of the GNU Library General
|
|
// Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
//
|
|
|
|
package mercury.runtime;
|
|
|
|
// This corresponds to the C type MR_TypeClassConstraint
|
|
// in runtime/mercury_type_info.h.
|
|
|
|
public class TypeClassConstraint {
|
|
public TypeClassDeclStruct tc_constr_type_class;
|
|
public PseudoTypeInfo tc_constr_arg_ptis[];
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = new PseudoTypeInfo[] {};
|
|
}
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class,
|
|
PseudoTypeInfo[] ptis)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = ptis;
|
|
}
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class,
|
|
// XXX Object[] should be mercury.runtime.PseudoTypeInfo[],
|
|
// but mlds_to_java.m generates Object[] since
|
|
// init_array/1 doesn't give type info
|
|
Object[] ptis)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = new PseudoTypeInfo[ptis.length];
|
|
for (int i = 0; i < ptis.length; i++) {
|
|
tc_constr_arg_ptis[i] = (PseudoTypeInfo) ptis[i];
|
|
}
|
|
}
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class,
|
|
PseudoTypeInfo pti1)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = new PseudoTypeInfo[] { pti1 };
|
|
}
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class,
|
|
PseudoTypeInfo pti1, PseudoTypeInfo pti2)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = new PseudoTypeInfo[] { pti1, pti2 };
|
|
}
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class,
|
|
PseudoTypeInfo pti1, PseudoTypeInfo pti2,
|
|
PseudoTypeInfo pti3)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = new PseudoTypeInfo[] { pti1, pti2, pti3 };
|
|
}
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class,
|
|
PseudoTypeInfo pti1, PseudoTypeInfo pti2,
|
|
PseudoTypeInfo pti3, PseudoTypeInfo pti4)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = new PseudoTypeInfo[]
|
|
{ pti1, pti2, pti3, pti4 };
|
|
}
|
|
|
|
public TypeClassConstraint(TypeClassDeclStruct type_class,
|
|
PseudoTypeInfo pti1, PseudoTypeInfo pti2,
|
|
PseudoTypeInfo pti3, PseudoTypeInfo pti4,
|
|
PseudoTypeInfo pti5)
|
|
{
|
|
tc_constr_type_class = type_class;
|
|
tc_constr_arg_ptis = new PseudoTypeInfo[] {
|
|
pti1, pti2, pti3, pti4, pti5 };
|
|
}
|
|
|
|
// XXX type classes with arity > 5 not supported
|
|
}
|