pike.git/ src/ language.yacc

2000-02-17

2000-02-17 13:48:20 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 67abdc3884d54ce4d7efafdc181c64a53fb4d402 (23 lines) (+14/-9) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed double warnings.

Rev: src/language.yacc:1.165

188:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.164 2000/02/17 01:15:22 grubba Exp $"); + RCSID("$Id: language.yacc,v 1.165 2000/02/17 13:48:20 grubba Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
667:    int e;    /* construct the function type */    push_finished_type(compiler_frame->current_type); -  if ($3) { +  if ($3 && (compiler_pass == 2)) {    yywarning("The *-syntax in types is obsolete. Use array instead.");    }    while(--$3>=0) push_type(T_ARRAY);
1000:      type: type '*'    { +  if (compiler_pass == 2) {    yywarning("The *-syntax in types is obsolete. Use array instead."); -  +  }    push_type(T_ARRAY);    }    | type2
1008:      type7: type7 '*'    { +  if (compiler_pass == 2) {    yywarning("The *-syntax in types is obsolete. Use array instead."); -  +  }    push_type(T_ARRAY);    }    | type4
1307:    {    struct pike_string *type;    push_finished_type(compiler_frame->current_type); -  if ($1) { +  if ($1 && (compiler_pass == 2)) {    yywarning("The *-syntax in types is obsolete. Use array instead.");    }    while($1--) push_type(T_ARRAY);
1321:    {    struct pike_string *type;    push_finished_type(compiler_frame->current_type); -  if ($1) { +  if ($1 && (compiler_pass == 2)) {    yywarning("The *-syntax in types is obsolete. Use array instead.");    }    while($1--) push_type(T_ARRAY);
1360:   new_local_name: optional_stars F_IDENTIFIER    {    push_finished_type($<n>0->u.sval.u.string); -  if ($1) { +  if ($1 && (compiler_pass == 2)) {    yywarning("The *-syntax in types is obsolete. Use array instead.");    }    while($1--) push_type(T_ARRAY);
1372:    | optional_stars F_IDENTIFIER '=' expr0    {    push_finished_type($<n>0->u.sval.u.string); -  if ($1) { +  if ($1 && (compiler_pass == 2)) {    yywarning("The *-syntax in types is obsolete. Use array instead.");    }    while($1--) push_type(T_ARRAY);
1655:    debug_malloc_touch(compiler_frame->current_return_type);       push_finished_type($<n>0->u.sval.u.string); -  if ($1) { +  if ($1 && (compiler_pass == 2)) {    yywarning("The *-syntax in types is obsolete. Use array instead.");    }    while($1--) push_type(T_ARRAY);