XXX

Author: CodaFi

Sources/LLVM/DIBuilder.swift

@@ -82,13 +82,17 @@ public struct DebugInfoFlags: OptionSet {
 
 /// Source languages known by DWARF.
 public enum DWARFSourceLanguage {
+  case ada83
+
+  case ada95
+
   case c
 
   case c89
 
-  case c11
+  case c99
 
-  case ada83
+  case c11
 
   case cPlusPlus
 
@@ -106,16 +110,16 @@ public enum DWARFSourceLanguage {
 
   case fortran90
 
+  case fortran03
+
+  case fortran08
+
   case pascal83
 
   case modula2
 
   case java
 
-  case c99
-
-  case ada95
-
   case fortran95
 
   case PLI
@@ -147,10 +151,6 @@ public enum DWARFSourceLanguage {
   case julia
 
   case dylan
-
-  case fortran03
-  
-  case fortran08
 
   case renderScript
 
@@ -163,6 +163,53 @@ public enum DWARFSourceLanguage {
   case googleRenderScript
 
   case borlandDelphi
+
+
+  private static let languageMapping: [DWARFSourceLanguage: LLVMDWARFSourceLanguage] = [
+    .c: LLVMDWARFSourceLanguageC, .c89: LLVMDWARFSourceLanguageC89,
+    .c99: LLVMDWARFSourceLanguageC99, .c11: LLVMDWARFSourceLanguageC11,
+    .ada83: LLVMDWARFSourceLanguageAda83,
+    .cPlusPlus: LLVMDWARFSourceLanguageC_plus_plus,
+    .cPlusPlus03: LLVMDWARFSourceLanguageC_plus_plus_03,
+    .cPlusPlus11: LLVMDWARFSourceLanguageC_plus_plus_11,
+    .cPlusPlus14: LLVMDWARFSourceLanguageC_plus_plus_14,
+    .cobol74: LLVMDWARFSourceLanguageCobol74,
+    .cobol85: LLVMDWARFSourceLanguageCobol85,
+    .fortran77: LLVMDWARFSourceLanguageFortran77,
+    .fortran90: LLVMDWARFSourceLanguageFortran90,
+    .pascal83: LLVMDWARFSourceLanguagePascal83,
+    .modula2: LLVMDWARFSourceLanguageModula2,
+    .java: LLVMDWARFSourceLanguageJava,
+    .ada95: LLVMDWARFSourceLanguageAda95,
+    .fortran95: LLVMDWARFSourceLanguageFortran95,
+    .PLI: LLVMDWARFSourceLanguagePLI,
+    .objC: LLVMDWARFSourceLanguageObjC,
+    .objCPlusPlus: LLVMDWARFSourceLanguageObjC_plus_plus,
+    .UPC: LLVMDWARFSourceLanguageUPC,
+    .D: LLVMDWARFSourceLanguageD,
+    .python: LLVMDWARFSourceLanguagePython,
+    .openCL: LLVMDWARFSourceLanguageOpenCL,
+    .go: LLVMDWARFSourceLanguageGo,
+    .modula3: LLVMDWARFSourceLanguageModula3,
+    .haskell: LLVMDWARFSourceLanguageHaskell,
+    .ocaml: LLVMDWARFSourceLanguageOCaml,
+    .rust: LLVMDWARFSourceLanguageRust,
+    .swift: LLVMDWARFSourceLanguageSwift,
+    .julia: LLVMDWARFSourceLanguageJulia,
+    .dylan: LLVMDWARFSourceLanguageDylan,
+    .fortran03: LLVMDWARFSourceLanguageFortran03,
+    .fortran08: LLVMDWARFSourceLanguageFortran08,
+    .renderScript: LLVMDWARFSourceLanguageRenderScript,
+    .BLISS: LLVMDWARFSourceLanguageBLISS,
+    .mipsAssembler: LLVMDWARFSourceLanguageMips_Assembler,
+    .googleRenderScript: LLVMDWARFSourceLanguageGOOGLE_RenderScript,
+    .borlandDelphi: LLVMDWARFSourceLanguageBORLAND_Delphi,
+  ]
+
+  /// Retrieves the corresponding `LLVMDWARFSourceLanguage`.
+  public var llvm: LLVMDWARFSourceLanguage {
+    return DWARFSourceLanguage.languageMapping[self]!
+  }
 }
 
 /// Qualifiers for types, e.g. \c const.
@@ -403,6 +450,16 @@ public enum DWARFEmissionKind {
   case none
   case full
   case lineTablesOnly
+
+  private static let emissionMapping: [DWARFEmissionKind: LLVMDWARFEmissionKind] = [
+    .none: LLVMDWARFEmissionNone, .full: LLVMDWARFEmissionFull,
+    .lineTablesOnly: LLVMDWARFEmissionLineTablesOnly,
+  ]
+
+  /// Retrieves the corresponding `LLVMDWARFEmissionKind`.
+  public var llvm: LLVMDWARFEmissionKind {
+    return DWARFEmissionKind.emissionMapping[self]!
+  }
 }
 
 public protocol Metadata {
@@ -461,6 +518,15 @@ public struct DIModule: Metadata {
   }
 }
 
+public struct DICompileUnit: Metadata {
+  internal let llvm: LLVMMetadataRef
+
+  public func asMetadata() -> LLVMMetadataRef {
+    return llvm
+  }
+}
+
+
 public struct DebugLocation: Metadata {
   internal let llvm: LLVMMetadataRef
 
@@ -480,6 +546,55 @@ public final class DIBuilder {
     self.llvm = LLVMDIBuilderCreate(module.llvm, allowUnresolved ? 1 : 0)
   }
 
+  /// A CompileUnit provides an anchor for all debugging
+  /// information generated during this instance of compilation.
+  /// \param Lang          Source programming language, eg.
+  ///                      \c LLVMDWARFSourceLanguageC99
+  /// \param File          File info.
+  /// \param Producer      Identify the producer of debugging information
+  ///                      and code.  Usually this is a compiler
+  ///                      version string.
+  /// \param isOptimized   A boolean flag which indicates whether optimization
+  ///                      is enabled or not.
+  /// \param Flags         This string lists command line options. This
+  ///                      string is directly embedded in debug info
+  ///                      output which may be used by a tool
+  ///                      analyzing generated debugging information.
+  /// \param RuntimeVer    This indicates runtime version for languages like
+  ///                      Objective-C.
+  /// \param SplitName     The name of the file that we'll split debug info
+  ///                      out into.
+  /// \param Kind          The kind of debug information to generate.
+  /// \param DWOId         The DWOId if this is a split skeleton compile unit.
+  /// \param SplitDebugInlining    Whether to emit inline debug info.
+  /// \param DebugInfoForProfiling Whether to emit extra debug info for
+  ///                              profile collection.
+  public func createCompileUnit(
+    for lang: DWARFSourceLanguage,
+    in file: FileMetadata,
+    identity: String = "",
+    optimized: Bool,
+    flags: [String],
+    runtimeVersion: Int,
+    splitName: String,
+    kind: DWARFEmissionKind,
+    DWOId: UInt64,
+    splitDebugInlining: Bool,
+    debugInfoForProfiling: Bool
+  ) -> DICompileUnit {
+    guard let cu = LLVMDIBuilderCreateCompileUnit(
+      self.llvm, lang.llvm, file.llvm, identity,
+      optimized ? 1 : 0,
+      flags.joined(separator: " "), UInt32(runtimeVersion), splitName,
+      kind.llvm, DWOId,
+      splitDebugInlining ? 1 : 0,
+      debugInfoForProfiling ? 1 : 0
+    ) else {
+      fatalError()
+    }
+    return DICompileUnit(llvm: cu)
+  }
+
   /// Creates a new DebugLocation that describes a source location.
   public func createDebugLocation(at loc : (line: Int, column: Int), in scope: Scope, inlinedAt: Scope? = nil) -> DebugLocation {
     guard let loc = LLVMDIBuilderCreateDebugLocation(self.module.context.llvm, UInt32(loc.line), UInt32(loc.column), scope.llvm, inlinedAt?.llvm) else {
@@ -563,30 +678,7 @@ public final class DIBuilder {
 }
 
 /*
-/// A CompileUnit provides an anchor for all debugging
-/// information generated during this instance of compilation.
-/// \param Lang          Source programming language, eg.
-///                      \c LLVMDWARFSourceLanguageC99
-/// \param File          File info.
-/// \param Producer      Identify the producer of debugging information
-///                      and code.  Usually this is a compiler
-///                      version string.
-/// \param isOptimized   A boolean flag which indicates whether optimization
-///                      is enabled or not.
-/// \param Flags         This string lists command line options. This
-///                      string is directly embedded in debug info
-///                      output which may be used by a tool
-///                      analyzing generated debugging information.
-/// \param RuntimeVer    This indicates runtime version for languages like
-///                      Objective-C.
-/// \param SplitName     The name of the file that we'll split debug info
-///                      out into.
-/// \param Kind          The kind of debug information to generate.
-/// \param DWOId         The DWOId if this is a split skeleton compile unit.
-/// \param SplitDebugInlining    Whether to emit inline debug info.
-/// \param DebugInfoForProfiling Whether to emit extra debug info for
-///                              profile collection.
-public func LLVMDIBuilderCreateCompileUnit(_ Builder: LLVMDIBuilderRef!, _ Lang: LLVMDWARFSourceLanguage, _ FileRef: LLVMMetadataRef!, _ Producer: UnsafePointer<Int8>!, _ isOptimized: UInt8, _ Flags: UnsafePointer<Int8>!, _ RuntimeVer: UInt32, _ SplitName: UnsafePointer<Int8>!, _ Kind: LLVMDWARFEmissionKind, _ DWOId: UInt64, _ SplitDebugInlining: UInt8, _ DebugInfoForProfiling: UInt8) -> LLVMMetadataRef!
+
 
 /// Create a new descriptor for the specified subprogram.
 /// See comments in DISubprogram* for descriptions of these fields.