luke
/
iverilog
mirror of https://github.com/steveicarus/iverilog.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add some ivl_target convenience functions.

This commit is contained in:
steve 2001-08-28 04:07:17 +00:00
parent b8be5e80cd
commit 2002c03cef
5 changed files with 83 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ivl.def
View File

@ -41,11 +41,13 @@ ivl_expr_width
ivl_logic_name ivl_logic_name
ivl_logic_basename ivl_logic_basename
ivl_logic_scope
ivl_logic_type ivl_logic_type
ivl_logic_pin ivl_logic_pin
ivl_logic_pins ivl_logic_pins
ivl_logic_udp ivl_logic_udp
ivl_lpm_basename
ivl_lpm_clk ivl_lpm_clk
ivl_lpm_data ivl_lpm_data
ivl_lpm_datab ivl_lpm_datab
@ -54,6 +56,7 @@ ivl_lpm_enable
ivl_lpm_memory ivl_lpm_memory
ivl_lpm_name ivl_lpm_name
ivl_lpm_q ivl_lpm_q
ivl_lpm_scope
ivl_lpm_select ivl_lpm_select
ivl_lpm_selects ivl_lpm_selects
ivl_lpm_size ivl_lpm_size
@ -88,6 +91,7 @@ ivl_nexus_ptr_lpm
ivl_nexus_ptr_log ivl_nexus_ptr_log
ivl_nexus_ptr_sig ivl_nexus_ptr_sig
ivl_scope_basename
ivl_scope_children ivl_scope_children
ivl_scope_def ivl_scope_def
ivl_scope_event ivl_scope_event
@ -99,6 +103,7 @@ ivl_scope_lpm
ivl_scope_mem ivl_scope_mem
ivl_scope_mems ivl_scope_mems
ivl_scope_name ivl_scope_name
ivl_scope_parent
ivl_scope_port ivl_scope_port
ivl_scope_ports ivl_scope_ports
ivl_scope_sigs ivl_scope_sigs

30
ivl_target.h
View File

