Mercurial > hg > Members > kono > os9 > sbc09

diff os9/mc09/mc.c @ 101:15569aa4098e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
micro c continue
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 27 Dec 2018 15:40:50 +0900
parents 990add11e9f8
children 096b3fc7aa66
line wrap: on
line diff
--- a/os9/mc09/mc.c	Thu Dec 27 11:49:54 2018 +0900
+++ b/os9/mc09/mc.c	Thu Dec 27 15:40:50 2018 +0900
@@ -183,6 +183,7 @@
 {NMTBL *nptr;
 int i;
 char *ccout;
+char *modname = "aout";
 	if(argc==1) exit(1);
 	lsrc = chk = asmf = 0;
 	ccout = "c.out";
@@ -196,6 +197,9 @@
 		case 'O': case 'o':
 			ccout = av[ac2]+2;
 			break;
+		case 'M': case 'm':
+			modname = av[ac2]+2;
+			break;
 		case 'C': case 'c':
 			chk = 1;
 			break;
@@ -204,8 +208,13 @@
 			exit(1);
 		}
 	fclose(stdout);
-	if (!chk)
+	if (!chk) {
 		if ( (obuf = fopen(ccout,"w")) == NULL ) error(FILERR);
+                else {
+                    printf("\tmod   _eom,_name,_tylg,_atrv,_main,_GLOBALS\n");    /* os9 module header */
+                    printf("_name      fcs   /%s/\n",modname);
+                }
+        }
 	init();
 	while(1)
 	{	for (nptr = &ntable[GSYMS],i=LSYMS; i--;)