gensym.tcl

windows下的GDB insight前端

# gensym.tcl - Generate new symbols.
# Copyright (C) 1997 Cygnus Solutions.
# Written by Tom Tromey <[e-mail]>.

# Internal counter used to provide new symbol names.
defvar GENSYM_counter 0

# Return a new "symbol".  This proc hopes that nobody else decides to
# use its prefix.
proc gensym {} {
  global GENSYM_counter
  return __gensym_symbol_[incr GENSYM_counter]
}