Mercurial > hg > CbC > old > device
comparison mc-parse.c @ 101:05f197a4573a
*** empty log message ***
author | kono |
---|---|
date | Sat, 15 Mar 2003 15:13:27 +0900 |
parents | 07c2554e1cfa |
children | 3cf2f8c120b9 |
comparison
equal
deleted
inserted
replaced
100:a9e6f2a2946f | 101:05f197a4573a |
---|---|
3385 for (p = chptr; *s;) if (*s++ != *p++) return 0; | 3385 for (p = chptr; *s;) if (*s++ != *p++) return 0; |
3386 chptr = p; | 3386 chptr = p; |
3387 return 1; | 3387 return 1; |
3388 } | 3388 } |
3389 | 3389 |
3390 void | |
3391 extern_define(char *s,int dsp,int type) | |
3392 { | |
3393 NMTBL *nptr0; | |
3394 int i; | |
3395 | |
3396 hash=0; name=namebuf; i=0; | |
3397 while((name[i++] = *s)) { | |
3398 hash=((7*hash) ^ *s++); | |
3399 } | |
3400 if (cheapp+i >= cheap+CHEAPSIZE) error(STRERR); | |
3401 name[i++] = 0; | |
3402 (nptr0 = gsearch())->sc = EXTRN; | |
3403 nptr0->dsp = dsp; nptr0->ty=type; | |
3404 } | |
3405 | |
3390 static void | 3406 static void |
3391 macro_define(char *macro) | 3407 macro_define(char *macro) |
3392 { | 3408 { |
3393 char *chptr_save; | 3409 char *chptr_save; |
3394 int chsave; | 3410 int chsave; |