Linux Audio

Check our new training course

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