Branch: Tag:

2006-01-21

2006-01-21 14:32:36 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Added mkversionnode().

Rev: src/las.c:1.373
Rev: src/las.h:1.72

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: las.c,v 1.372 2006/01/20 17:56:46 grubba Exp $ + || $Id: las.c,v 1.373 2006/01/21 14:32:36 grubba Exp $   */      #include "global.h"
57:    case F_CONSTANT:    case F_LOCAL:    case F_THIS: +  case F_VERSION:    return 0;       default:
74:    case F_CONSTANT:    case F_LOCAL:    case F_THIS: +  case F_VERSION:    return 0;       default:
90:    case F_TRAMPOLINE:    case F_CONSTANT:    case F_LOCAL: +  case F_VERSION:    return 1;    }    return 0;
1297:    return mkefuncallnode(oper_id, arg1);   }    + node *debug_mkversionnode(int major, int minor) + { +  node *res = mkemptynode(); +  res->token = F_VERSION; + #ifdef __CHECKER__ +  _CDR(res) = 0; + #endif +  res->u.integer.a = major; +  res->u.integer.b = minor; + #ifdef SHARED_NODES +  res->hash = hash_node(res); + #endif /* SHARED_NODES */ +  return freeze_node(res); + } +    node *debug_mklocalnode(int var, int depth)   {    struct compiler_frame *f;