From 7ab4731cd9f9fc174f3a8ff668dae66af010d861 Mon Sep 17 00:00:00 2001
From: Tim Potter <tpot@samba.org>
Date: Mon, 10 Dec 2001 06:23:52 +0000
Subject: Fix for pointers to structures in function args. (This used to be
 commit e35c62267fb605c4813f7c6178c6061806c74482)

---
 source4/build/pidl/eparser.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/source4/build/pidl/eparser.pm b/source4/build/pidl/eparser.pm
index f2129dc59a..420668109d 100644
--- a/source4/build/pidl/eparser.pm
+++ b/source4/build/pidl/eparser.pm
@@ -236,6 +236,15 @@ sub ParseFunctionArg($$)
     my($io) = shift;		# "in" or "out"
 
     if (has_property($arg->{PROPERTIES}, $io)) {
+
+	# For some reason, pointers to elements in function definitions
+	# aren't parsed.
+
+	if (defined($arg->{POINTERS}) && !is_scalar_type($arg->{TYPE})) {
+	    $arg->{POINTERS} -= 1, if ($arg->{POINTERS} > 0);
+	    delete($arg->{POINTERS}), if ($arg->{POINTERS} == 0);
+	}
+
 	ParseElement($arg, "scalars|buffers");
     }
 }
-- 
cgit