Change 11744 by nick@camel-linux on 2001/08/25 14:37:33
Subject: [PATCH bleadperl] quiet down VC++ warnings in a2py.c and walk.c
From: Nikola Knezevic <[EMAIL PROTECTED]>
Date: Fri, 24 Aug 2001 22:10:42 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/x2p/a2py.c#16 edit
... //depot/perl/x2p/walk.c#15 edit
Differences ...
==== //depot/perl/x2p/a2py.c#16 (text) ====
Index: perl/x2p/a2py.c
--- perl/x2p/a2py.c.~1~ Sat Aug 25 08:45:06 2001
+++ perl/x2p/a2py.c Sat Aug 25 08:45:06 2001
@@ -200,6 +200,8 @@
"The operation I've selected may be wrong for the operand types.\n");
}
exit(0);
+ /* by ANSI specs return is needed. This also shuts up VC++ and his warnings */
+ return(0);
}
#define RETURN(retval) return (bufptr = s,retval)
==== //depot/perl/x2p/walk.c#15 (text) ====
Index: perl/x2p/walk.c
--- perl/x2p/walk.c.~1~ Sat Aug 25 08:45:06 2001
+++ perl/x2p/walk.c Sat Aug 25 08:45:06 2001
@@ -254,7 +254,7 @@
}
*d = '\0';
for (d=tokenbuf; *d; d++)
- *d += 128;
+ *d += (char)128;
str_cat(str,tokenbuf);
str_free(tmpstr);
str_cat(str,"/");
@@ -849,9 +849,9 @@
tmp2str=walk(1,level,ops[ops[node+2].ival+1].ival,&numarg,P_MIN);
for (t = tmp2str->str_ptr, d=tokenbuf; *t; d++,t++) {
if (*t == '&')
- *d++ = '$' + 128;
+ *d++ = '$' + (char)128;
else if (*t == '$')
- *d++ = '\\' + 128;
+ *d++ = '\\' + (char)128;
*d = *t + 128;
}
*d = '\0';
@@ -931,7 +931,7 @@
case '\\': case '"': case 'n': case 't': case '$':
break;
default: /* hide this from perl */
- *d++ = '\\' + 128;
+ *d++ = '\\' + (char)128;
}
}
*d = *t + 128;
@@ -1008,7 +1008,7 @@
strcpy(tokenbuf,"]");
else
strcpy(tokenbuf,"}");
- *tokenbuf += 128;
+ *tokenbuf += (char)128;
str_cat(str,tokenbuf);
}
}
@@ -1060,7 +1060,7 @@
str_set(str,";");
tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
for (s = tmpstr->str_ptr; *s && *s != '\n'; s++)
- *s += 128;
+ *s += (char)128;
str_scat(str,tmpstr);
str_free(tmpstr);
tab(str,level);
@@ -1069,7 +1069,7 @@
str = str_new(0);
tmpstr = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
for (s = tmpstr->str_ptr; *s && *s != '\n'; s++)
- *s += 128;
+ *s += (char)128;
str_scat(str,tmpstr);
str_free(tmpstr);
tab(str,level);
End of Patch.
