cvs commit: parrot assemble.pl

[simon]

simon       01/09/14 01:46:03

  Modified:    .        assemble.pl
  Log:
  Make the assembler grok transcendental maths again.
  Courtesy of: Gibbs Tanton - tgibbs <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.15      +1 -1      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -w -r1.14 -r1.15
  --- assemble.pl       2001/09/13 16:29:24     1.14
  +++ assemble.pl       2001/09/14 08:46:03     1.15
  @@ -31,7 +31,7 @@
   open GUTS, "interp_guts.h";
   my %opcodes;
   while (<GUTS>) {
  -    next unless /\tx\[(\d+)\] = ([a-z_]+);/;
  +    next unless /\tx\[(\d+)\] = ([a-z0-9_]+);/;
       $opcodes{$2}{CODE} = $1;
   }
   close GUTS;