sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-31 17:18:04 +03:00
Code

some compilers can't handle structures with no elements. Generate

Browse Source 
dummy elements if need be.
This commit is contained in:
Andrew Tridgell 0001-01-01 00:00:00 +00:00
parent f4abd20b84
commit b6fdc98402
1 changed files with 46 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
source/build/pidl/header.pm
View File

@ -194,6 +194,20 @@ sub HeaderFunctionInOut($$)
}
}
#####################################################################
# determine if we need an "in" or "out" section
sub HeaderFunctionInOut_needed($$)
{
my($fn) = shift;
my($prop) = shift;
foreach my $e (@{$fn->{DATA}}) {
if (util::has_property($e, $prop)) {
return 1;
}
}
return undef;
}
#####################################################################
# parse a function
@ -202,24 +216,40 @@ sub HeaderFunction($)
my($fn) = shift;
$res .= "\nstruct $fn->{NAME} {\n";
$tab_depth++;
tabs();
$res .= "struct {\n";
$tab_depth++;
HeaderFunctionInOut($fn, "in");
$tab_depth--;
tabs();
$res .= "} in;\n\n";
tabs();
$res .= "struct {\n";
$tab_depth++;
HeaderFunctionInOut($fn, "out");
if ($fn->{RETURN_TYPE} && $fn->{RETURN_TYPE} ne "void") {
my $needed = 0;
if (HeaderFunctionInOut_needed($fn, "in")) {
tabs();
$res .= "$fn->{RETURN_TYPE} result;\n";
$res .= "struct {\n";
$tab_depth++;
HeaderFunctionInOut($fn, "in");
$tab_depth--;
tabs();
$res .= "} in;\n\n";
$needed++;
}
$tab_depth--;
tabs();
$res .= "} out;\n\n";
if (HeaderFunctionInOut_needed($fn, "out")) {
tabs();
$res .= "struct {\n";
$tab_depth++;
HeaderFunctionInOut($fn, "out");
if ($fn->{RETURN_TYPE} && $fn->{RETURN_TYPE} ne "void") {
tabs();
$res .= "$fn->{RETURN_TYPE} result;\n";
}
$tab_depth--;
tabs();
$res .= "} out;\n\n";
$needed++;
}
if (! $needed) {
# sigh - some compilers don't like empty structures
tabs();
$res .= "int _dummy_element;\n";
}
$tab_depth--;
$res .= "};\n\n";
}