Merge functions.
authorJelmer Vernooij <jelmer@samba.org>
Mon, 18 Feb 2008 11:35:39 +0000 (12:35 +0100)
committerJelmer Vernooij <jelmer@samba.org>
Mon, 18 Feb 2008 11:35:39 +0000 (12:35 +0100)
(This used to be commit d318809f0db71f4a37033c3e9f0dce2ee5a69b07)

source4/build/smb_build/makefile.pm

index b7b56229f5116f8a0badbdbd53784ad4105f6614..b84caa12d7fc08c90f09b089303ece51d7f8f327 100644 (file)
@@ -99,14 +99,12 @@ sub array2oneperline($)
        return $output;
 }
 
-sub _prepare_list_ex($$$$$)
+sub _prepare_list($$$)
 {
-       my ($self,$ctx,$var,$pre,$post) = @_;
+       my ($self,$ctx,$var) = @_;
        my @tmparr = ();
 
-       push(@tmparr, $pre) if defined($pre);
        push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
-       push(@tmparr, $post) if defined($post);
 
        my $tmplist = array2oneperline(\@tmparr);
        return if ($tmplist eq "");
@@ -114,13 +112,6 @@ sub _prepare_list_ex($$$$$)
        $self->output("$ctx->{NAME}_$var =$tmplist\n");
 }
 
-sub _prepare_list($$$)
-{
-       my ($self,$ctx,$var) = @_;
-
-       $self->_prepare_list_ex($ctx, $var, undef, undef);
-}
-
 sub Integrated($$)
 {
        my ($self,$ctx) = @_;
@@ -243,7 +234,6 @@ sub SharedLibrary($$)
 
        $self->_prepare_list($ctx, "DEPEND_LIST");
        $self->_prepare_list($ctx, "LINK_FLAGS");
-#      $self->_prepare_list_ex($ctx, "LINK_FLAGS", "-Wl,--whole-archive", "-Wl,--no-whole-archive");
 
        push(@{$self->{all_objs}}, "\$($ctx->{NAME}_FULL_OBJ_LIST)");