paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed overzealous type conversion of guchar

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2005 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
drewski207 2011-09-24 21:19:28 +00:00
parent 3580e4b530
commit f19af38356
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
applications/gobject-introspection/girnamespaces.pas
View File

@ -471,7 +471,7 @@ begin
NS := Self;
// some basic fixes
PlainCType:=StringReplace(StripPointers(ACType, @PointerLevel), ' ', '_', [rfReplaceAll]);
if (PlainCType = 'gchar') or (PlainCType = 'guchar') or (PlainCType = 'char') then
if (PlainCType = 'gchar') or {(PlainCType = 'guchar') or} (PlainCType = 'char') then
AName := 'GLib.utf8';
if (PlainCType = 'GType') {or (AName = 'Type')} or (AName = 'GType')then

3
applications/gobject-introspection/girpascalwriter.pas
View File

@ -1175,7 +1175,8 @@ var
otUnion: Exit; // these will be done on the second pass. this is to avoid duplicate names if they are the same as some function or property. giving the function priority of the original name
otGlibSignal :;// signals are external to the object and not 'part' of them
otGlibSignal : if AObjectType = gtInterface then // signals are external to the object and not 'part' of them
TypeDecl.Add(IndentText(WriteCallBack(TgirCallback(Field),True, UsedNames),4,0));
//WriteFunction(AFunction, AItem, AIsMethod, AWantWrapperForObject, AFunctionList): String;
otFunction : TypeFuncs.Add(IndentText(WriteFunction(TgirFunction(Field), AItem, False, True, UnitFuncs, UsedNames),4,0));