From 5ac79ff36ce6c309dd810398194a8ca34e712066 Mon Sep 17 00:00:00 2001 From: Stephen Heumann Date: Fri, 4 Feb 2022 22:15:02 -0600 Subject: [PATCH] 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. --- Gen.pas | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/Gen.pas b/Gen.pas index fb0ea04..c61c846 100644 --- a/Gen.pas +++ b/Gen.pas @@ -6428,17 +6428,6 @@ procedure GenTree {op: icptr}; 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} {generate a call to install the name in the traceback facility} if traceBack then begin @@ -6476,8 +6465,7 @@ procedure GenTree {op: icptr}; if maxString-stringSize >= len+1 then begin stringSpace[stringSize+1] := chr(len); for i := 1 to len do - stringSpace[i+stringSize+1] := - ToUpper(sourceFileGS.theString.theString[i]); + stringSpace[i+stringSize+1] := sourceFileGS.theString.theString[i]; stringSize := stringSize + len + 1; end {if} else