Mercurial > hg > CbC > old > device

diff mc-codegen.c @ 348:e77b3a7002ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
name table reconfigure compiled. debug start.
author kono
date Fri, 02 Jul 2004 07:19:15 +0900
parents cef4d8eb9a26
children 43099915f4c2
line wrap: on
line diff
--- a/mc-codegen.c	Fri Jul 02 03:55:11 2004 +0900
+++ b/mc-codegen.c	Fri Jul 02 07:19:15 2004 +0900
@@ -2319,6 +2319,7 @@
 	n->ty = type;  /* must be in global table/heap */
     if(type>0&&(car(type)==FUNCTION || car(type)==CODE)) {
 	if ((mode==GDECL)) {
+	    n->next = global_list; global_list = n;
 	    fcheck(n);
 	    return n;
 	    /* function and code segment are defined using fdecl/code_decl */
@@ -2372,6 +2373,9 @@
 	n->sc = nsc;
 	if (stmode==LDECL) {
 	    n = new_static_name(n->nm,'.');
+	    n->next = local_static_list; local_static_list = n;
+	} else {
+	    n->next = global_list; global_list = n;
 	}
 	gpc +=sz;
 	return n;