mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 05:12:33 +00:00
647f7965ea
Estimated hours taken: 3 Branches: main Some fixes to the Java back-end, to make it work again after Zoltan's recent type class RTTI changes. java/runtime/DuExistInfo.java: Add a new field "exist_constraints" to the DuExistInfo type and a corresponding argument to the constructor, to match Zoltan's recent changes. java/runtime/TypeClassId.java: java/runtime/TypeClassMethod.java: java/runtime/TypeClassDeclStruct.java: java/runtime/TypeClassConstraint.java: New files. These correspond to the C types MR_TypeClassId, MR_TypeClassMethod, MR_TypeClassDeclStruct, and MR_TypeClassConstraint in the C runtime. java/runtime/TypeCtorInfo_Struct.java: Add a comment. compiler/rtti_to_mlds.m: Don't cast null pointers to mlds__generic_type; they should have the right type already. Casting to mlds__generic_type here causes type errors for the Java back-end, because in Java there are no implicit conversions from Object (unlike C, which allows implicit conversions from `void *'). compiler/rtti.m: Change tc_rtti_name_java_type so that it maps the new typeclass-related RTTI types to the appropriate Java types. library/private_builtin.m: Define MR_PREDICATE and MR_FUNCTION. java/runtime/PredFunc.java: Fix a bug in my previous change: s/MR_PRED/MR_PREDICATE/ s/MR_FUNC/MR_FUNCTION/
29 lines
881 B
Java
29 lines
881 B
Java
//
|
|
// Copyright (C) 2001-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;
|
|
|
|
public class DuExistInfo {
|
|
|
|
public int exist_typeinfos_plain;
|
|
public int exist_typeinfos_in_tci;
|
|
public int exist_tcis;
|
|
public /* final */ mercury.runtime.DuExistLocn[] exist_typeinfo_locns;
|
|
public /* final */ mercury.runtime.TypeClassConstraint[]
|
|
exist_constraints;
|
|
|
|
public DuExistInfo(int typeinfos_plain, int typeinfos_in_tci, int tcis,
|
|
mercury.runtime.DuExistLocn[] typeinfo_locns,
|
|
mercury.runtime.TypeClassConstraint constraints[])
|
|
{
|
|
exist_typeinfos_plain = typeinfos_plain;
|
|
exist_typeinfos_in_tci = typeinfos_in_tci;
|
|
exist_tcis = tcis;
|
|
exist_typeinfo_locns = typeinfo_locns;
|
|
exist_constraints = constraints;
|
|
}
|
|
}
|