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

+ DEBUG_AGGAS: tais like tai_marker are written as comments

Browse Source 
git-svn-id: trunk@30730 -
This commit is contained in:
florian 2015-04-26 17:19:30 +00:00
parent 652f623983
commit d180187a48
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/aggas.pas
View File

@ -26,6 +26,8 @@ unit aggas;
{$i fpcdefs.inc} {$i fpcdefs.inc}
{ $define DEBUG_AGGAS}
interface interface
uses uses
@ -1261,10 +1263,18 @@ implementation
ait_force_line, ait_force_line,
ait_function_name : ait_function_name :
; begin
{$ifdef DEBUG_AGGAS}
WriteStr(s,hp.typ);
AsmWriteLn('# '+s);
{$endif DEBUG_AGGAS}
end;
ait_cutobject : ait_cutobject :
begin begin
{$ifdef DEBUG_AGGAS}
AsmWriteLn('# ait_cutobject');
{$endif DEBUG_AGGAS}
if SmartAsm then if SmartAsm then
begin begin
{ only reset buffer if nothing has changed } { only reset buffer if nothing has changed }
@ -1290,10 +1300,16 @@ implementation
end; end;
ait_marker : ait_marker :
if tai_marker(hp).kind=mark_NoLineInfoStart then begin
inc(InlineLevel) {$ifdef DEBUG_AGGAS}
else if tai_marker(hp).kind=mark_NoLineInfoEnd then WriteStr(s,tai_marker(hp).Kind);
dec(InlineLevel); AsmWriteLn('# ait_marker, kind: '+s);
{$endif DEBUG_AGGAS}
if tai_marker(hp).kind=mark_NoLineInfoStart then
inc(InlineLevel)
else if tai_marker(hp).kind=mark_NoLineInfoEnd then
dec(InlineLevel);
end;
ait_directive : ait_directive :
begin begin
@ -1333,6 +1349,7 @@ implementation
AsmLn; AsmLn;
{$endif DISABLE_WIN64_SEH} {$endif DISABLE_WIN64_SEH}
end; end;
ait_varloc: ait_varloc:
begin begin
if tai_varloc(hp).newlocationhi<>NR_NO then if tai_varloc(hp).newlocationhi<>NR_NO then