Debugging; word sizes (Int -> pointer); fix CleanStrings

1 files changed, 8 insertions, 8 deletions

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

 	}