6ed5706a2b
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
43 lines
1.8 KiB
LLVM
43 lines
1.8 KiB
LLVM
; REQUIRES: object-emission
|
|
; RUN: %llc_dwarf -O0 -filetype=obj < %s > %t
|
|
; RUN: llvm-dwarfdump -debug-info %t | FileCheck %s
|
|
; CHECK: DW_TAG_common_block
|
|
; CHECK-DAG: DW_AT_name{{.*}}"a"
|
|
; CHECK-DAG: DW_AT_location
|
|
; CHECK: DW_TAG_variable
|
|
; CHECK-DAG: DW_AT_name{{.*}}"c"
|
|
; CHECK-DAG: DW_AT_location{{.*}}DW_OP_plus_uconst{{.*}}4
|
|
; CHECK: {{DW_TAG|NULL}}
|
|
|
|
target datalayout = "e-m:o-i64:64-f80:128-n8:16:32:64-S128"
|
|
|
|
@common_a = common global [32 x i8] zeroinitializer, align 8, !dbg !13, !dbg !15
|
|
|
|
define i32 @subr() !dbg !9 {
|
|
%1 = getelementptr inbounds [32 x i8], [32 x i8]* @common_a, i64 0, i32 8
|
|
%2 = bitcast i8* %1 to i32*
|
|
%3 = load i32, i32* %2
|
|
ret i32 %3
|
|
}
|
|
|
|
!llvm.dbg.cu = !{!0}
|
|
!llvm.module.flags = !{!6, !7}
|
|
!llvm.ident = !{!8}
|
|
|
|
!0 = distinct !DICompileUnit(language: DW_LANG_Fortran90, file: !1, producer: "PGI Fortran", isOptimized: false, runtimeVersion: 2, emissionKind: FullDebug, retainedTypes: !14, globals: !3)
|
|
!1 = !DIFile(filename: "none.f90", directory: "/not/here/")
|
|
!2 = distinct !DIGlobalVariable(scope: !5, name: "c", file: !1, type: !12, isDefinition: true)
|
|
!3 = !{!13, !15}
|
|
!4 = distinct !DIGlobalVariable(scope: !5, name: "COMMON /foo/", file: !1, line: 4, isLocal: false, isDefinition: true, type: !12)
|
|
!5 = !DICommonBlock(scope: !9, declaration: !4, name: "a", file: !1, line: 4)
|
|
!6 = !{i32 2, !"Dwarf Version", i32 4}
|
|
!7 = !{i32 2, !"Debug Info Version", i32 3}
|
|
!8 = !{!"PGI Fortran"}
|
|
!9 = distinct !DISubprogram(name: "s", scope: !0, file: !1, line: 1, type: !10, isLocal: false, isDefinition: true, unit: !0)
|
|
!10 = !DISubroutineType(types: !11)
|
|
!11 = !{!12, !12}
|
|
!12 = !DIBasicType(name: "int", size: 32)
|
|
!13 = !DIGlobalVariableExpression(var: !4, expr: !DIExpression())
|
|
!14 = !{!12, !10}
|
|
!15 = !DIGlobalVariableExpression(var: !2, expr: !DIExpression(DW_OP_plus_uconst, 4))
|