1 files changed, 39 insertions, 39 deletions
diff --git a/pictCCall_12.icl b/pictCCall_12.icl
index b03661b..dceb7bb 100644
--- a/pictCCall_12.icl
+++ b/pictCCall_12.icl
@@ -59,7 +59,7 @@ winCreateScreenHDC _
 	= code
 	{
 		.inline WinCreateScreenHDC
-			ccall WinCreateScreenHDC "I-II"
+			ccall WinCreateScreenHDC "I-pI"
 		.end
 	}
 
@@ -68,7 +68,7 @@ winDestroyScreenHDC _
 	= code
 	{
 		.inline WinDestroyScreenHDC
-			ccall WinDestroyScreenHDC "II-I"
+			ccall WinDestroyScreenHDC "pI-I"
 		.end
 	}
 
@@ -78,7 +78,7 @@ winGetPicStringWidth _ _
 	= code
 	{
 		.inline WinGetPicStringWidth
-			ccall WinGetPicStringWidth "SII-III"
+			ccall WinGetPicStringWidth "SpI-IpI"
 		.end
 	}
 
@@ -87,7 +87,7 @@ winGetPicCharWidth _ _
 	= code
 	{
 		.inline WinGetPicCharWidth
-			ccall WinGetPicCharWidth "III-III"
+			ccall WinGetPicCharWidth "IpI-IpI"
 		.end
 	}
 // END MW
@@ -115,7 +115,7 @@ winGetPicFontInfo _
 	= code
 	{
 		.inline WinGetPicFontInfo
-			ccall WinGetPicFontInfo "II-IIIIII"
+			ccall WinGetPicFontInfo "pI-IIIIpI"
 		.end
 	}
 
@@ -133,7 +133,7 @@ winSetFontStyle _ _
 	= code
 	{
 		.inline WinSetFontStyle
-			ccall WinSetFontStyle "III-II"
+			ccall WinSetFontStyle "IpI-pI"
 		.end
 	}
 
@@ -142,7 +142,7 @@ winSetFontSize _ _
 	= code
 	{
 		.inline WinSetFontSize
-			ccall WinSetFontSize "III-II"
+			ccall WinSetFontSize "IpI-pI"
 		.end
 	}
 
@@ -151,7 +151,7 @@ winSetFontName _ _
 	= code
 	{
 		.inline WinSetFontName
-			ccall WinSetFontName "SII-II"
+			ccall WinSetFontName "SpI-pI"
 		.end
 	}
 
@@ -160,7 +160,7 @@ winSetFont _ _
 	= code
 	{
 		.inline WinSetFont
-			ccall WinSetFont "SIIII-II"
+			ccall WinSetFont "SIIpI-pI"
 		.end
 	}
 
@@ -170,7 +170,7 @@ winPrintResizedBitmap _ _ _ _ _
 	= code
 	{
 		.inline WinPrintResizedBitmap
-			ccall WinPrintResizedBitmap "IIIIIISII-II"
+			ccall WinPrintResizedBitmap "IIIIIISpI-pI"
 		.end
 	}
 
@@ -180,7 +180,7 @@ winDrawBitmap _ _ _ _
 	= code
 	{
 		.inline WinDrawBitmap
-			ccall WinDrawBitmap "IIIIIII-II"
+			ccall WinDrawBitmap "IIIIIpI-pI"
 		.end
 	}
 
@@ -189,16 +189,16 @@ winDrawResizedBitmap _ _ _ _ _
 	= code
 	{
 		.inline WinDrawResizedBitmap
-			ccall WinDrawResizedBitmap "IIIIIIIII-II"
+			ccall WinDrawResizedBitmap "IIIIIIIpI-pI"
 		.end
 	}
 
