pike.git / src / bignum.c

version» Context lines:

pike.git/src/bignum.c:21:       if(sp[-1].type != T_FUNCTION)    error("Failed to resolv Gmp.mpz!\n");       auto_bignum_program=sp[-1];    sp--;    dmalloc_touch_svalue(sp);    }   }    + struct program *get_auto_bignum_program(void) + { +  resolve_auto_bignum_program(); +  return program_from_function(&auto_bignum_program); + } +  + struct program *get_auto_bignum_program_or_zero(void) + { +  if(!gmp_library_loaded) return 0; +  resolve_auto_bignum_program(); +  return program_from_function(&auto_bignum_program); + } +    void exit_auto_bignum(void)   {    free_svalue(&auto_bignum_program);    auto_bignum_program.type=T_INT;   }      void convert_stack_top_to_bignum(void)   {    resolve_auto_bignum_program();    apply_svalue(&auto_bignum_program, 1);