Report a package connot be dumped with most dumpers

This commit is contained in:
Cary R 2020-11-29 12:41:34 -08:00
parent 1b4244474c
commit a7ce4ec110
4 changed files with 26 additions and 8 deletions

View File

@ -1,5 +1,5 @@
/*
* Copyright (c) 1999-2016 Stephen Williams (steve@icarus.com)
* Copyright (c) 1999-2020 Stephen Williams (steve@icarus.com)
*
* This source code is free software; you can redistribute it
* and/or modify it in source code form under the terms of the GNU
@ -533,11 +533,12 @@ static void scan_item(unsigned depth, vpiHandle item, int skip)
case vpiFunction: stype = FST_ST_VCD_FUNCTION; break;
case vpiGenScope: stype = FST_ST_VCD_GENERATE; break;
case vpiModule: stype = FST_ST_VCD_MODULE; break;
case vpiPackage: stype = FST_ST_VCD_PACKAGE; break;
case vpiTask: stype = FST_ST_VCD_TASK; break;
default:
vpi_printf("FST warning: $dumpvars: Unsupported argument "
"type (%s)\n", vpi_get_str(vpiType, item));
"type (%s).\n", vpi_get_str(vpiType, item));
return;
}
@ -662,6 +663,7 @@ static void scan_item(unsigned depth, vpiHandle item, int skip)
break;
case vpiModule:
case vpiPackage:
case vpiGenScope:
case vpiFunction:
case vpiTask:

View File

@ -1,5 +1,5 @@
/*
* Copyright (c) 2002-2018 Stephen Williams (steve@icarus.com)
* Copyright (c) 2002-2020 Stephen Williams (steve@icarus.com)
*
* This source code is free software; you can redistribute it
* and/or modify it in source code form under the terms of the GNU
@ -709,9 +709,14 @@ static void scan_item(unsigned depth, vpiHandle item, int skip)
}
break;
case vpiPackage: /* Skipped */
vpi_printf("LXT warning: $dumpvars: Package (%s) is not dumpable "
"with LXT.\n", vpi_get_str(vpiFullName, item));
break;
default:
vpi_printf("LXT warning: $dumpvars: Unsupported parameter "
"type (%s)\n", vpi_get_str(vpiType, item));
"type (%s).\n", vpi_get_str(vpiType, item));
}
}

View File

@ -1,5 +1,5 @@
/*
* Copyright (c) 2003-2018 Stephen Williams (steve@icarus.com)
* Copyright (c) 2003-2020 Stephen Williams (steve@icarus.com)
*
* This source code is free software; you can redistribute it
* and/or modify it in source code form under the terms of the GNU
@ -761,9 +761,14 @@ static void scan_item(unsigned depth, vpiHandle item, int skip)
}
break;
case vpiPackage:
vpi_printf("LXT2 warning: $dumpvars: Package (%s) is not dumpable "
"with LXT2.\n", vpi_get_str(vpiFullName, item));
break;
default:
vpi_printf("LXT2 warning: $dumpvars: Unsupported parameter "
"type (%s)\n", vpi_get_str(vpiType, item));
"type (%s).\n", vpi_get_str(vpiType, item));
}
}

View File

@ -1,5 +1,5 @@
/*
* Copyright (c) 1999-2016 Stephen Williams (steve@icarus.com)
* Copyright (c) 1999-2020 Stephen Williams (steve@icarus.com)
*
* This source code is free software; you can redistribute it
* and/or modify it in source code form under the terms of the GNU
@ -561,11 +561,12 @@ static void scan_item(unsigned depth, vpiHandle item, int skip)
case vpiNamedFork: type = "fork"; break;
case vpiFunction: type = "function"; break;
case vpiModule: type = "module"; break;
case vpiPackage: type = "package"; break;
case vpiTask: type = "task"; break;
default:
vpi_printf("VCD warning: $dumpvars: Unsupported argument "
"type (%s)\n", vpi_get_str(vpiType, item));
"type (%s).\n", vpi_get_str(vpiType, item));
return;
}
@ -731,6 +732,11 @@ static void scan_item(unsigned depth, vpiHandle item, int skip)
fprintf(dump_file, "$upscope $end\n");
}
break;
case vpiPackage:
vpi_printf("VCD warning: $dumpvars: Package (%s) is not dumpable "
"with VCD.\n", vpi_get_str(vpiFullName, item));
break;
}
}