mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-10-19 02:52:53 +02:00
b613a7a943
COMMON blocks are a feature of Fortran that has no direct analog in C languages, but they are similar to data sections in assembly language programming. A COMMON block is a named area of memory that holds a collection of variables. Fortran subprograms may map the COMMON block memory area to their own, possibly distinct, non-empty list of variables. A Fortran COMMON block might look like the following example.
COMMON /ALPHA/ I, J
For this construct, the compiler generates a new scope-like DI construct (!DICommonBlock) into which variables (see I, J above) can be placed. As the common block implies a range of storage with global lifetime, the !DICommonBlock refers to a !DIGlobalVariable. The Fortran variable that comprise the COMMON block are also linked via metadata to offsets within the global variable that stands for the entire common block.
@alpha_ = common global %alphabytes_ zeroinitializer, align 64, !dbg !27, !dbg !30, !dbg !33
!14 = distinct !DISubprogram(…)
!20 = distinct !DICommonBlock(scope: !14, declaration: !25, name: "alpha")
!25 = distinct !DIGlobalVariable(scope: !20, name: "common alpha", type: !24)
!27 = !DIGlobalVariableExpression(var: !25, expr: !DIExpression())
!29 = distinct !DIGlobalVariable(scope: !20, name: "i", file: !3, type: !28)
!30 = !DIGlobalVariableExpression(var: !29, expr: !DIExpression())
!31 = distinct !DIGlobalVariable(scope: !20, name: "j", file: !3, type: !28)
!32 = !DIExpression(DW_OP_plus_uconst, 4)
!33 = !DIGlobalVariableExpression(var: !31, expr: !32)
The DWARF generated for this is as follows.
DW_TAG_common_block:
DW_AT_name: alpha
DW_AT_location: @alpha_+0
DW_TAG_variable:
DW_AT_name: common alpha
DW_AT_type: array of 8 bytes
DW_AT_location: @alpha_+0
DW_TAG_variable:
DW_AT_name: i
DW_AT_type: integer*4
DW_AT_location: @Alpha+0
DW_TAG_variable:
DW_AT_name: j
DW_AT_type: integer*4
DW_AT_location: @Alpha+4
Patch by Eric Schweitz!
Differential Revision: https://reviews.llvm.org/D54327
llvm-svn: 357934
127 lines
5.1 KiB
C++
127 lines
5.1 KiB
C++
//===- llvm/IR/Metadata.def - Metadata definitions --------------*- C++ -*-===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// Macros for running through all types of metadata.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#if !(defined HANDLE_METADATA || defined HANDLE_METADATA_LEAF || \
|
|
defined HANDLE_METADATA_BRANCH || defined HANDLE_MDNODE_LEAF || \
|
|
defined HANDLE_MDNODE_LEAF_UNIQUABLE || defined HANDLE_MDNODE_BRANCH || \
|
|
defined HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE || \
|
|
defined HANDLE_SPECIALIZED_MDNODE_LEAF || \
|
|
defined HANDLE_SPECIALIZED_MDNODE_BRANCH)
|
|
#error "Missing macro definition of HANDLE_METADATA*"
|
|
#endif
|
|
|
|
// Handler for all types of metadata.
|
|
#ifndef HANDLE_METADATA
|
|
#define HANDLE_METADATA(CLASS)
|
|
#endif
|
|
|
|
// Handler for leaf nodes in the class hierarchy.
|
|
#ifndef HANDLE_METADATA_LEAF
|
|
#define HANDLE_METADATA_LEAF(CLASS) HANDLE_METADATA(CLASS)
|
|
#endif
|
|
|
|
// Handler for non-leaf nodes in the class hierarchy.
|
|
#ifndef HANDLE_METADATA_BRANCH
|
|
#define HANDLE_METADATA_BRANCH(CLASS) HANDLE_METADATA(CLASS)
|
|
#endif
|
|
|
|
// Handler for specialized and uniquable leaf nodes under MDNode. Defers to
|
|
// HANDLE_MDNODE_LEAF_UNIQUABLE if it's defined, otherwise to
|
|
// HANDLE_SPECIALIZED_MDNODE_LEAF.
|
|
#ifndef HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE
|
|
#ifdef HANDLE_MDNODE_LEAF_UNIQUABLE
|
|
#define HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(CLASS) \
|
|
HANDLE_MDNODE_LEAF_UNIQUABLE(CLASS)
|
|
#else
|
|
#define HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(CLASS) \
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF(CLASS)
|
|
#endif
|
|
#endif
|
|
|
|
// Handler for leaf nodes under MDNode.
|
|
#ifndef HANDLE_MDNODE_LEAF_UNIQUABLE
|
|
#define HANDLE_MDNODE_LEAF_UNIQUABLE(CLASS) HANDLE_MDNODE_LEAF(CLASS)
|
|
#endif
|
|
|
|
// Handler for leaf nodes under MDNode.
|
|
#ifndef HANDLE_MDNODE_LEAF
|
|
#define HANDLE_MDNODE_LEAF(CLASS) HANDLE_METADATA_LEAF(CLASS)
|
|
#endif
|
|
|
|
// Handler for non-leaf nodes under MDNode.
|
|
#ifndef HANDLE_MDNODE_BRANCH
|
|
#define HANDLE_MDNODE_BRANCH(CLASS) HANDLE_METADATA_BRANCH(CLASS)
|
|
#endif
|
|
|
|
// Handler for specialized leaf nodes under MDNode.
|
|
#ifndef HANDLE_SPECIALIZED_MDNODE_LEAF
|
|
#define HANDLE_SPECIALIZED_MDNODE_LEAF(CLASS) HANDLE_MDNODE_LEAF(CLASS)
|
|
#endif
|
|
|
|
// Handler for specialized non-leaf nodes under MDNode.
|
|
#ifndef HANDLE_SPECIALIZED_MDNODE_BRANCH
|
|
#define HANDLE_SPECIALIZED_MDNODE_BRANCH(CLASS) HANDLE_MDNODE_BRANCH(CLASS)
|
|
#endif
|
|
|
|
HANDLE_METADATA_LEAF(MDString)
|
|
HANDLE_METADATA_BRANCH(ValueAsMetadata)
|
|
HANDLE_METADATA_LEAF(ConstantAsMetadata)
|
|
HANDLE_METADATA_LEAF(LocalAsMetadata)
|
|
HANDLE_METADATA_LEAF(DistinctMDOperandPlaceholder)
|
|
HANDLE_MDNODE_BRANCH(MDNode)
|
|
HANDLE_MDNODE_LEAF_UNIQUABLE(MDTuple)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DILocation)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIExpression)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIGlobalVariableExpression)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DINode)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(GenericDINode)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DISubrange)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIEnumerator)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DIScope)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DIType)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIBasicType)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIDerivedType)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DICompositeType)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DISubroutineType)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIFile)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF(DICompileUnit)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DILocalScope)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DISubprogram)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DILexicalBlockBase)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DILexicalBlock)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DILexicalBlockFile)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DINamespace)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIModule)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DITemplateParameter)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DITemplateTypeParameter)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DITemplateValueParameter)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DIVariable)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIGlobalVariable)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DILocalVariable)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DILabel)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIObjCProperty)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIImportedEntity)
|
|
HANDLE_SPECIALIZED_MDNODE_BRANCH(DIMacroNode)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIMacro)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DIMacroFile)
|
|
HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE(DICommonBlock)
|
|
|
|
#undef HANDLE_METADATA
|
|
#undef HANDLE_METADATA_LEAF
|
|
#undef HANDLE_METADATA_BRANCH
|
|
#undef HANDLE_MDNODE_LEAF
|
|
#undef HANDLE_MDNODE_LEAF_UNIQUABLE
|
|
#undef HANDLE_MDNODE_BRANCH
|
|
#undef HANDLE_SPECIALIZED_MDNODE_LEAF
|
|
#undef HANDLE_SPECIALIZED_MDNODE_LEAF_UNIQUABLE
|
|
#undef HANDLE_SPECIALIZED_MDNODE_BRANCH
|