paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 14:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed commented out code for handling case insensitive assemblers, because sdcc-sdasz80 is case sensitive by default

Browse Source 
git-svn-id: branches/z80@44466 -
This commit is contained in:
nickysn 2020-03-31 19:40:18 +00:00
parent a670e04a3f
commit bbc8629b39
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/z80/agsdasz80.pas
View File

@ -244,20 +244,6 @@ unit agsdasz80;
begin
if tai_symbol(hp).has_value then
internalerror(2009090802);
{ wasm is case insensitive, we nned to use only uppercase version
if both a lowercase and an uppercase version are provided }
{if (asminfo^.id = as_i386_wasm) then
begin
nhp:=tai(hp.next);
while assigned(nhp) and (nhp.typ in [ait_function_name,ait_force_line]) do
nhp:=tai(nhp.next);
if assigned(nhp) and (tai(nhp).typ=ait_symbol) and
(lower(tai_symbol(nhp).sym.name)=tai_symbol(hp).sym.name) then
begin
writer.AsmWriteln(asminfo^.comment+' '+tai_symbol(hp).sym.name+' removed');
hp:=tai(nhp);
end;
end;}
if tai_symbol(hp).is_global then
begin
writer.AsmWrite('.globl'#9);