diff --git a/vpi/sys_fst.c b/vpi/sys_fst.c index 0bb185744..769a008b9 100644 --- a/vpi/sys_fst.c +++ b/vpi/sys_fst.c @@ -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: diff --git a/vpi/sys_lxt.c b/vpi/sys_lxt.c index 100a5fa31..a92c583cb 100644 --- a/vpi/sys_lxt.c +++ b/vpi/sys_lxt.c @@ -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)); } } diff --git a/vpi/sys_lxt2.c b/vpi/sys_lxt2.c index 4d10c1c10..545b48943 100644 --- a/vpi/sys_lxt2.c +++ b/vpi/sys_lxt2.c @@ -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)); } } diff --git a/vpi/sys_vcd.c b/vpi/sys_vcd.c index b6362c900..55cdb14aa 100644 --- a/vpi/sys_vcd.c +++ b/vpi/sys_vcd.c @@ -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; } }