From 287cef860c030b308ec1321bfad240ea88e8746c Mon Sep 17 00:00:00 2001 From: joerg Date: Sun, 17 Jan 2016 15:14:47 +0000 Subject: Mark as MAKE_JOBS_SAFE=no for race conditions. While here, fix ctype abuse and a bunch of other warnings. Defensively bump revision. --- lang/vslisp/patches/patch-ae | 39 ++++++++++++++++++++----- lang/vslisp/patches/patch-src_bin2c.c | 9 ++++++ lang/vslisp/patches/patch-src_functions_funcn.c | 13 +++++++++ lang/vslisp/patches/patch-src_functions_funcs.c | 13 +++++++++ lang/vslisp/patches/patch-src_mkfuns.c | 17 +++++++++++ lang/vslisp/patches/patch-src_newhash.c | 12 ++++++++ 6 files changed, 96 insertions(+), 7 deletions(-) create mode 100644 lang/vslisp/patches/patch-src_bin2c.c create mode 100644 lang/vslisp/patches/patch-src_functions_funcn.c create mode 100644 lang/vslisp/patches/patch-src_functions_funcs.c create mode 100644 lang/vslisp/patches/patch-src_mkfuns.c create mode 100644 lang/vslisp/patches/patch-src_newhash.c (limited to 'lang/vslisp/patches') diff --git a/lang/vslisp/patches/patch-ae b/lang/vslisp/patches/patch-ae index bc91603b8d4..0b0a0b8d655 100644 --- a/lang/vslisp/patches/patch-ae +++ b/lang/vslisp/patches/patch-ae @@ -1,10 +1,19 @@ -$NetBSD: patch-ae,v 1.2 2015/12/29 23:34:57 dholland Exp $ +$NetBSD: patch-ae,v 1.3 2016/01/17 15:14:47 joerg Exp $ Handle floating values properly. ---- src/lcore.c.orig Fri Mar 15 00:16:32 2002 -+++ src/lcore.c Fri Mar 15 00:16:44 2002 -@@ -113,7 +113,7 @@ +--- src/lcore.c.orig 2000-05-07 20:26:14.000000000 +0000 ++++ src/lcore.c +@@ -9,6 +9,8 @@ + * + * */ + ++int InitMiscFuns(void); ++ + char IL_Version[] = "4.0"; + + #ifndef lint +@@ -113,7 +115,7 @@ char *lText(ATOM a,char *TeXt) case 1: sprintf(TeXt,"[^H]");return TeXt; case 2: sprintf(TeXt,"[^F]");return TeXt; case 3: sprintf(TeXt,"[^T]");return TeXt; @@ -13,7 +22,7 @@ Handle floating values properly. case 6: sprintf(TeXt,"%d",*(int*)(a->a)); return TeXt; case 5: sprintf(TeXt,"[^II]");return TeXt; case 8: sprintf(TeXt,"[^IF]");return TeXt; -@@ -180,6 +180,7 @@ +@@ -180,6 +182,7 @@ ATOM MakeDAtom(double d) tmp->a=(char *)malloc(sizeof(double)); dd=(double *)(tmp->a); (*dd)=d; @@ -21,7 +30,7 @@ Handle floating values properly. tmp->g=1;tmp->f=4<<1;tmp->b=NULL; return tmp; } -@@ -197,9 +198,7 @@ +@@ -197,9 +200,7 @@ ATOM MakeFAtom(FILE *d) /*--X FNAME: "GetDouble" DESC: "Takes a double from atom a" */ double GetDbleOld(ATOM a) { @@ -32,7 +41,23 @@ Handle floating values properly. } /*--X VNAME: "Pos" DESC: "Temporary variable for a string to list conversion" */ -@@ -249,7 +248,7 @@ +@@ -233,12 +234,12 @@ ATOM reada(char *s) + } + else { + c[i]=s[Pos]; c[i+1]=0; +- if(!(isdigit(c[i]) || (c[i]=='+') || (c[i]=='-') || (c[i]=='.'))) { ++ if(!(isdigit((unsigned char)c[i]) || (c[i]=='+') || (c[i]=='-') || (c[i]=='.'))) { + if(i) { +- if(!((c[i]=='e' || c[i]=='E') && (c[i-1]=='.' || isdigit(c[i-1])))) fd=0; ++ if(!((c[i]=='e' || c[i]=='E') && (c[i-1]=='.' || isdigit((unsigned char)c[i-1])))) fd=0; + } else fd=0; + } +- if(isdigit(c[i])) nd++; ++ if(isdigit((unsigned char)c[i])) nd++; + } + } + c[i]=0; +@@ -249,7 +250,7 @@ ATOM reada(char *s) { double *d; t=mkatm(sizeof(double));t->f=4<<1; diff --git a/lang/vslisp/patches/patch-src_bin2c.c b/lang/vslisp/patches/patch-src_bin2c.c new file mode 100644 index 00000000000..55e650d4f1f --- /dev/null +++ b/lang/vslisp/patches/patch-src_bin2c.c @@ -0,0 +1,9 @@ +$NetBSD: patch-src_bin2c.c,v 1.1 2016/01/17 15:14:47 joerg Exp $ + +--- src/bin2c.c.orig 2016-01-16 13:47:40.000000000 +0000 ++++ src/bin2c.c +@@ -1,3 +1,4 @@ ++#include + #include + + int main(int np,char **p) diff --git a/lang/vslisp/patches/patch-src_functions_funcn.c b/lang/vslisp/patches/patch-src_functions_funcn.c new file mode 100644 index 00000000000..d651900eb0e --- /dev/null +++ b/lang/vslisp/patches/patch-src_functions_funcn.c @@ -0,0 +1,13 @@ +$NetBSD: patch-src_functions_funcn.c,v 1.1 2016/01/17 15:14:47 joerg Exp $ + +--- src/functions/funcn.c.orig 2016-01-16 13:50:45.000000000 +0000 ++++ src/functions/funcn.c +@@ -729,7 +729,7 @@ LIST L_Defefun(IL_PARS) + + while((ss[ii]=fgetc(FiI))!=' ' && ss[ii]!='(' && + ss[ii]!=')' && ss[ii]!='\n' && (!feof(FiI))) { +- if(!isdigit(ss[ii])) { ++ if(!isdigit((unsigned char)ss[ii])) { + if(ss[ii]!='\n' && ss[ii]!='+' && ss[ii]!='-' && ss[ii]!='.') id=0;} + else dg++; + ii++; diff --git a/lang/vslisp/patches/patch-src_functions_funcs.c b/lang/vslisp/patches/patch-src_functions_funcs.c new file mode 100644 index 00000000000..1b8db21fba1 --- /dev/null +++ b/lang/vslisp/patches/patch-src_functions_funcs.c @@ -0,0 +1,13 @@ +$NetBSD: patch-src_functions_funcs.c,v 1.1 2016/01/17 15:14:47 joerg Exp $ + +--- src/functions/funcs.c.orig 2016-01-16 13:50:27.000000000 +0000 ++++ src/functions/funcs.c +@@ -56,7 +56,7 @@ + if(ss[i]==' ') + s[j++]='+'; + else +- if((toupper(ss[i])>= 'A') && (toupper(ss[i]<='Z'))) ++ if((toupper((unsigned char)ss[i])>= 'A') && (toupper((unsigned char)ss[i]<='Z'))) + s[j++]=ss[i]; + else + if(ss[i]>='0' && ss[i]<='9') s[j++]=ss[i]; diff --git a/lang/vslisp/patches/patch-src_mkfuns.c b/lang/vslisp/patches/patch-src_mkfuns.c new file mode 100644 index 00000000000..41517134921 --- /dev/null +++ b/lang/vslisp/patches/patch-src_mkfuns.c @@ -0,0 +1,17 @@ +$NetBSD: patch-src_mkfuns.c,v 1.1 2016/01/17 15:14:47 joerg Exp $ + +--- src/mkfuns.c.orig 2016-01-16 13:51:04.000000000 +0000 ++++ src/mkfuns.c +@@ -1,10 +1,11 @@ + + /* This is a preprocessor for iLisp3.x sources */ + ++#include + #include + #include + +-main(int np,char **p) ++int main(int np,char **p) + { + char s[500]; + FILE *fo; diff --git a/lang/vslisp/patches/patch-src_newhash.c b/lang/vslisp/patches/patch-src_newhash.c new file mode 100644 index 00000000000..db7cb43f18f --- /dev/null +++ b/lang/vslisp/patches/patch-src_newhash.c @@ -0,0 +1,12 @@ +$NetBSD: patch-src_newhash.c,v 1.1 2016/01/17 15:14:47 joerg Exp $ + +--- src/newhash.c.orig 2016-01-16 13:48:20.000000000 +0000 ++++ src/newhash.c +@@ -21,6 +21,7 @@ + + #include + #include ++#include + #include "l_defs.h" + + static hash *IL_NULL_hash; -- cgit v1.2.3