diff --git a/src/language.yacc b/src/language.yacc index 8ef81e842eab7a2824f2b9039606285e8e385df5..3cc1a30ea272434849b04cb309d13fc3ebff1538 100644 --- a/src/language.yacc +++ b/src/language.yacc @@ -179,7 +179,7 @@ /* This is the grammar definition of Pike. */ #include "global.h" -RCSID("$Id: language.yacc,v 1.97 1998/05/20 02:14:28 hubbe Exp $"); +RCSID("$Id: language.yacc,v 1.98 1998/06/06 13:50:44 grubba Exp $"); #ifdef HAVE_MEMORY_H #include <memory.h> #endif @@ -1136,8 +1136,13 @@ lambda: F_LAMBDA sprintf(buf,"__lambda_%ld_%ld", (long)new_program->id, - local_class_counter++); + (long)(local_class_counter++ & 0xffffffff)); /* OSF/1 cc bug. */ name=make_shared_string(buf); + +#ifdef LAMBDA_DEBUG + fprintf(stderr, "%d: LAMBDA: %s 0x%08lx 0x%08lx\n", + compiler_pass, buf, (long)new_program->id, local_class_counter-1); +#endif /* LAMBDA_DEBUG */ f=dooptcode(name, $4,