summaryrefslogtreecommitdiffstats
path: root/kalyptus/kalyptusCxxToSmoke.pm
diff options
context:
space:
mode:
authorTimothy Pearson <kb9vqf@pearsoncomputing.net>2012-01-01 19:30:40 -0600
committerTimothy Pearson <kb9vqf@pearsoncomputing.net>2012-01-01 19:30:40 -0600
commit79dd73b042edd81edb5e030459a43777ffa980bf (patch)
tree7c0799ac9211e9ec677f6b9f9030edca960b1b6e /kalyptus/kalyptusCxxToSmoke.pm
parentcf5706eb5adbe5858d87118d200e233abfa1271f (diff)
downloadlibtqt-perl-79dd73b042edd81edb5e030459a43777ffa980bf.tar.gz
libtqt-perl-79dd73b042edd81edb5e030459a43777ffa980bf.zip
Fix FTBFS
Diffstat (limited to 'kalyptus/kalyptusCxxToSmoke.pm')
-rw-r--r--kalyptus/kalyptusCxxToSmoke.pm8
1 files changed, 1 insertions, 7 deletions
diff --git a/kalyptus/kalyptusCxxToSmoke.pm b/kalyptus/kalyptusCxxToSmoke.pm
index 8aa6897..e992ec0 100644
--- a/kalyptus/kalyptusCxxToSmoke.pm
+++ b/kalyptus/kalyptusCxxToSmoke.pm
@@ -2469,7 +2469,7 @@ sub writeSmokeDataFile($) {
die "'Method index' for enum $sig not found" unless defined $xmethIndex;
my $typeId = findTypeEntry( $fullEnumName )->{index};
die "enum has no {case} value in $className: $fullEnumName" unless defined $classNode->{case}{$fullEnumName};
- print OUT "\t{$classIndex, $xmethIndex, 0, 0, Smoke::mf_static|Smoke::mf_enum, $typeId, $classNode->{case}{$fullEnumName}},\t//$methodCount $fullEnumName (enum)\n";
+ print OUT "\t{$classIndex, $xmethIndex, 0, 0, Smoke::mf_static, $typeId, $classNode->{case}{$fullEnumName}},\t//$methodCount $fullEnumName (enum)\n";
$allMethods{$sig} = $methodCount;
print STDERR "Added entry for " . $sig . " into \$allMethods\n" if ($debug);
$methods[$methodCount] = {
@@ -2568,12 +2568,6 @@ sub writeSmokeDataFile($) {
my $methodFlags = '0';
# Make no distinction between a static method in an ordinary class, or a method in a namespace
$methodFlags .= "|Smoke::mf_static" if $m->{Flags} =~ "s" or $classNode->{NodeType} eq 'namespace';
- $methodFlags .= "|Smoke::mf_const" if $m->{Flags} =~ "c"; # useful?? probably not
- $methodFlags .= "|Smoke::mf_copyctor" if $m->{Flags} =~ "x";
- $methodFlags .= "|Smoke::mf_internal" if $m->{Flags} =~ "i";
- $methodFlags .= "|Smoke::mf_ctor" if $methName eq $className;
- $methodFlags .= "|Smoke::mf_dtor" if $m->{ReturnType} eq '~';
- $methodFlags .= "|Smoke::mf_protected" if $m->{Access} =~ /protected/;
$methodFlags =~ s/0\|//; # beautify
print OUT "\t{$classIndex, $methodIndex, $arglist, $argcnt, $methodFlags, $retTypeIndex, $case},\t//$methodCount $className\::$sig";