[svn:parrot] r47538 - trunk/t/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Jun 10 16:36:44 2010
New Revision: 47538
URL: https://trac.parrot.org/parrot/changeset/47538

Log:
cosmetic change to embed tests

Modified:
   trunk/t/src/embed.t

Modified: trunk/t/src/embed.t
==============================================================================
--- trunk/t/src/embed.t	Thu Jun 10 16:27:38 2010	(r47537)
+++ trunk/t/src/embed.t	Thu Jun 10 16:36:44 2010	(r47538)
@@ -69,20 +69,18 @@
 #include "parrot/embed.h"
 #include "parrot/extend.h"
 
-void fail(const char *msg);
-Parrot_String createstring(Parrot_Interp interp, const char * value);
+static void fail(const char *msg);
+static Parrot_String createstring(Parrot_Interp interp, const char * value);
 
-void fail(const char *msg)
+static void fail(const char *msg)
 {
     fprintf(stderr, "failed: %s\n", msg);
     exit(EXIT_FAILURE);
 }
 
-Parrot_String createstring(Parrot_Interp interp, const char * value)
+static Parrot_String createstring(Parrot_Interp interp, const char * value)
 {
-    Parrot_String result;
-    size_t l = strlen(value);
-    return Parrot_new_string(interp, value, l, (const char*)NULL, 0);
+    return Parrot_new_string(interp, value, strlen(value), (const char*)NULL, 0);
 }
 
 CODE