mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 13:59:18 +02:00
added try except to Application.Run, message on changing debugger items during compile
git-svn-id: trunk@3114 -
This commit is contained in:
parent
1d4c51ec32
commit
0f52239198
@ -1434,7 +1434,6 @@ begin
|
|||||||
// create or delete breakpoint
|
// create or delete breakpoint
|
||||||
// find breakpoint mark at line
|
// find breakpoint mark at line
|
||||||
BreakPtMark := SourceEditorMarks.FindBreakPointMark(FEditor,Line);
|
BreakPtMark := SourceEditorMarks.FindBreakPointMark(FEditor,Line);
|
||||||
writeln('TSourceEditor.OnGutterClick A ',BreakPtMark<>nil);
|
|
||||||
if BreakPtMark = nil then
|
if BreakPtMark = nil then
|
||||||
DebugBoss.DoCreateBreakPoint(Filename,Line)
|
DebugBoss.DoCreateBreakPoint(Filename,Line)
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user