mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-16 22:35:41 +00:00
d1cffc4523
Branches: main
RTTI improvements for Java backend. io.write/3 works for some simple types
(builtin types and non-existential d.u. types).
compiler/mlds_to_java.m:
Fix problem with cyclic RTTI definitions. Initialisers could refer to
other RTTI structures which weren't yet allocated, leading to fields
being null. The fix is to allocate all top-level RTTI objects first
and initialise in a second phase.
java/runtime/DuExistInfo.java:
java/runtime/DuExistLocn.java:
java/runtime/DuFunctorDesc.java:
java/runtime/EnumFunctorDesc.java:
java/runtime/ForeignEnumFunctorDesc.java:
java/runtime/TypeClassConstraint.java:
java/runtime/TypeClassDeclStruct.java:
java/runtime/TypeClassId.java:
java/runtime/TypeCtorInfo_Struct.java:
java/runtime/TypeInfo_Struct.java:
Separate constructors into constructors for the initial allocation,
and an `init' method to fill in the fields.
java/runtime/MethodPtr.java:
Use variadic method support to simplify semidet_call_* and
result_call_* in rtti_implementation.m.
library/builtin.m:
Make Java definitions of builtin.unify/2 and builtin.compare/3 call
rtti_implementation.generic_unify and generic_compare.
library/private_builtin.m:
Add missing MR_TYPECTOR_REP_FOREIGN_ENUM{,_USEREQ} constants
for C# and Java.
library/rtti_implementation.m:
Fix and add missing Java versions of many foreign_procs.
Add more attributes to foreign_procs.
Clean up the code a bit (fewer casts and ^ field access functions).
README.Java:
Bump Java version requirement to J2SE 1.5 or higher.
33 lines
908 B
Java
33 lines
908 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()
|
|
{
|
|
}
|
|
|
|
public void init(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;
|
|
}
|
|
}
|