paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 04:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix loading of ObjC protocol type after c8fee69345

Browse Source 
That type lives in the objcbase unit, not in the system unit

Resolves #39914
This commit is contained in:
Jonas Maebe 2022-09-21 21:25:30 +02:00
parent 5913434ba9
commit efbf5eaa01
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -7806,10 +7806,6 @@ implementation
else else
if (objname^='IDISPATCH') then if (objname^='IDISPATCH') then
interface_idispatch:=self; interface_idispatch:=self;
if (childof=nil) and
(objecttype=odt_objcclass) and
(objname^='PROTOCOL') then
objc_protocoltype:=self;
if (objecttype=odt_javaclass) and if (objecttype=odt_javaclass) and
not(oo_is_formal in objectoptions) then not(oo_is_formal in objectoptions) then
begin begin
@ -7835,6 +7831,10 @@ implementation
java_procvarbase:=self; java_procvarbase:=self;
end; end;
end; end;
if (childof=nil) and
(objecttype=odt_objcclass) and
(objname^='PROTOCOL') then
objc_protocoltype:=self;
writing_class_record_dbginfo:=false; writing_class_record_dbginfo:=false;
end; end;