Mercurial > hg > Members > kono > os9 > sbc09
diff 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 |
line wrap: on
line diff
--- a/os9/mc09/mclibos9.c Sun Jan 06 19:57:11 2019 +0900 +++ b/os9/mc09/mclibos9.c Sun Jan 06 22:38:04 2019 +0900 @@ -6,10 +6,10 @@ typedef struct { int fd; /* 0 */ int fmode; /* 2 */ - char length; /* 4 */ + int length; /* 4 */ char *fname; /* 6 */ char *ptr; /* 8 */ - char *buf; /* 10 */ + char *buf; /* 10 */ } FILE ; #define FCBSIZE (sizeof(FILE)) @@ -90,7 +90,7 @@ fclose(_fcbtbl[i]); } #asm - ldb 3,u + ldb 4,u os9 F$Exit #endasm } @@ -142,7 +142,7 @@ pshs x,y,u ldx -2,u lda 7,u mode - ldx 5,x name + ldx 6,x name os9 I$Open bcs _LC0001 ldx -2,u @@ -181,7 +181,7 @@ ldx -2,u lda 7,u mode ldb #3 - ldx 5,x name + ldx 6,x name os9 I$Create bcs _LC0003 ldx -2,u