[BACK]Return to dm.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097

Diff for /OpenXM/src/k097/dm.c between version 1.2 and 1.7

version 1.2, 2000/01/21 03:01:25 version 1.7, 2021/03/12 06:45:55
Line 1 
Line 1 
 /* $OpenXM$ */  /* $OpenXM: OpenXM/src/k097/dm.c,v 1.6 2020/10/07 23:53:25 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include "d.h"  #include "d.h"
   
Line 6  int K00_verbose = 0;
Line 6  int K00_verbose = 0;
 extern int DebugMode;  extern int DebugMode;
   
 /* dm.c main program of d. */  /* dm.c main program of d. */
 main(int argc, char *argv[]) {  int main(int argc, char *argv[]) {
   int i;    int i;
   DebugMode = 0;    DebugMode = 0;
   if (argc >= 2) {    if (argc >= 2) {
Line 22  main(int argc, char *argv[]) {
Line 22  main(int argc, char *argv[]) {
   parseAfile(stdin);    parseAfile(stdin);
   /*  parseAstring("print(1+2);\nx=1+2;\n"); tests */    /*  parseAstring("print(1+2);\nx=1+2;\n"); tests */
   KCparse();    KCparse();
   exit(0);    return 0;
 }  }
   
   
Line 36  void *mymalloc(int size) {
Line 36  void *mymalloc(int size) {
   return((void *)malloc(size));    return((void *)malloc(size));
 }  }
   
 void *GC_malloc(int size) {  void *GC_malloc(size_t size) {
   return((void *)malloc(size));    return((void *)malloc(size));
 }  }
   void *sGC_malloc(size_t size) {
     return ((void *) GC_malloc(size));
   }
   
 sendKan(int p) { /* do nothing */ }  int sendKan(int p) { /* do nothing */ return 0; }
   
 /*           test new function           */  /*           test new function           */
 void testNewFunction(objectp op)  void testNewFunction(objectp op)
Line 55  void testNewFunction(objectp op)
Line 58  void testNewFunction(objectp op)
 }  }
   
 struct object KSpop() {  struct object KSpop() {
   struct object obj;    struct object obj = OINIT;
   obj.tag = 0;    obj.tag = 0;
   fprintf(stderr," Do not use Test.\n");    fprintf(stderr," Do not use Test.\n");
   return(obj);    return(obj);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>