Stop capitalizing file names in debug information.

This does not seem to be necessary for any of the debuggers (at least in their latest versions), and it obviously causes problems with case-sensitive filesystems.
This commit is contained in:
Stephen Heumann 2022-02-04 22:15:02 -06:00
parent 7322428e1d
commit 5ac79ff36c

14
Gen.pas
View File

@ -6428,17 +6428,6 @@ procedure GenTree {op: icptr};
len: integer; {length of the file name} len: integer; {length of the file name}
function ToUpper (ch: char): char;
{ Return the uppercase equivalent of the input character }
begin {ToUpper}
if (ch >= 'a') and (ch <= 'z') then
ch := chr(ord(ch)-ord('a')+ord('A'));
ToUpper := ch;
end; {ToUpper}
begin {GenNam} begin {GenNam}
{generate a call to install the name in the traceback facility} {generate a call to install the name in the traceback facility}
if traceBack then begin if traceBack then begin
@ -6476,8 +6465,7 @@ procedure GenTree {op: icptr};
if maxString-stringSize >= len+1 then begin if maxString-stringSize >= len+1 then begin
stringSpace[stringSize+1] := chr(len); stringSpace[stringSize+1] := chr(len);
for i := 1 to len do for i := 1 to len do
stringSpace[i+stringSize+1] := stringSpace[i+stringSize+1] := sourceFileGS.theString.theString[i];
ToUpper(sourceFileGS.theString.theString[i]);
stringSize := stringSize + len + 1; stringSize := stringSize + len + 1;
end {if} end {if}
else else