===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/kanExport0.c,v
retrieving revision 1.46
retrieving revision 1.49
diff -u -p -r1.46 -r1.49
--- OpenXM/src/kan96xx/Kan/kanExport0.c	2005/09/27 06:10:43	1.46
+++ OpenXM/src/kan96xx/Kan/kanExport0.c	2015/10/08 11:49:37	1.49
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.45 2005/07/03 11:08:53 ohara Exp $  */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.48 2012/09/16 01:53:08 takayama Exp $  */
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
@@ -940,6 +940,7 @@ struct object KdataConversion(obj,key)
       rob = newObjectArray(0);
       return rob;
     }else{
+      /* fprintf(stderr,"key=%s\n",key); */
       warningKan("Sorry. The data conversion from null to this data type has not supported yet.\n");
     }
     break;
@@ -1659,6 +1660,7 @@ int KsetUpRing(ob1,ob2,ob3,ob4,ob5)
   newRingp->cc = cc;
   newRingp->x = xvars;
   newRingp->D = dvars;
+  newRingp->Dsmall = makeDsmall(dvars,n);
   /* You don't need to set order and orderMatrixSize here.
      It was set by setOrder(). */
   setFromTo(newRingp);
@@ -3342,9 +3344,9 @@ errorKan1(str,message)
   stdOperandStack(); contextControl(CCRESTORE);
   /* fprintf(stderr,"Now. Long jump!\n"); */
 #if defined(__CYGWIN__)
-  siglongjmp(EnvOfStackMachine,1);
+  MYSIGLONGJMP(EnvOfStackMachine,1);
 #else
-  longjmp(EnvOfStackMachine,1);
+  MYLONGJMP(EnvOfStackMachine,1);
 #endif
 }