From 87909587121a6887c6301002687330458629ef30 Mon Sep 17 00:00:00 2001
From: Alexey Prokhin <alexey.prokhin@yandex.ru>
Date: Fri, 17 Dec 2010 12:59:59 +0300
Subject: [PATCH] pascal calling convention

---
 gen/tocall.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gen/tocall.cpp b/gen/tocall.cpp
index 43f6f57b..206780f6 100644
--- a/gen/tocall.cpp
+++ b/gen/tocall.cpp
@@ -49,7 +49,7 @@ llvm::CallingConv::ID DtoCallingConv(Loc loc, LINK l)
             return llvm::CallingConv::Fast;
     }
     // on the other hand, here, it's exactly what we want!!! TODO: right?
-    else if (l == LINKwindows)
+    else if (l == LINKwindows || l == LINKpascal)
         return llvm::CallingConv::X86_StdCall;
     else
     {