Changeset 3944 for src/perl5

Timestamp:

05/27/05 03:27:56 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* various callconv fix.

Location:

src/perl5

Files:

• perl5.c (modified) (3 diffs)
• pugsembed.c (modified) (2 diffs)

src/perl5/perl5.c

@@ -41 +41 @@
         stack[i-2] = pugs_SvToVal(ST(i));
     }
-
-    fprintf(stderr, "back to pugs\n");
+    stack[i-2] = NULL;
+
+    /* fprintf(stderr, "back to pugs\n"); */
     ret = pugs_ValToSv(pugs_Apply (val, inv, stack));
 
@@ -210 +211 @@
     SAVETMPS;
 
-    pugs_setenv(env);
+    /* pugs_setenv(env); XXX*/
 
     PUSHMARK(SP);
@@ -268 +269 @@
     SAVETMPS;
 
-    pugs_setenv(env);
+    /* pugs_setenv(env); XXX */
 
     sv = newSVpv(code, 0);

src/perl5/pugsembed.c

@@ -6 +6 @@
 {
     if (!sv_isa(sv, "pugs")) {
-        fprintf(stderr, "bad cast\n");
-        sv_dump(sv);
         return (pugs_MkSvRef(sv));
     }
-    fprintf(stderr, "good cast\n");
     IV tmp = SvIV((SV*)SvRV(sv));
     return ((Val *)tmp);
@@ -37 +34 @@
 {
     SV** rv = hv_fetch(PL_modglobal, "PugsEnv", 7, 0);
-    if (*rv == NULL)
+    if (rv == NULL)
         Perl_croak(aTHX_ "hate software so much");
     IV tmp = SvIV((SV*)SvRV(*rv));