[BACK]Return to pvar.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/pvar.c between version 1.16 and 1.17

version 1.16, 2006/02/08 02:11:19 version 1.17, 2006/03/11 23:14:53
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.15 2005/10/26 07:33:03 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.16 2006/02/08 02:11:19 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 58  int gdef,mgdef,ldef;
Line 58  int gdef,mgdef,ldef;
 void mkpvs(char *fname)  void mkpvs(char *fname)
 {  {
         VS pvs;          VS pvs;
         char *fullname;          char *fullname,*buf;
         FUNC f;          FUNC f;
   
         if ( CUR_MODULE ) {          if ( CUR_MODULE ) {
                 /* function must be declared in advance */                  /* function must be declared in advance */
                 searchf(CUR_MODULE->usrf_list,fname,&f);                  searchf(CUR_MODULE->usrf_list,fname,&f);
                 if ( !f ) {                  if ( !f ) {
                         fprintf(stderr,"\"%s\", near line %d: undeclared function `%s'",                          buf = ALLOCA(strlen("undeclared function "+strlen(fname)+10));
                                 asir_infile->name,asir_infile->ln,fname);                          sprintf(buf,"undeclared function `%s'",fname);
                         error("");                          yyerror(buf);
                 }                  }
         }          }
         pvs = (VS)MALLOC(sizeof(struct oVS));          pvs = (VS)MALLOC(sizeof(struct oVS));
Line 132  void poppvs() {
Line 132  void poppvs() {
 unsigned int makepvar(char *str)  unsigned int makepvar(char *str)
 {  {
         int c,c1,created;          int c,c1,created;
           char *buf;
   
         if ( str[0] == '_' ) {          if ( str[0] == '_' ) {
                 /* pattern variable */                  /* pattern variable */
Line 232  unsigned int makepvar(char *str)
Line 233  unsigned int makepvar(char *str)
                         c = PVGLOBAL((unsigned int)c);                          c = PVGLOBAL((unsigned int)c);
                 } else {                  } else {
                         /* not declared as static or extern */                          /* not declared as static or extern */
                         fprintf(stderr,"\"%s\", near line %d: undeclared variable `%s'",                          buf = ALLOCA(strlen("undeclared variable"+strlen(str)+10));
                                 asir_infile->name,asir_infile->ln,str);                          sprintf(buf,"undeclared variable `%s'",str);
                         error("");                          yyerror(buf);
                 }                  }
         } else {          } else {
                 /* outside function, outside module */                  /* outside function, outside module */
Line 243  unsigned int makepvar(char *str)
Line 244  unsigned int makepvar(char *str)
         return c;          return c;
   
 CONFLICTION:  CONFLICTION:
         fprintf(stderr,"\"%s\", near line %d: conflicting declarations for `%s'",          buf = ALLOCA(strlen("conflicting declarations for "+strlen(str)+10));
                 asir_infile->name,asir_infile->ln,str);          sprintf(buf,"conflicting declarations for `%s'",str);
         error("");          yyerror(buf);
 }  }
   
 extern FUNC parse_targetf;  extern FUNC parse_targetf;
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>