cvs commit: parrot/classes parrotobject.pmc

[Dan Sugalski]

cvsuser     04/02/23 11:53:52

  Modified:    classes  parrotobject.pmc
  Log:
  Better warning messages
  
  Courtesy of Chromatic <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.19      +17 -9     parrot/classes/parrotobject.pmc
  
  Index: parrotobject.pmc
  ===================================================================
  RCS file: /cvs/public/parrot/classes/parrotobject.pmc,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -w -r1.18 -r1.19
  --- parrotobject.pmc  22 Feb 2004 17:48:41 -0000      1.18
  +++ parrotobject.pmc  23 Feb 2004 19:53:52 -0000      1.19
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: parrotobject.pmc,v 1.18 2004/02/22 17:48:41 mikescott Exp $
  +$Id: parrotobject.pmc,v 1.19 2004/02/23 19:53:52 dan Exp $
   
   =head1 NAME
   
  @@ -175,7 +175,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           return SELF.get_integer_keyed_int(idx);
       }
   
  @@ -228,7 +229,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           SELF.set_integer_keyed_int(idx, value);
       }
   
  @@ -282,7 +284,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           return SELF.get_number_keyed_int(idx);
       }
   
  @@ -335,7 +338,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           SELF.set_number_keyed_int(idx, value);
       }
   
  @@ -388,7 +392,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           return SELF.get_string_keyed_int(idx);
       }
   
  @@ -441,7 +446,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           SELF.set_string_keyed_int(idx, value);
       }
   
  @@ -494,7 +500,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           return SELF.get_pmc_keyed_int(idx);
       }
   
  @@ -547,7 +554,8 @@
               POD_CLASS);
           INTVAL idx = VTABLE_get_integer_keyed_str(interpreter, class, attr);
           if (idx < 0)
  -            internal_exception(1, "No such attribute");
  +            internal_exception(1, "No such attribute: %s\n",
  +                             string_to_cstring( interpreter, attr ));
           SELF.set_pmc_keyed_int(idx, value);
       }