cvs commit: parrot assemble.pl

[josh]

cvsuser     02/07/16 20:45:27

  Modified:    .        assemble.pl
  Log:
  From: "Sean O'Rourke" <[EMAIL PROTECTED]>
  Subject: [PATCH] fix assembler's floating-point constant RE
  
  Should handle things like "1e8", but it now requires a decimal point.
  
  Revision  Changes    Path
  1.81      +2 -1      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /cvs/public/parrot/assemble.pl,v
  retrieving revision 1.80
  retrieving revision 1.81
  diff -u -w -r1.80 -r1.81
  --- assemble.pl       15 Jul 2002 21:01:28 -0000      1.80
  +++ assemble.pl       17 Jul 2002 03:45:27 -0000      1.81
  @@ -840,7 +840,8 @@
     my $bin_re = qr([-+]?0[bB][01]+);
     my $dec_re = qr([-+]?\d+);
     my $hex_re = qr([-+]?0[xX][0-9a-fA-F]+);
  -  my $flt_re = qr([-+]?\d+\.\d+([eE][-+]?\d+)?);
  +  my $flt_re = qr{[-+]?\d+ (?:(?:\.\d+(?:[eE][-+]?\d+)?)
  +                               | (?:[Ee][+-]?\d+))}x;
     my $str_re = qr(\"(?:[^\\\"]*(?:\\.[^\\\"]*)*)\" |
                     \'(?:[^\\\']*(?:\\.[^\\\']*)*)\'
                    )x;