Generally use NULL instead of explicitly casting 0 to some pointer type (part2).
[dragonfly.git] / usr.sbin / pppd / fsm.c
CommitLineData
984263bc
MD
1/*
2 * fsm.c - {Link, IP} Control Protocol Finite State Machine.
3 *
4 * Copyright (c) 1989 Carnegie Mellon University.
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms are permitted
8 * provided that the above copyright notice and this paragraph are
9 * duplicated in all such forms and that any documentation,
10 * advertising materials, and other materials related to such
11 * distribution and use acknowledge that the software was developed
12 * by Carnegie Mellon University. The name of the
13 * University may not be used to endorse or promote products derived
14 * from this software without specific prior written permission.
15 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
16 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
17 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
1de703da
MD
18 *
19 * $FreeBSD: src/usr.sbin/pppd/fsm.c,v 1.8 1999/08/28 01:19:02 peter Exp $
21da1569 20 * $DragonFly: src/usr.sbin/pppd/fsm.c,v 1.4 2005/11/24 23:42:54 swildner Exp $
984263bc
MD
21 */
22
984263bc
MD
23/*
24 * TODO:
25 * Randomize fsm id on link/init.
26 * Deal with variable outgoing MTU.
27 */
28
29#include <stdio.h>
30#include <string.h>
31#include <sys/types.h>
32#include <syslog.h>
33
34#include "pppd.h"
35#include "fsm.h"
36
2d8a3be7
EN
37static void fsm_timeout(void *);
38static void fsm_rconfreq(fsm *, int, u_char *, int);
39static void fsm_rconfack(fsm *, int, u_char *, int);
40static void fsm_rconfnakrej(fsm *, int, int, u_char *, int);
41static void fsm_rtermreq(fsm *, int, u_char *, int);
42static void fsm_rtermack(fsm *);
43static void fsm_rcoderej(fsm *, u_char *, int);
44static void fsm_sconfreq(fsm *, int);
984263bc
MD
45
46#define PROTO_NAME(f) ((f)->callbacks->proto_name)
47
48int peer_mru[NUM_PPP];
49
50
51/*
52 * fsm_init - Initialize fsm.
53 *
54 * Initialize fsm state.
55 */
56void
21da1569 57fsm_init(fsm *f)
984263bc
MD
58{
59 f->state = INITIAL;
60 f->flags = 0;
61 f->id = 0; /* XXX Start with random id? */
62 f->timeouttime = DEFTIMEOUT;
63 f->maxconfreqtransmits = DEFMAXCONFREQS;
64 f->maxtermtransmits = DEFMAXTERMREQS;
65 f->maxnakloops = DEFMAXNAKLOOPS;
66 f->term_reason_len = 0;
67}
68
69
70/*
71 * fsm_lowerup - The lower layer is up.
72 */
73void
21da1569 74fsm_lowerup(fsm *f)
984263bc
MD
75{
76 switch( f->state ){
77 case INITIAL:
78 f->state = CLOSED;
79 break;
80
81 case STARTING:
82 if( f->flags & OPT_SILENT )
83 f->state = STOPPED;
84 else {
85 /* Send an initial configure-request */
86 fsm_sconfreq(f, 0);
87 f->state = REQSENT;
88 }
89 break;
90
91 default:
92 FSMDEBUG((LOG_INFO, "%s: Up event in state %d!",
93 PROTO_NAME(f), f->state));
94 }
95}
96
97
98/*
99 * fsm_lowerdown - The lower layer is down.
100 *
101 * Cancel all timeouts and inform upper layers.
102 */
103void
21da1569 104fsm_lowerdown(fsm *f)
984263bc
MD
105{
106 switch( f->state ){
107 case CLOSED:
108 f->state = INITIAL;
109 break;
110
111 case STOPPED:
112 f->state = STARTING;
113 if( f->callbacks->starting )
114 (*f->callbacks->starting)(f);
115 break;
116
117 case CLOSING:
118 f->state = INITIAL;
119 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
120 break;
121
122 case STOPPING:
123 case REQSENT:
124 case ACKRCVD:
125 case ACKSENT:
126 f->state = STARTING;
127 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
128 break;
129
130 case OPENED:
131 if( f->callbacks->down )
132 (*f->callbacks->down)(f);
133 f->state = STARTING;
134 break;
135
136 default:
137 FSMDEBUG((LOG_INFO, "%s: Down event in state %d!",
138 PROTO_NAME(f), f->state));
139 }
140}
141
142
143/*
144 * fsm_open - Link is allowed to come up.
145 */
146void
21da1569 147fsm_open(fsm *f)
984263bc
MD
148{
149 switch( f->state ){
150 case INITIAL:
151 f->state = STARTING;
152 if( f->callbacks->starting )
153 (*f->callbacks->starting)(f);
154 break;
155
156 case CLOSED:
157 if( f->flags & OPT_SILENT )
158 f->state = STOPPED;
159 else {
160 /* Send an initial configure-request */
161 fsm_sconfreq(f, 0);
162 f->state = REQSENT;
163 }
164 break;
165
166 case CLOSING:
167 f->state = STOPPING;
168 /* fall through */
169 case STOPPED:
170 case OPENED:
171 if( f->flags & OPT_RESTART ){
172 fsm_lowerdown(f);
173 fsm_lowerup(f);
174 }
175 break;
176 }
177}
178
179
180/*
181 * fsm_close - Start closing connection.
182 *
183 * Cancel timeouts and either initiate close or possibly go directly to
184 * the CLOSED state.
185 */
186void
21da1569 187fsm_close(fsm *f, char *reason)
984263bc
MD
188{
189 f->term_reason = reason;
190 f->term_reason_len = (reason == NULL? 0: strlen(reason));
191 switch( f->state ){
192 case STARTING:
193 f->state = INITIAL;
194 break;
195 case STOPPED:
196 f->state = CLOSED;
197 break;
198 case STOPPING:
199 f->state = CLOSING;
200 break;
201
202 case REQSENT:
203 case ACKRCVD:
204 case ACKSENT:
205 case OPENED:
206 if( f->state != OPENED )
207 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
208 else if( f->callbacks->down )
209 (*f->callbacks->down)(f); /* Inform upper layers we're down */
210
211 /* Init restart counter, send Terminate-Request */
212 f->retransmits = f->maxtermtransmits;
213 fsm_sdata(f, TERMREQ, f->reqid = ++f->id,
214 (u_char *) f->term_reason, f->term_reason_len);
215 TIMEOUT(fsm_timeout, f, f->timeouttime);
216 --f->retransmits;
217
218 f->state = CLOSING;
219 break;
220 }
221}
222
223
224/*
225 * fsm_timeout - Timeout expired.
226 */
227static void
21da1569 228fsm_timeout(void *arg)
984263bc
MD
229{
230 fsm *f = (fsm *) arg;
231
232 switch (f->state) {
233 case CLOSING:
234 case STOPPING:
235 if( f->retransmits <= 0 ){
236 /*
237 * We've waited for an ack long enough. Peer probably heard us.
238 */
239 f->state = (f->state == CLOSING)? CLOSED: STOPPED;
240 if( f->callbacks->finished )
241 (*f->callbacks->finished)(f);
242 } else {
243 /* Send Terminate-Request */
244 fsm_sdata(f, TERMREQ, f->reqid = ++f->id,
245 (u_char *) f->term_reason, f->term_reason_len);
246 TIMEOUT(fsm_timeout, f, f->timeouttime);
247 --f->retransmits;
248 }
249 break;
250
251 case REQSENT:
252 case ACKRCVD:
253 case ACKSENT:
254 if (f->retransmits <= 0) {
255 syslog(LOG_WARNING, "%s: timeout sending Config-Requests",
256 PROTO_NAME(f));
257 f->state = STOPPED;
258 if( (f->flags & OPT_PASSIVE) == 0 && f->callbacks->finished )
259 (*f->callbacks->finished)(f);
260
261 } else {
262 /* Retransmit the configure-request */
263 if (f->callbacks->retransmit)
264 (*f->callbacks->retransmit)(f);
265 fsm_sconfreq(f, 1); /* Re-send Configure-Request */
266 if( f->state == ACKRCVD )
267 f->state = REQSENT;
268 }
269 break;
270
271 default:
272 FSMDEBUG((LOG_INFO, "%s: Timeout event in state %d!",
273 PROTO_NAME(f), f->state));
274 }
275}
276
277
278/*
279 * fsm_input - Input packet.
280 */
281void
21da1569 282fsm_input(fsm *f, u_char *inpacket, int l)
984263bc
MD
283{
284 u_char *inp;
285 u_char code, id;
286 int len;
287
288 /*
289 * Parse header (code, id and length).
290 * If packet too short, drop it.
291 */
292 inp = inpacket;
293 if (l < HEADERLEN) {
294 FSMDEBUG((LOG_WARNING, "fsm_input(%x): Rcvd short header.",
295 f->protocol));
296 return;
297 }
298 GETCHAR(code, inp);
299 GETCHAR(id, inp);
300 GETSHORT(len, inp);
301 if (len < HEADERLEN) {
302 FSMDEBUG((LOG_INFO, "fsm_input(%x): Rcvd illegal length.",
303 f->protocol));
304 return;
305 }
306 if (len > l) {
307 FSMDEBUG((LOG_INFO, "fsm_input(%x): Rcvd short packet.",
308 f->protocol));
309 return;
310 }
311 len -= HEADERLEN; /* subtract header length */
312
313 if( f->state == INITIAL || f->state == STARTING ){
314 FSMDEBUG((LOG_INFO, "fsm_input(%x): Rcvd packet in state %d.",
315 f->protocol, f->state));
316 return;
317 }
318
319 /*
320 * Action depends on code.
321 */
322 switch (code) {
323 case CONFREQ:
324 fsm_rconfreq(f, id, inp, len);
325 break;
326
327 case CONFACK:
328 fsm_rconfack(f, id, inp, len);
329 break;
330
331 case CONFNAK:
332 case CONFREJ:
333 fsm_rconfnakrej(f, code, id, inp, len);
334 break;
335
336 case TERMREQ:
337 fsm_rtermreq(f, id, inp, len);
338 break;
339
340 case TERMACK:
341 fsm_rtermack(f);
342 break;
343
344 case CODEREJ:
345 fsm_rcoderej(f, inp, len);
346 break;
347
348 default:
349 if( !f->callbacks->extcode
350 || !(*f->callbacks->extcode)(f, code, id, inp, len) )
351 fsm_sdata(f, CODEREJ, ++f->id, inpacket, len + HEADERLEN);
352 break;
353 }
354}
355
356
357/*
358 * fsm_rconfreq - Receive Configure-Request.
359 */
360static void
21da1569 361fsm_rconfreq(fsm *f, int id, u_char *inp, int len)
984263bc
MD
362{
363 int code, reject_if_disagree;
364
365 FSMDEBUG((LOG_INFO, "fsm_rconfreq(%s): Rcvd id %d.", PROTO_NAME(f), id));
366 switch( f->state ){
367 case CLOSED:
368 /* Go away, we're closed */
369 fsm_sdata(f, TERMACK, id, NULL, 0);
370 return;
371 case CLOSING:
372 case STOPPING:
373 return;
374
375 case OPENED:
376 /* Go down and restart negotiation */
377 if( f->callbacks->down )
378 (*f->callbacks->down)(f); /* Inform upper layers */
379 fsm_sconfreq(f, 0); /* Send initial Configure-Request */
380 break;
381
382 case STOPPED:
383 /* Negotiation started by our peer */
384 fsm_sconfreq(f, 0); /* Send initial Configure-Request */
385 f->state = REQSENT;
386 break;
387 }
388
389 /*
390 * Pass the requested configuration options
391 * to protocol-specific code for checking.
392 */
393 if (f->callbacks->reqci){ /* Check CI */
394 reject_if_disagree = (f->nakloops >= f->maxnakloops);
395 code = (*f->callbacks->reqci)(f, inp, &len, reject_if_disagree);
396 } else if (len)
397 code = CONFREJ; /* Reject all CI */
398 else
399 code = CONFACK;
400
401 /* send the Ack, Nak or Rej to the peer */
402 fsm_sdata(f, code, id, inp, len);
403
404 if (code == CONFACK) {
405 if (f->state == ACKRCVD) {
406 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
407 f->state = OPENED;
408 if (f->callbacks->up)
409 (*f->callbacks->up)(f); /* Inform upper layers */
410 } else
411 f->state = ACKSENT;
412 f->nakloops = 0;
413
414 } else {
415 /* we sent CONFACK or CONFREJ */
416 if (f->state != ACKRCVD)
417 f->state = REQSENT;
418 if( code == CONFNAK )
419 ++f->nakloops;
420 }
421}
422
423
424/*
425 * fsm_rconfack - Receive Configure-Ack.
426 */
427static void
21da1569 428fsm_rconfack(fsm *f, int id, u_char *inp, int len)
984263bc
MD
429{
430 FSMDEBUG((LOG_INFO, "fsm_rconfack(%s): Rcvd id %d.",
431 PROTO_NAME(f), id));
432
433 if (id != f->reqid || f->seen_ack) /* Expected id? */
434 return; /* Nope, toss... */
435 if( !(f->callbacks->ackci? (*f->callbacks->ackci)(f, inp, len):
436 (len == 0)) ){
437 /* Ack is bad - ignore it */
438 log_packet(inp, len, "Received bad configure-ack: ", LOG_ERR);
439 FSMDEBUG((LOG_INFO, "%s: received bad Ack (length %d)",
440 PROTO_NAME(f), len));
441 return;
442 }
443 f->seen_ack = 1;
444
445 switch (f->state) {
446 case CLOSED:
447 case STOPPED:
448 fsm_sdata(f, TERMACK, id, NULL, 0);
449 break;
450
451 case REQSENT:
452 f->state = ACKRCVD;
453 f->retransmits = f->maxconfreqtransmits;
454 break;
455
456 case ACKRCVD:
457 /* Huh? an extra valid Ack? oh well... */
458 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
459 fsm_sconfreq(f, 0);
460 f->state = REQSENT;
461 break;
462
463 case ACKSENT:
464 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
465 f->state = OPENED;
466 f->retransmits = f->maxconfreqtransmits;
467 if (f->callbacks->up)
468 (*f->callbacks->up)(f); /* Inform upper layers */
469 break;
470
471 case OPENED:
472 /* Go down and restart negotiation */
473 if (f->callbacks->down)
474 (*f->callbacks->down)(f); /* Inform upper layers */
475 fsm_sconfreq(f, 0); /* Send initial Configure-Request */
476 f->state = REQSENT;
477 break;
478 }
479}
480
481
482/*
483 * fsm_rconfnakrej - Receive Configure-Nak or Configure-Reject.
484 */
485static void
21da1569 486fsm_rconfnakrej(fsm *f, int code, int id, u_char *inp, int len)
984263bc 487{
2d8a3be7 488 int (*proc)(fsm *, u_char *, int);
984263bc
MD
489 int ret;
490
491 FSMDEBUG((LOG_INFO, "fsm_rconfnakrej(%s): Rcvd id %d.",
492 PROTO_NAME(f), id));
493
494 if (id != f->reqid || f->seen_ack) /* Expected id? */
495 return; /* Nope, toss... */
496 proc = (code == CONFNAK)? f->callbacks->nakci: f->callbacks->rejci;
497 if (!proc || !(ret = proc(f, inp, len))) {
498 /* Nak/reject is bad - ignore it */
499 log_packet(inp, len, "Received bad configure-nak/rej: ", LOG_ERR);
500 FSMDEBUG((LOG_INFO, "%s: received bad %s (length %d)",
501 PROTO_NAME(f), (code==CONFNAK? "Nak": "reject"), len));
502 return;
503 }
504 f->seen_ack = 1;
505
506 switch (f->state) {
507 case CLOSED:
508 case STOPPED:
509 fsm_sdata(f, TERMACK, id, NULL, 0);
510 break;
511
512 case REQSENT:
513 case ACKSENT:
514 /* They didn't agree to what we wanted - try another request */
515 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
516 if (ret < 0)
517 f->state = STOPPED; /* kludge for stopping CCP */
518 else
519 fsm_sconfreq(f, 0); /* Send Configure-Request */
520 break;
521
522 case ACKRCVD:
523 /* Got a Nak/reject when we had already had an Ack?? oh well... */
524 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
525 fsm_sconfreq(f, 0);
526 f->state = REQSENT;
527 break;
528
529 case OPENED:
530 /* Go down and restart negotiation */
531 if (f->callbacks->down)
532 (*f->callbacks->down)(f); /* Inform upper layers */
533 fsm_sconfreq(f, 0); /* Send initial Configure-Request */
534 f->state = REQSENT;
535 break;
536 }
537}
538
539
540/*
541 * fsm_rtermreq - Receive Terminate-Req.
542 */
543static void
21da1569 544fsm_rtermreq(fsm *f, int id, u_char *p, int len)
984263bc
MD
545{
546 char str[80];
547
548 FSMDEBUG((LOG_INFO, "fsm_rtermreq(%s): Rcvd id %d.",
549 PROTO_NAME(f), id));
550
551 switch (f->state) {
552 case ACKRCVD:
553 case ACKSENT:
554 f->state = REQSENT; /* Start over but keep trying */
555 break;
556
557 case OPENED:
558 if (len > 0) {
559 fmtmsg(str, sizeof(str), "%0.*v", len, p);
560 syslog(LOG_INFO, "%s terminated by peer (%s)", PROTO_NAME(f), str);
561 } else
562 syslog(LOG_INFO, "%s terminated by peer", PROTO_NAME(f));
563 if (f->callbacks->down)
564 (*f->callbacks->down)(f); /* Inform upper layers */
565 f->retransmits = 0;
566 f->state = STOPPING;
567 TIMEOUT(fsm_timeout, f, f->timeouttime);
568 break;
569 }
570
571 fsm_sdata(f, TERMACK, id, NULL, 0);
572}
573
574
575/*
576 * fsm_rtermack - Receive Terminate-Ack.
577 */
578static void
21da1569 579fsm_rtermack(fsm *f)
984263bc
MD
580{
581 FSMDEBUG((LOG_INFO, "fsm_rtermack(%s).", PROTO_NAME(f)));
582
583 switch (f->state) {
584 case CLOSING:
585 UNTIMEOUT(fsm_timeout, f);
586 f->state = CLOSED;
587 if( f->callbacks->finished )
588 (*f->callbacks->finished)(f);
589 break;
590 case STOPPING:
591 UNTIMEOUT(fsm_timeout, f);
592 f->state = STOPPED;
593 if( f->callbacks->finished )
594 (*f->callbacks->finished)(f);
595 break;
596
597 case ACKRCVD:
598 f->state = REQSENT;
599 break;
600
601 case OPENED:
602 if (f->callbacks->down)
603 (*f->callbacks->down)(f); /* Inform upper layers */
604 fsm_sconfreq(f, 0);
605 break;
606 }
607}
608
609
610/*
611 * fsm_rcoderej - Receive an Code-Reject.
612 */
613static void
21da1569 614fsm_rcoderej(fsm *f, u_char *inp, int len)
984263bc
MD
615{
616 u_char code, id;
617
618 FSMDEBUG((LOG_INFO, "fsm_rcoderej(%s).", PROTO_NAME(f)));
619
620 if (len < HEADERLEN) {
621 FSMDEBUG((LOG_INFO, "fsm_rcoderej: Rcvd short Code-Reject packet!"));
622 return;
623 }
624 GETCHAR(code, inp);
625 GETCHAR(id, inp);
626 syslog(LOG_WARNING, "%s: Rcvd Code-Reject for code %d, id %d",
627 PROTO_NAME(f), code, id);
628
629 if( f->state == ACKRCVD )
630 f->state = REQSENT;
631}
632
633
634/*
635 * fsm_protreject - Peer doesn't speak this protocol.
636 *
637 * Treat this as a catastrophic error (RXJ-).
638 */
639void
21da1569 640fsm_protreject(fsm *f)
984263bc
MD
641{
642 switch( f->state ){
643 case CLOSING:
644 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
645 /* fall through */
646 case CLOSED:
647 f->state = CLOSED;
648 if( f->callbacks->finished )
649 (*f->callbacks->finished)(f);
650 break;
651
652 case STOPPING:
653 case REQSENT:
654 case ACKRCVD:
655 case ACKSENT:
656 UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */
657 /* fall through */
658 case STOPPED:
659 f->state = STOPPED;
660 if( f->callbacks->finished )
661 (*f->callbacks->finished)(f);
662 break;
663
664 case OPENED:
665 if( f->callbacks->down )
666 (*f->callbacks->down)(f);
667
668 /* Init restart counter, send Terminate-Request */
669 f->retransmits = f->maxtermtransmits;
670 fsm_sdata(f, TERMREQ, f->reqid = ++f->id,
671 (u_char *) f->term_reason, f->term_reason_len);
672 TIMEOUT(fsm_timeout, f, f->timeouttime);
673 --f->retransmits;
674
675 f->state = STOPPING;
676 break;
677
678 default:
679 FSMDEBUG((LOG_INFO, "%s: Protocol-reject event in state %d!",
680 PROTO_NAME(f), f->state));
681 }
682}
683
684
685/*
686 * fsm_sconfreq - Send a Configure-Request.
687 */
688static void
21da1569 689fsm_sconfreq(fsm *f, int retransmit)
984263bc
MD
690{
691 u_char *outp;
692 int cilen;
693
694 if( f->state != REQSENT && f->state != ACKRCVD && f->state != ACKSENT ){
695 /* Not currently negotiating - reset options */
696 if( f->callbacks->resetci )
697 (*f->callbacks->resetci)(f);
698 f->nakloops = 0;
699 }
700
701 if( !retransmit ){
702 /* New request - reset retransmission counter, use new ID */
703 f->retransmits = f->maxconfreqtransmits;
704 f->reqid = ++f->id;
705 }
706
707 f->seen_ack = 0;
708
709 /*
710 * Make up the request packet
711 */
712 outp = outpacket_buf + PPP_HDRLEN + HEADERLEN;
713 if( f->callbacks->cilen && f->callbacks->addci ){
714 cilen = (*f->callbacks->cilen)(f);
715 if( cilen > peer_mru[f->unit] - HEADERLEN )
716 cilen = peer_mru[f->unit] - HEADERLEN;
717 if (f->callbacks->addci)
718 (*f->callbacks->addci)(f, outp, &cilen);
719 } else
720 cilen = 0;
721
722 /* send the request to our peer */
723 fsm_sdata(f, CONFREQ, f->reqid, outp, cilen);
724
725 /* start the retransmit timer */
726 --f->retransmits;
727 TIMEOUT(fsm_timeout, f, f->timeouttime);
728
729 FSMDEBUG((LOG_INFO, "%s: sending Configure-Request, id %d",
730 PROTO_NAME(f), f->reqid));
731}
732
733
734/*
735 * fsm_sdata - Send some data.
736 *
737 * Used for all packets sent to our peer by this module.
738 */
739void
21da1569 740fsm_sdata(fsm *f, int code, int id, u_char *data, int datalen)
984263bc
MD
741{
742 u_char *outp;
743 int outlen;
744
745 /* Adjust length to be smaller than MTU */
746 outp = outpacket_buf;
747 if (datalen > peer_mru[f->unit] - HEADERLEN)
748 datalen = peer_mru[f->unit] - HEADERLEN;
749 if (datalen && data != outp + PPP_HDRLEN + HEADERLEN)
750 BCOPY(data, outp + PPP_HDRLEN + HEADERLEN, datalen);
751 outlen = datalen + HEADERLEN;
752 MAKEHEADER(outp, f->protocol);
753 PUTCHAR(code, outp);
754 PUTCHAR(id, outp);
755 PUTSHORT(outlen, outp);
756 output(f->unit, outpacket_buf, outlen + PPP_HDRLEN);
757
758 FSMDEBUG((LOG_INFO, "fsm_sdata(%s): Sent code %d, id %d.",
759 PROTO_NAME(f), code, id));
760}