60 lines
1.9 KiB
Text
60 lines
1.9 KiB
Text
$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
|