cvs commit: parrot/imcc pbc.c

[Leopold Toetsch]

cvsuser     04/07/17 07:13:26

  Modified:    imcc     pbc.c
  Log:
  build_key fix
  
  Revision  Changes    Path
  1.86      +2 -1      parrot/imcc/pbc.c
  
  Index: pbc.c
  ===================================================================
  RCS file: /cvs/public/parrot/imcc/pbc.c,v
  retrieving revision 1.85
  retrieving revision 1.86
  diff -u -w -r1.85 -r1.86
  --- pbc.c     17 Jul 2004 08:07:27 -0000      1.85
  +++ pbc.c     17 Jul 2004 14:13:26 -0000      1.86
  @@ -706,6 +706,7 @@
                           r->name, r->set, (int)r->color,
                           slice_deb(slice_bits));
                   break;
  +            case VT_CONSTP:
               case VTCONST:
                   switch (r->set) {
                       case 'S':                       /* P["key"] */
  @@ -731,7 +732,7 @@
                   break;
               default:
                   fatal(1,"build_key", "unknown type 0x%x on %s\n",
  -                        r->type, r->name);
  +                        var_type, r->name);
           }
       }
       key[0] = key_length;