* fix * support for resources

git-svn-id: trunk@5149 -

compiler/scandir.pas

@@ -916,7 +916,7 @@ implementation
           if Assigned(Current_Module) then
             begin
               delete(S,1,1);
-              insert(ExtractFileName(current_module.mainsource^),S,1);
+              insert(ExtractFileName(ChangeFileExt(current_module.mainsource^,'')),S,1 );
             end;
         s:=ChangeFileExt(FixFileName(s),target_info.resext);
         if target_info.res<>res_none then