X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Parameters.xs;h=608779fefdfd1b0546839d7e9c2d1e769cf617ca;hb=c3e72f350b01137d7ca90d10645e5b7290c8b1d2;hp=47ad69d973425bd17a46a5c17e2dd7be28ff6e46;hpb=c311cef3f01393a6a5d55985277b65399550b858;p=p5sagit%2FFunction-Parameters.git

diff --git a/Parameters.xs b/Parameters.xs
index 47ad69d..608779f 100644
--- a/Parameters.xs
+++ b/Parameters.xs
@@ -26,7 +26,7 @@ See http://dev.perl.org/licenses/ for more information.
  	WARNINGS_ENABLEW(-Wall) \
  	WARNINGS_ENABLEW(-Wextra) \
  	WARNINGS_ENABLEW(-Wundef) \
- 	WARNINGS_ENABLEW(-Wshadow) \
+ 	/* WARNINGS_ENABLEW(-Wshadow) :-( */ \
  	WARNINGS_ENABLEW(-Wbad-function-cast) \
  	WARNINGS_ENABLEW(-Wcast-align) \
  	WARNINGS_ENABLEW(-Wwrite-strings) \
@@ -144,15 +144,15 @@ static int kw_flags(pTHX_ const char *kw_ptr, STRLEN kw_len, Spec *spec) {
 #include "toke_on_crack.c.inc"
 
 
-static void free_ptr_op(void *vp) {
+static void free_ptr_op(pTHX_ void *vp) {
 	OP **pp = vp;
 	op_free(*pp);
 	Safefree(pp);
 }
 
-#define sv_eq_pvs(SV, S) sv_eq_pvn(SV, "" S "", sizeof (S) - 1)
+#define sv_eq_pvs(SV, S) sv_eq_pvn(aTHX_ SV, "" S "", sizeof (S) - 1)
 
-static int sv_eq_pvn(SV *sv, const char *p, STRLEN n) {
+static int sv_eq_pvn(pTHX_ SV *sv, const char *p, STRLEN n) {
 	STRLEN sv_len;
 	const char *sv_p = SvPV(sv, sv_len);
 	return
@@ -325,7 +325,7 @@ static int parse_fun(pTHX_ OP **pop, const char *keyword_ptr, STRLEN keyword_len
 			if (!S_scan_str(aTHX_ proto, FALSE, FALSE)) {
 				croak("In %"SVf": prototype not terminated", SVfARG(declarator));
 			}
-			S_check_prototype(declarator, proto);
+			S_check_prototype(aTHX_ declarator, proto);
 			lex_read_space(0);
 			c = lex_peek_unichar(0);
 		}
@@ -353,7 +353,7 @@ static int parse_fun(pTHX_ OP **pop, const char *keyword_ptr, STRLEN keyword_len
 	/* attributes */
 	Newx(attrs_sentinel, 1, OP *);
 	*attrs_sentinel = NULL;
-	SAVEDESTRUCTOR(free_ptr_op, attrs_sentinel);
+	SAVEDESTRUCTOR_X(free_ptr_op, attrs_sentinel);
 
 	if (c == ':' || c == '{') {
 
@@ -432,7 +432,7 @@ static int parse_fun(pTHX_ OP **pop, const char *keyword_ptr, STRLEN keyword_len
 	/* munge */
 	{
 		/* create outer block: '{' */
-		const int save_ix = S_block_start(TRUE);
+		const int save_ix = S_block_start(aTHX_ TRUE);
 		OP *init = NULL;
 
 		/* my $self = shift; */
@@ -478,7 +478,7 @@ static int parse_fun(pTHX_ OP **pop, const char *keyword_ptr, STRLEN keyword_len
 		body = op_append_list(OP_LINESEQ, init, body);
 
 		/* close outer block: '}' */
-		S_block_end(save_ix, body);
+		S_block_end(aTHX_ save_ix, body);
 	}
 
 	/* it's go time. */