From e5630511e0a5182f7c7249a0cb047725b41b7163 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Wed, 23 Sep 2009 15:16:36 +0200 Subject: Enable experimental mkdir with parents by default It was previously disabled due to some reason, unknown to me now. --- UGnome.pas | 2 ++ 1 file changed, 2 insertions(+) (limited to 'UGnome.pas') diff --git a/UGnome.pas b/UGnome.pas index 3370e43..347d0b6 100644 --- a/UGnome.pas +++ b/UGnome.pas @@ -208,6 +208,7 @@ var libGlib2Handle, libGtk2Handle, libGnome2Handle, libGnomeUI2Handle: Pointer; _type:TGtkMessageType; buttons:TGtkButtonsType; message_format:Pgchar):PGtkWidget; varargs; cdecl; {$ENDIF} + g_mkdir_with_parents: function (const pathname: PChar; mode: integer): integer; cdecl; @@ -1589,6 +1590,7 @@ begin if libGlib2Handle = nil then libGlib2Handle := dlopen('libglib-2.0.so', RTLD_LAZY); if libGlib2Handle <> nil then begin @g_filename_display_name := dlsym(libGlib2Handle, 'g_filename_display_name'); + @g_mkdir_with_parents := dlsym(libGlib2Handle, 'g_mkdir_with_parents'); DebugMsg(['libglib-2.0.so loaded, @g_filename_display_name = 0x', IntToHex(QWORD(@g_filename_display_name), 8)]); end; libGtk2Handle := dlopen('libgtk-x11-2.0.so.0', RTLD_LAZY); -- cgit v1.2.3