Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Gen.pas
View File

@ -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