paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:56:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed fpc 2.0.0 compatibility workarounds

Browse Source 
git-svn-id: trunk@8766 -
This commit is contained in:
vincents 2006-02-17 21:14:39 +00:00
parent bdfd016800
commit a851d039ac
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/codetoolmanager.pas
View File

@ -562,24 +562,6 @@ begin
Result:=CodeToolBoss.GetOwnerForCodeTreeNode(ANode);
end;
{$IFDEF VER2_0_0}
function ExceptFrameCount: Longint;
begin
If RaiseList=Nil then
Result:=0
else
Result:=RaiseList^.Framecount;
end;
function ExceptFrames: PPointer;
begin
If RaiseList=Nil then
Result:=Nil
else
Result:=RaiseList^.Frames;
end;
{$ENDIF}
procedure DumpExceptionBackTrace;
var
FrameCount: integer;