diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2004-11-10 21:20:51 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:05:43 -0500 |
commit | 0d696dc0e9867889fe198e61ed576af51ee732d1 (patch) | |
tree | c41461d05cdfb72d62cabef049c364f4e5fef128 /source4/build/pidl | |
parent | f847f3a3e13d2d96f9b74a398047d84b4ad78127 (diff) | |
download | samba-0d696dc0e9867889fe198e61ed576af51ee732d1.tar.gz samba-0d696dc0e9867889fe198e61ed576af51ee732d1.tar.bz2 samba-0d696dc0e9867889fe198e61ed576af51ee732d1.zip |
r3667: Small COM fixes
(This used to be commit 7484b9be7423ccd7e37432951700939e8a53d513)
Diffstat (limited to 'source4/build/pidl')
-rw-r--r-- | source4/build/pidl/header.pm | 17 | ||||
-rw-r--r-- | source4/build/pidl/idl.pm | 2 | ||||
-rw-r--r-- | source4/build/pidl/idl.yp | 2 |
3 files changed, 14 insertions, 7 deletions
diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm index cc9b804387..b981200781 100644 --- a/source4/build/pidl/header.pm +++ b/source4/build/pidl/header.pm @@ -350,16 +350,27 @@ sub HeaderInterface($) $res .= "NTSTATUS dcerpc_server_$interface->{NAME}_init(void);\n\n"; } - $count = $interface->{INHERITED_FUNCTIONS}; foreach my $d (@{$data}) { if ($d->{TYPE} eq "FUNCTION") { my $u_name = uc $d->{NAME}; - $res .= "#define DCERPC_$u_name " . sprintf("0x%02x", $count) . "\n"; + $res .= "#define DCERPC_$u_name ("; + + if (defined($interface->{BASE})) { + $res .= "DCERPC_" . uc $interface->{BASE} . "_CALL_COUNT + "; + } + + $res .= sprintf("0x%02x", $count) . ")\n"; $count++; } } - $res .= "\n\n"; + $res .= "\n#define DCERPC_" . uc $interface->{NAME} . "_CALL_COUNT ("; + + if (defined($interface->{BASE})) { + $res .= "DCERPC_" . uc $interface->{BASE} . "_CALL_COUNT + "; + } + + $res .= "$count)\n\n"; foreach my $d (@{$data}) { ($d->{TYPE} eq "CONST") && diff --git a/source4/build/pidl/idl.pm b/source4/build/pidl/idl.pm index a3e2e2ca8c..19525e42f3 100644 --- a/source4/build/pidl/idl.pm +++ b/source4/build/pidl/idl.pm @@ -2080,10 +2080,8 @@ sub parse_idl($$) die("No such parent interface " . $x->{BASE}); } - $x->{INHERITED_FUNCTIONS} = scalar @{$parent->{INHERITED_DATA}}; @{$x->{INHERITED_DATA}} = (@{$parent->{INHERITED_DATA}}, @{$x->{DATA}}); } else { - $x->{INHERITED_FUNCTIONS} = 0; $x->{INHERITED_DATA} = $x->{DATA}; } } diff --git a/source4/build/pidl/idl.yp b/source4/build/pidl/idl.yp index e571645c4b..24f88dd531 100644 --- a/source4/build/pidl/idl.yp +++ b/source4/build/pidl/idl.yp @@ -368,10 +368,8 @@ sub parse_idl($$) die("No such parent interface " . $x->{BASE}); } - $x->{INHERITED_FUNCTIONS} = scalar @{$parent->{INHERITED_DATA}}; @{$x->{INHERITED_DATA}} = (@{$parent->{INHERITED_DATA}}, @{$x->{DATA}}); } else { - $x->{INHERITED_FUNCTIONS} = 0; $x->{INHERITED_DATA} = $x->{DATA}; } } |