From d0b3651906aa943423e430a61437a42f7dd39422 Mon Sep 17 00:00:00 2001
From: H_Konishi <H_Konishi@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 11 Jun 2002 01:27:48 +0000
Subject: new platform [bccwin32] merged.

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

(limited to 'ext/Win32API')

diff --git a/ext/Win32API/Win32API.c b/ext/Win32API/Win32API.c
index 65b6a558c1..b9f16e2519 100644
--- a/ext/Win32API/Win32API.c
+++ b/ext/Win32API/Win32API.c
@@ -148,6 +148,15 @@ Win32API_initialize(self, dllname, proc, import, export)
     return Qnil;
 }
 
+#ifdef __BORLANDC__ 
+int c_m( FARPROC api, long* p )
+{
+  long pp[16];
+  memcpy( pp, p, 16*sizeof(long) );
+  return api();
+}
+#endif
+
 static VALUE
 Win32API_Call(argc, argv, obj)
     int argc;
@@ -175,6 +184,10 @@ Win32API_Call(argc, argv, obj)
     int nimport, timport, texport, i;
     int items;
     int ret;
+#ifdef __BORLANDC__ 
+    long* ptr;
+    long p[16];
+#endif
 
     items = rb_scan_args(argc, argv, "0*", &args);
 
@@ -192,6 +205,9 @@ Win32API_Call(argc, argv, obj)
 	    nimport, items);
 
     if (0 < nimport) {
+#ifdef __BORLANDC__ 
+       ptr = p + ( nimport - 1 );
+#endif
 	for (i = nimport - 1; 0 <= i; i--) {
 	    VALUE str;
 	    import_type = rb_ary_entry(obj_import, i);
@@ -215,6 +231,9 @@ Win32API_Call(argc, argv, obj)
 #else
 #error
 #endif
+#elif defined(__BORLANDC__)
+		*ptr = lParam;
+		--ptr;
 #elif defined __GNUC__
 		asm volatile ("pushl %0" :: "g" (lParam));
 #else
@@ -247,6 +266,9 @@ Win32API_Call(argc, argv, obj)
 #else
 #error
 #endif
+#elif defined(__BORLANDC__)
+		*ptr = (long)pParam;
+		--ptr;
 #elif defined __GNUC__
 		asm volatile ("pushl %0" :: "g" (pParam));
 #else
@@ -275,16 +297,28 @@ Win32API_Call(argc, argv, obj)
 #else
     switch (texport) {
     case _T_NUMBER:
+#if defined(__BORLANDC__)
+	Return = INT2NUM((long)c_m(ApiFunction, p));
+#else
 	ApiFunctionNumber = (ApiNumber *) ApiFunction;
 	Return = INT2NUM(ApiFunctionNumber());
+#endif
 	break;
     case _T_POINTER:
+#if defined(__BORLANDC__)
+	Return = rb_str_new2((char *)c_m(ApiFunction, p));
+#else
 	ApiFunctionPointer = (ApiPointer *) ApiFunction;
 	Return = rb_str_new2((char *)ApiFunctionPointer());
+#endif
 	break;
     case _T_INTEGER:
+#if defined(__BORLANDC__)
+	Return = INT2NUM((int)c_m(ApiFunction, p));
+#else
 	ApiFunctionInteger = (ApiInteger *) ApiFunction;
 	Return = INT2NUM(ApiFunctionInteger());
+#endif
 	break;
     case _T_VOID:
     default:
-- 
cgit v1.2.3