@ -19,7 +19,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#if !defined(WINNT) && !defined(macintosh) #if !defined(WINNT) && !defined(macintosh)
#ident "$Id: ivl_target.h,v 1.77 2001/08/25 23:50:03 steve Exp $" #ident "$Id: ivl_target.h,v 1.78 2001/08/28 04:07:17 steve Exp $"
#endif #endif
#ifdef __cplusplus #ifdef __cplusplus
@ -456,12 +456,16 @@ extern ivl_memory_t ivl_expr_memory(ivl_expr_t net);
* ivl_logic_basename * ivl_logic_basename
* This is the name of the gate without the scope part. * This is the name of the gate without the scope part.
* *
* ivl_logic_scope
* This is the scope that directly contains the logic device.
*
* ivl_logic_pins * ivl_logic_pins
* ivl_logic_pin * ivl_logic_pin
*/ */
extern const char* ivl_logic_name(ivl_net_logic_t net); extern const char* ivl_logic_name(ivl_net_logic_t net);
extern const char* ivl_logic_basename(ivl_net_logic_t net); extern const char* ivl_logic_basename(ivl_net_logic_t net);
extern ivl_scope_t ivl_logic_scope(ivl_net_logic_t net);
extern ivl_logic_t ivl_logic_type(ivl_net_logic_t net); extern ivl_logic_t ivl_logic_type(ivl_net_logic_t net);
extern ivl_nexus_t ivl_logic_pin(ivl_net_logic_t net, unsigned pin); extern ivl_nexus_t ivl_logic_pin(ivl_net_logic_t net, unsigned pin);
extern unsigned ivl_logic_pins(ivl_net_logic_t net); extern unsigned ivl_logic_pins(ivl_net_logic_t net);
@ -487,7 +491,13 @@ extern const char* ivl_udp_name(ivl_udp_t net);
* These are the functions that apply to all LPM devices: * These are the functions that apply to all LPM devices:
* *
* ivl_lpm_name * ivl_lpm_name
* Return the name of the device. * ivl_lpm_basename
* Return the name of the device. The name is the name of the
* device with the scope part, and the basename is without the scope.
*
* ivl_lpm_scope
* LPM devices exist within a scope. Return the scope that contains
* this device.
* *
* ivl_lpm_type * ivl_lpm_type
* Return the ivl_lpm_type_t of the secific LPM device. * Return the ivl_lpm_type_t of the secific LPM device.
@ -524,6 +534,8 @@ extern const char* ivl_udp_name(ivl_udp_t net);
* per bit for a MUX. * per bit for a MUX.
*/ */
extern const char* ivl_lpm_name(ivl_lpm_t net); extern const char* ivl_lpm_name(ivl_lpm_t net);
extern const char* ivl_lpm_basename(ivl_lpm_t net);
extern ivl_scope_t ivl_lpm_scope(ivl_lpm_t net);
extern ivl_lpm_type_t ivl_lpm_type(ivl_lpm_t net); extern ivl_lpm_type_t ivl_lpm_type(ivl_lpm_t net);
extern unsigned ivl_lpm_width(ivl_lpm_t net); extern unsigned ivl_lpm_width(ivl_lpm_t net);
@ -720,8 +732,15 @@ extern ivl_signal_t ivl_nexus_ptr_sig(ivl_nexus_ptr_t net);
* represented by ivl_logic_t. * represented by ivl_logic_t.
* *
* ivl_scope_name * ivl_scope_name
* ivl_scope_basename
* Every scope has a hierarchical name. This name is also a prefix * Every scope has a hierarchical name. This name is also a prefix
* of all the names of objects contained within the scope. * of all the names of objects contained within the scope. The
* ivl_scope_basename is the name of the scope without the included
* hierarchy.
*
* ivl_scope_parent
* If this is a non-root scope, then the parent is the scope that
* contains this scope. Otherwise, the parent is nil.
* *
* ivl_scope_port * ivl_scope_port
* ivl_scope_ports * ivl_scope_ports
@ -760,6 +779,8 @@ extern ivl_lpm_t ivl_scope_lpm(ivl_scope_t, unsigned idx);
extern unsigned ivl_scope_mems(ivl_scope_t net); extern unsigned ivl_scope_mems(ivl_scope_t net);
extern ivl_memory_t ivl_scope_mem(ivl_scope_t net, unsigned idx); extern ivl_memory_t ivl_scope_mem(ivl_scope_t net, unsigned idx);
extern const char* ivl_scope_name(ivl_scope_t net); extern const char* ivl_scope_name(ivl_scope_t net);
extern const char* ivl_scope_basename(ivl_scope_t net);
extern ivl_scope_t ivl_scope_parent(ivl_scope_t net);
extern unsigned ivl_scope_ports(ivl_scope_t net); extern unsigned ivl_scope_ports(ivl_scope_t net);
extern ivl_signal_t ivl_scope_port(ivl_scope_t net, unsigned idx); extern ivl_signal_t ivl_scope_port(ivl_scope_t net, unsigned idx);
extern unsigned ivl_scope_sigs(ivl_scope_t net); extern unsigned ivl_scope_sigs(ivl_scope_t net);
@ -923,6 +944,9 @@ _END_DECL
/* /*
* $Log: ivl_target.h,v $ * $Log: ivl_target.h,v $
* Revision 1.78 2001/08/28 04:07:17 steve
* Add some ivl_target convenience functions.
*
* Revision 1.77 2001/08/25 23:50:03 steve * Revision 1.77 2001/08/25 23:50:03 steve
* Change the NetAssign_ class to refer to the signal * Change the NetAssign_ class to refer to the signal
* instead of link into the netlist. This is faster * instead of link into the netlist. This is faster

38
t-dll-api.cc
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#if !defined(WINNT) && !defined(macintosh) #if !defined(WINNT) && !defined(macintosh)
#ident "$Id: t-dll-api.cc,v 1.63 2001/08/25 23:50:03 steve Exp $" #ident "$Id: t-dll-api.cc,v 1.64 2001/08/28 04:07:18 steve Exp $"
#endif #endif
# include "config.h" # include "config.h"
@ -418,6 +418,12 @@ extern "C" const char* ivl_logic_basename(ivl_net_logic_t net)
return basename(net->scope_, net->name_); return basename(net->scope_, net->name_);
} }
extern "C" ivl_scope_t ivl_logic_scope(ivl_net_logic_t net)
{
assert(net);
return net->scope_;
}
extern "C" ivl_logic_t ivl_logic_type(ivl_net_logic_t net) extern "C" ivl_logic_t ivl_logic_type(ivl_net_logic_t net)
{ {
return net->type_; return net->type_;
@ -476,6 +482,11 @@ extern "C" const char* ivl_udp_name(ivl_udp_t net)
return net->name; return net->name;
} }
extern "C" const char* ivl_lpm_basename(ivl_lpm_t net)
{
return basename(net->scope, net->name);
}
extern "C" ivl_nexus_t ivl_lpm_clk(ivl_lpm_t net) extern "C" ivl_nexus_t ivl_lpm_clk(ivl_lpm_t net)
{ {
@ -614,6 +625,12 @@ extern "C" ivl_nexus_t ivl_lpm_q(ivl_lpm_t net, unsigned idx)
} }
} }
extern "C" ivl_scope_t ivl_lpm_scope(ivl_lpm_t net)
{
assert(net);
return net->scope;
}
extern "C" ivl_nexus_t ivl_lpm_select(ivl_lpm_t net, unsigned idx) extern "C" ivl_nexus_t ivl_lpm_select(ivl_lpm_t net, unsigned idx)
{ {
switch (net->type) { switch (net->type) {
@ -860,6 +877,16 @@ extern "C" ivl_statement_t ivl_process_stmt(ivl_process_t net)
return net->stmt_; return net->stmt_;
} }
extern "C" const char* ivl_scope_basename(ivl_scope_t net)
{
assert(net);
if (net->parent == 0)
return net->name_;
return basename(net->parent, net->name_);
}
extern "C" int ivl_scope_children(ivl_scope_t net, extern "C" int ivl_scope_children(ivl_scope_t net,
ivl_scope_f func, ivl_scope_f func,
void*cd) void*cd)
@ -936,6 +963,12 @@ extern "C" const char* ivl_scope_name(ivl_scope_t net)
return net->name_; return net->name_;
} }
extern "C" ivl_scope_t ivl_scope_parent(ivl_scope_t net)
{
assert(net);
return net->parent;
}
extern "C" unsigned ivl_scope_ports(ivl_scope_t net) extern "C" unsigned ivl_scope_ports(ivl_scope_t net)
{ {
assert(net); assert(net);
@ -1318,6 +1351,9 @@ extern "C" ivl_statement_t ivl_stmt_sub_stmt(ivl_statement_t net)
/* /*
* $Log: t-dll-api.cc,v $ * $Log: t-dll-api.cc,v $
* Revision 1.64 2001/08/28 04:07:18 steve
* Add some ivl_target convenience functions.
*
* Revision 1.63 2001/08/25 23:50:03 steve * Revision 1.63 2001/08/25 23:50:03 steve
* Change the NetAssign_ class to refer to the signal * Change the NetAssign_ class to refer to the signal
* instead of link into the netlist. This is faster * instead of link into the netlist. This is faster

14
t-dll.cc
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#if !defined(WINNT) && !defined(macintosh) #if !defined(WINNT) && !defined(macintosh)
#ident "$Id: t-dll.cc,v 1.57 2001/08/10 00:40:45 steve Exp $" #ident "$Id: t-dll.cc,v 1.58 2001/08/28 04:07:41 steve Exp $"
#endif #endif
# include "config.h" # include "config.h"
@ -349,6 +349,7 @@ bool dll_target::start_design(const Design*des)
des_.root_->name_ = strdup(des->find_root_scope()->name().c_str()); des_.root_->name_ = strdup(des->find_root_scope()->name().c_str());
des_.root_->child_ = 0; des_.root_->child_ = 0;
des_.root_->sibling_ = 0; des_.root_->sibling_ = 0;
des_.root_->parent = 0;
des_.root_->nsigs_ = 0; des_.root_->nsigs_ = 0;
des_.root_->sigs_ = 0; des_.root_->sigs_ = 0;
des_.root_->nlog_ = 0; des_.root_->nlog_ = 0;
@ -1275,6 +1276,7 @@ void dll_target::scope(const NetScope*net)
scope->name_ = strdup(net->name().c_str()); scope->name_ = strdup(net->name().c_str());
scope->child_ = 0; scope->child_ = 0;
scope->sibling_ = 0; scope->sibling_ = 0;
scope->parent = find_scope(des_.root_, net->parent());
scope->nsigs_ = 0; scope->nsigs_ = 0;
scope->sigs_ = 0; scope->sigs_ = 0;
scope->nlog_ = 0; scope->nlog_ = 0;
@ -1309,11 +1311,10 @@ void dll_target::scope(const NetScope*net)
break; break;
} }
ivl_scope_t parent = find_scope(des_.root_, net->parent()); assert(scope->parent != 0);
assert(parent != 0);
scope->sibling_= parent->child_; scope->sibling_= scope->parent->child_;
parent->child_ = scope; scope->parent->child_ = scope;
} }
} }
@ -1485,6 +1486,9 @@ extern const struct target tgt_dll = { "dll", &dll_target_obj };
/* /*
* $Log: t-dll.cc,v $ * $Log: t-dll.cc,v $
* Revision 1.58 2001/08/28 04:07:41 steve
* Add some ivl_target convenience functions.
*
* Revision 1.57 2001/08/10 00:40:45 steve * Revision 1.57 2001/08/10 00:40:45 steve
* tgt-vvp generates code that skips nets as inputs. * tgt-vvp generates code that skips nets as inputs.
* *

7
t-dll.h
View File

@ -19,7 +19,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#if !defined(WINNT) && !defined(macintosh) #if !defined(WINNT) && !defined(macintosh)
#ident "$Id: t-dll.h,v 1.60 2001/08/25 23:50:03 steve Exp $" #ident "$Id: t-dll.h,v 1.61 2001/08/28 04:07:41 steve Exp $"
#endif #endif
# include "target.h" # include "target.h"
@ -428,7 +428,7 @@ struct ivl_process_s {
* there. * there.
*/ */
struct ivl_scope_s { struct ivl_scope_s {
ivl_scope_t child_, sibling_; ivl_scope_t child_, sibling_, parent;
char* name_; char* name_;
const char* tname_; const char* tname_;
@ -562,6 +562,9 @@ struct ivl_statement_s {
/* /*
* $Log: t-dll.h,v $ * $Log: t-dll.h,v $
* Revision 1.61 2001/08/28 04:07:41 steve
* Add some ivl_target convenience functions.
*
* Revision 1.60 2001/08/25 23:50:03 steve * Revision 1.60 2001/08/25 23:50:03 steve
* Change the NetAssign_ class to refer to the signal * Change the NetAssign_ class to refer to the signal
* instead of link into the netlist. This is faster * instead of link into the netlist. This is faster