mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 20:34:19 +00:00
Branches: main
Mark Java RTTI classes as implementing java.io.Serializable to
enable serialization of existentially typed values.
java/runtime/DuExistInfo.java:
java/runtime/DuExistLocn.java:
java/runtime/DuFunctorDesc.java:
java/runtime/DuPtagLayout.java:
java/runtime/EnumFunctorDesc.java:
java/runtime/ForeignEnumFunctorDesc.java:
java/runtime/MethodPtr.java:
java/runtime/NotagFunctorDesc.java:
java/runtime/PseudoTypeInfo.java:
java/runtime/ReservedAddrFunctorDesc.java:
java/runtime/Sectag_Locn.java:
java/runtime/TypeClassConstraint.java:
java/runtime/TypeClassDeclStruct.java:
java/runtime/TypeClassId.java:
java/runtime/TypeClassMethod.java:
java/runtime/TypeCtorInfo_Struct.java:
java/runtime/TypeCtorRep.java:
java/runtime/TypeFunctors.java:
java/runtime/TypeInfo_Struct.java:
java/runtime/TypeLayout.java:
As above.
TypeCtorInfo_Struct.unify() cannot rely on the uniqueness of
TypeCtorInfo_Struct instances, as deserialisation will create new
copies.
32 lines
875 B
Java
32 lines
875 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 jmercury.runtime;
|
|
|
|
public class DuExistInfo implements java.io.Serializable {
|
|
|
|
public int exist_typeinfos_plain;
|
|
public int exist_typeinfos_in_tci;
|
|
public int exist_tcis;
|
|
public /* final */ DuExistLocn[] exist_typeinfo_locns;
|
|
public /* final */ TypeClassConstraint[] exist_constraints;
|
|
|
|
public DuExistInfo()
|
|
{
|
|
}
|
|
|
|
public void init(int typeinfos_plain, int typeinfos_in_tci, int tcis,
|
|
DuExistLocn[] typeinfo_locns,
|
|
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;
|
|
}
|
|
}
|