diff options
-rw-r--r-- | lib/sbin/c_file_processor.pl | 5 | ||||
-rw-r--r-- | lib/sbin/f_file_processor.pl | 2 |
2 files changed, 1 insertions, 6 deletions
diff --git a/lib/sbin/c_file_processor.pl b/lib/sbin/c_file_processor.pl index e4b11500..e7c74819 100644 --- a/lib/sbin/c_file_processor.pl +++ b/lib/sbin/c_file_processor.pl @@ -28,11 +28,6 @@ if (! -e "$fortran_name_file" ) require "$fortran_name_file"; -if($source_file_name) -{ - print "# 1 \"$source_file_name\"\n" if ($line_directives); -} - $closing_brackets = ''; $routine = ''; $n_arg_braces = -3; diff --git a/lib/sbin/f_file_processor.pl b/lib/sbin/f_file_processor.pl index b26c9eaf..4cfacdb9 100644 --- a/lib/sbin/f_file_processor.pl +++ b/lib/sbin/f_file_processor.pl @@ -40,7 +40,7 @@ else # Loop over all lines. $line = 1; -$file = $source_file_name; +$file = ""; $autoline = 1; $autofile = ""; while (<>) |