summaryrefslogtreecommitdiff
path: root/bin/DependencyGenerator/DependencyGenerator.pm
diff options
context:
space:
mode:
Diffstat (limited to 'bin/DependencyGenerator/DependencyGenerator.pm')
-rw-r--r--bin/DependencyGenerator/DependencyGenerator.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/DependencyGenerator/DependencyGenerator.pm b/bin/DependencyGenerator/DependencyGenerator.pm
index c28cae59c26..5c1264b6f56 100644
--- a/bin/DependencyGenerator/DependencyGenerator.pm
+++ b/bin/DependencyGenerator/DependencyGenerator.pm
@@ -14,6 +14,7 @@ use strict;
use Preprocessor;
use DependencyWriterFactory;
+use ObjectGeneratorFactory;
# ************************************************************
# Subroutine Section
@@ -31,6 +32,7 @@ sub new {
$ipaths, $exclude),
'replace' => $replace,
'dwrite' => DependencyWriterFactory::create($type),
+ 'objgen' => ObjectGeneratorFactory::create($type),
'noinline' => $noinline,
}, $class;
@@ -52,17 +54,15 @@ sub new {
sub process {
my($self) = shift;
my($file) = shift;
- my($objects) = shift;
my($replace) = $self->{'replace'};
- my($cwd) = $self->{'cwd'};
## Generate the dependency string
my($depstr) = $self->{'dwrite'}->process(
- $objects,
+ $self->{'objgen'}->process($file),
$self->{'pre'}->process($file, $self->{'noinline'}));
## Perform the replacements on the dependency string
- $depstr =~ s/$cwd//go;
+ $depstr =~ s/$self->{'cwd'}//go;
foreach my $rep (@{$self->{'repkeys'}}) {
$depstr =~ s/$rep/$$replace{$rep}/g;
}