develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34179 - trunk/languages/perl6/src/pmc

From:
chromatic
Date:
December 20, 2008 20:28
Subject:
[svn:parrot] r34179 - trunk/languages/perl6/src/pmc
Message ID:
20081221042756.C4D85CBA12@x12.develooper.com
Author: chromatic
Date: Sat Dec 20 20:27:56 2008
New Revision: 34179

Modified:
   trunk/languages/perl6/src/pmc/perl6str.pmc

Log:
[Rakudo] Turned a C++-style comment into a C-style comment so as not to confuse
old, broken, vendor-supplied compilers stuck in the twentieth century.

Modified: trunk/languages/perl6/src/pmc/perl6str.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6str.pmc	(original)
+++ trunk/languages/perl6/src/pmc/perl6str.pmc	Sat Dec 20 20:27:56 2008
@@ -27,10 +27,11 @@
 static
 FLOATVAL
 parse_number(const char **start, const char *stop, FLOATVAL radix) {
-    FLOATVAL number = 0.0;
-    const char *pos = *start;
-    int underscore_skip = 0;
-    //continue until the end or until we've hit a non-digit
+    const char *pos             = *start;
+    FLOATVAL    number          = 0.0;
+    int         underscore_skip = 0;
+
+    /* continue until the end or until we've hit a non-digit */
     while (pos + underscore_skip < stop) {
         unsigned int current = *(pos + underscore_skip);
         if (isdigit((unsigned char)current))



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About