paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Mattias Gaertner to fix G_TYPE_INSTANCE_GET_CLASS

Browse Source 
git-svn-id: trunk@123 -
This commit is contained in:
michael 2005-05-26 15:31:59 +00:00
parent 48c968edf6
commit 0a1a92f1aa
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/extra/gtk2/glib/glib2.pas
View File

@ -1294,8 +1294,11 @@ begin
end;
function G_TYPE_INSTANCE_GET_CLASS(instance: Pointer; g_type: GType) : PGTypeClass;
// #define G_TYPE_INSTANCE_GET_CLASS(instance, g_type, c_type) (_G_TYPE_IGC ((instance), (g_type), c_type))
// #define _G_TYPE_IGC(ip, gt, ct) ((ct*) (((GTypeInstance*) ip)->g_class))
begin
G_TYPE_INSTANCE_GET_CLASS:=private_g_type_check_class_cast(instance,g_type);
Result:=PGTypeInstance(Instance)^.g_class;
Result:=private_g_type_check_class_cast(Result,g_type);
end;
function G_TYPE_INSTANCE_GET_INTERFACE(instance: Pointer; g_type: GType) : Pointer;