-winCreateBitmap :: !Int !{#Char} !HDC !*OSToolbox -> (!Int,!*OSToolbox)
-winCreateBitmap _ _ _ _
+winCreateBitmap :: !{#Char} !HDC !*OSToolbox -> (!Int,!*OSToolbox)
+winCreateBitmap _ _ _
 	= code
 	{
 		.inline WinCreateBitmap
-			ccall WinCreateBitmap "ISII-II"
+			ccall WinCreateBitmap "Spp-pI"
 		.end
 	}
 
@@ -207,7 +207,7 @@ winInvertPolygon _
 	= code
 	{
 		.inline WinInvertPolygon
-			ccall WinInvertPolygon "II-II"
+			ccall WinInvertPolygon "pI-pI"
 		.end
 	}
 
@@ -216,7 +216,7 @@ winErasePolygon _
 	= code
 	{
 		.inline WinErasePolygon
-			ccall WinErasePolygon "II-II"
+			ccall WinErasePolygon "pI-pI"
 		.end
 	}
 
@@ -225,7 +225,7 @@ winFillPolygon _
 	= code
 	{
 		.inline WinFillPolygon
-			ccall WinFillPolygon "II-II"
+			ccall WinFillPolygon "pI-pI"
 		.end
 	}
 
@@ -234,7 +234,7 @@ winDrawPolygon _
 	= code
 	{
 		.inline WinDrawPolygon
-			ccall WinDrawPolygon "II-II"
+			ccall WinDrawPolygon "pI-pI"
 		.end
 	}
 
@@ -300,7 +300,7 @@ winInvertWedge _ _ _ _
 	= code
 	{
 		.inline WinInvertWedge
-			ccall WinInvertWedge "IIIIIIIIII-II"
+			ccall WinInvertWedge "IIIIIIIIpI-pI"
 		.end
 	}
 
@@ -309,7 +309,7 @@ winEraseWedge _ _ _ _
 	= code
 	{
 		.inline WinEraseWedge
-			ccall WinEraseWedge "IIIIIIIIII-II"
+			ccall WinEraseWedge "IIIIIIIIpI-pI"
 		.end
 	}
 
@@ -318,7 +318,7 @@ winFillWedge _ _ _ _
 	= code
 	{
 		.inline WinFillWedge
-			ccall WinFillWedge "IIIIIIIIII-II"
+			ccall WinFillWedge "IIIIIIIIpI-pI"
 		.end
 	}
 
@@ -327,7 +327,7 @@ winDrawWedge _ _ _ _
 	= code
 	{
 		.inline WinDrawWedge
-			ccall WinDrawWedge "IIIIIIIIII-II"
+			ccall WinDrawWedge "IIIIIIIIpI-pI"
 		.end
 	}
 
@@ -337,7 +337,7 @@ winInvertCircle _ _ _
 	= code
 	{
 		.inline WinInvertCircle
-			ccall WinInvertCircle "IIIII-II"
+			ccall WinInvertCircle "IIIpI-pI"
 		.end
 	}
 
@@ -346,7 +346,7 @@ winEraseCircle _ _ _
 	= code
 	{
 		.inline WinEraseCircle
-			ccall WinEraseCircle "IIIII-II"
+			ccall WinEraseCircle "IIIpI-pI"
 		.end
 	}
 
@@ -355,7 +355,7 @@ winFillCircle _ _ _
 	= code
 	{
 		.inline WinFillCircle
-			ccall WinFillCircle "IIIII-II"
+			ccall WinFillCircle "IIIpI-pI"
 		.end
 	}
 
@@ -364,7 +364,7 @@ winDrawCircle _ _ _
 	= code
 	{
 		.inline WinDrawCircle
-			ccall WinDrawCircle "IIIII-II"
+			ccall WinDrawCircle "IIIpI-pI"
 		.end
 	}
 
@@ -374,7 +374,7 @@ winInvertOval _ _
 	= code
 	{
 		.inline WinInvertOval
-			ccall WinInvertOval "IIIIII-II"
+			ccall WinInvertOval "IIIIpI-pI"
 		.end
 	}
 
@@ -383,7 +383,7 @@ winEraseOval _ _
 	= code
 	{
 		.inline WinEraseOval
-			ccall WinEraseOval "IIIIII-II"
+			ccall WinEraseOval "IIIIpI-pI"
 		.end
 	}
 
@@ -392,7 +392,7 @@ winFillOval _ _
 	= code
 	{
 		.inline WinFillOval
-			ccall WinFillOval "IIIIII-II"
+			ccall WinFillOval "IIIIpI-pI"
 		.end
 	}
 
@@ -401,7 +401,7 @@ winDrawOval _ _
 	= code
 	{
 		.inline WinDrawOval
-			ccall WinDrawOval "IIIIII-II"
+			ccall WinDrawOval "IIIIpI-pI"
 		.end
 	}
 
@@ -411,7 +411,7 @@ winInvertRoundRectangle _ _ _ _
 	= code
 	{
 		.inline WinInvertRoundRectangle
-			ccall WinInvertRoundRectangle "IIIIIIII-II"
+			ccall WinInvertRoundRectangle "IIIIIIpI-pI"
 		.end
 	}
 
@@ -420,7 +420,7 @@ winEraseRoundRectangle _ _ _ _
 	= code
 	{
 		.inline WinEraseRoundRectangle
-			ccall WinEraseRoundRectangle "IIIIIIII-II"
+			ccall WinEraseRoundRectangle "IIIIIIpI-pI"
 		.end
 	}
 
@@ -429,7 +429,7 @@ winFillRoundRectangle _ _ _ _
 	= code
 	{
 		.inline WinFillRoundRectangle
-			ccall WinFillRoundRectangle "IIIIIIII-II"
+			ccall WinFillRoundRectangle "IIIIIIpI-pI"
 		.end
 	}
 
@@ -438,7 +438,7 @@ winDrawRoundRectangle _ _ _ _
 	= code
 	{
 		.inline WinDrawRoundRectangle
-			ccall WinDrawRoundRectangle "IIIIIIII-II"
+			ccall WinDrawRoundRectangle "IIIIIIpI-pI"
 		.end
 	}
 
@@ -448,7 +448,7 @@ winScrollRectangle _ _ _
 	= code
 	{
 		.inline WinScrollRectangle
-			ccall WinScrollRectangle "IIIIIIII-IIIIII"
+			ccall WinScrollRectangle "IIIIIIpI-IIIIpI"
 		.end
 	}
 
@@ -457,7 +457,7 @@ winScrollRectangle2 _ _ _
 	= code
 	{
 		.inline WinScrollRectangle2
-			ccall WinScrollRectangle2 "IIIIIIII-IIIIII"
+			ccall WinScrollRectangle2 "IIIIIIpI-IIIIpI"
 		.end
 	}
 
@@ -466,7 +466,7 @@ winCopyRectangle _ _ _
 	= code
 	{
 		.inline WinCopyRectangle
-			ccall WinCopyRectangle "IIIIIIII-II"
+			ccall WinCopyRectangle "IIIIIIpI-pI"
 		.end
 	}
 
@@ -475,7 +475,7 @@ winCopyRectangleTo _ _ _
 	= code
 	{
 		.inline WinCopyRectangleTo
-			ccall WinCopyRectangleTo "IIIIIIII-II"
+			ccall WinCopyRectangleTo "IIIIIIpI-pI"
 		.end
 	}