From d2077b1670ae61d4cd66996a3b238ec708b9cc15 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Sat, 11 Jul 2009 20:51:34 +1200
Subject: [PATCH] alien.inline.compiler: changed windows compiler options

---
 basis/alien/inline/compiler/compiler.factor | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/basis/alien/inline/compiler/compiler.factor b/basis/alien/inline/compiler/compiler.factor
index 4abc78ff67..bc098ee26b 100644
--- a/basis/alien/inline/compiler/compiler.factor
+++ b/basis/alien/inline/compiler/compiler.factor
@@ -27,24 +27,32 @@ SYMBOL: C++
 
 HOOK: compiler os ( lang -- str )
 
-M: word compiler ( lang -- str )
+M: word compiler
     {
         { C [ "gcc" ] }
         { C++ [ "g++" ] }
     } case ;
 
-M: openbsd compiler ( lang -- str )
+M: openbsd compiler
     {
         { C [ "gcc" ] }
         { C++ [ "eg++" ] }
     } case ;
 
+M: windows compiler
+    {
+        { C [ "gcc" ] }
+        { C++ [ "gcc" ] }
+    } case ;
+
 HOOK: compiler-descr os ( lang -- descr )
 
 M: word compiler-descr compiler 1array ;
 M: macosx compiler-descr
     call-next-method cpu x86.64?
     [ { "-arch" "x86_64" } append ] when ;
+M: windows compiler-descr
+    call-next-method { "-x" "c++" } append ;
 
 HOOK: link-descr os ( -- descr )
 
@@ -52,6 +60,7 @@ M: word link-descr { "-shared" "-o" } ;
 M: macosx link-descr
     { "-g" "-prebind" "-dynamiclib" "-o" }
     cpu x86.64? [ { "-arch" "x86_64" } prepend ] when ;
+M: windows link-descr { "-lstdc++" "-o" } ;
 
 <PRIVATE
 : src-suffix ( lang -- str )