Skip several analyzer socket tests on hppa*-*-hpux*
[official-gcc.git] / gcc / testsuite / c-c++-common / analyzer / pr96792.c
blobaccaf22ba705b46af4e314b244f9a3c9684daa5a
1 #include "../../gcc.dg/analyzer/analyzer-decls.h"
3 struct block
5 void *function;
6 const struct block *superblock;
7 };
9 struct global_block
11 struct block block;
12 void *compunit_symtab;
15 extern const struct block *block_global_block (const struct block *block);
17 void *
18 block_objfile (const struct block *block)
20 const struct global_block *global_block;
22 if (block->function != NULL)
23 return block->function;
25 global_block = (struct global_block *) block_global_block (block);
26 return global_block->compunit_symtab;
29 const struct block *
30 block_global_block (const struct block *block)
32 if (block == NULL)
33 return NULL;
35 while (block->superblock != NULL)
36 block = block->superblock;
38 return block;