Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Verilog-Perl CPAN distribution.

Report information
The Basics
Id: 27624
Status: resolved
Priority: 0/
Queue: Verilog-Perl

People
Owner: Nobody in particular
Requestors: jetrull [...] sbcglobal.net
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 3.001
Fixed in: (no value)



Subject: Verilog::Netlist now cannot recognize builtins (primitives?)
Download (untitled) / with headers
text/plain 364b
In previous versions libs defined using builtin cell types such as "buf", "bufif" etc. worked fine, but in 3.000 I get the following types of messages: %Error: ./lib/buffer.v:7: Cannot find buf A test case is attached that will produce this message. Run command is: ./test.pl -y ./lib test.v 3.000 produces the above error message, but prior versions do not.
Subject: builtin_bug.tgz
Download builtin_bug.tgz
application/x-gzip 611b

Message body not shown because it is not plain text.

Download (untitled) / with headers
text/plain 119b
This is fixed for the next release. The patch, minus docs and testcases, is attached if you need it to make progress.
Subject: bug27624_patch.diff
Download bug27624_patch.diff
text/x-diff 2.5k
=================================================================== --- Netlist/Cell.pm (revision 40586) +++ Netlist/Cell.pm (working copy) @@ -40,6 +40,7 @@ byorder => '$', # True if Cell call uses order based pins # after link(): submod => '$', #' # Sub Module reference + gateprim => '$', #' # Primitive (and/buf/cmos etc), but not UDPs # system perl _autoinst => '$', #' # Marked with AUTOINST tag ]); @@ -80,7 +81,11 @@ sub _link { my $self = shift; $self->_link_guts(); + if (!$self->submod && Verilog::Language::is_gateprim($self->submodname)) { + $self->gateprim(1); + } if (!$self->submod() + && !$self->gateprim && !$self->netlist->{_relink} && !$self->module->is_libcell() && $self->netlist->{link_read}) { @@ -107,7 +112,7 @@ sub lint { my $self = shift; - if (!$self->submod() && !$self->netlist->{link_read_nonfatal}) { + if (!$self->submod() && !$self->gateprim && !$self->netlist->{link_read_nonfatal}) { $self->error ($self,"Module reference not found: ",$self->submodname(),,"\n"); } if (!$self->netlist->{skip_pin_interconnect}) { =================================================================== --- Language.pm (revision 40586) +++ Language.pm (working copy) @@ -188,7 +193,7 @@ require Exporter; use strict; -use vars qw($VERSION %Keyword %Keywords %Compdirect $Standard); +use vars qw($VERSION %Keyword %Keywords %Compdirect $Standard %Gateprim); use Carp; ###################################################################### @@ -260,6 +265,12 @@ language_standard ('1800-2005'); # Default standard +foreach my $kwd (qw( + and buf bufif0 bufif1 cmos nand nmos nor not notif0 + notif1 or pmos pulldown pullup rcmos rnmos rpmos rtran + rtranif0 rtranif1 tran tranif0 tranif1 xnor xor + )) { $Gateprim{$kwd} = '1364-1995'; } + ###################################################################### #### Keyword utilities @@ -305,6 +316,11 @@ return ($Compdirect{$symbol}); } +sub is_gateprim { + my $symbol = shift; + return ($Gateprim{$symbol}); +} + ###################################################################### #### String utilities =================================================================== --- vhier (revision 40586) +++ vhier (working copy) @@ -165,7 +165,7 @@ my %miss_names; foreach my $mod ($nl->modules) { foreach my $cell ($mod->cells_sorted) { - if (!$cell->submod) { + if (!$cell->submod && !$cell->gateprim) { $miss_names{$cell->submodname} = 1; } }
From: jetrull [...] sbcglobal.net
Download (untitled) / with headers
text/plain 228b
This patch resolves the issue for my test cases. Thanks! On Mon Jun 18 15:05:25 2007, WSNYDER wrote: Show quoted text
> This is fixed for the next release. The patch, minus docs and > testcases, is attached if you need it to make progress.
Resolved in 3.001


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.