Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-11-17 05:06:10 +00:00
Code Issues Projects Releases Wiki Activity

Stop capitalizing file names in debug information.

Browse Source 
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} 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