===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/itvnum.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM_contrib2/asir2000/builtin/itvnum.c	2002/01/08 04:14:36	1.2
+++ OpenXM_contrib2/asir2000/builtin/itvnum.c	2005/02/08 16:42:39	1.3
@@ -1,5 +1,5 @@
 /*
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.1 2000/12/22 09:58:32 saito Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.2 2002/01/08 04:14:36 kondoh Exp $
  */
 
 #include "ca.h"
@@ -21,7 +21,7 @@ static void Pcup(NODE, Obj *);
 static void Pcap(NODE, Obj *);
 static void Pwidth(NODE, Obj *);
 static void Pdistance(NODE, Obj *);
-static void Pitvversion(Obj *);
+static void Pitvversion(Q *);
 #endif
 static void Pprintmode(NODE, Obj *);
 
@@ -58,7 +58,7 @@ struct ftab interval_tab[] = {
 static void
 Pitvversion(Obj *rp)
 {
-	STOQ(ASIR_VERSION,(Q)*rp);
+	STOQ(ASIR_VERSION, *rp);
 }
 
 extern int	bigfloat;