Index: generic/asm/nsfAssemble.c =================================================================== diff -u -r2dca7abdd5d83421b31b220bc6dabba1047d68fb -r1c21a6f9ab7fe20490ba256cb8cf3759b8498838 --- generic/asm/nsfAssemble.c (.../nsfAssemble.c) (revision 2dca7abdd5d83421b31b220bc6dabba1047d68fb) +++ generic/asm/nsfAssemble.c (.../nsfAssemble.c) (revision 1c21a6f9ab7fe20490ba256cb8cf3759b8498838) @@ -70,6 +70,7 @@ AsmCompiledProc *proc; NsfParamDefs *paramDefs; int with_ad; + int with_checkAlways; } AsmProcClientData; typedef struct AsmResolverInfo { @@ -401,7 +402,8 @@ static int NsfAsmProcAddArgs(Tcl_Interp *interp, Tcl_Obj *argumentsObj, - Tcl_Obj *nameObj, Tcl_Obj *bodyObj, int with_ad) { + Tcl_Obj *nameObj, Tcl_Obj *bodyObj, + int with_ad, int with_checkAlways) { int argc, result; Tcl_Obj **argv; AsmCompiledProc *asmProc; @@ -422,6 +424,7 @@ cd->proc = asmProc; cd->paramDefs = NULL; cd->with_ad = with_ad; + cd->with_checkAlways = with_checkAlways ? NSF_ARGPARSE_CHECK : 0; Tcl_CreateObjCommand(interp, procName, NsfAsmProc, cd, NsfAsmProcDeleteProc);