sdc: specialize stubs for the call graph
This commit is contained in:
parent
07de7509bf
commit
650392d4ec
@ -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))
|
||||
|
||||
@ -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
|
||||
@ -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));
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user