diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-02-21 12:13:42 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:10:49 -0500 |
| commit | 600c49e772bea70682dc6ef9f6f961c94faed457 (patch) | |
| tree | eb01dd99f774cbad2c2b2c422b826b53df91d8c3 /source4/build/pidl/odl.pm | |
| parent | 3d507012fe4dc5dc21f7c055dc6c39b117a87d34 (diff) | |
| download | samba-600c49e772bea70682dc6ef9f6f961c94faed457.tar.gz samba-600c49e772bea70682dc6ef9f6f961c94faed457.tar.bz2 samba-600c49e772bea70682dc6ef9f6f961c94faed457.zip | |
r5486: - Use references to interfaces in coclasses rather then
full interfaces.
- Couple of bugfixes in odl.pm
- First use of multiple pointers in dcom.idl
(This used to be commit 3110c2ec44a872a53e7d6015b85c68fdb604b4de)
Diffstat (limited to 'source4/build/pidl/odl.pm')
| -rw-r--r-- | source4/build/pidl/odl.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/source4/build/pidl/odl.pm b/source4/build/pidl/odl.pm index 37c8a5a687..95e81c07ce 100644 --- a/source4/build/pidl/odl.pm +++ b/source4/build/pidl/odl.pm @@ -29,8 +29,8 @@ sub ReplaceInterfacePointers($) my $e = shift; foreach my $x (@{$e->{ELEMENTS}}) { - next unless typelist::hasType($x); - next unless typelist::getType($x)->{DATA}->{TYPE} eq "INTERFACE"; + next unless (typelist::hasType($x->{TYPE})); + next unless typelist::getType($x->{TYPE})->{DATA}->{TYPE} eq "INTERFACE"; $x->{TYPE} = "MInterfacePointer"; } @@ -40,9 +40,8 @@ sub ReplaceInterfacePointers($) sub ODL2IDL($) { my $odl = shift; - my @idl = @{$odl}; - foreach my $x (@idl) { + foreach my $x (@{$odl}) { # Add [in] ORPCTHIS *this, [out] ORPCTHAT *that # for 'object' interfaces if (util::has_property($x, "object")) { @@ -53,7 +52,7 @@ sub ODL2IDL($) } } - return \@idl; + return $odl; } 1; |