changeset 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
files os9/mc09/mc.c os9/mc09/mclibos9.c
diffstat 2 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/os9/mc09/mc.c	Sun Jan 06 19:57:11 2019 +0900
+++ b/os9/mc09/mc.c	Sun Jan 06 22:38:04 2019 +0900
@@ -224,7 +224,7 @@
 		if ( (obuf = fopen(ccout,"w")) == NULL ) error(FILERR);
                 else {
                     /* we'l resize data area later */
-                    printf("\tmod   _eom,_name,_tylg,_atrv,_start,4096\n");    /* os9 module header */
+                    printf("\tmod   _eom,_name,_tylg,_atrv,_start,1024\n");    /* os9 module header */
                     printf("_name      fcs   /%s/\n\tfcb 0\n",modname);
                 }
         }
--- 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