paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 03:59:12 +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
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

8
compiler/symdef.pas
View File

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