diff --git a/passes/cmds/sdc/Makefile.inc b/passes/cmds/sdc/Makefile.inc index 1962f622f..7c8036550 100644 --- a/passes/cmds/sdc/Makefile.inc +++ b/passes/cmds/sdc/Makefile.inc @@ -1,3 +1,3 @@ OBJS += passes/cmds/sdc/sdc.o -$(eval $(call add_share_file,share/sdc,passes/cmds/sdc/stubs.sdc)) +$(eval $(call add_share_file,share/sdc,passes/cmds/sdc/graph-stubs.sdc)) diff --git a/passes/cmds/sdc/stubs.sdc b/passes/cmds/sdc/graph-stubs.sdc similarity index 58% rename from passes/cmds/sdc/stubs.sdc rename to passes/cmds/sdc/graph-stubs.sdc index 247fe0abd..b668f4d18 100644 --- a/passes/cmds/sdc/stubs.sdc +++ b/passes/cmds/sdc/graph-stubs.sdc @@ -1,18 +1,3 @@ -# with Tcl's eager evaluation, we will still eval args if they're unused by a stub -proc stub {function_name} { - proc $function_name {args} "puts \"stubbed $function_name\"" -} - -proc is_suppressed {args} { - return 0 -} - -# stub current_design -#stub ys_track_typed_key -stub ys_track_untyped_key -stub ys_err_key -stub ys_err_flag - proc unknown {args} { global sdc_call_index global sdc_calls diff --git a/passes/cmds/sdc/sdc.cc b/passes/cmds/sdc/sdc.cc index f21973480..4df256a77 100644 --- a/passes/cmds/sdc/sdc.cc +++ b/passes/cmds/sdc/sdc.cc @@ -805,7 +805,7 @@ struct SdcPass : public Pass { SDCInterpreter& sdc = SDCInterpreter::get(); Tcl_Interp *interp = sdc.fresh_interp(design); Tcl_Preserve(interp); - std::string stub_path = "+/sdc/stubs.sdc"; + std::string stub_path = "+/sdc/graph-stubs.sdc"; rewrite_filename(stub_path); if (Tcl_EvalFile(interp, stub_path.c_str()) != TCL_OK) log_cmd_error("SDC interpreter returned an error in stub preamble file: %s\n", Tcl_GetStringResult(interp));