pike.git/ lib/ master.pike.in

2003-04-10

2003-04-10 02:02:33 by Martin Nilsson <mani@lysator.liu.se>

• 41d0af78eb870680b161d7f67c9eb5f7d93f1e11 (15 lines) (+12/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Compatibility stuff. Sigh.

Rev: lib/master.pike.in:1.270

6:   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.269 2003/04/10 00:31:07 nilsson Exp $ + // $Id: master.pike.in,v 1.270 2003/04/10 02:02:33 nilsson Exp $      #pike __REAL_VERSION__   
1979:   #endif /* __AUTO_BIGNUM__ */       program prog; -  if(currentversion <= Version(7,4)) +  if(Version(compat_major,compat_minor) <= Version(7,4))    prog = compile_string(    "mixed create(int argc, array(string) argv,array(string) env){"+    opts[1]+";}");
2116:    // The main reason for this catch is actually to get a new call    // to eval_instruction in interpret.c so that the debug and    // trace levels set above take effect in the bytecode evaluator. -  object script=prog(argv); +  object script; +  if(Version(compat_major,compat_minor) <= Version(7,4)) { +  script=prog(); +  } +  else { +  script=prog(argv); +  }    if(!script->main)    _error("Error: %s has no main().\n", argv[0]);    ret=script->main(sizeof(argv),argv,env);
3096:    //! Set the version in the object.    void create(int maj, int min)    { +  if(maj==-1) maj = __REAL_MAJOR__; +  if(min==-1) min = __REAL_MINOR__;    major = maj;    minor = min;    }