From 21b15fd2c891808210704ed2e3090bc0d5467fdc Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 20 Apr 2009 13:26:38 +0000 Subject: [PATCH] IDE: codeexplorer: empty asm blocks git-svn-id: trunk@19523 - --- ide/codeexplorer.pas | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas index 13345bc9af..472a50c7f4 100644 --- a/ide/codeexplorer.pas +++ b/ide/codeexplorer.pas @@ -891,6 +891,17 @@ begin end; end; + ctnAsmBlock: + begin + DebugLn(['TCodeExplorerView.CreateFigures ',Tool.ExtractNode(CodeNode,[])]); + if (cefcEmptyBlocks in Figures) + and CodeIsOnlySpace(Tool.Src,CodeNode.StartPos+length('asm'), + CodeNode.EndPos-length('end')-1) + then begin + AddCodeNode(cefcEmptyBlocks,CodeNode); + end; + end; + ctnProcedure: begin if (cefcNestedProcs in Figures) then