From c450b738549c13d41b6250ac5b37d06aae3e7bd5 Mon Sep 17 00:00:00 2001
From: Jacob Stanley <jacob@stanley.io>
Date: Thu, 25 Aug 2011 21:24:17 +0800
Subject: [PATCH] Removed unnecessary name mangling

---
 mkstdcall.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/mkstdcall.hs b/mkstdcall.hs
index 55f5ce3..2779978 100644
--- a/mkstdcall.hs
+++ b/mkstdcall.hs
@@ -46,9 +46,7 @@ main = do
 
   where
     -- Prefixes the function with ncs_ instead of nc_.
-    -- The extra underscore at the start is to achieve the
-    -- name mangling windows expects for a stdcall function
-    ncsPrefix = rename $ ("_ncs" ++) . drop 2
+    ncsPrefix = rename $ ("ncs" ++) . drop 2
 
     shouldWrap :: [String] -> String -> Bool
     shouldWrap exs fn = "nc_" `isPrefixOf` fn && not (fn `elem` exs)