From 1e73aa1a73488cc31982a5cc0fb987ebf3f0bbb9 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 21 Aug 2015 14:20:24 +0200
Subject: Fixed making clean strings (winGetCString and winGetCStringAndFree;
 clean_string struct) on 64-bit machines

---
 Linux_C_12/util_121.h | 2 +-
 clCCall_12.icl        | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Linux_C_12/util_121.h b/Linux_C_12/util_121.h
index 14091f9..84265fa 100644
--- a/Linux_C_12/util_121.h
+++ b/Linux_C_12/util_121.h
@@ -49,7 +49,7 @@ typedef struct
 } CrossCallInfo;
 
 typedef struct clean_string
-    {   int  length;
+    {   int64_t  length;
         char characters[1];
     } *CLEAN_STRING;
 
diff --git a/clCCall_12.icl b/clCCall_12.icl
index 07bc194..0d2c24d 100644
--- a/clCCall_12.icl
+++ b/clCCall_12.icl
@@ -152,7 +152,7 @@ winReleaseCString _ _
 	= code
 	{
 		.inline WinReleaseCString
-			ccall WinReleaseCString "II-I"
+			ccall WinReleaseCString "pI-I"
 		.end
 	}
 
@@ -161,7 +161,7 @@ winGetCStringAndFree _ _
 	= code
 	{
 		.inline WinGetCStringAndFree
-			ccall WinGetCStringAndFree "II-SI"
+			ccall WinGetCStringAndFree "pI-SI"
 		.end
 	}
 
@@ -170,7 +170,7 @@ winGetCString _ _
 	= code
 	{
 		.inline WinGetCString
-			ccall WinGetCString "II-SI"
+			ccall WinGetCString "pI-SI"
 		.end
 	}
 
-- 
cgit v1.2.3