Linux Audio

Check our new training course

Loading...
v3.1
 
  1/* scm.c - Socket level control messages processing.
  2 *
  3 * Author:	Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
  4 *              Alignment and value checking mods by Craig Metz
  5 *
  6 *		This program is free software; you can redistribute it and/or
  7 *		modify it under the terms of the GNU General Public License
  8 *		as published by the Free Software Foundation; either version
  9 *		2 of the License, or (at your option) any later version.
 10 */
 11
 12#include <linux/module.h>
 13#include <linux/signal.h>
 14#include <linux/capability.h>
 15#include <linux/errno.h>
 16#include <linux/sched.h>
 
 17#include <linux/mm.h>
 18#include <linux/kernel.h>
 19#include <linux/stat.h>
 20#include <linux/socket.h>
 21#include <linux/file.h>
 22#include <linux/fcntl.h>
 23#include <linux/net.h>
 24#include <linux/interrupt.h>
 25#include <linux/netdevice.h>
 26#include <linux/security.h>
 
 27#include <linux/pid.h>
 28#include <linux/nsproxy.h>
 29#include <linux/slab.h>
 
 30
 31#include <asm/system.h>
 32#include <asm/uaccess.h>
 33
 34#include <net/protocol.h>
 35#include <linux/skbuff.h>
 36#include <net/sock.h>
 37#include <net/compat.h>
 38#include <net/scm.h>
 
 39
 40
 41/*
 42 *	Only allow a user to send credentials, that they could set with
 43 *	setu(g)id.
 44 */
 45
 46static __inline__ int scm_check_creds(struct ucred *creds)
 47{
 48	const struct cred *cred = current_cred();
 
 
 
 
 
 49
 50	if ((creds->pid == task_tgid_vnr(current) || capable(CAP_SYS_ADMIN)) &&
 51	    ((creds->uid == cred->uid   || creds->uid == cred->euid ||
 52	      creds->uid == cred->suid) || capable(CAP_SETUID)) &&
 53	    ((creds->gid == cred->gid   || creds->gid == cred->egid ||
 54	      creds->gid == cred->sgid) || capable(CAP_SETGID))) {
 
 55	       return 0;
 56	}
 57	return -EPERM;
 58}
 59
 60static int scm_fp_copy(struct cmsghdr *cmsg, struct scm_fp_list **fplp)
 61{
 62	int *fdp = (int*)CMSG_DATA(cmsg);
 63	struct scm_fp_list *fpl = *fplp;
 64	struct file **fpp;
 65	int i, num;
 66
 67	num = (cmsg->cmsg_len - CMSG_ALIGN(sizeof(struct cmsghdr)))/sizeof(int);
 68
 69	if (num <= 0)
 70		return 0;
 71
 72	if (num > SCM_MAX_FD)
 73		return -EINVAL;
 74
 75	if (!fpl)
 76	{
 77		fpl = kmalloc(sizeof(struct scm_fp_list), GFP_KERNEL);
 78		if (!fpl)
 79			return -ENOMEM;
 80		*fplp = fpl;
 81		fpl->count = 0;
 82		fpl->max = SCM_MAX_FD;
 
 83	}
 84	fpp = &fpl->fp[fpl->count];
 85
 86	if (fpl->count + num > fpl->max)
 87		return -EINVAL;
 88
 89	/*
 90	 *	Verify the descriptors and increment the usage count.
 91	 */
 92
 93	for (i=0; i< num; i++)
 94	{
 95		int fd = fdp[i];
 96		struct file *file;
 97
 98		if (fd < 0 || !(file = fget_raw(fd)))
 99			return -EBADF;
100		*fpp++ = file;
101		fpl->count++;
102	}
 
 
 
 
103	return num;
104}
105
106void __scm_destroy(struct scm_cookie *scm)
107{
108	struct scm_fp_list *fpl = scm->fp;
109	int i;
110
111	if (fpl) {
112		scm->fp = NULL;
113		if (current->scm_work_list) {
114			list_add_tail(&fpl->list, current->scm_work_list);
115		} else {
116			LIST_HEAD(work_list);
117
118			current->scm_work_list = &work_list;
119
120			list_add(&fpl->list, &work_list);
121			while (!list_empty(&work_list)) {
122				fpl = list_first_entry(&work_list, struct scm_fp_list, list);
123
124				list_del(&fpl->list);
125				for (i=fpl->count-1; i>=0; i--)
126					fput(fpl->fp[i]);
127				kfree(fpl);
128			}
129
130			current->scm_work_list = NULL;
131		}
132	}
133}
134EXPORT_SYMBOL(__scm_destroy);
135
136int __scm_send(struct socket *sock, struct msghdr *msg, struct scm_cookie *p)
137{
138	struct cmsghdr *cmsg;
139	int err;
140
141	for (cmsg = CMSG_FIRSTHDR(msg); cmsg; cmsg = CMSG_NXTHDR(msg, cmsg))
142	{
143		err = -EINVAL;
144
145		/* Verify that cmsg_len is at least sizeof(struct cmsghdr) */
146		/* The first check was omitted in <= 2.2.5. The reasoning was
147		   that parser checks cmsg_len in any case, so that
148		   additional check would be work duplication.
149		   But if cmsg_level is not SOL_SOCKET, we do not check
150		   for too short ancillary data object at all! Oops.
151		   OK, let's add it...
152		 */
153		if (!CMSG_OK(msg, cmsg))
154			goto error;
155
156		if (cmsg->cmsg_level != SOL_SOCKET)
157			continue;
158
159		switch (cmsg->cmsg_type)
160		{
161		case SCM_RIGHTS:
162			if (!sock->ops || sock->ops->family != PF_UNIX)
163				goto error;
164			err=scm_fp_copy(cmsg, &p->fp);
165			if (err<0)
166				goto error;
167			break;
168		case SCM_CREDENTIALS:
 
 
 
 
169			if (cmsg->cmsg_len != CMSG_LEN(sizeof(struct ucred)))
170				goto error;
171			memcpy(&p->creds, CMSG_DATA(cmsg), sizeof(struct ucred));
172			err = scm_check_creds(&p->creds);
173			if (err)
174				goto error;
175
176			if (pid_vnr(p->pid) != p->creds.pid) {
 
177				struct pid *pid;
178				err = -ESRCH;
179				pid = find_get_pid(p->creds.pid);
180				if (!pid)
181					goto error;
182				put_pid(p->pid);
183				p->pid = pid;
184			}
185
186			if ((p->cred->euid != p->creds.uid) ||
187				(p->cred->egid != p->creds.gid)) {
188				struct cred *cred;
189				err = -ENOMEM;
190				cred = prepare_creds();
191				if (!cred)
192					goto error;
193
194				cred->uid = cred->euid = p->creds.uid;
195				cred->gid = cred->egid = p->creds.gid;
196				put_cred(p->cred);
197				p->cred = cred;
198			}
199			break;
 
200		default:
201			goto error;
202		}
203	}
204
205	if (p->fp && !p->fp->count)
206	{
207		kfree(p->fp);
208		p->fp = NULL;
209	}
210	return 0;
211
212error:
213	scm_destroy(p);
214	return err;
215}
216EXPORT_SYMBOL(__scm_send);
217
218int put_cmsg(struct msghdr * msg, int level, int type, int len, void *data)
219{
220	struct cmsghdr __user *cm
221		= (__force struct cmsghdr __user *)msg->msg_control;
222	struct cmsghdr cmhdr;
223	int cmlen = CMSG_LEN(len);
224	int err;
225
226	if (MSG_CMSG_COMPAT & msg->msg_flags)
227		return put_cmsg_compat(msg, level, type, len, data);
228
229	if (cm==NULL || msg->msg_controllen < sizeof(*cm)) {
230		msg->msg_flags |= MSG_CTRUNC;
231		return 0; /* XXX: return error? check spec. */
232	}
233	if (msg->msg_controllen < cmlen) {
234		msg->msg_flags |= MSG_CTRUNC;
235		cmlen = msg->msg_controllen;
236	}
237	cmhdr.cmsg_level = level;
238	cmhdr.cmsg_type = type;
239	cmhdr.cmsg_len = cmlen;
240
241	err = -EFAULT;
242	if (copy_to_user(cm, &cmhdr, sizeof cmhdr))
243		goto out;
244	if (copy_to_user(CMSG_DATA(cm), data, cmlen - sizeof(struct cmsghdr)))
245		goto out;
246	cmlen = CMSG_SPACE(len);
247	if (msg->msg_controllen < cmlen)
248		cmlen = msg->msg_controllen;
 
 
 
 
 
 
 
 
 
 
 
249	msg->msg_control += cmlen;
250	msg->msg_controllen -= cmlen;
251	err = 0;
252out:
253	return err;
 
 
 
254}
255EXPORT_SYMBOL(put_cmsg);
256
257void scm_detach_fds(struct msghdr *msg, struct scm_cookie *scm)
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
258{
259	struct cmsghdr __user *cm
260		= (__force struct cmsghdr __user*)msg->msg_control;
 
 
261
262	int fdmax = 0;
263	int fdnum = scm->fp->count;
264	struct file **fp = scm->fp->fp;
265	int __user *cmfptr;
 
 
 
266	int err = 0, i;
267
268	if (MSG_CMSG_COMPAT & msg->msg_flags) {
 
 
 
 
269		scm_detach_fds_compat(msg, scm);
270		return;
271	}
272
273	if (msg->msg_controllen > sizeof(struct cmsghdr))
274		fdmax = ((msg->msg_controllen - sizeof(struct cmsghdr))
275			 / sizeof(int));
276
277	if (fdnum < fdmax)
278		fdmax = fdnum;
279
280	for (i=0, cmfptr=(__force int __user *)CMSG_DATA(cm); i<fdmax;
281	     i++, cmfptr++)
282	{
283		int new_fd;
284		err = security_file_receive(fp[i]);
285		if (err)
286			break;
287		err = get_unused_fd_flags(MSG_CMSG_CLOEXEC & msg->msg_flags
288					  ? O_CLOEXEC : 0);
289		if (err < 0)
290			break;
291		new_fd = err;
292		err = put_user(new_fd, cmfptr);
293		if (err) {
294			put_unused_fd(new_fd);
295			break;
296		}
297		/* Bump the usage count and install the file. */
298		get_file(fp[i]);
299		fd_install(new_fd, fp[i]);
300	}
301
302	if (i > 0)
303	{
304		int cmlen = CMSG_LEN(i*sizeof(int));
305		err = put_user(SOL_SOCKET, &cm->cmsg_level);
306		if (!err)
307			err = put_user(SCM_RIGHTS, &cm->cmsg_type);
308		if (!err)
309			err = put_user(cmlen, &cm->cmsg_len);
310		if (!err) {
311			cmlen = CMSG_SPACE(i*sizeof(int));
 
 
312			msg->msg_control += cmlen;
313			msg->msg_controllen -= cmlen;
314		}
315	}
316	if (i < fdnum || (fdnum && fdmax <= 0))
 
317		msg->msg_flags |= MSG_CTRUNC;
318
319	/*
320	 * All of the files that fit in the message have had their
321	 * usage counts incremented, so we just free the list.
322	 */
323	__scm_destroy(scm);
324}
325EXPORT_SYMBOL(scm_detach_fds);
326
327struct scm_fp_list *scm_fp_dup(struct scm_fp_list *fpl)
328{
329	struct scm_fp_list *new_fpl;
330	int i;
331
332	if (!fpl)
333		return NULL;
334
335	new_fpl = kmemdup(fpl, offsetof(struct scm_fp_list, fp[fpl->count]),
336			  GFP_KERNEL);
337	if (new_fpl) {
338		for (i = 0; i < fpl->count; i++)
339			get_file(fpl->fp[i]);
340		new_fpl->max = new_fpl->count;
 
341	}
342	return new_fpl;
343}
344EXPORT_SYMBOL(scm_fp_dup);
v6.2
  1// SPDX-License-Identifier: GPL-2.0-or-later
  2/* scm.c - Socket level control messages processing.
  3 *
  4 * Author:	Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
  5 *              Alignment and value checking mods by Craig Metz
 
 
 
 
 
  6 */
  7
  8#include <linux/module.h>
  9#include <linux/signal.h>
 10#include <linux/capability.h>
 11#include <linux/errno.h>
 12#include <linux/sched.h>
 13#include <linux/sched/user.h>
 14#include <linux/mm.h>
 15#include <linux/kernel.h>
 16#include <linux/stat.h>
 17#include <linux/socket.h>
 18#include <linux/file.h>
 19#include <linux/fcntl.h>
 20#include <linux/net.h>
 21#include <linux/interrupt.h>
 22#include <linux/netdevice.h>
 23#include <linux/security.h>
 24#include <linux/pid_namespace.h>
 25#include <linux/pid.h>
 26#include <linux/nsproxy.h>
 27#include <linux/slab.h>
 28#include <linux/errqueue.h>
 29
 30#include <linux/uaccess.h>
 
 31
 32#include <net/protocol.h>
 33#include <linux/skbuff.h>
 34#include <net/sock.h>
 35#include <net/compat.h>
 36#include <net/scm.h>
 37#include <net/cls_cgroup.h>
 38
 39
 40/*
 41 *	Only allow a user to send credentials, that they could set with
 42 *	setu(g)id.
 43 */
 44
 45static __inline__ int scm_check_creds(struct ucred *creds)
 46{
 47	const struct cred *cred = current_cred();
 48	kuid_t uid = make_kuid(cred->user_ns, creds->uid);
 49	kgid_t gid = make_kgid(cred->user_ns, creds->gid);
 50
 51	if (!uid_valid(uid) || !gid_valid(gid))
 52		return -EINVAL;
 53
 54	if ((creds->pid == task_tgid_vnr(current) ||
 55	     ns_capable(task_active_pid_ns(current)->user_ns, CAP_SYS_ADMIN)) &&
 56	    ((uid_eq(uid, cred->uid)   || uid_eq(uid, cred->euid) ||
 57	      uid_eq(uid, cred->suid)) || ns_capable(cred->user_ns, CAP_SETUID)) &&
 58	    ((gid_eq(gid, cred->gid)   || gid_eq(gid, cred->egid) ||
 59	      gid_eq(gid, cred->sgid)) || ns_capable(cred->user_ns, CAP_SETGID))) {
 60	       return 0;
 61	}
 62	return -EPERM;
 63}
 64
 65static int scm_fp_copy(struct cmsghdr *cmsg, struct scm_fp_list **fplp)
 66{
 67	int *fdp = (int*)CMSG_DATA(cmsg);
 68	struct scm_fp_list *fpl = *fplp;
 69	struct file **fpp;
 70	int i, num;
 71
 72	num = (cmsg->cmsg_len - sizeof(struct cmsghdr))/sizeof(int);
 73
 74	if (num <= 0)
 75		return 0;
 76
 77	if (num > SCM_MAX_FD)
 78		return -EINVAL;
 79
 80	if (!fpl)
 81	{
 82		fpl = kmalloc(sizeof(struct scm_fp_list), GFP_KERNEL_ACCOUNT);
 83		if (!fpl)
 84			return -ENOMEM;
 85		*fplp = fpl;
 86		fpl->count = 0;
 87		fpl->max = SCM_MAX_FD;
 88		fpl->user = NULL;
 89	}
 90	fpp = &fpl->fp[fpl->count];
 91
 92	if (fpl->count + num > fpl->max)
 93		return -EINVAL;
 94
 95	/*
 96	 *	Verify the descriptors and increment the usage count.
 97	 */
 98
 99	for (i=0; i< num; i++)
100	{
101		int fd = fdp[i];
102		struct file *file;
103
104		if (fd < 0 || !(file = fget_raw(fd)))
105			return -EBADF;
106		*fpp++ = file;
107		fpl->count++;
108	}
109
110	if (!fpl->user)
111		fpl->user = get_uid(current_user());
112
113	return num;
114}
115
116void __scm_destroy(struct scm_cookie *scm)
117{
118	struct scm_fp_list *fpl = scm->fp;
119	int i;
120
121	if (fpl) {
122		scm->fp = NULL;
123		for (i=fpl->count-1; i>=0; i--)
124			fput(fpl->fp[i]);
125		free_uid(fpl->user);
126		kfree(fpl);
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
127	}
128}
129EXPORT_SYMBOL(__scm_destroy);
130
131int __scm_send(struct socket *sock, struct msghdr *msg, struct scm_cookie *p)
132{
133	struct cmsghdr *cmsg;
134	int err;
135
136	for_each_cmsghdr(cmsg, msg) {
 
137		err = -EINVAL;
138
139		/* Verify that cmsg_len is at least sizeof(struct cmsghdr) */
140		/* The first check was omitted in <= 2.2.5. The reasoning was
141		   that parser checks cmsg_len in any case, so that
142		   additional check would be work duplication.
143		   But if cmsg_level is not SOL_SOCKET, we do not check
144		   for too short ancillary data object at all! Oops.
145		   OK, let's add it...
146		 */
147		if (!CMSG_OK(msg, cmsg))
148			goto error;
149
150		if (cmsg->cmsg_level != SOL_SOCKET)
151			continue;
152
153		switch (cmsg->cmsg_type)
154		{
155		case SCM_RIGHTS:
156			if (!sock->ops || sock->ops->family != PF_UNIX)
157				goto error;
158			err=scm_fp_copy(cmsg, &p->fp);
159			if (err<0)
160				goto error;
161			break;
162		case SCM_CREDENTIALS:
163		{
164			struct ucred creds;
165			kuid_t uid;
166			kgid_t gid;
167			if (cmsg->cmsg_len != CMSG_LEN(sizeof(struct ucred)))
168				goto error;
169			memcpy(&creds, CMSG_DATA(cmsg), sizeof(struct ucred));
170			err = scm_check_creds(&creds);
171			if (err)
172				goto error;
173
174			p->creds.pid = creds.pid;
175			if (!p->pid || pid_vnr(p->pid) != creds.pid) {
176				struct pid *pid;
177				err = -ESRCH;
178				pid = find_get_pid(creds.pid);
179				if (!pid)
180					goto error;
181				put_pid(p->pid);
182				p->pid = pid;
183			}
184
185			err = -EINVAL;
186			uid = make_kuid(current_user_ns(), creds.uid);
187			gid = make_kgid(current_user_ns(), creds.gid);
188			if (!uid_valid(uid) || !gid_valid(gid))
189				goto error;
 
 
190
191			p->creds.uid = uid;
192			p->creds.gid = gid;
 
 
 
193			break;
194		}
195		default:
196			goto error;
197		}
198	}
199
200	if (p->fp && !p->fp->count)
201	{
202		kfree(p->fp);
203		p->fp = NULL;
204	}
205	return 0;
206
207error:
208	scm_destroy(p);
209	return err;
210}
211EXPORT_SYMBOL(__scm_send);
212
213int put_cmsg(struct msghdr * msg, int level, int type, int len, void *data)
214{
 
 
 
215	int cmlen = CMSG_LEN(len);
 
216
217	if (msg->msg_flags & MSG_CMSG_COMPAT)
218		return put_cmsg_compat(msg, level, type, len, data);
219
220	if (!msg->msg_control || msg->msg_controllen < sizeof(struct cmsghdr)) {
221		msg->msg_flags |= MSG_CTRUNC;
222		return 0; /* XXX: return error? check spec. */
223	}
224	if (msg->msg_controllen < cmlen) {
225		msg->msg_flags |= MSG_CTRUNC;
226		cmlen = msg->msg_controllen;
227	}
228
229	if (msg->msg_control_is_user) {
230		struct cmsghdr __user *cm = msg->msg_control_user;
231
232		if (!user_write_access_begin(cm, cmlen))
233			goto efault;
234
235		unsafe_put_user(cmlen, &cm->cmsg_len, efault_end);
236		unsafe_put_user(level, &cm->cmsg_level, efault_end);
237		unsafe_put_user(type, &cm->cmsg_type, efault_end);
238		unsafe_copy_to_user(CMSG_USER_DATA(cm), data,
239				    cmlen - sizeof(*cm), efault_end);
240		user_write_access_end();
241	} else {
242		struct cmsghdr *cm = msg->msg_control;
243
244		cm->cmsg_level = level;
245		cm->cmsg_type = type;
246		cm->cmsg_len = cmlen;
247		memcpy(CMSG_DATA(cm), data, cmlen - sizeof(*cm));
248	}
249
250	cmlen = min(CMSG_SPACE(len), msg->msg_controllen);
251	msg->msg_control += cmlen;
252	msg->msg_controllen -= cmlen;
253	return 0;
254
255efault_end:
256	user_write_access_end();
257efault:
258	return -EFAULT;
259}
260EXPORT_SYMBOL(put_cmsg);
261
262void put_cmsg_scm_timestamping64(struct msghdr *msg, struct scm_timestamping_internal *tss_internal)
263{
264	struct scm_timestamping64 tss;
265	int i;
266
267	for (i = 0; i < ARRAY_SIZE(tss.ts); i++) {
268		tss.ts[i].tv_sec = tss_internal->ts[i].tv_sec;
269		tss.ts[i].tv_nsec = tss_internal->ts[i].tv_nsec;
270	}
271
272	put_cmsg(msg, SOL_SOCKET, SO_TIMESTAMPING_NEW, sizeof(tss), &tss);
273}
274EXPORT_SYMBOL(put_cmsg_scm_timestamping64);
275
276void put_cmsg_scm_timestamping(struct msghdr *msg, struct scm_timestamping_internal *tss_internal)
277{
278	struct scm_timestamping tss;
279	int i;
280
281	for (i = 0; i < ARRAY_SIZE(tss.ts); i++) {
282		tss.ts[i].tv_sec = tss_internal->ts[i].tv_sec;
283		tss.ts[i].tv_nsec = tss_internal->ts[i].tv_nsec;
284	}
285
286	put_cmsg(msg, SOL_SOCKET, SO_TIMESTAMPING_OLD, sizeof(tss), &tss);
287}
288EXPORT_SYMBOL(put_cmsg_scm_timestamping);
289
290static int scm_max_fds(struct msghdr *msg)
291{
292	if (msg->msg_controllen <= sizeof(struct cmsghdr))
293		return 0;
294	return (msg->msg_controllen - sizeof(struct cmsghdr)) / sizeof(int);
295}
296
297void scm_detach_fds(struct msghdr *msg, struct scm_cookie *scm)
298{
299	struct cmsghdr __user *cm =
300		(__force struct cmsghdr __user *)msg->msg_control;
301	unsigned int o_flags = (msg->msg_flags & MSG_CMSG_CLOEXEC) ? O_CLOEXEC : 0;
302	int fdmax = min_t(int, scm_max_fds(msg), scm->fp->count);
303	int __user *cmsg_data = CMSG_USER_DATA(cm);
304	int err = 0, i;
305
306	/* no use for FD passing from kernel space callers */
307	if (WARN_ON_ONCE(!msg->msg_control_is_user))
308		return;
309
310	if (msg->msg_flags & MSG_CMSG_COMPAT) {
311		scm_detach_fds_compat(msg, scm);
312		return;
313	}
314
315	for (i = 0; i < fdmax; i++) {
316		err = receive_fd_user(scm->fp->fp[i], cmsg_data + i, o_flags);
 
 
 
 
 
 
 
 
 
 
 
 
 
 
317		if (err < 0)
318			break;
 
 
 
 
 
 
 
 
 
319	}
320
321	if (i > 0) {
322		int cmlen = CMSG_LEN(i * sizeof(int));
323
324		err = put_user(SOL_SOCKET, &cm->cmsg_level);
325		if (!err)
326			err = put_user(SCM_RIGHTS, &cm->cmsg_type);
327		if (!err)
328			err = put_user(cmlen, &cm->cmsg_len);
329		if (!err) {
330			cmlen = CMSG_SPACE(i * sizeof(int));
331			if (msg->msg_controllen < cmlen)
332				cmlen = msg->msg_controllen;
333			msg->msg_control += cmlen;
334			msg->msg_controllen -= cmlen;
335		}
336	}
337
338	if (i < scm->fp->count || (scm->fp->count && fdmax <= 0))
339		msg->msg_flags |= MSG_CTRUNC;
340
341	/*
342	 * All of the files that fit in the message have had their usage counts
343	 * incremented, so we just free the list.
344	 */
345	__scm_destroy(scm);
346}
347EXPORT_SYMBOL(scm_detach_fds);
348
349struct scm_fp_list *scm_fp_dup(struct scm_fp_list *fpl)
350{
351	struct scm_fp_list *new_fpl;
352	int i;
353
354	if (!fpl)
355		return NULL;
356
357	new_fpl = kmemdup(fpl, offsetof(struct scm_fp_list, fp[fpl->count]),
358			  GFP_KERNEL_ACCOUNT);
359	if (new_fpl) {
360		for (i = 0; i < fpl->count; i++)
361			get_file(fpl->fp[i]);
362		new_fpl->max = new_fpl->count;
363		new_fpl->user = get_uid(fpl->user);
364	}
365	return new_fpl;
366}
367EXPORT_SYMBOL(scm_fp_dup);