paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 20:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added RaiseAndCatchException

Browse Source 
git-svn-id: trunk@28591 -
This commit is contained in:
mattias 2010-12-02 12:32:06 +00:00
parent b5d35d3037
commit 336f855447
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/fileprocs.pas
View File

@ -315,6 +315,7 @@ function CfgStrToDate(const s: string; out Date: TDateTime): boolean;
// debugging // debugging
procedure RaiseCatchableException(const Msg: string); procedure RaiseCatchableException(const Msg: string);
procedure RaiseAndCatchException;
type type
TCTDbgOutEvent = procedure(const s: string); TCTDbgOutEvent = procedure(const s: string);
@ -433,6 +434,14 @@ begin
if (length(Msg) div (length(Msg) div 10000))=0 then ; if (length(Msg) div (length(Msg) div 10000))=0 then ;
end; end;
procedure RaiseAndCatchException;
begin
try
if (length(ctsAddsDirToIncludePath) div (length(ctsAddsDirToIncludePath) div 10000))=0 then ;
except
end;
end;
var var
LineInfoCache: TAVLTree = nil; LineInfoCache: TAVLTree = nil;
LastTick: int64 = 0; LastTick: int64 = 0;