diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-07-13 18:12:40 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-07-13 18:12:40 +0000 |
| commit | a22c167da8656c5413000d8f4c79d3b3110d72bc (patch) | |
| tree | 56c6115d0bca1f139ad7fe9410193124278148d9 /compiler/comphook.pas | |
| parent | af0bc9965f49f6876ead91fe840021350088d622 (diff) | |
| download | fpc-a22c167da8656c5413000d8f4c79d3b3110d72bc.tar.gz | |
* 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: http://svn.freepascal.org/svn/fpc/trunk@4160 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/comphook.pas')
| -rw-r--r-- | compiler/comphook.pas | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/compiler/comphook.pas b/compiler/comphook.pas index df3e05c6f0..adfc2b0e83 100644 --- a/compiler/comphook.pas +++ b/compiler/comphook.pas @@ -158,7 +158,7 @@ implementation {$IFNDEF USE_SYSUTILS} dos, {$ENDIF USE_SYSUTILS} - cutils + cutils, systems ; {**************************************************************************** @@ -173,7 +173,11 @@ begin begin case s[i] of '\' : gccfilename[i]:='/'; - 'A'..'Z' : gccfilename[i]:=chr(ord(s[i])+32); + 'A'..'Z' : if not (tf_files_case_aware in source_info.flags) and + not (tf_files_case_sensitive in source_info.flags) then + gccfilename[i]:=chr(ord(s[i])+32) + else + gccfilename[i]:=s[i]; else gccfilename[i]:=s[i]; end; @@ -307,9 +311,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 |