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

* fixed -al with macro's

Browse Source
This commit is contained in:
peter 1999-09-27 23:36:33 +00:00
parent 85c3b9ff3b
commit 1664cb06a1
1 changed files with 28 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
compiler/ag386att.pas
View File

@ -298,19 +298,22 @@ unit ag386att;
(stabslastfileinfo.fileindex<>fileinfo.fileindex) then (stabslastfileinfo.fileindex<>fileinfo.fileindex) then
begin begin
infile:=current_module^.sourcefiles^.get_file(fileinfo.fileindex); infile:=current_module^.sourcefiles^.get_file(fileinfo.fileindex);
if includecount=0 then if assigned(infile) then
curr_n:=n_sourcefile
else
curr_n:=n_includefile;
if (infile^.path^<>'') then
begin begin
AsmWriteLn(#9'.stabs "'+lower(BsToSlash(FixPath(infile^.path^,false)))+'",'+ if includecount=0 then
curr_n:=n_sourcefile
else
curr_n:=n_includefile;
if (infile^.path^<>'') then
begin
AsmWriteLn(#9'.stabs "'+lower(BsToSlash(FixPath(infile^.path^,false)))+'",'+
tostr(curr_n)+',0,0,'+'Ltext'+ToStr(IncludeCount));
end;
AsmWriteLn(#9'.stabs "'+lower(FixFileName(infile^.name^))+'",'+
tostr(curr_n)+',0,0,'+'Ltext'+ToStr(IncludeCount)); tostr(curr_n)+',0,0,'+'Ltext'+ToStr(IncludeCount));
AsmWriteLn('Ltext'+ToStr(IncludeCount)+':');
inc(includecount);
end; end;
AsmWriteLn(#9'.stabs "'+lower(FixFileName(infile^.name^))+'",'+
tostr(curr_n)+',0,0,'+'Ltext'+ToStr(IncludeCount));
AsmWriteLn('Ltext'+ToStr(IncludeCount)+':');
inc(includecount);
end; end;
{ line changed ? } { line changed ? }
if (stabslastfileinfo.line<>fileinfo.line) and (fileinfo.line<>0) then if (stabslastfileinfo.line<>fileinfo.line) and (fileinfo.line<>0) then
@ -384,21 +387,26 @@ unit ag386att;
if lastfileinfo.fileindex<>hp^.fileinfo.fileindex then if lastfileinfo.fileindex<>hp^.fileinfo.fileindex then
begin begin
infile:=current_module^.sourcefiles^.get_file(hp^.fileinfo.fileindex); infile:=current_module^.sourcefiles^.get_file(hp^.fileinfo.fileindex);
{ open only if needed !! } if assigned(infile) then
if (cs_asm_source in aktglobalswitches) then begin
infile^.open; { open only if needed !! }
if (cs_asm_source in aktglobalswitches) then
infile^.open;
end;
{ avoid unnecessary reopens of the same file !! } { avoid unnecessary reopens of the same file !! }
lastfileinfo.fileindex:=hp^.fileinfo.fileindex; lastfileinfo.fileindex:=hp^.fileinfo.fileindex;
{ be sure to change line !! } { be sure to change line !! }
lastfileinfo.line:=-1; lastfileinfo.line:=-1;
end; end;
{ write source } { write source }
if (cs_asm_source in aktglobalswitches) then if (cs_asm_source in aktglobalswitches) and
assigned(infile) then
begin begin
if (infile<>lastinfile) and assigned(lastinfile) then if (infile<>lastinfile) then
begin begin
AsmWriteLn(target_asm.comment+'['+infile^.name^+']'); AsmWriteLn(target_asm.comment+'['+infile^.name^+']');
lastinfile^.close; if assigned(lastinfile) then
lastinfile^.close;
end; end;
if (hp^.fileinfo.line<>lastfileinfo.line) and if (hp^.fileinfo.line<>lastfileinfo.line) and
(hp^.fileinfo.line<infile^.maxlinebuf) then (hp^.fileinfo.line<infile^.maxlinebuf) then
@ -865,7 +873,10 @@ unit ag386att;
end. end.
{ {
$Log$ $Log$
Revision 1.16 1999-09-21 20:53:21 florian Revision 1.17 1999-09-27 23:36:33 peter
* fixed -al with macro's
Revision 1.16 1999/09/21 20:53:21 florian
* fixed 1/s problem from mailing list * fixed 1/s problem from mailing list
Revision 1.15 1999/09/19 20:55:11 florian Revision 1.15 1999/09/19 20:55:11 florian