cvs commit: parrot/languages/jako/examples pmc.jako

[Gregor N . Purdy]

cvsuser     04/02/28 00:27:13

  Modified:    languages/jako/examples pmc.jako
  Log:
    * Looks like we need to have a PerlString PMC allocated before we try to
      set a P reg to a string value.
  
  Revision  Changes    Path
  1.4       +1 -0      parrot/languages/jako/examples/pmc.jako
  
  Index: pmc.jako
  ===================================================================
  RCS file: /cvs/public/parrot/languages/jako/examples/pmc.jako,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- pmc.jako  10 Jul 2003 12:42:27 -0000      1.3
  +++ pmc.jako  28 Feb 2004 08:27:13 -0000      1.4
  @@ -2,6 +2,7 @@
   
   var pmc foo, bar;
   bar = new PerlUndef;
  +foo = new PerlString;
   foo = "Hello, world!\n";
   sys::print(foo);