mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 17:55:55 +02:00
Converter: Allow class definition in implementation section.
git-svn-id: trunk@27327 -
This commit is contained in:
parent
017b48771a
commit
772c10f63e
@ -1145,7 +1145,7 @@ var
|
||||
if LookupRootTypeName='' then exit;
|
||||
|
||||
// find root type
|
||||
RootClassNode:=fCodeTool.FindClassNodeInInterface(LookupRootTypeName,true,false,false);
|
||||
RootClassNode:=fCodeTool.FindClassNodeInUnit(LookupRootTypeName,true,false,false,false);
|
||||
RootContext:=CleanFindContext;
|
||||
RootContext.Node:=RootClassNode;
|
||||
RootContext.Tool:=fCodeTool;
|
||||
|
Loading…
Reference in New Issue
Block a user