From cd81f8148667eebaf5947f386d2188b5540a5ca2 Mon Sep 17 00:00:00 2001
From: Armin Ronacher <armin.ronacher@active-4.com>
Date: Wed, 17 Jul 2019 23:04:29 +0200
Subject: [PATCH] Add __pascal marker to output (#51)

---
 src/lib.rs                                    | 4 +++-
 tests/llvm-cases/{unused => }/ms-windows.test | 0
 tests/test_llvm.rs                            | 5 +++++
 3 files changed, 8 insertions(+), 1 deletion(-)
 rename tests/llvm-cases/{unused => }/ms-windows.test (100%)

diff --git a/src/lib.rs b/src/lib.rs
index 8ac0eea..5ecba37 100644
--- a/src/lib.rs
+++ b/src/lib.rs
@@ -1511,7 +1511,9 @@ impl<'a> Serializer<'a> {
                 CallingConv::Cdecl => {
                     write!(self.w, "__cdecl ")?;
                 }
-                CallingConv::Pascal => {}
+                CallingConv::Pascal => {
+                    write!(self.w, "__pascal ")?;
+                }
                 CallingConv::Thiscall => {
                     write!(self.w, "__thiscall ")?;
                 }
diff --git a/tests/llvm-cases/unused/ms-windows.test b/tests/llvm-cases/ms-windows.test
similarity index 100%
rename from tests/llvm-cases/unused/ms-windows.test
rename to tests/llvm-cases/ms-windows.test
diff --git a/tests/test_llvm.rs b/tests/test_llvm.rs
index 28e37db..aa57ccd 100644
--- a/tests/test_llvm.rs
+++ b/tests/test_llvm.rs
@@ -107,3 +107,8 @@ fn test_llvm_ms_basic() {
 fn test_llvm_ms_operators() {
     llvm_test!("llvm-cases/ms-operators.test");
 }
+
+#[test]
+fn test_llvm_ms_windows() {
+    llvm_test!("llvm-cases/ms-windows.test");
+}