Mercurial > hg > Members > kono > os9 > sbc09
comparison os9/mc09/mclibos9.c @ 133:2562c18c904e
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 |