diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-29 18:03:23 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-03-29 18:03:23 +0000 |
| commit | 4045917292af8e3946d2063310517fadedaa723a (patch) | |
| tree | 380a8b9263548b9fbe2c95a1237abaae3e6c15ac /packages/x11 | |
| parent | b3a4e4dd8a6b1759b33b37669b97105b886e9ad3 (diff) | |
| download | fpc-4045917292af8e3946d2063310517fadedaa723a.tar.gz | |
* Patch from colin western to fix infinite loop
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10586 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/x11')
| -rw-r--r-- | packages/x11/src/xlib.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/x11/src/xlib.pp b/packages/x11/src/xlib.pp index 90b4d5b44f..e7d078660a 100644 --- a/packages/x11/src/xlib.pp +++ b/packages/x11/src/xlib.pp @@ -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; |