version 1.23, 2016/03/31 03:22:54 |
version 1.25, 2018/09/07 00:15:44 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.22 2013/11/06 06:44:48 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.24 2016/03/31 05:27:34 takayama Exp $ */ |
/* primitive.c */ |
/* primitive.c */ |
/* The functions in this module were in stackmachine.c */ |
/* The functions in this module were in stackmachine.c */ |
|
|
|
|
#include "kclass.h" |
#include "kclass.h" |
#include <sys/types.h> |
#include <sys/types.h> |
#include <sys/times.h> |
#include <sys/times.h> |
#include "../plugin/mysig.h" |
#include "mysig.h" |
|
|
int PrintDollar = 1; /* flag for printObject() */ |
int PrintDollar = 1; /* flag for printObject() */ |
int PrintComma = 1; /* flag for printObject() */ |
int PrintComma = 1; /* flag for printObject() */ |
Line 281 void printObject(ob,nl,fp) |
|
Line 281 void printObject(ob,nl,fp) |
|
printObjectList(&ob); |
printObjectList(&ob); |
break; |
break; |
case Sfile: |
case Sfile: |
fprintf(fp,"Name=%s, FILE *=%x ",ob.lc.str,(int) ob.rc.file); |
fprintf(fp,"Name=%s, FILE *=%p ",ob.lc.str,ob.rc.file); |
break; |
break; |
case Sring: |
case Sring: |
fprintf(fp,"Ring."); KshowRing(KopRingp(ob)); |
fprintf(fp,"Ring."); KshowRing(KopRingp(ob)); |