paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

don't lowercase filenames in stabs

Browse Source
This commit is contained in:
peter 2004-08-27 20:53:52 +00:00
parent 82f90fcb13
commit 519bf9889e
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aggas.pas
View File

@ -231,10 +231,10 @@ var
curr_n:=n_includefile; curr_n:=n_includefile;
if (infile.path^<>'') then if (infile.path^<>'') then
begin begin
AsmWriteLn(#9'.stabs "'+lower(BsToSlash(FixPath(infile.path^,false)))+'",'+ AsmWriteLn(#9'.stabs "'+BsToSlash(FixPath(infile.path^,false))+'",'+
tostr(curr_n)+',0,0,'+target_asm.labelprefix+'text'+ToStr(IncludeCount)); tostr(curr_n)+',0,0,'+target_asm.labelprefix+'text'+ToStr(IncludeCount));
end; end;
AsmWriteLn(#9'.stabs "'+lower(FixFileName(infile.name^))+'",'+ AsmWriteLn(#9'.stabs "'+FixFileName(infile.name^)+'",'+
tostr(curr_n)+',0,0,'+target_asm.labelprefix+'text'+ToStr(IncludeCount)); tostr(curr_n)+',0,0,'+target_asm.labelprefix+'text'+ToStr(IncludeCount));
AsmWriteLn(target_asm.labelprefix+'text'+ToStr(IncludeCount)+':'); AsmWriteLn(target_asm.labelprefix+'text'+ToStr(IncludeCount)+':');
inc(includecount); inc(includecount);
@ -307,7 +307,7 @@ var
AsmLn; AsmLn;
case target_info.system of case target_info.system of
system_powerpc_darwin, system_i386_OS2, system_i386_EMX: ; system_powerpc_darwin, system_i386_OS2, system_i386_EMX: ;
else else
AsmWrite('.section '); AsmWrite('.section ');
end; end;
s:=sectionname(atype,aname); s:=sectionname(atype,aname);
@ -969,7 +969,10 @@ var
end. end.
{ {
$Log$ $Log$
Revision 1.57 2004-07-18 22:04:55 hajny Revision 1.58 2004-08-27 20:53:52 peter
don't lowercase filenames in stabs
Revision 1.57 2004/07/18 22:04:55 hajny
* fix for OS/2 and EMX - .section not supported by as.exe * fix for OS/2 and EMX - .section not supported by as.exe
Revision 1.56 2004/07/01 18:16:10 jonas Revision 1.56 2004/07/01 18:16:10 jonas

9
compiler/assemble.pas
View File

@ -855,9 +855,9 @@ Implementation
objectdata.writesymbol(hp); objectdata.writesymbol(hp);
{ emit stabs } { emit stabs }
if (infile.path^<>'') then if (infile.path^<>'') then
EmitStabs('"'+lower(BsToSlash(FixPath(infile.path^,false)))+'",'+tostr(curr_n)+ EmitStabs('"'+BsToSlash(FixPath(infile.path^,false))+'",'+tostr(curr_n)+
',0,0,Ltext'+ToStr(IncludeCount)); ',0,0,Ltext'+ToStr(IncludeCount));
EmitStabs('"'+lower(FixFileName(infile.name^))+'",'+tostr(curr_n)+ EmitStabs('"'+FixFileName(infile.name^)+'",'+tostr(curr_n)+
',0,0,Ltext'+ToStr(IncludeCount)); ',0,0,Ltext'+ToStr(IncludeCount));
inc(includecount); inc(includecount);
{ force new line info } { force new line info }
@ -1629,7 +1629,10 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.73 2004-08-25 15:55:32 peter Revision 1.74 2004-08-27 20:53:52 peter
don't lowercase filenames in stabs
Revision 1.73 2004/08/25 15:55:32 peter
* fixed win32 that was broken by previous fix * fixed win32 that was broken by previous fix
Revision 1.72 2004/08/24 19:31:44 hajny Revision 1.72 2004/08/24 19:31:44 hajny