Merged revisions 4160 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r4160 | jonas | 2006-07-13 20:12:40 +0200 (Thu, 13 Jul 2006) | 4 lines

  * support printing the full source file path also when -vr is used
  * don't change the case of paths and file names when using -vr
    and we're on a tf_files_case_aware/tf_files_case_sensitive platform

........

git-svn-id: branches/fixes_2_0@4162 -

compiler/comphook.pas

@@ -152,7 +152,7 @@ implementation
 {$IFNDEF USE_SYSUTILS}
    dos,
 {$ENDIF USE_SYSUTILS}
-   cutils
+   cutils, systems
    ;
 
 {****************************************************************************
@@ -167,7 +167,10 @@ begin
    begin
      case s[i] of
       '\' : gccfilename[i]:='/';
- 'A'..'Z' : gccfilename[i]:=chr(ord(s[i])+32);
+ 'A'..'Z' : if (target_info.system in [obsolete_system_i386_GO32V1,system_i386_GO32V2,system_m68k_PalmOS,system_i386_Netware,system_i386_wdosx,system_i386_EMX,system_i386_watcom,system_i386_netwlibc,system_arm_palmos]) then
+              gccfilename[i]:=chr(ord(s[i])+32)
+            else
+              gccfilename[i]:=s[i];
      else
       gccfilename[i]:=s[i];
      end;
@@ -301,9 +304,9 @@ begin
           begin
             hs:=status.currentsource+'('+tostr(status.currentline)+
               ','+tostr(status.currentcolumn)+') '+hs+' '+s;
-            if status.print_source_path then
-              hs:=status.currentsourcepath+hs;
           end;
+        if status.print_source_path then
+          hs:=status.currentsourcepath+hs;
       end
      else
       begin