[BACK]Return to kanExport0.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/kanExport0.c between version 1.28 and 1.29

version 1.28, 2004/08/31 04:45:42 version 1.29, 2004/08/31 05:30:20
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.27 2004/08/28 07:28:54 takayama Exp $  */  /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.28 2004/08/31 04:45:42 takayama Exp $  */
 #include <stdio.h>  #include <stdio.h>
 #include "datatype.h"  #include "datatype.h"
 #include "stackm.h"  #include "stackm.h"
Line 1212  struct object KdataConversion(obj,key)
Line 1212  struct object KdataConversion(obj,key)
   return(NullObject);    return(NullObject);
 }  }
   
 /* cf. macro to_int */  /* cf. macro to_int32 */
 struct object Kto_int(struct object ob) {  struct object Kto_int32(struct object ob) {
   int n,i;    int n,i;
   struct object otmp;    struct object otmp;
   struct object rob;    struct object rob;
Line 1222  struct object Kto_int(struct object ob) {
Line 1222  struct object Kto_int(struct object ob) {
         n = getoaSize(ob);          n = getoaSize(ob);
         rob = newObjectArray(n);          rob = newObjectArray(n);
         for (i=0; i<n; i++) {          for (i=0; i<n; i++) {
           otmp = Kto_int(getoa(ob,i));            otmp = Kto_int32(getoa(ob,i));
           putoa(rob,i,otmp);            putoa(rob,i,otmp);
         }          }
         return rob;          return rob;
Line 1597  int KsetUpRing(ob1,ob2,ob3,ob4,ob5)
Line 1597  int KsetUpRing(ob1,ob2,ob3,ob4,ob5)
     }      }
   }    }
   
   ob4 = Kto_int(ob4); /* order matrix */    ob4 = Kto_int32(ob4); /* order matrix */
   oasize = getoaSize(ob4);    oasize = getoaSize(ob4);
   order = (int *)sGC_malloc(sizeof(int)*((2*n)*oasize+1));    order = (int *)sGC_malloc(sizeof(int)*((2*n)*oasize+1));
   if (order == (int *)NULL) errorKan1("%s\n","No memory.");    if (order == (int *)NULL) errorKan1("%s\n","No memory.");

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>