paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +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}
{ $define DEBUG_AGGAS}
interface
uses
@ -1261,10 +1263,18 @@ implementation
ait_force_line,
ait_function_name :
;
begin
{$ifdef DEBUG_AGGAS}
WriteStr(s,hp.typ);
AsmWriteLn('# '+s);
{$endif DEBUG_AGGAS}
end;
ait_cutobject :
begin
{$ifdef DEBUG_AGGAS}
AsmWriteLn('# ait_cutobject');
{$endif DEBUG_AGGAS}
if SmartAsm then
begin
{ only reset buffer if nothing has changed }
@ -1290,10 +1300,16 @@ implementation
end;
ait_marker :
if tai_marker(hp).kind=mark_NoLineInfoStart then
inc(InlineLevel)
else if tai_marker(hp).kind=mark_NoLineInfoEnd then
dec(InlineLevel);
begin
{$ifdef DEBUG_AGGAS}
WriteStr(s,tai_marker(hp).Kind);
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 :
begin
@ -1333,6 +1349,7 @@ implementation
AsmLn;
{$endif DISABLE_WIN64_SEH}
end;
ait_varloc:
begin
if tai_varloc(hp).newlocationhi<>NR_NO then