From bafbe5a4512a07355fa22ba522beecec17267fc9 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 9 Aug 2009 10:30:15 +0000
Subject: [PATCH]  * socket ->fpsocket

git-svn-id: trunk@13505 -
---
 rtl/linux/gpm.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/linux/gpm.pp b/rtl/linux/gpm.pp
index 4262b5bb0c..511ea798f6 100644
--- a/rtl/linux/gpm.pp
+++ b/rtl/linux/gpm.pp
@@ -531,7 +531,7 @@ begin
   {....................................... Connect to the control socket}
   if not gpm_flag then
     begin
-      gpm_fd:=socket(AF_UNIX,SOCK_STREAM,0);
+      gpm_fd:=fpsocket(AF_UNIX,SOCK_STREAM,0);
       if gpm_fd<0 then
         begin
 {           gpm_report(GPM_PR_ERR,GPM_MESS_SOCKET,strerror(errno));}