1 files changed, 60 insertions, 0 deletions
diff --git a/devel/guile-fcgi/patches/patch-ab b/devel/guile-fcgi/patches/patch-ab
new file mode 100644
index 00000000000..d3a78884b0d
--- /dev/null
+++ b/devel/guile-fcgi/patches/patch-ab
@@ -0,0 +1,60 @@
+$NetBSD: patch-ab,v 1.1 2007/06/05 05:44:37 wiz Exp $
+
+--- src/guile-fcgi.c.orig	2007-06-04 01:13:05.000000000 +0400
++++ src/guile-fcgi.c	2007-06-04 01:13:16.000000000 +0400
+@@ -43,11 +43,11 @@
+ /****************************************************************************/
+ 
+ static long tagFCGX_Stream;
+-#define SCM_FCGX_STREAMP(smob) (SCM_NIMP(smob) && SCM_CAR(smob)==tagFCGX_Stream)
++#define SCM_FCGX_STREAMP(smob) (SCM_NIMP(smob) && (long)(SCM_CAR(smob))==tagFCGX_Stream)
+ #define SCM_FCGX_STREAM(smob) ((FCGX_Stream*)SCM_CDR(smob))
+ 
+ static long tagFCGX_Request;
+-#define SCM_FCGX_REQUESTP(smob) (SCM_NIMP(smob) && SCM_CAR(smob)==tagFCGX_Request)
++#define SCM_FCGX_REQUESTP(smob) (SCM_NIMP(smob) && (long)(SCM_CAR(smob))==tagFCGX_Request)
+ #define SCM_FCGX_REQUEST(smob) (FCGX_Request*)SCM_CDR(smob)
+ 
+ long fcgi_ptype=0;
+@@ -524,7 +524,7 @@
+ {
+   SCM_ASSERT((SCM_FCGX_STREAMP(stream)), stream, SCM_ARG1, s_scm_FCGX_FFlush);
+ 
+-  return (-1==FCGX_FFlush(SCM_FCGX_STREAM(stream)));
++  return (void*)(-1==FCGX_FFlush(SCM_FCGX_STREAM(stream)));
+ }
+ /*DLLAPI int FCGX_FClose(FCGX_Stream *stream);*/
+ SCM_DEFINE (scm_FCGX_FClose,"FCGX:FClose",1,0,0,
+@@ -544,7 +544,7 @@
+ {
+   SCM_ASSERT((SCM_FCGX_STREAMP(stream)), stream, SCM_ARG1, s_scm_FCGX_FClose);
+ 
+-  return (-1==FCGX_FClose(SCM_FCGX_STREAM(stream)));
++  return (void*)(-1==FCGX_FClose(SCM_FCGX_STREAM(stream)));
+ }
+ /*DLLAPI int FCGX_GetError(FCGX_Stream *stream);*/
+ SCM_DEFINE (scm_FCGX_GetError,"FCGX:GetError",1,0,0,
+@@ -702,7 +702,7 @@
+ 
+ static SCM
+ fcgi_port_mark(SCM port){
+-  scm_gc_mark (SCM_STREAM(port));
++  scm_gc_mark ((void*)SCM_STREAM(port));
+   return SCM_BOOL_F;
+ }
+ 
+@@ -842,12 +842,12 @@
+           (SCM port),"")
+ {
+   SCM_ASSERT(SCM_PORTP(port) && 
+-	  ((SCM_CAR(port) & fcgi_ptype)==fcgi_ptype),
++	  (((long)SCM_CAR(port) & fcgi_ptype)==fcgi_ptype),
+ 	  port,
+ 	  SCM_ARG1,
+ 	  s_scm_fcgi_make_stream);
+ 
+-  return SCM_STREAM(port);
++  return (void*)SCM_STREAM(port);
+ }
+ 
+ void