gcl.git - GNU Common Lisp

index : gcl.git
GNU Common Lisp
summary refs log tree commit diff
diff options
context:
space:
mode:
authorCamm Maguire <camm@debian.org>2003年07月16日 02:03:00 +0000
committerCamm Maguire <camm@debian.org>2003年07月16日 02:03:00 +0000
commita441af303e10470976763f4e2d24449664c712eb (patch)
tree3aef09a19b71bdd61e6ae4084f6a584f2ebe65d1
parent3c4740c2e5c45f885af230c2c53290ffc3bbcd66 (diff)
downloadgcl-unlabeled-1.8.4.tar.gz
* Type-punning warning fixes;* small_fixnum overflow fixes;* off by one fix in cerror;* Fix compiler error which had not recognized defpackage as a package operation;* Fix tkl.lisp call to open-named-socket;* Make values-list and nreconc signal errors when they should on dotted lists.; * Avoid use of windows.h types as macros.; * New config.{sub,guess}unlabeled-1.8.4
Diffstat
-rwxr-xr-xgcl/cmpnew/cmpbind.c 32
-rwxr-xr-xgcl/cmpnew/cmpblock.c 52
-rwxr-xr-xgcl/cmpnew/cmpcatch.c 24
-rwxr-xr-xgcl/cmpnew/cmplabel.c 24
-rwxr-xr-xgcl/cmpnew/cmptype.c 18
-rwxr-xr-xgcl/o/sockets.c 16
6 files changed, 88 insertions, 78 deletions
diff --git a/gcl/cmpnew/cmpbind.c b/gcl/cmpnew/cmpbind.c
index 65b87796b..f7c4fa9a9 100755
--- a/gcl/cmpnew/cmpbind.c
+++ b/gcl/cmpnew/cmpbind.c
@@ -360,22 +360,22 @@ TTL:;
VMR4(V74)}
return Cnil;
}
-static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)&LnkLI34,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* WT-SHORT-FLOAT-LOC */
-static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* WT-LONG-FLOAT-LOC */
-static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* WT-CHARACTER-LOC */
-static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* WT-FIXNUM-LOC */
-static void LnkT29(){ call_or_link(VV[29],(void **)&Lnk29);} /* WT-LOC */
-static object LnkTLI28(){return call_proc0(VV[28],(void **)&LnkLI28);} /* CLOSE-INLINE-BLOCKS */
-static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* WT-INTEGER-LOC */
-static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* SAVE-AVMA */
-static object LnkTLI25(){return call_proc0(VV[25],(void **)&LnkLI25);} /* BABOON */
-static object LnkTLI18(){return call_proc0(VV[18],(void **)&LnkLI18);} /* WFS-ERROR */
-static object LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)&LnkLI17,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI15(){return call_proc0(VV[15],(void **)&LnkLI15);} /* CCB-VS-PUSH */
-static object LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)&LnkLI14,1,first,ap);va_end(ap);return V1;} /* CLINK */
-static object LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[13],(void **)&LnkLI13,first,ap);va_end(ap);return V1;} /* WT-CLINK */
-static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* WT-VS */
+static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)(void *)&LnkLI34,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* WT-SHORT-FLOAT-LOC */
+static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* WT-LONG-FLOAT-LOC */
+static void LnkT31(){ call_or_link(VV[31],(void **)(void *)&Lnk31);} /* WT-CHARACTER-LOC */
+static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* WT-FIXNUM-LOC */
+static void LnkT29(){ call_or_link(VV[29],(void **)(void *)&Lnk29);} /* WT-LOC */
+static object LnkTLI28(){return call_proc0(VV[28],(void **)(void *)&LnkLI28);} /* CLOSE-INLINE-BLOCKS */
+static void LnkT27(){ call_or_link(VV[27],(void **)(void *)&Lnk27);} /* WT-INTEGER-LOC */
+static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* SAVE-AVMA */
+static object LnkTLI25(){return call_proc0(VV[25],(void **)(void *)&LnkLI25);} /* BABOON */
+static object LnkTLI18(){return call_proc0(VV[18],(void **)(void *)&LnkLI18);} /* WFS-ERROR */
+static object LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)(void *)&LnkLI17,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI15(){return call_proc0(VV[15],(void **)(void *)&LnkLI15);} /* CCB-VS-PUSH */
+static object LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)(void *)&LnkLI14,1,first,ap);va_end(ap);return V1;} /* CLINK */
+static object LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[13],(void **)(void *)&LnkLI13,first,ap);va_end(ap);return V1;} /* WT-CLINK */
+static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)(void *)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* WT-VS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpblock.c b/gcl/cmpnew/cmpblock.c
index 83d3c6fdc..c11687939 100755
--- a/gcl/cmpnew/cmpblock.c
+++ b/gcl/cmpnew/cmpblock.c
@@ -19,7 +19,7 @@ static object LI1(object first,...)
va_start(ap,first);
narg= narg - 0;
{
- parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap);
+ parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
V3=(Vcs[2]);
@@ -465,31 +465,31 @@ TTL:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
-static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* C2RETURN-LOCAL */
-static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CLB */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CCB */
-static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)&LnkLI43,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
-static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)&LnkLI42,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
-static object LnkTLI41(){return call_proc0(VV[41],(void **)&LnkLI41);} /* CCB-VS-PUSH */
-static object LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* CLINK */
-static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)&LnkLI39,first,ap);va_end(ap);return V1;} /* WT-CLINK */
-static object LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)&LnkLI38,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
-static object LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[37],(void **)&LnkLI37,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* WT-VS */
-static object LnkTLI35(){return call_proc0(VV[35],(void **)&LnkLI35);} /* VS-PUSH */
-static void LnkT34(){ call_or_link(VV[34],(void **)&Lnk34);} /* C2EXPR */
-static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* C2BLOCK-LOCAL */
-static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)&LnkLI32,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CLB */
-static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)&LnkLI31,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CCB */
-static object LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)&LnkLI30,1,first,ap);va_end(ap);return V1;} /* RESET-INFO-TYPE */
-static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
-static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-BLK */
-static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[27],(void **)&LnkLI27,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)&LnkLI26,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
+static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static void LnkT49(){ call_or_link(VV[49],(void **)(void *)&Lnk49);} /* C2RETURN-LOCAL */
+static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CLB */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2RETURN-CCB */
+static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)(void *)&LnkLI43,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
+static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
+static object LnkTLI41(){return call_proc0(VV[41],(void **)(void *)&LnkLI41);} /* CCB-VS-PUSH */
+static object LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)(void *)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* CLINK */
+static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* WT-CLINK */
+static object LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)(void *)&LnkLI38,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
+static object LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[37],(void **)(void *)&LnkLI37,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* WT-VS */
+static object LnkTLI35(){return call_proc0(VV[35],(void **)(void *)&LnkLI35);} /* VS-PUSH */
+static void LnkT34(){ call_or_link(VV[34],(void **)(void *)&Lnk34);} /* C2EXPR */
+static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* C2BLOCK-LOCAL */
+static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CLB */
+static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)(void *)&LnkLI31,2,first,ap);va_end(ap);return V1;} /* C2BLOCK-CCB */
+static object LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)(void *)&LnkLI30,1,first,ap);va_end(ap);return V1;} /* RESET-INFO-TYPE */
+static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)(void *)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
+static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)(void *)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-BLK */
+static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[27],(void **)(void *)&LnkLI27,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)(void *)&LnkLI26,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpcatch.c b/gcl/cmpnew/cmpcatch.c
index 10435d690..417b3e7be 100755
--- a/gcl/cmpnew/cmpcatch.c
+++ b/gcl/cmpnew/cmpcatch.c
@@ -264,18 +264,18 @@ T116:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)&LnkLI34,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
-static object LnkTLI33(){return call_proc0(VV[33],(void **)&LnkLI33);} /* RESET-TOP */
-static object LnkTLI32(){return call_proc0(VV[32],(void **)&LnkLI32);} /* VS-PUSH */
-static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)&LnkLI31,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* C2EXPR */
-static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)&LnkLI29,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[28],(void **)&LnkLI28,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)&LnkLI27,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
-static object LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)&LnkLI26,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
-static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)&LnkLI25,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)&LnkLI24,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
-static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[23],(void **)&LnkLI23,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)(void *)&LnkLI34,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
+static object LnkTLI33(){return call_proc0(VV[33],(void **)(void *)&LnkLI33);} /* RESET-TOP */
+static object LnkTLI32(){return call_proc0(VV[32],(void **)(void *)&LnkLI32);} /* VS-PUSH */
+static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)(void *)&LnkLI31,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* C2EXPR */
+static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)(void *)&LnkLI29,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[28],(void **)(void *)&LnkLI28,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
+static object LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)(void *)&LnkLI26,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
+static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)(void *)&LnkLI24,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[23],(void **)(void *)&LnkLI23,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmplabel.c b/gcl/cmpnew/cmplabel.c
index df4953f07..0bb8c72f8 100755
--- a/gcl/cmpnew/cmplabel.c
+++ b/gcl/cmpnew/cmplabel.c
@@ -644,18 +644,18 @@ T274:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
-static object LnkTLI56(){return call_proc0(VV[56],(void **)&LnkLI56);} /* WFS-ERROR */
-static object LnkTLI55(){return call_proc0(VV[55],(void **)&LnkLI55);} /* VS-PUSH */
-static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)&LnkLI54,first,ap);va_end(ap);return V1;} /* CS-PUSH */
-static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* SET-LOC */
-static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* UNWIND-BDS */
-static object LnkTLI51(){return call_proc0(VV[51],(void **)&LnkLI51);} /* BABOON */
-static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-FALSE */
-static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-TRUE */
-static object LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* RESET-TOP */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
-static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
+static object LnkTLI56(){return call_proc0(VV[56],(void **)(void *)&LnkLI56);} /* WFS-ERROR */
+static object LnkTLI55(){return call_proc0(VV[55],(void **)(void *)&LnkLI55);} /* VS-PUSH */
+static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)(void *)&LnkLI54,first,ap);va_end(ap);return V1;} /* CS-PUSH */
+static void LnkT53(){ call_or_link(VV[53],(void **)(void *)&Lnk53);} /* SET-LOC */
+static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* UNWIND-BDS */
+static object LnkTLI51(){return call_proc0(VV[51],(void **)(void *)&LnkLI51);} /* BABOON */
+static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-FALSE */
+static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* SET-JUMP-TRUE */
+static object LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* RESET-TOP */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
+static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmptype.c b/gcl/cmpnew/cmptype.c
index d1eeaae42..26026bdae 100755
--- a/gcl/cmpnew/cmptype.c
+++ b/gcl/cmpnew/cmptype.c
@@ -854,15 +854,15 @@ T283:;
VMR8(V147)}
return Cnil;
}
-static object LnkTLI70(){return call_proc0(VV[70],(void **)&LnkLI70);} /* C1NIL */
-static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)&LnkLI69,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* COPY-INFO */
-static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
-static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
-static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* SUBTYPEP */
-static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
-static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)&LnkLI58,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
-static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
+static object LnkTLI70(){return call_proc0(VV[70],(void **)(void *)&LnkLI70);} /* C1NIL */
+static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)(void *)&LnkLI69,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* COPY-INFO */
+static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
+static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
+static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* SUBTYPEP */
+static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
+static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
+static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/o/sockets.c b/gcl/o/sockets.c
index dd298da50..0402fdca6 100755
--- a/gcl/o/sockets.c
+++ b/gcl/o/sockets.c
@@ -105,8 +105,14 @@ DEFUN_NEW("OPEN-NAMED-SOCKET",object,fSopen_named_socket,SI,1,1,NONE,OI,OO,OO,OO
"Open a socket on PORT and return (cons fd portname) where file \
descriptor is a small fixnum which is the write file descriptor for \
the socket. If PORT is zero do automatic allocation of port")
-{ int s, n, rc; struct
-sockaddr_in addr;
+{
+#ifdef __MINGW32__
+ SOCKET s;
+#else
+ int s;
+#endif
+ int n, rc;
+ struct sockaddr_in addr;
#ifdef __MINGW32__
if ( w32_socket_init() < 0 ) {
@@ -117,7 +123,11 @@ sockaddr_in addr;
/* Using TCP layer */
s = socket(PF_INET, SOCK_STREAM, 0);
+#ifdef __MINGW32__
+ if ( s == INVALID_SOCKET )
+#else
if (s < 0)
+#endif
{
perror("ERROR !!! socket creation failed in sock_connect_to_name\n");
return Cnil;
@@ -175,7 +185,7 @@ sockaddr_in addr;
return Cnil;
}
- return make_cons(make_fixnum(s), small_fixnum(ntohs(addr.sin_port)));
+ return make_cons(make_fixnum(s), make_fixnum(ntohs(addr.sin_port)));
}
DEFUN_NEW("CLOSE-FD",object,fSclose_fd,SI,1,1,NONE,OI,OO,OO,OO,(fixnum fd),
generated by cgit v1.2.3 (git 2.25.1) at 2025年09月07日 18:13:02 +0000

AltStyle によって変換されたページ (->オリジナル) /