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

[svn:parrot] r34347 - in trunk: languages/perl6/src/pmc src/jit/alpha src/jit/amd64 src/jit/arm src/jit/hppa src/jit/i386 src/jit/ia64 src/jit/mips src/jit/ppc src/jit/skeleton src/jit/sun4

From:
infinoid
Date:
December 25, 2008 07:19
Subject:
[svn:parrot] r34347 - in trunk: languages/perl6/src/pmc src/jit/alpha src/jit/amd64 src/jit/arm src/jit/hppa src/jit/i386 src/jit/ia64 src/jit/mips src/jit/ppc src/jit/skeleton src/jit/sun4
Message ID:
20081225151811.0B3ADCBA12@x12.develooper.com
Author: infinoid
Date: Thu Dec 25 07:18:09 2008
New Revision: 34347

Modified:
   trunk/languages/perl6/src/pmc/perl6str.pmc
   trunk/src/jit/alpha/jit_defs.c
   trunk/src/jit/amd64/jit_defs.c
   trunk/src/jit/arm/jit_defs.c
   trunk/src/jit/hppa/jit_defs.c
   trunk/src/jit/i386/jit_defs.c
   trunk/src/jit/ia64/jit_defs.c
   trunk/src/jit/mips/jit_defs.c
   trunk/src/jit/ppc/jit_defs.c
   trunk/src/jit/skeleton/jit_defs.c
   trunk/src/jit/sun4/jit_defs.c

Log:
[cage] Fix failures from the following codingstd tests:
* check_toxxx.t
* c_code_coda.t

Modified: trunk/languages/perl6/src/pmc/perl6str.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6str.pmc	(original)
+++ trunk/languages/perl6/src/pmc/perl6str.pmc	Thu Dec 25 07:18:09 2008
@@ -157,16 +157,18 @@
                 sign = -1.0; s1++;
             }
 
-            if (tolower(s1[0]) == 'i' && tolower(s1[1]) == 'n'
-                    && tolower(s1[2]) == 'f') {
+            if (tolower((unsigned char)s1[0]) == 'i'
+                    && tolower((unsigned char)s1[1]) == 'n'
+                    && tolower((unsigned char)s1[2]) == 'f') {
                 s1 += 3;
                 while (s1 < end && isspace((unsigned char)*s1))
                     s1++;
                 return (s1 == end) ? sign * atof("inf") : 0.0;
             }
 
-            if (tolower(s1[0]) == 'n' && tolower(s1[1]) == 'a'
-                    && tolower(s1[2]) == 'n') {
+            if (tolower((unsigned char)s1[0]) == 'n'
+                    && tolower((unsigned char)s1[1]) == 'a'
+                    && tolower((unsigned char)s1[2]) == 'n') {
                 s1 += 3;
                 while (s1 < end && isspace((unsigned char)*s1))
                     s1++;

Modified: trunk/src/jit/alpha/jit_defs.c
==============================================================================
--- trunk/src/jit/alpha/jit_defs.c	(original)
+++ trunk/src/jit/alpha/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/amd64/jit_defs.c
==============================================================================
--- trunk/src/jit/amd64/jit_defs.c	(original)
+++ trunk/src/jit/amd64/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -352,3 +352,10 @@
 {
     return &arch_info;
 }
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/arm/jit_defs.c
==============================================================================
--- trunk/src/jit/arm/jit_defs.c	(original)
+++ trunk/src/jit/arm/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/hppa/jit_defs.c
==============================================================================
--- trunk/src/jit/hppa/jit_defs.c	(original)
+++ trunk/src/jit/hppa/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/i386/jit_defs.c
==============================================================================
--- trunk/src/jit/i386/jit_defs.c	(original)
+++ trunk/src/jit/i386/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/ia64/jit_defs.c
==============================================================================
--- trunk/src/jit/ia64/jit_defs.c	(original)
+++ trunk/src/jit/ia64/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/mips/jit_defs.c
==============================================================================
--- trunk/src/jit/mips/jit_defs.c	(original)
+++ trunk/src/jit/mips/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/ppc/jit_defs.c
==============================================================================
--- trunk/src/jit/ppc/jit_defs.c	(original)
+++ trunk/src/jit/ppc/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/skeleton/jit_defs.c
==============================================================================
--- trunk/src/jit/skeleton/jit_defs.c	(original)
+++ trunk/src/jit/skeleton/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */

Modified: trunk/src/jit/sun4/jit_defs.c
==============================================================================
--- trunk/src/jit/sun4/jit_defs.c	(original)
+++ trunk/src/jit/sun4/jit_defs.c	Thu Dec 25 07:18:09 2008
@@ -1 +1,8 @@
 /* Stub file for RT#38929 fixes */
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */



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