tcc is a rather picky compiler. It found the following:
"warnings.c", line 61: Error:
[ISO 5.1.1.2]: File does not end in newline character.
"misc.c", line 163: Error:
[Syntax]: Parse error before '/'.
"misc.c", line 541: Error:
[ISO 6.1.4]: End of line in string literal.
Here's a patch. That last one is particularly odd, as it is in a #if 0.
I'm leaving it for now, as I think this is a case of the compiler being on
crack.
Index: misc.c
===================================================================
RCS file: /home/perlcvs/parrot/misc.c,v
retrieving revision 1.6
diff -u -r1.6 misc.c
--- misc.c 5 Feb 2002 17:15:22 -0000 1.6
+++ misc.c 6 Feb 2002 04:10:58 -0000
@@ -160,7 +160,7 @@
buf[i+len]=0;
}
- else { //right-align
+ else { /* right-align */
memmove(buf+howmuch, buf, (size_t)len);
for(i=0; i < howmuch; i++) {
@@ -537,7 +537,7 @@
case 's':
if (args) {
char *s = va_arg(*args, char*);
- //sv_catpv(sv, s ? s : nullstr);
+ /* sv_catpv(sv, s ? s : nullstr); */
targ=string_concat(interpreter, "
}
else if (svix < svmax) {
Index: warnings.c
===================================================================
RCS file: /home/perlcvs/parrot/warnings.c,v
retrieving revision 1.1
diff -u -r1.1 warnings.c
--- warnings.c 5 Feb 2002 13:12:07 -0000 1.1
+++ warnings.c 6 Feb 2002 04:10:58 -0000
@@ -58,4 +58,4 @@
else {
return 1;
}
-}
\ No newline at end of file
+}