[perl #17233] [PATCH] misc:c: Parrot_vsprintf_s

[via RT]

# New Ticket Created by  Leopold Toetsch 
# Please include the string:  [perl #17233]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17233 >


- %x did return wrong "letters"
- this "continue" looks bogus,
I did a test with "...%x..", which works now.

Please apply.


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/37395/30314/4caa05/misc.c.diff


--- misc.c      Wed Aug 21 14:03:56 2002
+++ /home/lt/src/parrot-leo/misc.c      Fri Sep 13 12:14:10 2002
@@ -139,7 +139,7 @@
             buf2[i] = (char)('0' + cur);
         }
         else {
-            buf2[i] = (char)('a' + cur);
+            buf2[i] = (char)('a' + cur - 10);
         }
 
         i++;
@@ -348,7 +348,7 @@
                         }
 
                         info.phase = PHASE_TERM;
-                        continue;
+                        /* continue; XXX ? */
 
                     /*@fallthrough@ */ case PHASE_TERM:
                         switch (ch) {