From 4e2edd1992f7dc775e430547cc4cec28f2bd1035 Mon Sep 17 00:00:00 2001
From: eban <eban@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 30 Aug 2000 08:16:36 +0000
Subject: eban

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@915 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/Win32API/Win32API.c | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'ext/Win32API')

diff --git a/ext/Win32API/Win32API.c b/ext/Win32API/Win32API.c
index 6558e3827..dcfdd7caa 100644
--- a/ext/Win32API/Win32API.c
+++ b/ext/Win32API/Win32API.c
@@ -8,6 +8,17 @@
 #include <stdio.h>
 #endif
 
+#if defined(_MSC_VER)
+#if defined(_M_ALPHA)
+#ifdef __cplusplus
+extern "C" { long __asm(char *,...); };
+#else
+long __asm(char *,...);
+#endif
+#pragma intrinsic(__asm)
+#endif
+#endif
+
 #define _T_VOID     0
 #define _T_NUMBER   1
 #define _T_POINTER  2
@@ -190,10 +201,20 @@ Win32API_Call(argc, argv, obj)
 	    case _T_INTEGER:
 		lParam = NUM2ULONG(rb_ary_entry(args, i));
 #if defined(_MSC_VER) || defined(__LCC__)
+#if defined(_M_IX86)
 		_asm {
 		    mov     eax, lParam
 		    push    eax
 		}
+#elif defined(_M_ALPHA)
+		__asm(
+			"ldl r0, 0(%0);"
+			"stq r0, -(sp);"
+			, lParam
+		);
+#else
+#error
+#endif
 #elif defined __GNUC__
 		asm volatile ("pushl %0" :: "g" (lParam));
 #else
@@ -212,10 +233,20 @@ Win32API_Call(argc, argv, obj)
 		    pParam = RSTRING(str)->ptr;
 		}
 #if defined(_MSC_VER) || defined(__LCC__)
+#if defined(_M_IX86)
 		_asm {
 		    mov     eax, pParam
 		    push    eax
 		}
+#elif defined(_M_ALPHA)
+		__asm(
+			"ldl r0, 0(%0);"
+			"stq r0, -(sp);"
+			, pParam
+		);
+#else
+#error
+#endif
 #elif defined __GNUC__
 		asm volatile ("pushl %0" :: "g" (pParam));
 #else
-- 
cgit