mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 09:53:36 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
33 lines
900 B
Java
33 lines
900 B
Java
//
|
|
// Copyright (C) 2004 The University of Melbourne.
|
|
// Copyright (C) 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
//
|
|
|
|
package jmercury.runtime;
|
|
|
|
// This corresponds to the C type MR_TypeClassConstraint
|
|
// in runtime/mercury_type_info.h.
|
|
|
|
public class TypeClassConstraint implements java.io.Serializable {
|
|
public TypeClassDeclStruct tc_constr_type_class;
|
|
public PseudoTypeInfo tc_constr_arg_ptis[];
|
|
|
|
public TypeClassConstraint()
|
|
{
|
|
}
|
|
|
|
public void init(TypeClassDeclStruct type_class,
|
|
// XXX Object[] should be 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];
|
|
}
|
|
}
|
|
}
|