Home
last modified time | relevance | path

Searched refs:block_node (Results 1 – 2 of 2) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Df95-lang.c369 tree block_node = NULL_TREE; in poplevel() local
378 block_node = build_block (keep ? decl_chain : 0, subblock_chain, 0, 0); in poplevel()
383 BLOCK_SUPERCONTEXT (subblock_node) = block_node; in poplevel()
405 DECL_INITIAL (current_function_decl) = block_node; in poplevel()
410 else if (block_node) in poplevel()
413 = block_chainon (current_binding_level->blocks, block_node); in poplevel()
423 if (block_node) in poplevel()
424 TREE_USED (block_node) = 1; in poplevel()
426 return block_node; in poplevel()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Df95-lang.cc375 tree block_node = NULL_TREE; in poplevel() local
384 block_node = build_block (keep ? decl_chain : 0, subblock_chain, 0, 0); in poplevel()
389 BLOCK_SUPERCONTEXT (subblock_node) = block_node; in poplevel()
411 DECL_INITIAL (current_function_decl) = block_node; in poplevel()
416 else if (block_node) in poplevel()
419 = block_chainon (current_binding_level->blocks, block_node); in poplevel()
429 if (block_node) in poplevel()
430 TREE_USED (block_node) = 1; in poplevel()
432 return block_node; in poplevel()