diff options
author | Chad Elliott <elliottc@objectcomputing.com> | 2019-05-16 12:48:01 -0500 |
---|---|---|
committer | Chad Elliott <elliottc@objectcomputing.com> | 2019-05-16 12:48:01 -0500 |
commit | 63bd8ccba21971d3e2d03f96834ac32e7a3902d2 (patch) | |
tree | 33875eca72726656eb88e2fadb0742b3847d87e7 /modules/IARWorkspaceCreator.pm | |
parent | bdcd527ae2260b791a5edf2033dbafcd5811e15c (diff) | |
download | MPC-63bd8ccba21971d3e2d03f96834ac32e7a3902d2.tar.gz |
Thu May 16 17:46:26 UTC 2019 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/IARWorkspaceCreator.pm')
-rw-r--r-- | modules/IARWorkspaceCreator.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/modules/IARWorkspaceCreator.pm b/modules/IARWorkspaceCreator.pm index 5f339c6b..ff17ae31 100644 --- a/modules/IARWorkspaceCreator.pm +++ b/modules/IARWorkspaceCreator.pm @@ -53,9 +53,12 @@ sub write_comps { $self->create_command_line_string($0, @ARGV), ' -->', $crlf; foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) { + ## Only emit the prefix if the path is relative. IAR requires it unless + ## the path is fully qualified. print $fh " <project>$crlf", - " <path>\$WS_DIR\$\\", $self->slash_to_backslash($project), - "</path>$crlf", + " <path>"; + print $fh '$WS_DIR$\\' if ($self->path_is_relative($project)); + print $fh $self->slash_to_backslash($project), "</path>$crlf", " </project>$crlf"; } } |