Skip to content
Snippets Groups Projects
Commit 36c7dc69 authored by Wilson Snyder's avatar Wilson Snyder
Browse files

Fix Perl 5.8.0 compile error with callbackgen

parent 97cd4f53
Branches
Tags
No related merge requests found
......@@ -13,6 +13,8 @@ indicates the contributor was also the author of the fix; Thanks!
**** Fix Perl 5.8.8 compile error, rt48226. [Marek Rouchal]
**** Fix Perl 5.8.0 compile error with callbackgen. [Kjeld Svendsen]
* Verilog::Language 3.212 2009/07/20
*** Fix syntax errors when using vhier/Netlist with --language 1364-2001.
......
......@@ -193,7 +193,7 @@ sub _xs {
push @out, " static string hold${n}; hold${n} = $arg ? \"1\":\"0\";\n";
$callargs .= ", hold${n}.c_str()";
} elsif ($type eq 'int') {
push @out, " static string hold${n}; static char num${n}[30]; sprintf(num${n},\"%d\",$arg); hold${n}=num${n};\n";
push @out, " static string hold${n}; static char num".$n."[30]; sprintf(num${n},\"%d\",$arg); hold${n}=num${n};\n";
$callargs .= ", hold${n}.c_str()";
} elsif ($type eq 'undef') {
$callargs .= ", NULL";
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment