Branch: Tag:

2000-02-09

2000-02-09 23:49:17 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfixes..

Rev: src/las.c:1.162
Rev: src/mapping.c:1.65

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.161 2000/02/09 18:52:11 hubbe Exp $"); + RCSID("$Id: las.c,v 1.162 2000/02/09 23:49:16 hubbe Exp $");      #include "language.h"   #include "interpret.h"
1097:    */    if(IDENTIFIER_IS_CONSTANT(i->identifier_flags))    { +  if(i->func.offset != -1) +  {    push_svalue(&PROG_FROM_INT(p, numid)->constants[i->func.offset].sval);    }else{ -  +  if(compiler_pass!=1) +  yyerror("Constant is not defined yet."); +  push_int(0); +  } +  }else{    my_yyerror("Identifier '%s' is not a constant", i->name->str);    push_int(0);    }