===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/rat.c,v
retrieving revision 1.1.1.1
retrieving revision 1.5
diff -u -p -r1.1.1.1 -r1.5
--- OpenXM/src/kan96xx/Kan/rat.c	1999/10/08 02:12:02	1.1.1.1
+++ OpenXM/src/kan96xx/Kan/rat.c	2005/07/03 11:08:54	1.5
@@ -1,7 +1,8 @@
+/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.4 2005/06/16 05:07:23 takayama Exp $ */
 
-
 /* rat.c: rational functions */
 #include <stdio.h>
+#include <stdlib.h>
 #include "datatype.h"
 #include "stackm.h"
 #include "extern.h"
@@ -11,10 +12,10 @@ static void errorRationalFunction(char *str);
 static void warningRationalFunction(char *str);
 
 struct object KnewRationalFunction0(op1,op2)
-objectp op1;
-objectp op2;
+     objectp op1;
+     objectp op2;
 {
-  struct object rob;
+  struct object rob = OINIT;
   rob.tag = SrationalFunction;
   Knumerator(rob) = op1;
   Kdenominator(rob) = op2;
@@ -24,7 +25,7 @@ objectp op2;
 
   
 int KisZeroObject(op)
-objectp op;
+     objectp op;
 {
   switch(op->tag) {
   case Spoly:
@@ -42,7 +43,7 @@ objectp op;
 }
 
 objectp copyObjectp(op)
-objectp op;
+     objectp op;
 {
   objectp rop;
   rop = newObject();
@@ -51,14 +52,14 @@ objectp op;
 }
 
 void errorRationalFunction(str)
-char *str;
+     char *str;
 {
   fprintf(stderr,"Error(rat.c): %s\n",str);
   exit(20);
 }
 
 void warningRationalFunction(str)
-char *str;
+     char *str;
 {
   fprintf(stderr,"Warning(rat.c): %s\n",str);
 }