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

ide: fix crash on opening new unit which lazarus decides as a project unit

Browse Source 
git-svn-id: trunk@24457 -
This commit is contained in:
paul 2010-04-06 01:55:23 +00:00
parent 0122b4d687
commit 903275fc98
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -8588,7 +8588,10 @@ begin
if AEditorInfo <> nil then
NewEditorInfo := AEditorInfo
else
NewEditorInfo := NewUnitInfo.GetClosedOrNewEditorInfo;
if NewUnitInfo <> nil then
NewEditorInfo := NewUnitInfo.GetClosedOrNewEditorInfo
else
NewEditorInfo := nil;
if Handled then exit;
end;