mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 05:12:33 +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.
32 lines
885 B
Java
32 lines
885 B
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 typedef "MR_TypeClassDeclStruct"
|
|
// in runtime/mercury_types.h, i.e. the C struct
|
|
// "struct MR_TypeClassDecl_Struct" in runtime/mercury_typeclass_info.h.
|
|
|
|
public class TypeClassDeclStruct {
|
|
public TypeClassId tc_decl_id;
|
|
public int tc_decl_version_number;
|
|
public int tc_decl_num_supers; // redundant
|
|
public TypeClassConstraint tc_decl_supers;
|
|
|
|
public TypeClassDeclStruct()
|
|
{
|
|
}
|
|
|
|
public void init(TypeClassId id, int version_number,
|
|
int num_supers, TypeClassConstraint supers)
|
|
{
|
|
tc_decl_id = id;
|
|
tc_decl_version_number = version_number;
|
|
tc_decl_num_supers = num_supers;
|
|
tc_decl_supers = supers;
|
|
}
|
|
}
|