Changeset 3956 for src/perl5

Timestamp:

05/27/05 04:31:40 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* new callconv -- pugs apply now takes Cxt

Location:

src/perl5

Files:

• perl5.c (modified) (1 diff)
• pugsembed.c (modified) (1 diff)
• pugsembed.h (modified) (1 diff)

src/perl5/perl5.c

@@ -52 +52 @@
     stack[i-2] = NULL;
     
-    ST(0) = pugs_Apply(val, inv, stack);
+    ST(0) = pugs_Apply(val, inv, stack, GIMME_V);
     sv_dump (ret);
     free (stack);

src/perl5/pugsembed.c

@@ -23 +23 @@
     isa[0] = pugs_PvToVal("Code");
     isa[1] = NULL;
-    if (SvTRUE(pugs_Apply(pugs_PvToVal("&isa"), val, isa))) {
+    if (SvTRUE(pugs_Apply(pugs_PvToVal("&isa"), val, isa, G_SCALAR))) {
         if (__init) {
             stack[0] = sv;

src/perl5/pugsembed.h

@@ -8 +8 @@
 
 extern Val *pugs_Eval ( char *code );
-extern SV *pugs_Apply ( Val *sub, Val *inv, Val **args );
+extern SV *pugs_Apply ( Val *sub, Val *inv, Val **args, int cxt );
 
 extern Val *pugs_IvToVal ( IV iv );