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
+}


Reply via email to