pidl: in s3 server templates, support default HRESULT error returns.

Guenther

Signed-off-by: Guenther Deschner <gd@samba.org>
Reviewed-by: Jeremy Allison <jra@samba.org>

diff --git a/pidl/lib/Parse/Pidl/Samba3/Template.pm b/pidl/lib/Parse/Pidl/Samba3/Template.pm
index 4750cef00f2f66c58adfa794a90de709b8e07e9a..d50f70623950dfd87a0851413e43961d550fd5b3 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba3/Template.pm
+++ b/pidl/lib/Parse/Pidl/Samba3/Template.pm
@@ -70,6 +70,8 @@ $pad"."struct $fname *r)
                $res .= "\treturn NT_STATUS_NOT_IMPLEMENTED;\n";
        } elsif ($d->{RETURN_TYPE} eq "WERROR") {
                $res .= "\treturn WERR_NOT_SUPPORTED;\n";
+       } elsif ($d->{RETURN_TYPE} eq "HRESULT") {
+               $res .= "\treturn HRES_ERROR_NOT_SUPPORTED;\n";
        }
 
        $res .= "}