iommu sg: x86: convert calgary IOMMU to use the IOMMU helper
[wrt350n-kernel.git] / fs / cifs / sess.c
blobd2153abcba6d7983678e8e08df39eee7bf4083a3
1 /*
2 * fs/cifs/sess.c
4 * SMB/CIFS session setup handling routines
6 * Copyright (c) International Business Machines Corp., 2006, 2007
7 * Author(s): Steve French (sfrench@us.ibm.com)
9 * This library is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU Lesser General Public License as published
11 * by the Free Software Foundation; either version 2.1 of the License, or
12 * (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
17 * the GNU Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public License
20 * along with this library; if not, write to the Free Software
21 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 #include "cifspdu.h"
25 #include "cifsglob.h"
26 #include "cifsproto.h"
27 #include "cifs_unicode.h"
28 #include "cifs_debug.h"
29 #include "ntlmssp.h"
30 #include "nterr.h"
31 #include <linux/utsname.h>
32 #include "cifs_spnego.h"
34 extern void SMBNTencrypt(unsigned char *passwd, unsigned char *c8,
35 unsigned char *p24);
37 static __u32 cifs_ssetup_hdr(struct cifsSesInfo *ses, SESSION_SETUP_ANDX *pSMB)
39 __u32 capabilities = 0;
41 /* init fields common to all four types of SessSetup */
42 /* note that header is initialized to zero in header_assemble */
43 pSMB->req.AndXCommand = 0xFF;
44 pSMB->req.MaxBufferSize = cpu_to_le16(ses->server->maxBuf);
45 pSMB->req.MaxMpxCount = cpu_to_le16(ses->server->maxReq);
47 /* Now no need to set SMBFLG_CASELESS or obsolete CANONICAL PATH */
49 /* BB verify whether signing required on neg or just on auth frame
50 (and NTLM case) */
52 capabilities = CAP_LARGE_FILES | CAP_NT_SMBS | CAP_LEVEL_II_OPLOCKS |
53 CAP_LARGE_WRITE_X | CAP_LARGE_READ_X;
55 if (ses->server->secMode &
56 (SECMODE_SIGN_REQUIRED | SECMODE_SIGN_ENABLED))
57 pSMB->req.hdr.Flags2 |= SMBFLG2_SECURITY_SIGNATURE;
59 if (ses->capabilities & CAP_UNICODE) {
60 pSMB->req.hdr.Flags2 |= SMBFLG2_UNICODE;
61 capabilities |= CAP_UNICODE;
63 if (ses->capabilities & CAP_STATUS32) {
64 pSMB->req.hdr.Flags2 |= SMBFLG2_ERR_STATUS;
65 capabilities |= CAP_STATUS32;
67 if (ses->capabilities & CAP_DFS) {
68 pSMB->req.hdr.Flags2 |= SMBFLG2_DFS;
69 capabilities |= CAP_DFS;
71 if (ses->capabilities & CAP_UNIX)
72 capabilities |= CAP_UNIX;
74 /* BB check whether to init vcnum BB */
75 return capabilities;
78 static void
79 unicode_oslm_strings(char **pbcc_area, const struct nls_table *nls_cp)
81 char *bcc_ptr = *pbcc_area;
82 int bytes_ret = 0;
84 /* Copy OS version */
85 bytes_ret = cifs_strtoUCS((__le16 *)bcc_ptr, "Linux version ", 32,
86 nls_cp);
87 bcc_ptr += 2 * bytes_ret;
88 bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, init_utsname()->release,
89 32, nls_cp);
90 bcc_ptr += 2 * bytes_ret;
91 bcc_ptr += 2; /* trailing null */
93 bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, CIFS_NETWORK_OPSYS,
94 32, nls_cp);
95 bcc_ptr += 2 * bytes_ret;
96 bcc_ptr += 2; /* trailing null */
98 *pbcc_area = bcc_ptr;
101 static void unicode_domain_string(char **pbcc_area, struct cifsSesInfo *ses,
102 const struct nls_table *nls_cp)
104 char *bcc_ptr = *pbcc_area;
105 int bytes_ret = 0;
107 /* copy domain */
108 if (ses->domainName == NULL) {
109 /* Sending null domain better than using a bogus domain name (as
110 we did briefly in 2.6.18) since server will use its default */
111 *bcc_ptr = 0;
112 *(bcc_ptr+1) = 0;
113 bytes_ret = 0;
114 } else
115 bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, ses->domainName,
116 256, nls_cp);
117 bcc_ptr += 2 * bytes_ret;
118 bcc_ptr += 2; /* account for null terminator */
120 *pbcc_area = bcc_ptr;
124 static void unicode_ssetup_strings(char **pbcc_area, struct cifsSesInfo *ses,
125 const struct nls_table *nls_cp)
127 char *bcc_ptr = *pbcc_area;
128 int bytes_ret = 0;
130 /* BB FIXME add check that strings total less
131 than 335 or will need to send them as arrays */
133 /* unicode strings, must be word aligned before the call */
134 /* if ((long) bcc_ptr % 2) {
135 *bcc_ptr = 0;
136 bcc_ptr++;
137 } */
138 /* copy user */
139 if (ses->userName == NULL) {
140 /* null user mount */
141 *bcc_ptr = 0;
142 *(bcc_ptr+1) = 0;
143 } else { /* 300 should be long enough for any conceivable user name */
144 bytes_ret = cifs_strtoUCS((__le16 *) bcc_ptr, ses->userName,
145 300, nls_cp);
147 bcc_ptr += 2 * bytes_ret;
148 bcc_ptr += 2; /* account for null termination */
150 unicode_domain_string(&bcc_ptr, ses, nls_cp);
151 unicode_oslm_strings(&bcc_ptr, nls_cp);
153 *pbcc_area = bcc_ptr;
156 static void ascii_ssetup_strings(char **pbcc_area, struct cifsSesInfo *ses,
157 const struct nls_table *nls_cp)
159 char *bcc_ptr = *pbcc_area;
161 /* copy user */
162 /* BB what about null user mounts - check that we do this BB */
163 /* copy user */
164 if (ses->userName == NULL) {
165 /* BB what about null user mounts - check that we do this BB */
166 } else { /* 300 should be long enough for any conceivable user name */
167 strncpy(bcc_ptr, ses->userName, 300);
169 /* BB improve check for overflow */
170 bcc_ptr += strnlen(ses->userName, 300);
171 *bcc_ptr = 0;
172 bcc_ptr++; /* account for null termination */
174 /* copy domain */
176 if (ses->domainName != NULL) {
177 strncpy(bcc_ptr, ses->domainName, 256);
178 bcc_ptr += strnlen(ses->domainName, 256);
179 } /* else we will send a null domain name
180 so the server will default to its own domain */
181 *bcc_ptr = 0;
182 bcc_ptr++;
184 /* BB check for overflow here */
186 strcpy(bcc_ptr, "Linux version ");
187 bcc_ptr += strlen("Linux version ");
188 strcpy(bcc_ptr, init_utsname()->release);
189 bcc_ptr += strlen(init_utsname()->release) + 1;
191 strcpy(bcc_ptr, CIFS_NETWORK_OPSYS);
192 bcc_ptr += strlen(CIFS_NETWORK_OPSYS) + 1;
194 *pbcc_area = bcc_ptr;
197 static int decode_unicode_ssetup(char **pbcc_area, int bleft,
198 struct cifsSesInfo *ses,
199 const struct nls_table *nls_cp)
201 int rc = 0;
202 int words_left, len;
203 char *data = *pbcc_area;
207 cFYI(1, ("bleft %d", bleft));
210 /* SMB header is unaligned, so cifs servers word align start of
211 Unicode strings */
212 data++;
213 bleft--; /* Windows servers do not always double null terminate
214 their final Unicode string - in which case we
215 now will not attempt to decode the byte of junk
216 which follows it */
218 words_left = bleft / 2;
220 /* save off server operating system */
221 len = UniStrnlen((wchar_t *) data, words_left);
223 /* We look for obvious messed up bcc or strings in response so we do not go off
224 the end since (at least) WIN2K and Windows XP have a major bug in not null
225 terminating last Unicode string in response */
226 if (len >= words_left)
227 return rc;
229 kfree(ses->serverOS);
230 /* UTF-8 string will not grow more than four times as big as UCS-16 */
231 ses->serverOS = kzalloc(4 * len, GFP_KERNEL);
232 if (ses->serverOS != NULL)
233 cifs_strfromUCS_le(ses->serverOS, (__le16 *)data, len, nls_cp);
234 data += 2 * (len + 1);
235 words_left -= len + 1;
237 /* save off server network operating system */
238 len = UniStrnlen((wchar_t *) data, words_left);
240 if (len >= words_left)
241 return rc;
243 kfree(ses->serverNOS);
244 ses->serverNOS = kzalloc(4 * len, GFP_KERNEL); /* BB this is wrong length FIXME BB */
245 if (ses->serverNOS != NULL) {
246 cifs_strfromUCS_le(ses->serverNOS, (__le16 *)data, len,
247 nls_cp);
248 if (strncmp(ses->serverNOS, "NT LAN Manager 4", 16) == 0) {
249 cFYI(1, ("NT4 server"));
250 ses->flags |= CIFS_SES_NT4;
253 data += 2 * (len + 1);
254 words_left -= len + 1;
256 /* save off server domain */
257 len = UniStrnlen((wchar_t *) data, words_left);
259 if (len > words_left)
260 return rc;
262 kfree(ses->serverDomain);
263 ses->serverDomain = kzalloc(2 * (len + 1), GFP_KERNEL); /* BB FIXME wrong length */
264 if (ses->serverDomain != NULL) {
265 cifs_strfromUCS_le(ses->serverDomain, (__le16 *)data, len,
266 nls_cp);
267 ses->serverDomain[2*len] = 0;
268 ses->serverDomain[(2*len) + 1] = 0;
270 data += 2 * (len + 1);
271 words_left -= len + 1;
273 cFYI(1, ("words left: %d", words_left));
275 return rc;
278 static int decode_ascii_ssetup(char **pbcc_area, int bleft,
279 struct cifsSesInfo *ses,
280 const struct nls_table *nls_cp)
282 int rc = 0;
283 int len;
284 char *bcc_ptr = *pbcc_area;
286 cFYI(1, ("decode sessetup ascii. bleft %d", bleft));
288 len = strnlen(bcc_ptr, bleft);
289 if (len >= bleft)
290 return rc;
292 kfree(ses->serverOS);
294 ses->serverOS = kzalloc(len + 1, GFP_KERNEL);
295 if (ses->serverOS)
296 strncpy(ses->serverOS, bcc_ptr, len);
297 if (strncmp(ses->serverOS, "OS/2", 4) == 0) {
298 cFYI(1, ("OS/2 server"));
299 ses->flags |= CIFS_SES_OS2;
302 bcc_ptr += len + 1;
303 bleft -= len + 1;
305 len = strnlen(bcc_ptr, bleft);
306 if (len >= bleft)
307 return rc;
309 kfree(ses->serverNOS);
311 ses->serverNOS = kzalloc(len + 1, GFP_KERNEL);
312 if (ses->serverNOS)
313 strncpy(ses->serverNOS, bcc_ptr, len);
315 bcc_ptr += len + 1;
316 bleft -= len + 1;
318 len = strnlen(bcc_ptr, bleft);
319 if (len > bleft)
320 return rc;
322 /* No domain field in LANMAN case. Domain is
323 returned by old servers in the SMB negprot response */
324 /* BB For newer servers which do not support Unicode,
325 but thus do return domain here we could add parsing
326 for it later, but it is not very important */
327 cFYI(1, ("ascii: bytes left %d", bleft));
329 return rc;
333 CIFS_SessSetup(unsigned int xid, struct cifsSesInfo *ses, int first_time,
334 const struct nls_table *nls_cp)
336 int rc = 0;
337 int wct;
338 struct smb_hdr *smb_buf;
339 char *bcc_ptr;
340 char *str_area;
341 SESSION_SETUP_ANDX *pSMB;
342 __u32 capabilities;
343 int count;
344 int resp_buf_type;
345 struct kvec iov[3];
346 enum securityEnum type;
347 __u16 action;
348 int bytes_remaining;
349 struct key *spnego_key = NULL;
351 if (ses == NULL)
352 return -EINVAL;
354 type = ses->server->secType;
356 cFYI(1, ("sess setup type %d", type));
357 if (type == LANMAN) {
358 #ifndef CONFIG_CIFS_WEAK_PW_HASH
359 /* LANMAN and plaintext are less secure and off by default.
360 So we make this explicitly be turned on in kconfig (in the
361 build) and turned on at runtime (changed from the default)
362 in proc/fs/cifs or via mount parm. Unfortunately this is
363 needed for old Win (e.g. Win95), some obscure NAS and OS/2 */
364 return -EOPNOTSUPP;
365 #endif
366 wct = 10; /* lanman 2 style sessionsetup */
367 } else if ((type == NTLM) || (type == NTLMv2)) {
368 /* For NTLMv2 failures eventually may need to retry NTLM */
369 wct = 13; /* old style NTLM sessionsetup */
370 } else /* same size: negotiate or auth, NTLMSSP or extended security */
371 wct = 12;
373 rc = small_smb_init_no_tc(SMB_COM_SESSION_SETUP_ANDX, wct, ses,
374 (void **)&smb_buf);
375 if (rc)
376 return rc;
378 pSMB = (SESSION_SETUP_ANDX *)smb_buf;
380 capabilities = cifs_ssetup_hdr(ses, pSMB);
382 /* we will send the SMB in three pieces:
383 a fixed length beginning part, an optional
384 SPNEGO blob (which can be zero length), and a
385 last part which will include the strings
386 and rest of bcc area. This allows us to avoid
387 a large buffer 17K allocation */
388 iov[0].iov_base = (char *)pSMB;
389 iov[0].iov_len = smb_buf->smb_buf_length + 4;
391 /* setting this here allows the code at the end of the function
392 to free the request buffer if there's an error */
393 resp_buf_type = CIFS_SMALL_BUFFER;
395 /* 2000 big enough to fit max user, domain, NOS name etc. */
396 str_area = kmalloc(2000, GFP_KERNEL);
397 if (str_area == NULL) {
398 rc = -ENOMEM;
399 goto ssetup_exit;
401 bcc_ptr = str_area;
403 ses->flags &= ~CIFS_SES_LANMAN;
405 iov[1].iov_base = NULL;
406 iov[1].iov_len = 0;
408 if (type == LANMAN) {
409 #ifdef CONFIG_CIFS_WEAK_PW_HASH
410 char lnm_session_key[CIFS_SESS_KEY_SIZE];
412 /* no capabilities flags in old lanman negotiation */
414 pSMB->old_req.PasswordLength = cpu_to_le16(CIFS_SESS_KEY_SIZE);
415 /* BB calculate hash with password */
416 /* and copy into bcc */
418 calc_lanman_hash(ses, lnm_session_key);
419 ses->flags |= CIFS_SES_LANMAN;
420 /* #ifdef CONFIG_CIFS_DEBUG2
421 cifs_dump_mem("cryptkey: ",ses->server->cryptKey,
422 CIFS_SESS_KEY_SIZE);
423 #endif */
424 memcpy(bcc_ptr, (char *)lnm_session_key, CIFS_SESS_KEY_SIZE);
425 bcc_ptr += CIFS_SESS_KEY_SIZE;
427 /* can not sign if LANMAN negotiated so no need
428 to calculate signing key? but what if server
429 changed to do higher than lanman dialect and
430 we reconnected would we ever calc signing_key? */
432 cFYI(1, ("Negotiating LANMAN setting up strings"));
433 /* Unicode not allowed for LANMAN dialects */
434 ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
435 #endif
436 } else if (type == NTLM) {
437 char ntlm_session_key[CIFS_SESS_KEY_SIZE];
439 pSMB->req_no_secext.Capabilities = cpu_to_le32(capabilities);
440 pSMB->req_no_secext.CaseInsensitivePasswordLength =
441 cpu_to_le16(CIFS_SESS_KEY_SIZE);
442 pSMB->req_no_secext.CaseSensitivePasswordLength =
443 cpu_to_le16(CIFS_SESS_KEY_SIZE);
445 /* calculate session key */
446 SMBNTencrypt(ses->password, ses->server->cryptKey,
447 ntlm_session_key);
449 if (first_time) /* should this be moved into common code
450 with similar ntlmv2 path? */
451 cifs_calculate_mac_key(&ses->server->mac_signing_key,
452 ntlm_session_key, ses->password);
453 /* copy session key */
455 memcpy(bcc_ptr, (char *)ntlm_session_key, CIFS_SESS_KEY_SIZE);
456 bcc_ptr += CIFS_SESS_KEY_SIZE;
457 memcpy(bcc_ptr, (char *)ntlm_session_key, CIFS_SESS_KEY_SIZE);
458 bcc_ptr += CIFS_SESS_KEY_SIZE;
459 if (ses->capabilities & CAP_UNICODE) {
460 /* unicode strings must be word aligned */
461 if (iov[0].iov_len % 2) {
462 *bcc_ptr = 0;
463 bcc_ptr++;
465 unicode_ssetup_strings(&bcc_ptr, ses, nls_cp);
466 } else
467 ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
468 } else if (type == NTLMv2) {
469 char *v2_sess_key =
470 kmalloc(sizeof(struct ntlmv2_resp), GFP_KERNEL);
472 /* BB FIXME change all users of v2_sess_key to
473 struct ntlmv2_resp */
475 if (v2_sess_key == NULL) {
476 rc = -ENOMEM;
477 goto ssetup_exit;
480 pSMB->req_no_secext.Capabilities = cpu_to_le32(capabilities);
482 /* LM2 password would be here if we supported it */
483 pSMB->req_no_secext.CaseInsensitivePasswordLength = 0;
484 /* cpu_to_le16(LM2_SESS_KEY_SIZE); */
486 pSMB->req_no_secext.CaseSensitivePasswordLength =
487 cpu_to_le16(sizeof(struct ntlmv2_resp));
489 /* calculate session key */
490 setup_ntlmv2_rsp(ses, v2_sess_key, nls_cp);
491 if (first_time) /* should this be moved into common code
492 with similar ntlmv2 path? */
493 /* cifs_calculate_ntlmv2_mac_key(ses->server->mac_signing_key,
494 response BB FIXME, v2_sess_key); */
496 /* copy session key */
498 /* memcpy(bcc_ptr, (char *)ntlm_session_key,LM2_SESS_KEY_SIZE);
499 bcc_ptr += LM2_SESS_KEY_SIZE; */
500 memcpy(bcc_ptr, (char *)v2_sess_key,
501 sizeof(struct ntlmv2_resp));
502 bcc_ptr += sizeof(struct ntlmv2_resp);
503 kfree(v2_sess_key);
504 if (ses->capabilities & CAP_UNICODE) {
505 if (iov[0].iov_len % 2) {
506 *bcc_ptr = 0;
507 bcc_ptr++;
509 unicode_ssetup_strings(&bcc_ptr, ses, nls_cp);
510 } else
511 ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
512 } else if (type == Kerberos) {
513 #ifdef CONFIG_CIFS_UPCALL
514 struct cifs_spnego_msg *msg;
515 spnego_key = cifs_get_spnego_key(ses);
516 if (IS_ERR(spnego_key)) {
517 rc = PTR_ERR(spnego_key);
518 spnego_key = NULL;
519 goto ssetup_exit;
522 msg = spnego_key->payload.data;
523 /* bail out if key is too long */
524 if (msg->sesskey_len >
525 sizeof(ses->server->mac_signing_key.data.krb5)) {
526 cERROR(1, ("Kerberos signing key too long (%u bytes)",
527 msg->sesskey_len));
528 rc = -EOVERFLOW;
529 goto ssetup_exit;
531 if (first_time) {
532 ses->server->mac_signing_key.len = msg->sesskey_len;
533 memcpy(ses->server->mac_signing_key.data.krb5,
534 msg->data, msg->sesskey_len);
536 pSMB->req.hdr.Flags2 |= SMBFLG2_EXT_SEC;
537 capabilities |= CAP_EXTENDED_SECURITY;
538 pSMB->req.Capabilities = cpu_to_le32(capabilities);
539 iov[1].iov_base = msg->data + msg->sesskey_len;
540 iov[1].iov_len = msg->secblob_len;
541 pSMB->req.SecurityBlobLength = cpu_to_le16(iov[1].iov_len);
543 if (ses->capabilities & CAP_UNICODE) {
544 /* unicode strings must be word aligned */
545 if ((iov[0].iov_len + iov[1].iov_len) % 2) {
546 *bcc_ptr = 0;
547 bcc_ptr++;
549 unicode_oslm_strings(&bcc_ptr, nls_cp);
550 unicode_domain_string(&bcc_ptr, ses, nls_cp);
551 } else
552 /* BB: is this right? */
553 ascii_ssetup_strings(&bcc_ptr, ses, nls_cp);
554 #else /* ! CONFIG_CIFS_UPCALL */
555 cERROR(1, ("Kerberos negotiated but upcall support disabled!"));
556 rc = -ENOSYS;
557 goto ssetup_exit;
558 #endif /* CONFIG_CIFS_UPCALL */
559 } else {
560 cERROR(1, ("secType %d not supported!", type));
561 rc = -ENOSYS;
562 goto ssetup_exit;
565 iov[2].iov_base = str_area;
566 iov[2].iov_len = (long) bcc_ptr - (long) str_area;
568 count = iov[1].iov_len + iov[2].iov_len;
569 smb_buf->smb_buf_length += count;
571 BCC_LE(smb_buf) = cpu_to_le16(count);
573 rc = SendReceive2(xid, ses, iov, 3 /* num_iovecs */, &resp_buf_type,
574 CIFS_STD_OP /* not long */ | CIFS_LOG_ERROR);
575 /* SMB request buf freed in SendReceive2 */
577 cFYI(1, ("ssetup rc from sendrecv2 is %d", rc));
578 if (rc)
579 goto ssetup_exit;
581 pSMB = (SESSION_SETUP_ANDX *)iov[0].iov_base;
582 smb_buf = (struct smb_hdr *)iov[0].iov_base;
584 if ((smb_buf->WordCount != 3) && (smb_buf->WordCount != 4)) {
585 rc = -EIO;
586 cERROR(1, ("bad word count %d", smb_buf->WordCount));
587 goto ssetup_exit;
589 action = le16_to_cpu(pSMB->resp.Action);
590 if (action & GUEST_LOGIN)
591 cFYI(1, ("Guest login")); /* BB mark SesInfo struct? */
592 ses->Suid = smb_buf->Uid; /* UID left in wire format (le) */
593 cFYI(1, ("UID = %d ", ses->Suid));
594 /* response can have either 3 or 4 word count - Samba sends 3 */
595 /* and lanman response is 3 */
596 bytes_remaining = BCC(smb_buf);
597 bcc_ptr = pByteArea(smb_buf);
599 if (smb_buf->WordCount == 4) {
600 __u16 blob_len;
601 blob_len = le16_to_cpu(pSMB->resp.SecurityBlobLength);
602 bcc_ptr += blob_len;
603 if (blob_len > bytes_remaining) {
604 cERROR(1, ("bad security blob length %d", blob_len));
605 rc = -EINVAL;
606 goto ssetup_exit;
608 bytes_remaining -= blob_len;
611 /* BB check if Unicode and decode strings */
612 if (smb_buf->Flags2 & SMBFLG2_UNICODE)
613 rc = decode_unicode_ssetup(&bcc_ptr, bytes_remaining,
614 ses, nls_cp);
615 else
616 rc = decode_ascii_ssetup(&bcc_ptr, bytes_remaining,
617 ses, nls_cp);
619 ssetup_exit:
620 if (spnego_key)
621 key_put(spnego_key);
622 kfree(str_area);
623 if (resp_buf_type == CIFS_SMALL_BUFFER) {
624 cFYI(1, ("ssetup freeing small buf %p", iov[0].iov_base));
625 cifs_small_buf_release(iov[0].iov_base);
626 } else if (resp_buf_type == CIFS_LARGE_BUFFER)
627 cifs_buf_release(iov[0].iov_base);
629 return rc;