source: vital-to8-sdk/mc09/src/diff_to_mc2

Last change on this file was 1, checked in by svn, 5 years ago

Import initial
File size: 2.3 KB
Line 
1*** mc.c        Tue Nov 24 18:58:43 1987
2--- mc2.c       Tue Nov 24 18:51:22 1987
3***************
4*** 1,9 ****
5 
6  #define DEBUG error(-1)
7 
8! /*#include "CCLIB.TXT"
9! */
10! #include <stdio.h>
11 
12  #define INT   (-1)
13  #define CHAR  (-2)
14--- 1,7 ----
15 
16  #define DEBUG error(-1)
17 
18! #include "mclib.c"
19 
20  #define INT   (-1)
21  #define CHAR  (-2)
22***************
23*** 147,153 ****
24  #define GSYMS 450
25  #define LSYMS 50
26 
27! #define HEAPSIZE      1000
28  #define CHEAPSIZE     3000
29  #define LBUFSIZE      256
30 
31--- 145,151 ----
32  #define GSYMS 450
33  #define LSYMS 50
34 
35! #define HEAPSIZE      700
36  #define CHEAPSIZE     3000
37  #define LBUFSIZE      256
38 
39***************
40*** 181,187 ****
41  char *ccout;
42        if(argc==1) exit(1);
43        lsrc = chk = asmf = 0;
44!       ccout = "c.out";
45        ac=argc;
46        av=argv;
47        for (ac2=1; (ac2 < ac) && (*av[ac2] == '-'); ++ac2)
48--- 179,185 ----
49  char *ccout;
50        if(argc==1) exit(1);
51        lsrc = chk = asmf = 0;
52!       ccout = "C.OUT";
53        ac=argc;
54        av=argv;
55        for (ac2=1; (ac2 < ac) && (*av[ac2] == '-'); ++ac2)
56***************
57*** 201,207 ****
58                }
59        fclose(stdout);
60        if (!chk)
61!               if ( (obuf = fopen(ccout,"w")) == NULL ) error(FILERR);
62        init();
63        while(1)
64        {       for (nptr = &ntable[GSYMS],i=LSYMS; i--;)
65--- 199,205 ----
66                }
67        fclose(stdout);
68        if (!chk)
69!               if ( (obuf = fopen(ccout,"wc")) == NULL ) error(FILERR);
70        init();
71        while(1)
72        {       for (nptr = &ntable[GSYMS],i=LSYMS; i--;)
73***************
74*** 322,328 ****
75  newfile()
76  {     lineno=0;
77        fprintf(stderr,"%s:\n",av[ac2]);
78!       if ( (filep->fcb = fopen(av[ac2++],"r")) == NULL ) error(FILERR);
79  }
80  reserve(s,d)
81  char *s;
82--- 320,326 ----
83  newfile()
84  {     lineno=0;
85        fprintf(stderr,"%s:\n",av[ac2]);
86!       if ( (filep->fcb = fopen(av[ac2++],"rc")) == NULL ) error(FILERR);
87  }
88  reserve(s,d)
89  char *s;
90***************
91*** 2749,2762 ****
92  }
93  FILE *getfname()
94  {int i;
95! char name[LBUFSIZE];
96        getch();
97        if(skipspc()!='"') error(INCERR);
98        for(i=0;(getch()!='"' && ch!='\n');)
99!               if(i<LBUFSIZE-1) name[i++]=ch;
100        if(ch=='\n') error(INCERR);
101        name[i]=0;
102!       return ( (filep+1)->fcb = fopen(name,"r") );
103  }
104  getline()
105  {int i;
106--- 2747,2760 ----
107  }
108  FILE *getfname()
109  {int i;
110! char name[14];
111        getch();
112        if(skipspc()!='"') error(INCERR);
113        for(i=0;(getch()!='"' && ch!='\n');)
114!               if(i<13) name[i++]=ch;
115        if(ch=='\n') error(INCERR);
116        name[i]=0;
117!       return ( (filep+1)->fcb = fopen(name,"rc") );
118  }
119  getline()
120  {int i;
Note: See TracBrowser for help on using the repository browser.