File tree Expand file tree Collapse file tree 1 file changed +1
-15
lines changed Expand file tree Collapse file tree 1 file changed +1
-15
lines changed Original file line number Diff line number Diff line change @@ -139,28 +139,14 @@ function get_object_name(source) result(object_file)
139
139
140
140
object_file = canon_path(source% file_name)
141
141
142
- ! Ignore first directory level
143
- object_file = object_file(index (object_file,filesep)+ 1 :)
144
-
145
142
! Convert any remaining directory separators to underscores
146
143
i = index (object_file,filesep)
147
144
do while (i > 0 )
148
145
object_file(i:i) = ' _'
149
146
i = index (object_file,filesep)
150
147
end do
151
148
152
- select case (source% unit_scope)
153
-
154
- case (FPM_SCOPE_APP, FPM_SCOPE_EXAMPLE)
155
- object_file = join_path(model% output_directory,' app' ,object_file)// ' .o'
156
-
157
- case (FPM_SCOPE_TEST)
158
- object_file = join_path(model% output_directory,' test' ,object_file)// ' .o'
159
-
160
- case default
161
- object_file = join_path(model% output_directory,model% package_name,object_file)// ' .o'
162
-
163
- end select
149
+ object_file = join_path(model% output_directory,model% package_name,object_file)// ' .o'
164
150
165
151
end function get_object_name
166
152
You can’t perform that action at this time.
0 commit comments