Add VaList API

src/intrinsics.cr

@@ -19,6 +19,9 @@ lib Intrinsics
 
   # TODO: uncomment and use in int.cr after Crystal 0.23.1
   # fun popcount128 = "llvm.ctpop.i128"(src : Int128) : Int128
+
+  fun va_start = "llvm.va_start"(ap : Void*)
+  fun va_end = "llvm.va_end"(ap : Void*)
 end
 
 macro debugger

src/lib_c/aarch64-linux-gnu/c/stdarg.cr

@@ -0,0 +1,3 @@
+lib LibC
+  type VaList = Void*
+end

src/lib_c/amd64-unknown-openbsd/c/stdarg.cr

@@ -0,0 +1,10 @@
+lib LibC
+  struct VaListTag
+    gp_offset : UInt
+    fp_offset : UInt
+    overflow_arg_area : Void*
+    reg_save_area : Void*
+  end
+
+  type VaList = VaListTag[1]
+end

src/lib_c/arm-linux-gnueabihf/c/stdarg.cr

@@ -0,0 +1,3 @@
+lib LibC
+  type VaList = Void*
+end

src/lib_c/i686-linux-gnu/c/stdarg.cr

@@ -0,0 +1,3 @@
+lib LibC
+  type VaList = Void*
+end

src/lib_c/x86_64-linux-gnu/c/stdarg.cr

@@ -0,0 +1,10 @@
+lib LibC
+  struct VaListTag
+    gp_offset : UInt
+    fp_offset : UInt
+    overflow_arg_area : Void*
+    reg_save_area : Void*
+  end
+
+  type VaList = VaListTag[1]
+end

src/lib_c/x86_64-linux-musl/c/stdarg.cr

@@ -0,0 +1,10 @@
+lib LibC
+  struct VaListTag
+    gp_offset : UInt
+    fp_offset : UInt
+    overflow_arg_area : Void*
+    reg_save_area : Void*
+  end
+
+  type VaList = VaListTag[1]
+end

src/lib_c/x86_64-macosx-darwin/c/stdarg.cr

@@ -0,0 +1,10 @@
+lib LibC
+  struct VaListTag
+    gp_offset : UInt
+    fp_offset : UInt
+    overflow_arg_area : Void*
+    reg_save_area : Void*
+  end
+
+  type VaList = VaListTag[1]
+end

src/lib_c/x86_64-portbld-freebsd/c/stdarg.cr

@@ -0,0 +1,10 @@
+lib LibC
+  struct VaListTag
+    gp_offset : UInt
+    fp_offset : UInt
+    overflow_arg_area : Void*
+    reg_save_area : Void*
+  end
+
+  type VaList = VaListTag[1]
+end

src/prelude.cr

@@ -74,4 +74,5 @@ require "time"
 require "tuple"
 require "unicode"
 require "union"
+require "va_list"
 require "value"

src/va_list.cr

@@ -0,0 +1,20 @@
+require "c/stdarg"
+
+class VaList
+  # :nodoc:
+  getter to_unsafe
+
+  # :nodoc:
+  def initialize(@to_unsafe : LibC::VaList)
+  end
+
+  def self.open
+    ap = uninitialized LibC::VaList
+    Intrinsics.va_start pointerof(ap)
+    begin
+      yield new(ap)
+    ensure
+      Intrinsics.va_end pointerof(ap)
+    end
+  end
+end