===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/rat.c,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -p -r1.1 -r1.4
--- OpenXM/src/kan96xx/Kan/rat.c	1999/10/08 02:12:02	1.1
+++ OpenXM/src/kan96xx/Kan/rat.c	2005/06/16 05:07:23	1.4
@@ -1,5 +1,5 @@
+/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.3 2001/05/04 01:06:25 takayama Exp $ */
 
-
 /* rat.c: rational functions */
 #include <stdio.h>
 #include "datatype.h"
@@ -11,10 +11,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 +24,7 @@ objectp op2;
 
   
 int KisZeroObject(op)
-objectp op;
+     objectp op;
 {
   switch(op->tag) {
   case Spoly:
@@ -42,7 +42,7 @@ objectp op;
 }
 
 objectp copyObjectp(op)
-objectp op;
+     objectp op;
 {
   objectp rop;
   rop = newObject();
@@ -51,14 +51,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);
 }