Update of /cvsroot/nice/Nice/src/nice/tools/code
In directory sc8-pr-cvs1:/tmp/cvs-serv1807/src/nice/tools/code
Modified Files:
Types.java
Log Message:
Made Object a super-type of every monotype.
Index: Types.java
===================================================================
RCS file: /cvsroot/nice/Nice/src/nice/tools/code/Types.java,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -d -r1.53 -r1.54
*** Types.java 8 Oct 2003 13:34:50 -0000 1.53
--- Types.java 3 Dec 2003 21:50:41 -0000 1.54
***************
*** 201,204 ****
--- 201,207 ----
return gnu.expr.Compilation.typeProcedure;
+ if (m == TopMonotype.instance)
+ return Type.pointer_type;
+
if (!(m instanceof MonotypeConstructor))
return null;
***************
*** 427,430 ****
--- 430,436 ----
throw new NotIntroducedClassException(null);
}
+
+ if (javaType == Type.pointer_type)
+ return TopMonotype.instance;
return getMonotype(javaType.getName());
|
