Mercurial > hg > Members > kono > os9 > sbc09

comparison os9/mc09/mclibos9.c @ 133:2562c18c904e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
malloc for mc2 wrong...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 06 Jan 2019 22:38:04 +0900
parents 36000611014b
children 42592ea2966f
comparison
equal deleted inserted replaced
132:36000611014b 133:2562c18c904e
4 int errno = 0; 4 int errno = 0;
5 5
6 typedef struct { 6 typedef struct {
7 int fd; /* 0 */ 7 int fd; /* 0 */
8 int fmode; /* 2 */ 8 int fmode; /* 2 */
9 char length; /* 4 */ 9 int length; /* 4 */
10 char *fname; /* 6 */ 10 char *fname; /* 6 */
11 char *ptr; /* 8 */ 11 char *ptr; /* 8 */
12 char *buf; /* 10 */ 12 char *buf; /* 10 */
13 } FILE ; 13 } FILE ;
14 14
15 #define FCBSIZE (sizeof(FILE)) 15 #define FCBSIZE (sizeof(FILE))
16 #define BUFSIZ 256 16 #define BUFSIZ 256
17 17
88 for ( i = 3; i < NFILES; i++ ) { 88 for ( i = 3; i < NFILES; i++ ) {
89 if (_fcbtbl[i]) 89 if (_fcbtbl[i])
90 fclose(_fcbtbl[i]); 90 fclose(_fcbtbl[i]);
91 } 91 }
92 #asm 92 #asm
93 ldb 3,u 93 ldb 4,u
94 os9 F$Exit 94 os9 F$Exit
95 #endasm 95 #endasm
96 } 96 }
97 97
98 initfp(fp,d) 98 initfp(fp,d)
140 if ( _setname(name,fcbp) == 0 ) return NULL; 140 if ( _setname(name,fcbp) == 0 ) return NULL;
141 #asm 141 #asm
142 pshs x,y,u 142 pshs x,y,u
143 ldx -2,u 143 ldx -2,u
144 lda 7,u mode 144 lda 7,u mode
145 ldx 5,x name 145 ldx 6,x name
146 os9 I$Open 146 os9 I$Open
147 bcs _LC0001 147 bcs _LC0001
148 ldx -2,u 148 ldx -2,u
149 tfr a,b 149 tfr a,b
150 clra 150 clra
179 #asm 179 #asm
180 pshs x,y,u 180 pshs x,y,u
181 ldx -2,u 181 ldx -2,u
182 lda 7,u mode 182 lda 7,u mode
183 ldb #3 183 ldb #3
184 ldx 5,x name 184 ldx 6,x name
185 os9 I$Create 185 os9 I$Create
186 bcs _LC0003 186 bcs _LC0003
187 ldx -2,u 187 ldx -2,u
188 tfr a,b 188 tfr a,b
189 clra 189 clra