diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-01-01 03:41:57 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-04 18:27:44 +0000 |
| commit | 32b48a68dd8b03c0105897a517c685a34c11db6d (patch) | |
| tree | 3474c050a1fc53ceefcd0c6937684d2ccc969af8 /lib | |
| parent | b207e5e2c40219749f3bdcc1346a77b6985ff4c7 (diff) | |
| download | perl-32b48a68dd8b03c0105897a517c685a34c11db6d.tar.gz | |
[patch] typemap =~ s/croak/Perl_croak/
Message-ID: <Pine.LNX.4.10.10101011139570.3379-100000@mojo.covalent.net>
p4raw-id: //depot/perl@8308
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/typemap | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index 9961f2d61d..a5d06cafeb 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -55,22 +55,22 @@ T_SVREF if (sv_isa($arg, \"${ntype}\")) $var = (SV*)SvRV($arg); else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_AVREF if (sv_isa($arg, \"${ntype}\")) $var = (AV*)SvRV($arg); else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_HVREF if (sv_isa($arg, \"${ntype}\")) $var = (HV*)SvRV($arg); else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_CVREF if (sv_isa($arg, \"${ntype}\")) $var = (CV*)SvRV($arg); else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_SYSRET $var NOT IMPLEMENTED T_UV @@ -113,28 +113,28 @@ T_PTRREF $var = INT2PTR($type,tmp); } else - croak(\"$var is not a reference\") + Perl_croak(aTHX_ \"$var is not a reference\") T_REF_IV_REF if (sv_isa($arg, \"${type}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = *($type *) tmp; } else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_REF_IV_PTR if (sv_isa($arg, \"${type}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = ($type) tmp; } else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_PTROBJ if (sv_derived_from($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); } else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_PTRDESC if (sv_isa($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); @@ -142,21 +142,21 @@ T_PTRDESC $var = ${type}_desc->ptr; } else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_REFREF if (SvROK($arg)) { IV tmp = SvIV((SV*)SvRV($arg)); $var = *INT2PTR($type,tmp); } else - croak(\"$var is not a reference\") + Perl_croak(aTHX_ \"$var is not a reference\") T_REFOBJ if (sv_isa($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = *INT2PTR($type,tmp); } else - croak(\"$var is not of type ${ntype}\") + Perl_croak(aTHX_ \"$var is not of type ${ntype}\") T_OPAQUE $var NOT IMPLEMENTED T_OPAQUEPTR |