The recent xlib change seems to contain an infinite loop - the attached patch fixes it for me

Colin
diff -uNr --exclude=.svn --exclude='*.rst' trunk/fpcsrc/packages/x11/src/xlib.pp trunk.w/fpcsrc/packages/x11/src/xlib.pp
--- trunk/fpcsrc/packages/x11/src/xlib.pp	2008-03-29 12:07:09.000000000 +0000
+++ trunk.w/fpcsrc/packages/x11/src/xlib.pp	2008-03-29 16:57:37.000000000 +0000
@@ -2097,7 +2097,7 @@
 function XInternAtom(para1:PDisplay; para2:Pchar; para3:Boolean):TAtom;
 
 begin
-  Result:=XInternAtom(para1,para2,para3);
+  Result:=XInternAtom(para1,para2,Ord(para3));
 end;
 
 function XInternAtoms(para1:PDisplay; para2:PPchar; para3:cint; para4:Boolean; para5:PAtom):TStatus;
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to