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

Handle special case of empty system task argument list.

This commit is contained in:
steve 2002-08-15 02:11:54 +00:00
parent 640767b748
commit c0046e845e
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
elaborate.cc
View File

@ -1,5 +1,5 @@
/* /*
* Copyright (c) 1998-2000 Stephen Williams (steve@icarus.com) * Copyright (c) 1998-2002 Stephen Williams (steve@icarus.com)
* *
* This source code is free software; you can redistribute it * This source code is free software; you can redistribute it
* and/or modify it in source code form under the terms of the GNU * and/or modify it in source code form under the terms of the GNU
@ -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
*/ */
#ifdef HAVE_CVS_IDENT #ifdef HAVE_CVS_IDENT
#ident "$Id: elaborate.cc,v 1.261 2002/08/13 05:35:00 steve Exp $" #ident "$Id: elaborate.cc,v 1.262 2002/08/15 02:11:54 steve Exp $"
#endif #endif
# include "config.h" # include "config.h"
@ -1368,20 +1368,27 @@ NetProc* PCallTask::elaborate(Design*des, NetScope*scope) const
* A call to a system task involves elaborating all the parameters, * A call to a system task involves elaborating all the parameters,
* then passing the list to the NetSTask object. * then passing the list to the NetSTask object.
*XXXX *XXXX
* There is a single special in the call to a system task. Normally, * There is a single special case in the call to a system
* an expression cannot take an unindexed memory. However, it is * task. Normally, an expression cannot take an unindexed
* possible to take a system task parameter a memory if the expression * memory. However, it is possible to take a system task parameter a
* is trivial. * memory if the expression is trivial.
*/ */
NetProc* PCallTask::elaborate_sys(Design*des, NetScope*scope) const NetProc* PCallTask::elaborate_sys(Design*des, NetScope*scope) const
{ {
assert(scope); assert(scope);
svector<NetExpr*>eparms (nparms()); unsigned parm_count = nparms();
for (unsigned idx = 0 ; idx < nparms() ; idx += 1) { /* Catch the special case that the system task has no
parameters. The "()" string will be parsed as a single
empty parameter, when we really mean no parameters at all. */
if ((nparms() == 1) && (parm(0) == 0))
parm_count = 0;
svector<NetExpr*>eparms (parm_count);
for (unsigned idx = 0 ; idx < parm_count ; idx += 1) {
PExpr*ex = parm(idx); PExpr*ex = parm(idx);
eparms[idx] = ex? ex->elaborate_expr(des, scope, true) : 0; eparms[idx] = ex? ex->elaborate_expr(des, scope, true) : 0;
} }
@ -2504,6 +2511,9 @@ Design* elaborate(list<const char*>roots)
/* /*
* $Log: elaborate.cc,v $ * $Log: elaborate.cc,v $
* Revision 1.262 2002/08/15 02:11:54 steve
* Handle special case of empty system task argument list.
*
* Revision 1.261 2002/08/13 05:35:00 steve * Revision 1.261 2002/08/13 05:35:00 steve
* Do not elide named blocks. * Do not elide named blocks.
* *