Changeset 3939 for src/perl5

Timestamp:

05/27/05 02:35:11 (4 years ago)

Author:

clkao

svk:copy_cache_prev:

5515

Message:

autrijus++ needs to learn how to use pointers.

Location:

src/perl5

Files:

• perl5.c (modified) (3 diffs)
• pugsembed.c (modified) (1 diff)

src/perl5/perl5.c

@@ -135 +135 @@
 
     exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
-    fprintf(stderr, "hello, perl5: %d\n", exitstatus);
 
     if (exitstatus == 0)
@@ -204 +203 @@
 perl5_apply(SV *sub, SV *inv, SV** args, SV *env, int cxt)
 {
-    SV *arg;
+    SV **arg;
     SV *rv;
     SV *sv;
@@ -223 +222 @@
         XPUSHs(inv);
     }
-    for (arg = args; arg != NULL; arg++) {
-        XPUSHs(arg);
+    for (arg = args; *arg != NULL; arg++) {
+        XPUSHs(*arg);
     }
     PUTBACK;

src/perl5/pugsembed.c

@@ -27 +27 @@
         fprintf(stderr, "got a code!!\n");
         stack[0] = sv;
+        stack[1] = NULL;
         sv = perl5_apply(newSVpv("code", 0), newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR);
     }