Branch: Tag:

1999-12-05

1999-12-05 15:36:28 by Henrik Grubbström (Grubba) <grubba@grubba.org>

-dT now forces #pragma strict_types.

Rev: src/program.c:1.177

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.176 1999/11/30 07:50:20 hubbe Exp $"); + RCSID("$Id: program.c,v 1.177 1999/12/05 15:36:28 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
2795:       lex.current_line=1;    lex.current_file=make_shared_string("-"); -  lex.pragmas=0; +  if (debug_options & DEBUG_TYPES) { +  lex.pragmas = ID_STRICT_TYPES; +  } else { +  lex.pragmas = 0; +  }       low_start_new_program(0,0,0);    if(lex.current_file)
3322:       if (!p) return 0;    -  if (!s->subtype) { +     if ((call_fun = FIND_LFUN(p, LFUN_CALL)) >= 0) {    /* Get the program from the return type. */    struct identifier *id = ID_FROM_INT(p, call_fun);    /* FIXME: do it. */ -  +  /* fprintf(stderr, "Object type has `()().\n"); */    return 0;    } -  } +     push_svalue(s);    f_object_program(1);    p=program_from_svalue(sp-1);