sdc: specialize stubs for the call graph

Author: widlarizer

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))

passes/cmds/sdc/stubs.sdc renamed to 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

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));