From 7dfc5f40536550e44fd4499fe35e8b2d7f48c4b3 Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Tue, 24 May 2011 17:43:57 -0400 Subject: [PATCH] Added error-provoker argument to destructure_make_ops --- klink.c | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/klink.c b/klink.c index c27bfa0..7433499 100644 --- a/klink.c +++ b/klink.c @@ -2740,7 +2740,7 @@ destructure_how_many (pko typespec) /*_ , destructure_make_ops */ pko destructure_make_ops -(pko argobject, pko typespec, int saw_optional) +(pko argobject, pko typespec, int saw_optional, pko provoker) { return /* Operations to run, in reverse order. */ @@ -2752,7 +2752,7 @@ destructure_make_ops mk_load_ix (0, 0), typespec, kernel_bool (saw_optional), - K_NIL)), + provoker)), mk_store (K_ANY, 1), /* V= forced-argobject */ REF_OPER (force), @@ -2877,7 +2877,8 @@ destructure *extra_result = destructure_make_ops (argobject, new_typespec, - saw_optional); + saw_optional, + provoker); return destr_must_call_k; } else @@ -2956,7 +2957,8 @@ destructure *extra_result = destructure_make_ops (argobject, new_typespec, - saw_optional); + saw_optional, + provoker); return destr_must_call_k; } else @@ -2990,7 +2992,8 @@ destructure *extra_result = destructure_make_ops (argobject, typespec, - 0); + 0, + provoker); return destr_must_call_k; } else -- 2.11.4.GIT