From b417a6431e89ea4f57d48c1ca169c5cc3cc7a4cd Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 8 Jul 2015 11:28:30 +0200
Subject: Debugging; word sizes (Int -> pointer); fix CleanStrings

---
 clCrossCall_12.icl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'clCrossCall_12.icl')

diff --git a/clCrossCall_12.icl b/clCrossCall_12.icl
index 8b331f3..6539748 100644
--- a/clCrossCall_12.icl
+++ b/clCrossCall_12.icl
@@ -90,13 +90,13 @@ where
 			= handleCallBacks callback replyCci tb
 
 //	PA: macros for returning proper number of arguments within a CrossCallInfo.
-Rq0Cci msg :== {ccMsg=msg,p1=0,p2=0,p3=0,p4=0,p5=0,p6=0}
-Rq1Cci msg v1 :== {ccMsg=msg,p1=v1,p2=0,p3=0,p4=0,p5=0,p6=0}
-Rq2Cci msg v1 v2 :== {ccMsg=msg,p1=v1,p2=v2,p3=0,p4=0,p5=0,p6=0}
-Rq3Cci msg v1 v2 v3 :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=0,p5=0,p6=0}
-Rq4Cci msg v1 v2 v3 v4 :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=v4,p5=0,p6=0}
-Rq5Cci msg v1 v2 v3 v4 v5 :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=v4,p5=v5,p6=0}
-Rq6Cci msg v1 v2 v3 v4 v5 v6 :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=v4,p5=v5,p6=v6}
+Rq0Cci msg                      :== {ccMsg=msg,p1=0, p2=0, p3=0, p4=0, p5=0, p6=0 }
+Rq1Cci msg v1                   :== {ccMsg=msg,p1=v1,p2=0, p3=0, p4=0, p5=0, p6=0 }
+Rq2Cci msg v1 v2                :== {ccMsg=msg,p1=v1,p2=v2,p3=0, p4=0, p5=0, p6=0 }
+Rq3Cci msg v1 v2 v3             :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=0, p5=0, p6=0 }
+Rq4Cci msg v1 v2 v3 v4          :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=v4,p5=0, p6=0 }
+Rq5Cci msg v1 v2 v3 v4 v5       :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=v4,p5=v5,p6=0 }
+Rq6Cci msg v1 v2 v3 v4 v5 v6    :== {ccMsg=msg,p1=v1,p2=v2,p3=v3,p4=v4,p5=v5,p6=v6}
 
 return0Cci :: CrossCallInfo
 return0Cci = Rq0Cci CcRETURN0
@@ -174,7 +174,7 @@ winKickOsThread _ _
 	= code
 	{
 		.inline WinKickOsThread
-			ccall WinKickOsThread "IIIIIIII-IIIIIIII"
+			ccall WinKickOsThread "pppppppp-pppppppp"
 		.end
 	}
 
-- 
cgit v1.2.3