diff options
author | Jason Molenda <jsm@bugshack.cygnus.com> | 2000-02-07 00:19:45 +0000 |
---|---|---|
committer | Jason Molenda <jsm@bugshack.cygnus.com> | 2000-02-07 00:19:45 +0000 |
commit | 4a0a51e37f1d7dd770d0306310c82c3aaeb8baa7 (patch) | |
tree | 9af57893831870241bb5ce54310653be97a51621 /gdb/gdbtk/library/blockframe.ith | |
parent | b7ebfe07f32e9873605d6ff420e63f1c9b627559 (diff) | |
download | gdb-4a0a51e37f1d7dd770d0306310c82c3aaeb8baa7.tar.gz |
Initial revision
Diffstat (limited to 'gdb/gdbtk/library/blockframe.ith')
-rw-r--r-- | gdb/gdbtk/library/blockframe.ith | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/gdb/gdbtk/library/blockframe.ith b/gdb/gdbtk/library/blockframe.ith new file mode 100644 index 00000000000..a147f7c60a7 --- /dev/null +++ b/gdb/gdbtk/library/blockframe.ith @@ -0,0 +1,63 @@ +# Class definitions for blocks and frames for GDBtk. +# Copyright 1997, 1998, 1999 Cygnus Solutions +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License (GPL) as published by +# the Free Software Foundation; either version 2 of the License, or (at +# your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +class Block { + + public { + method constructor {start end args} + method destructor {} + method variables {} + method update {} + method info {} + } + + private { + # Start and end address for this block + variable _start + variable _end + + # List of variables (new) variables defined in this block + variable _variables + + method _findVariables {} + } +} + +class Frame { + + public { + method constructor {addr} + method destructor {} + method variables {} + method update {} + method new {} + method old {} + method deleteOld {} + method address {} { return $_addr } + } + + private { + method _createBlocks {blocks} + method _addBlock {block} + method _findBlock {block} + method _findBlockIndex {block} + method _removeBlock {blockObj} + method _oldBlocks {} + + # Our address + variable _addr + + # A list of all blocks + variable _blocks + } +} |