[Nice-commit] Nice/src/nice/tools/code Types.java,1.53,1.54

[<bo...@us...>]

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());