← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to rtl/inc/stdsock.inc

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/inc/stdsock.inc
1
1
{
2
 
    $Id: stdsock.inc,v 1.4 2005/02/14 17:13:28 peter Exp $
3
2
    This file is part of the Free Pascal run time library.
4
3
    Copyright (c) 2004 by the Free Pascal development team
5
4
 
40
39
 
41
40
begin
42
41
 fpaccept:=cfpaccept(s,addrx,addrlen);
 
42
 socketerror:=fpgeterrno;
43
43
end;
44
44
 
45
45
function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint;
46
46
begin
47
47
  fpbind:=cfpbind (s,addrx,addrlen);
 
48
  socketerror:=fpgeterrno;
48
49
end;
49
50
 
50
51
function fpconnect     (s:cint; name  : psockaddr; namelen : tsocklen):cint;
51
52
begin
52
53
  fpconnect:=cfpconnect (s,name,namelen);
 
54
  socketerror:=fpgeterrno;
53
55
end;
54
56
 
55
57
function fpgetpeername (s:cint; name  : psockaddr; namelen : psocklen):cint;
56
58
begin
57
59
  fpgetpeername:=cfpgetpeername (s,name,namelen);
 
60
  socketerror:=fpgeterrno;
58
61
end;
59
62
 
60
63
function fpgetsockname (s:cint; name  : psockaddr; namelen : psocklen):cint;
61
64
begin
62
65
  fpgetsockname:=cfpgetsockname(s,name,namelen);
 
66
  socketerror:=fpgeterrno;
63
67
end;
64
68
 
65
69
function fpgetsockopt  (s:cint; level:cint; optname:cint; optval:pointer; optlen : psocklen):cint;
66
70
begin
67
71
  fpgetsockopt:=cfpgetsockopt(s,level,optname,optval,optlen);
 
72
  socketerror:=fpgeterrno;
68
73
end;
69
74
 
70
75
function fplisten      (s:cint; backlog : cint):cint;
71
76
begin
72
77
  fplisten:=cfplisten(s,backlog);
 
78
  socketerror:=fpgeterrno;
73
79
end;
74
80
 
75
81
function fprecv         (s:cint; buf: pointer; len: size_t; flags:cint):ssize_t;
76
82
begin
77
83
  fprecv:= cfprecv      (s,buf,len,flags);
 
84
  socketerror:=fpgeterrno;
78
85
end;
79
86
 
80
87
function fprecvfrom    (s:cint; buf: pointer; len: size_t; flags: cint; from : psockaddr; fromlen : psocklen):ssize_t;
81
88
begin
82
89
  fprecvfrom:= cfprecvfrom (s,buf,len,flags,from,fromlen);
 
90
  socketerror:=fpgeterrno;
83
91
end;
84
92
 
85
93
function fpsend         (s:cint; msg:pointer; len:size_t; flags:cint):ssize_t;
86
94
begin
87
95
  fpsend:=cfpsend (s,msg,len,flags);
 
96
  socketerror:=fpgeterrno;
88
97
end;
89
98
 
90
99
function fpsendto       (s:cint; msg:pointer; len:size_t; flags:cint; tox :psockaddr; tolen: tsocklen):ssize_t;
91
100
begin
92
101
  fpsendto:=cfpsendto (s,msg,len,flags,tox,tolen);
 
102
  socketerror:=fpgeterrno;
93
103
end;
94
104
 
95
105
function fpsetsockopt  (s:cint; level:cint; optname:cint; optval:pointer; optlen :tsocklen):cint;
96
106
begin
97
107
  fpsetsockopt:=cfpsetsockopt(s,level,optname,optval,optlen);
 
108
  socketerror:=fpgeterrno;
98
109
end;
99
110
 
100
111
function fpshutdown     (s:cint; how:cint):cint;
101
112
begin
102
113
  fpshutdown:=cfpshutdown(s,how);
 
114
  socketerror:=fpgeterrno;
103
115
end;
104
116
 
105
117
function fpsocket       (domain:cint; xtype:cint; protocol: cint):cint;
106
118
begin
107
119
  fpsocket:=cfpsocket(domain,xtype,protocol);
 
120
  socketerror:=fpgeterrno;
108
121
end;
109
122
 
110
123
function fpsocketpair  (d:cint; xtype:cint; protocol:cint; sv:pcint):cint;
111
124
begin
112
125
  fpsocketpair:=cfpsocketpair(d,xtype,protocol,sv);
 
126
  socketerror:=fpgeterrno;
113
127
end;
114
128
 
115
 
{
116
 
  $Log: stdsock.inc,v $
117
 
  Revision 1.4  2005/02/14 17:13:28  peter
118
 
    * truncate log
119
 
 
120
 
}