cvs commit: parrot/imcc pbc.c

[Leopold Toetsch]

cvsuser     04/04/15 09:20:30

  Modified:    imcc     pbc.c
  Log:
  Methodname truncation w single quotes
  
  Revision  Changes    Path
  1.74      +2 -4      parrot/imcc/pbc.c
  
  Index: pbc.c
  ===================================================================
  RCS file: /cvs/public/parrot/imcc/pbc.c,v
  retrieving revision 1.73
  retrieving revision 1.74
  diff -u -w -r1.73 -r1.74
  --- pbc.c     9 Apr 2004 20:32:21 -0000       1.73
  +++ pbc.c     15 Apr 2004 16:20:30 -0000      1.74
  @@ -504,8 +504,7 @@
       }
       else if (*buf == '\'') {
           buf++;
  -        buf[strlen(buf) - 1] = '\0'; /* get rid of trailing quote */
  -        s = string_make(interpreter, buf, strlen(buf), "iso-8859-1",
  +        s = string_make(interpreter, buf, strlen(buf) - 1, "iso-8859-1",
                                                PObj_constant_FLAG);
       }
       else {
  @@ -513,8 +512,7 @@
       }
   
       k = PDB_extend_const_table(interpreter);
  -    interpreter->code->const_table->constants[k]->type =
  -        PFC_STRING;
  +    interpreter->code->const_table->constants[k]->type = PFC_STRING;
       interpreter->code->const_table->constants[k]->u.string = s;
   
       return k;