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

* Patch from colin western to fix infinite loop

Browse Source 
git-svn-id: trunk@10586 -
This commit is contained in:
michael 2008-03-29 18:03:23 +00:00
parent 55bd5cedb4
commit f251d2fded
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/x11/src/xlib.pp
View File

@ -2097,7 +2097,7 @@ end;
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;