[Commit] nickle ChangeLog,1.136,1.137 type.c,1.64,1.65

[Keith Packard]

Committed by: keithp

Update of /local/src/CVS/nickle
In directory home.keithp.com:/tmp/cvs-serv16819

Modified Files:
	ChangeLog type.c 
Log Message:
2005-10-20  Keith Packard  <keithp at keithp.com>

	* type.c: (TypeBinaryIntegral):
	Permit any numeric type in this function, result
	type will always be integer. Let run-time system catch
	any representation problems.


Index: ChangeLog
===================================================================
RCS file: /local/src/CVS/nickle/ChangeLog,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -d -r1.136 -r1.137
--- ChangeLog	5 Oct 2005 06:17:07 -0000	1.136
+++ ChangeLog	20 Oct 2005 18:24:21 -0000	1.137
@@ -1,3 +1,10 @@
+2005-10-20  Keith Packard  <keithp at keithp.com>
+
+	* type.c: (TypeBinaryIntegral):
+	Permit any numeric type in this function, result
+	type will always be integer. Let run-time system catch
+	any representation problems.
+
 2005-09-04  Bart Massey <bart at cs.pdx.edu>
 
 	* parse-args.5c:

Index: type.c
===================================================================
RCS file: /local/src/CVS/nickle/type.c,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -d -r1.64 -r1.65
--- type.c	14 Jun 2004 06:43:33 -0000	1.64
+++ type.c	20 Oct 2005 18:24:22 -0000	1.65
@@ -618,6 +618,10 @@
 	    left = right;
 	return left;
     }
+    else if (TypeNumeric (left) &&  TypeNumeric (right))
+    {
+	return typePrim[rep_integer];
+    }
     return 0;
 }