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

Put processes in the proper scope.

This commit is contained in:
steve 2001-03-20 01:44:13 +00:00
parent f02d4574f9
commit e8518c5056
6 changed files with 54 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ivl_target.h
View File

@ -19,7 +19,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT) && !defined(macintosh)
#ident "$Id: ivl_target.h,v 1.34 2001/01/15 22:05:14 steve Exp $"
#ident "$Id: ivl_target.h,v 1.35 2001/03/20 01:44:13 steve Exp $"
#endif
#ifdef __cplusplus
@ -593,12 +593,18 @@ extern const char* ivl_signal_attr(ivl_signal_t net, const char*key);
* The ivl_process_type function gets the type of the process,
* an "inital" or "always" statement.
*
* A process is placed in a scope. The statement within the process
* operates within the scope of the process unless there are calls
* outside the scope.
*
* The ivl_process_stmt function gets the statement that forms the
* process. See the statement related functions for how to manipulate
* statements.
*/
extern ivl_process_type_t ivl_process_type(ivl_process_t net);
extern ivl_scope_t ivl_process_scope(ivl_process_t net);
extern ivl_statement_t ivl_process_stmt(ivl_process_t net);
/*
@ -667,6 +673,9 @@ _END_DECL
/*
* $Log: ivl_target.h,v $
* Revision 1.35 2001/03/20 01:44:13 steve
* Put processes in the proper scope.
*
* Revision 1.34 2001/01/15 22:05:14 steve
* Declare ivl_scope_type functions.
*

10
t-dll-api.cc
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT) && !defined(macintosh)
#ident "$Id: t-dll-api.cc,v 1.21 2001/01/15 00:47:02 steve Exp $"
#ident "$Id: t-dll-api.cc,v 1.22 2001/03/20 01:44:13 steve Exp $"
#endif
# include "t-dll.h"
@ -362,6 +362,11 @@ extern "C" ivl_process_type_t ivl_process_type(ivl_process_t net)
return net->type_;
}
extern "C" ivl_scope_t ivl_process_scope(ivl_process_t net)
{
return net->scope_;
}
extern "C" ivl_statement_t ivl_process_stmt(ivl_process_t net)
{
return net->stmt_;
@ -646,6 +651,9 @@ extern "C" ivl_statement_t ivl_stmt_sub_stmt(ivl_statement_t net)
/*
* $Log: t-dll-api.cc,v $
* Revision 1.22 2001/03/20 01:44:13 steve
* Put processes in the proper scope.
*
* Revision 1.21 2001/01/15 00:47:02 steve
* Pass scope type information to the target module.
*

9
t-dll-proc.cc
View File

@ -18,7 +18,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT) && !defined(macintosh)
#ident "$Id: t-dll-proc.cc,v 1.10 2000/10/18 20:04:39 steve Exp $"
#ident "$Id: t-dll-proc.cc,v 1.11 2001/03/20 01:44:14 steve Exp $"
#endif
# include "target.h"
@ -44,6 +44,10 @@ bool dll_target::process(const NetProcTop*net)
assert(0);
}
/* Save the scope of the process. */
obj->scope_ = lookup_scope_(net->scope());
/* This little bit causes the process to be completely
generated so that it can be passed to the DLL. The
stmt_cur_ member us used to hold a pointer to the current
@ -301,6 +305,9 @@ void dll_target::proc_while(const NetWhile*net)
/*
* $Log: t-dll-proc.cc,v $
* Revision 1.11 2001/03/20 01:44:14 steve
* Put processes in the proper scope.
*
* Revision 1.10 2000/10/18 20:04:39 steve
* Add ivl_lval_t and support for assignment l-values.
*

10
t-dll.cc
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT) && !defined(macintosh)
#ident "$Id: t-dll.cc,v 1.27 2001/01/15 22:08:32 steve Exp $"
#ident "$Id: t-dll.cc,v 1.28 2001/03/20 01:44:14 steve Exp $"
#endif
# include "compiler.h"
@ -78,6 +78,11 @@ static ivl_scope_t find_scope(ivl_scope_t root, const NetScope*cur)
return 0;
}
ivl_scope_t dll_target::lookup_scope_(const NetScope*cur)
{
return find_scope(des_.root_, cur);
}
static ivl_nexus_t nexus_sig_make(ivl_signal_t net, unsigned pin)
{
ivl_nexus_t tmp = new struct ivl_nexus_s;
@ -685,6 +690,9 @@ extern const struct target tgt_dll = { "dll", &dll_target_obj };
/*
* $Log: t-dll.cc,v $
* Revision 1.28 2001/03/20 01:44:14 steve
* Put processes in the proper scope.
*
* Revision 1.27 2001/01/15 22:08:32 steve
* Add missing NetLogic gate types to ::logic method.
*

11
t-dll.h
View File

@ -19,7 +19,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT) && !defined(macintosh)
#ident "$Id: t-dll.h,v 1.21 2001/01/15 00:47:02 steve Exp $"
#ident "$Id: t-dll.h,v 1.22 2001/03/20 01:44:14 steve Exp $"
#endif
# include "target.h"
@ -92,6 +92,8 @@ struct dll_target : public target_t, public expr_scan_t {
void expr_const(const NetEConst*);
void expr_sfunc(const NetESFunc*);
void expr_signal(const NetESignal*);
ivl_scope_t lookup_scope_(const NetScope*scope);
};
/*
@ -247,10 +249,12 @@ struct ivl_nexus_s {
/*
* All we know about a process it its type (initial or always) and the
* single statement that is it.
* single statement that is it. A process also has a scope, although
* that generally only matters for VPI calls.
*/
struct ivl_process_s {
ivl_process_type_t type_;
ivl_scope_t scope_;
ivl_statement_t stmt_;
ivl_process_t next_;
@ -365,6 +369,9 @@ struct ivl_statement_s {
/*
* $Log: t-dll.h,v $
* Revision 1.22 2001/03/20 01:44:14 steve
* Put processes in the proper scope.
*
* Revision 1.21 2001/01/15 00:47:02 steve
* Pass scope type information to the target module.
*

11
tgt-vvp/vvp_process.c
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT)
#ident "$Id: vvp_process.c,v 1.1 2001/03/19 01:20:46 steve Exp $"
#ident "$Id: vvp_process.c,v 1.2 2001/03/20 01:44:14 steve Exp $"
#endif
# include "vvp_priv.h"
@ -98,9 +98,13 @@ static void show_statement(ivl_statement_t net)
int draw_process(ivl_process_t net, void*x)
{
static unsigned thread_count = 0;
ivl_scope_t scope = ivl_process_scope(net);
fprintf(vvp_out, " .scope S_%s;\n", ivl_scope_name(scope));
/* Generate the entry label. Just give the thread a number so
that we ar certain the label is unique. */
static unsigned thread_count = 0;
fprintf(vvp_out, "T_%05d\n", thread_count);
/* Draw the contents of the thread. */
@ -132,6 +136,9 @@ int draw_process(ivl_process_t net, void*x)
/*
* $Log: vvp_process.c,v $
* Revision 1.2 2001/03/20 01:44:14 steve
* Put processes in the proper scope.
*
* Revision 1.1 2001/03/19 01:20:46 steve
* Add the tgt-vvp code generator target.
*