diff options
| author | gdb-3.1 <gdb@fsf.org> | 1989-01-31 17:56:40 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2012-06-03 15:36:31 +0100 |
| commit | e91b87a36830d061ef87d67be5f309e4d4ed918f (patch) | |
| tree | 3408ea913a9cccd51c9b7d0b3bc7d7897cac8a5b /gdb/obstack.c | |
| parent | bb7592f01006b09c846831a9fb9c306307ba34f6 (diff) | |
| download | gdb-e91b87a36830d061ef87d67be5f309e4d4ed918f.zip gdb-e91b87a36830d061ef87d67be5f309e4d4ed918f.tar.gz gdb-e91b87a36830d061ef87d67be5f309e4d4ed918f.tar.bz2 | |
gdb-3.1
Diffstat (limited to 'gdb/obstack.c')
| -rw-r--r-- | gdb/obstack.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gdb/obstack.c b/gdb/obstack.c index 3b5bdef..4379911 100644 --- a/gdb/obstack.c +++ b/gdb/obstack.c @@ -212,6 +212,27 @@ _obstack_newchunk (h, length) h->next_free = h->object_base + obj_size; } +/* Return nonzero if object OBJ has been allocated from obstack H. + This is here for debugging. + If you use it in a program, you are probably losing. */ + +int +_obstack_allocated_p (h, obj) + struct obstack *h; + POINTER obj; +{ + register struct _obstack_chunk* lp; /* below addr of any objects in this chunk */ + register struct _obstack_chunk* plp; /* point to previous chunk if any */ + + lp = (h)->chunk; + while (lp != 0 && ((POINTER)lp > obj || (POINTER)(lp)->limit < obj)) + { + plp = lp -> prev; + lp = plp; + } + return lp != 0; +} + /* Free objects in obstack H, including OBJ and everything allocate more recently than OBJ. If OBJ is zero, free everything in H. */ |