diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
| commit | 3280af22f58e7b37514ed104858e2c2fc55ceeeb (patch) | |
| tree | 8fd8328859f022068272656f072a7ec4eecac0a6 /lib | |
| parent | ef6361f9c2260919aefcc17b1b80f8857c67a84a (diff) | |
| download | perl-3280af22f58e7b37514ed104858e2c2fc55ceeeb.tar.gz | |
PL_ prefix to all perlvars, part1
Builds and passes all tests at one limit i.e. -DPERL_GLOBAL_STRUCT
p4raw-id: //depot/ansiperl@1532
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/typemap | 6 | ||||
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 3 |
2 files changed, 4 insertions, 5 deletions
diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index 03ba050d1e..01e6e8347b 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -92,7 +92,7 @@ T_LONG T_U_LONG $var = (unsigned long)SvIV($arg) T_CHAR - $var = (char)*SvPV($arg,na) + $var = (char)*SvPV($arg,PL_na) T_U_CHAR $var = (unsigned char)SvIV($arg) T_FLOAT @@ -102,7 +102,7 @@ T_NV T_DOUBLE $var = (double)SvNV($arg) T_PV - $var = ($type)SvPV($arg,na) + $var = ($type)SvPV($arg,PL_na) T_PTR $var = ($type)SvIV($arg) T_PTRREF @@ -158,7 +158,7 @@ T_REFOBJ T_OPAQUE $var NOT IMPLEMENTED T_OPAQUEPTR - $var = ($type)SvPV($arg,na) + $var = ($type)SvPV($arg,PL_na) T_PACKED $var = XS_unpack_$ntype($arg) T_PACKEDARRAY diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 484b5778f8..523dabceca 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1305,8 +1305,7 @@ if (@BootCode) } print Q<<"EOF";; -# ST(0) = &sv_yes; -# XSRETURN(1); +# XSRETURN_YES; #]] # EOF |