develooper Front page | perl.perl5.porters | Postings from January 2001

[patch] typemap =~ s/croak/Perl_croak/

From:
Doug MacEachern
Date:
January 1, 2001 11:38
Subject:
[patch] typemap =~ s/croak/Perl_croak/
Message ID:
Pine.LNX.4.10.10101011139570.3379-100000@mojo.covalent.net
i think the default typemap should use Perl_croak() rather than croak() as
xsubpp does.

--- lib/ExtUtils/typemap~	Wed Aug 30 07:50:53 2000
+++ lib/ExtUtils/typemap	Mon Jan  1 11:39:15 2001
@@ -55,22 +55,22 @@
 	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 @@
 	    $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_“9¤ð$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 @@
 	    $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




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About