1 // SPDX-License-Identifier: GPL-2.0
2 #include "platform.h"
3 #include "pc.h"
4 #include "di_defs.h"
5 #include "debug_if.h"
6 #include "divasync.h"
7 #include "kst_ifc.h"
8 #include "maintidi.h"
9 #include "man_defs.h"
10
11 /*
12 LOCALS
13 */
14 #define DBG_MAGIC (0x47114711L)
15
16 static void DI_register(void *arg);
17 static void DI_deregister(pDbgHandle hDbg);
18 static void DI_format(int do_lock, word id, int type, char *format, va_list argument_list);
19 static void DI_format_locked(word id, int type, char *format, va_list argument_list);
DI_format_old(word id,char * format,va_list ap)20 static void DI_format_old(word id, char *format, va_list ap) { }
DiProcessEventLog(unsigned short id,unsigned long msgID,va_list ap)21 static void DiProcessEventLog(unsigned short id, unsigned long msgID, va_list ap) { }
22 static void single_p(byte *P, word *PLength, byte Id);
23 static void diva_maint_xdi_cb(ENTITY *e);
24 static word SuperTraceCreateReadReq(byte *P, const char *path);
25 static int diva_mnt_cmp_nmbr(const char *nmbr);
26 static void diva_free_dma_descriptor(IDI_CALL request, int nr);
27 static int diva_get_dma_descriptor(IDI_CALL request, dword *dma_magic);
28 void diva_mnt_internal_dprintf(dword drv_id, dword type, char *p, ...);
29
30 static dword MaxDumpSize = 256;
31 static dword MaxXlogSize = 2 + 128;
32 static char TraceFilter[DIVA_MAX_SELECTIVE_FILTER_LENGTH + 1];
33 static int TraceFilterIdent = -1;
34 static int TraceFilterChannel = -1;
35
36 typedef struct _diva_maint_client {
37 dword sec;
38 dword usec;
39 pDbgHandle hDbg;
40 char drvName[128];
41 dword dbgMask;
42 dword last_dbgMask;
43 IDI_CALL request;
44 _DbgHandle_ Dbg;
45 int logical;
46 int channels;
47 diva_strace_library_interface_t *pIdiLib;
48 BUFFERS XData;
49 char xbuffer[2048 + 512];
50 byte *pmem;
51 int request_pending;
52 int dma_handle;
53 } diva_maint_client_t;
54 static diva_maint_client_t clients[MAX_DESCRIPTORS];
55
56 static void diva_change_management_debug_mask(diva_maint_client_t *pC, dword old_mask);
57
58 static void diva_maint_error(void *user_context,
59 diva_strace_library_interface_t *hLib,
60 int Adapter,
61 int error,
62 const char *file,
63 int line);
64 static void diva_maint_state_change_notify(void *user_context,
65 diva_strace_library_interface_t *hLib,
66 int Adapter,
67 diva_trace_line_state_t *channel,
68 int notify_subject);
69 static void diva_maint_trace_notify(void *user_context,
70 diva_strace_library_interface_t *hLib,
71 int Adapter,
72 void *xlog_buffer,
73 int length);
74
75
76
77 typedef struct MSG_QUEUE {
78 dword Size; /* total size of queue (constant) */
79 byte *Base; /* lowest address (constant) */
80 byte *High; /* Base + Size (constant) */
81 byte *Head; /* first message in queue (if any) */
82 byte *Tail; /* first free position */
83 byte *Wrap; /* current wraparound position */
84 dword Count; /* current no of bytes in queue */
85 } MSG_QUEUE;
86
87 typedef struct MSG_HEAD {
88 volatile dword Size; /* size of data following MSG_HEAD */
89 #define MSG_INCOMPLETE 0x8000 /* ored to Size until queueCompleteMsg */
90 } MSG_HEAD;
91
92 #define queueCompleteMsg(p) do { ((MSG_HEAD *)p - 1)->Size &= ~MSG_INCOMPLETE; } while (0)
93 #define queueCount(q) ((q)->Count)
94 #define MSG_NEED(size) \
95 ((sizeof(MSG_HEAD) + size + sizeof(dword) - 1) & ~(sizeof(dword) - 1))
96
queueInit(MSG_QUEUE * Q,byte * Buffer,dword sizeBuffer)97 static void queueInit(MSG_QUEUE *Q, byte *Buffer, dword sizeBuffer) {
98 Q->Size = sizeBuffer;
99 Q->Base = Q->Head = Q->Tail = Buffer;
100 Q->High = Buffer + sizeBuffer;
101 Q->Wrap = NULL;
102 Q->Count = 0;
103 }
104
queueAllocMsg(MSG_QUEUE * Q,word size)105 static byte *queueAllocMsg(MSG_QUEUE *Q, word size) {
106 /* Allocate 'size' bytes at tail of queue which will be filled later
107 * directly with callers own message header info and/or message.
108 * An 'alloced' message is marked incomplete by oring the 'Size' field
109 * with MSG_INCOMPLETE.
110 * This must be reset via queueCompleteMsg() after the message is filled.
111 * As long as a message is marked incomplete queuePeekMsg() will return
112 * a 'queue empty' condition when it reaches such a message. */
113
114 MSG_HEAD *Msg;
115 word need = MSG_NEED(size);
116
117 if (Q->Tail == Q->Head) {
118 if (Q->Wrap || need > Q->Size) {
119 return NULL; /* full */
120 }
121 goto alloc; /* empty */
122 }
123
124 if (Q->Tail > Q->Head) {
125 if (Q->Tail + need <= Q->High) goto alloc; /* append */
126 if (Q->Base + need > Q->Head) {
127 return NULL; /* too much */
128 }
129 /* wraparound the queue (but not the message) */
130 Q->Wrap = Q->Tail;
131 Q->Tail = Q->Base;
132 goto alloc;
133 }
134
135 if (Q->Tail + need > Q->Head) {
136 return NULL; /* too much */
137 }
138
139 alloc:
140 Msg = (MSG_HEAD *)Q->Tail;
141
142 Msg->Size = size | MSG_INCOMPLETE;
143
144 Q->Tail += need;
145 Q->Count += size;
146
147
148
149 return ((byte *)(Msg + 1));
150 }
151
queueFreeMsg(MSG_QUEUE * Q)152 static void queueFreeMsg(MSG_QUEUE *Q) {
153 /* Free the message at head of queue */
154
155 word size = ((MSG_HEAD *)Q->Head)->Size & ~MSG_INCOMPLETE;
156
157 Q->Head += MSG_NEED(size);
158 Q->Count -= size;
159
160 if (Q->Wrap) {
161 if (Q->Head >= Q->Wrap) {
162 Q->Head = Q->Base;
163 Q->Wrap = NULL;
164 }
165 } else if (Q->Head >= Q->Tail) {
166 Q->Head = Q->Tail = Q->Base;
167 }
168 }
169
queuePeekMsg(MSG_QUEUE * Q,word * size)170 static byte *queuePeekMsg(MSG_QUEUE *Q, word *size) {
171 /* Show the first valid message in queue BUT DON'T free the message.
172 * After looking on the message contents it can be freed queueFreeMsg()
173 * or simply remain in message queue. */
174
175 MSG_HEAD *Msg = (MSG_HEAD *)Q->Head;
176
177 if (((byte *)Msg == Q->Tail && !Q->Wrap) ||
178 (Msg->Size & MSG_INCOMPLETE)) {
179 return NULL;
180 } else {
181 *size = Msg->Size;
182 return ((byte *)(Msg + 1));
183 }
184 }
185
186 /*
187 Message queue header
188 */
189 static MSG_QUEUE *dbg_queue;
190 static byte *dbg_base;
191 static int external_dbg_queue;
192 static diva_os_spin_lock_t dbg_q_lock;
193 static diva_os_spin_lock_t dbg_adapter_lock;
194 static int dbg_q_busy;
195 static volatile dword dbg_sequence;
196
197 /*
198 INTERFACE:
199 Initialize run time queue structures.
200 base: base of the message queue
201 length: length of the message queue
202 do_init: perfor queue reset
203
204 return: zero on success, -1 on error
205 */
diva_maint_init(byte * base,unsigned long length,int do_init)206 int diva_maint_init(byte *base, unsigned long length, int do_init) {
207 if (dbg_queue || (!base) || (length < (4096 * 4))) {
208 return (-1);
209 }
210
211 TraceFilter[0] = 0;
212 TraceFilterIdent = -1;
213 TraceFilterChannel = -1;
214
215 dbg_base = base;
216
217 *(dword *)base = (dword)DBG_MAGIC; /* Store Magic */
218 base += sizeof(dword);
219 length -= sizeof(dword);
220
221 *(dword *)base = 2048; /* Extension Field Length */
222 base += sizeof(dword);
223 length -= sizeof(dword);
224
225 strcpy(base, "KERNEL MODE BUFFER\n");
226 base += 2048;
227 length -= 2048;
228
229 *(dword *)base = 0; /* Terminate extension */
230 base += sizeof(dword);
231 length -= sizeof(dword);
232
233 *(void **)base = (void *)(base + sizeof(void *)); /* Store Base */
234 base += sizeof(void *);
235 length -= sizeof(void *);
236
237 dbg_queue = (MSG_QUEUE *)base;
238 queueInit(dbg_queue, base + sizeof(MSG_QUEUE), length - sizeof(MSG_QUEUE) - 512);
239 external_dbg_queue = 0;
240
241 if (!do_init) {
242 external_dbg_queue = 1; /* memory was located on the external device */
243 }
244
245
246 if (diva_os_initialize_spin_lock(&dbg_q_lock, "dbg_init")) {
247 dbg_queue = NULL;
248 dbg_base = NULL;
249 external_dbg_queue = 0;
250 return (-1);
251 }
252
253 if (diva_os_initialize_spin_lock(&dbg_adapter_lock, "dbg_init")) {
254 diva_os_destroy_spin_lock(&dbg_q_lock, "dbg_init");
255 dbg_queue = NULL;
256 dbg_base = NULL;
257 external_dbg_queue = 0;
258 return (-1);
259 }
260
261 return (0);
262 }
263
264 /*
265 INTERFACE:
266 Finit at unload time
267 return address of internal queue or zero if queue
268 was external
269 */
diva_maint_finit(void)270 void *diva_maint_finit(void) {
271 void *ret = (void *)dbg_base;
272 int i;
273
274 dbg_queue = NULL;
275 dbg_base = NULL;
276
277 if (ret) {
278 diva_os_destroy_spin_lock(&dbg_q_lock, "dbg_finit");
279 diva_os_destroy_spin_lock(&dbg_adapter_lock, "dbg_finit");
280 }
281
282 if (external_dbg_queue) {
283 ret = NULL;
284 }
285 external_dbg_queue = 0;
286
287 for (i = 1; i < ARRAY_SIZE(clients); i++) {
288 if (clients[i].pmem) {
289 diva_os_free(0, clients[i].pmem);
290 }
291 }
292
293 return (ret);
294 }
295
296 /*
297 INTERFACE:
298 Return amount of messages in debug queue
299 */
diva_dbg_q_length(void)300 dword diva_dbg_q_length(void) {
301 return (dbg_queue ? queueCount(dbg_queue) : 0);
302 }
303
304 /*
305 INTERFACE:
306 Lock message queue and return the pointer to the first
307 entry.
308 */
diva_maint_get_message(word * size,diva_os_spin_lock_magic_t * old_irql)309 diva_dbg_entry_head_t *diva_maint_get_message(word *size,
310 diva_os_spin_lock_magic_t *old_irql) {
311 diva_dbg_entry_head_t *pmsg = NULL;
312
313 diva_os_enter_spin_lock(&dbg_q_lock, old_irql, "read");
314 if (dbg_q_busy) {
315 diva_os_leave_spin_lock(&dbg_q_lock, old_irql, "read_busy");
316 return NULL;
317 }
318 dbg_q_busy = 1;
319
320 if (!(pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, size))) {
321 dbg_q_busy = 0;
322 diva_os_leave_spin_lock(&dbg_q_lock, old_irql, "read_empty");
323 }
324
325 return (pmsg);
326 }
327
328 /*
329 INTERFACE:
330 acknowledge last message and unlock queue
331 */
diva_maint_ack_message(int do_release,diva_os_spin_lock_magic_t * old_irql)332 void diva_maint_ack_message(int do_release,
333 diva_os_spin_lock_magic_t *old_irql) {
334 if (!dbg_q_busy) {
335 return;
336 }
337 if (do_release) {
338 queueFreeMsg(dbg_queue);
339 }
340 dbg_q_busy = 0;
341 diva_os_leave_spin_lock(&dbg_q_lock, old_irql, "read_ack");
342 }
343
344
345 /*
346 INTERFACE:
347 PRT COMP function used to register
348 with MAINT adapter or log in compatibility
349 mode in case older driver version is connected too
350 */
diva_maint_prtComp(char * format,...)351 void diva_maint_prtComp(char *format, ...) {
352 void *hDbg;
353 va_list ap;
354
355 if (!format)
356 return;
357
358 va_start(ap, format);
359
360 /*
361 register to new log driver functions
362 */
363 if ((format[0] == 0) && ((unsigned char)format[1] == 255)) {
364 hDbg = va_arg(ap, void *); /* ptr to DbgHandle */
365 DI_register(hDbg);
366 }
367
368 va_end(ap);
369 }
370
DI_register(void * arg)371 static void DI_register(void *arg) {
372 diva_os_spin_lock_magic_t old_irql;
373 dword sec, usec;
374 pDbgHandle hDbg;
375 int id, free_id = -1, best_id = 0;
376
377 diva_os_get_time(&sec, &usec);
378
379 hDbg = (pDbgHandle)arg;
380 /*
381 Check for bad args, specially for the old obsolete debug handle
382 */
383 if ((hDbg == NULL) ||
384 ((hDbg->id == 0) && (((_OldDbgHandle_ *)hDbg)->id == -1)) ||
385 (hDbg->Registered != 0)) {
386 return;
387 }
388
389 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "register");
390
391 for (id = 1; id < ARRAY_SIZE(clients); id++) {
392 if (clients[id].hDbg == hDbg) {
393 /*
394 driver already registered
395 */
396 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "register");
397 return;
398 }
399 if (clients[id].hDbg) { /* slot is busy */
400 continue;
401 }
402 free_id = id;
403 if (!strcmp(clients[id].drvName, hDbg->drvName)) {
404 /*
405 This driver was already registered with this name
406 and slot is still free - reuse it
407 */
408 best_id = 1;
409 break;
410 }
411 if (!clients[id].hDbg) { /* slot is busy */
412 break;
413 }
414 }
415
416 if (free_id != -1) {
417 diva_dbg_entry_head_t *pmsg = NULL;
418 int len;
419 char tmp[256];
420 word size;
421
422 /*
423 Register new driver with id == free_id
424 */
425 clients[free_id].hDbg = hDbg;
426 clients[free_id].sec = sec;
427 clients[free_id].usec = usec;
428 strcpy(clients[free_id].drvName, hDbg->drvName);
429
430 clients[free_id].dbgMask = hDbg->dbgMask;
431 if (best_id) {
432 hDbg->dbgMask |= clients[free_id].last_dbgMask;
433 } else {
434 clients[free_id].last_dbgMask = 0;
435 }
436
437 hDbg->Registered = DBG_HANDLE_REG_NEW;
438 hDbg->id = (byte)free_id;
439 hDbg->dbg_end = DI_deregister;
440 hDbg->dbg_prt = DI_format_locked;
441 hDbg->dbg_ev = DiProcessEventLog;
442 hDbg->dbg_irq = DI_format_locked;
443 if (hDbg->Version > 0) {
444 hDbg->dbg_old = DI_format_old;
445 }
446 hDbg->next = (pDbgHandle)DBG_MAGIC;
447
448 /*
449 Log driver register, MAINT driver ID is '0'
450 */
451 len = sprintf(tmp, "DIMAINT - drv # %d = '%s' registered",
452 free_id, hDbg->drvName);
453
454 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
455 (word)(len + 1 + sizeof(*pmsg))))) {
456 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
457 queueFreeMsg(dbg_queue);
458 } else {
459 break;
460 }
461 }
462
463 if (pmsg) {
464 pmsg->sequence = dbg_sequence++;
465 pmsg->time_sec = sec;
466 pmsg->time_usec = usec;
467 pmsg->facility = MSG_TYPE_STRING;
468 pmsg->dli = DLI_REG;
469 pmsg->drv_id = 0; /* id 0 - DIMAINT */
470 pmsg->di_cpu = 0;
471 pmsg->data_length = len + 1;
472
473 memcpy(&pmsg[1], tmp, len + 1);
474 queueCompleteMsg(pmsg);
475 diva_maint_wakeup_read();
476 }
477 }
478
479 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "register");
480 }
481
DI_deregister(pDbgHandle hDbg)482 static void DI_deregister(pDbgHandle hDbg) {
483 diva_os_spin_lock_magic_t old_irql, old_irql1;
484 dword sec, usec;
485 int i;
486 word size;
487 byte *pmem = NULL;
488
489 diva_os_get_time(&sec, &usec);
490
491 diva_os_enter_spin_lock(&dbg_adapter_lock, &old_irql1, "read");
492 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "read");
493
494 for (i = 1; i < ARRAY_SIZE(clients); i++) {
495 if (clients[i].hDbg == hDbg) {
496 diva_dbg_entry_head_t *pmsg;
497 char tmp[256];
498 int len;
499
500 clients[i].hDbg = NULL;
501
502 hDbg->id = -1;
503 hDbg->dbgMask = 0;
504 hDbg->dbg_end = NULL;
505 hDbg->dbg_prt = NULL;
506 hDbg->dbg_irq = NULL;
507 if (hDbg->Version > 0)
508 hDbg->dbg_old = NULL;
509 hDbg->Registered = 0;
510 hDbg->next = NULL;
511
512 if (clients[i].pIdiLib) {
513 (*(clients[i].pIdiLib->DivaSTraceLibraryFinit))(clients[i].pIdiLib->hLib);
514 clients[i].pIdiLib = NULL;
515
516 pmem = clients[i].pmem;
517 clients[i].pmem = NULL;
518 }
519
520 /*
521 Log driver register, MAINT driver ID is '0'
522 */
523 len = sprintf(tmp, "DIMAINT - drv # %d = '%s' de-registered",
524 i, hDbg->drvName);
525
526 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
527 (word)(len + 1 + sizeof(*pmsg))))) {
528 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
529 queueFreeMsg(dbg_queue);
530 } else {
531 break;
532 }
533 }
534
535 if (pmsg) {
536 pmsg->sequence = dbg_sequence++;
537 pmsg->time_sec = sec;
538 pmsg->time_usec = usec;
539 pmsg->facility = MSG_TYPE_STRING;
540 pmsg->dli = DLI_REG;
541 pmsg->drv_id = 0; /* id 0 - DIMAINT */
542 pmsg->di_cpu = 0;
543 pmsg->data_length = len + 1;
544
545 memcpy(&pmsg[1], tmp, len + 1);
546 queueCompleteMsg(pmsg);
547 diva_maint_wakeup_read();
548 }
549
550 break;
551 }
552 }
553
554 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "read_ack");
555 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "read_ack");
556
557 if (pmem) {
558 diva_os_free(0, pmem);
559 }
560 }
561
DI_format_locked(unsigned short id,int type,char * format,va_list argument_list)562 static void DI_format_locked(unsigned short id,
563 int type,
564 char *format,
565 va_list argument_list) {
566 DI_format(1, id, type, format, argument_list);
567 }
568
DI_format(int do_lock,unsigned short id,int type,char * format,va_list ap)569 static void DI_format(int do_lock,
570 unsigned short id,
571 int type,
572 char *format,
573 va_list ap) {
574 diva_os_spin_lock_magic_t old_irql;
575 dword sec, usec;
576 diva_dbg_entry_head_t *pmsg = NULL;
577 dword length;
578 word size;
579 static char fmtBuf[MSG_FRAME_MAX_SIZE + sizeof(*pmsg) + 1];
580 char *data;
581 unsigned short code;
582
583 if (diva_os_in_irq()) {
584 dbg_sequence++;
585 return;
586 }
587
588 if ((!format) ||
589 ((TraceFilter[0] != 0) && ((TraceFilterIdent < 0) || (TraceFilterChannel < 0)))) {
590 return;
591 }
592
593
594
595 diva_os_get_time(&sec, &usec);
596
597 if (do_lock) {
598 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "format");
599 }
600
601 switch (type) {
602 case DLI_MXLOG:
603 case DLI_BLK:
604 case DLI_SEND:
605 case DLI_RECV:
606 if (!(length = va_arg(ap, unsigned long))) {
607 break;
608 }
609 if (length > MaxDumpSize) {
610 length = MaxDumpSize;
611 }
612 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
613 (word)length + sizeof(*pmsg)))) {
614 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
615 queueFreeMsg(dbg_queue);
616 } else {
617 break;
618 }
619 }
620 if (pmsg) {
621 memcpy(&pmsg[1], format, length);
622 pmsg->sequence = dbg_sequence++;
623 pmsg->time_sec = sec;
624 pmsg->time_usec = usec;
625 pmsg->facility = MSG_TYPE_BINARY;
626 pmsg->dli = type; /* DLI_XXX */
627 pmsg->drv_id = id; /* driver MAINT id */
628 pmsg->di_cpu = 0;
629 pmsg->data_length = length;
630 queueCompleteMsg(pmsg);
631 }
632 break;
633
634 case DLI_XLOG: {
635 byte *p;
636 data = va_arg(ap, char *);
637 code = (unsigned short)va_arg(ap, unsigned int);
638 length = (unsigned long)va_arg(ap, unsigned int);
639
640 if (length > MaxXlogSize)
641 length = MaxXlogSize;
642
643 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
644 (word)length + sizeof(*pmsg) + 2))) {
645 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
646 queueFreeMsg(dbg_queue);
647 } else {
648 break;
649 }
650 }
651 if (pmsg) {
652 p = (byte *)&pmsg[1];
653 p[0] = (char)(code);
654 p[1] = (char)(code >> 8);
655 if (data && length) {
656 memcpy(&p[2], &data[0], length);
657 }
658 length += 2;
659
660 pmsg->sequence = dbg_sequence++;
661 pmsg->time_sec = sec;
662 pmsg->time_usec = usec;
663 pmsg->facility = MSG_TYPE_BINARY;
664 pmsg->dli = type; /* DLI_XXX */
665 pmsg->drv_id = id; /* driver MAINT id */
666 pmsg->di_cpu = 0;
667 pmsg->data_length = length;
668 queueCompleteMsg(pmsg);
669 }
670 } break;
671
672 case DLI_LOG:
673 case DLI_FTL:
674 case DLI_ERR:
675 case DLI_TRC:
676 case DLI_REG:
677 case DLI_MEM:
678 case DLI_SPL:
679 case DLI_IRP:
680 case DLI_TIM:
681 case DLI_TAPI:
682 case DLI_NDIS:
683 case DLI_CONN:
684 case DLI_STAT:
685 case DLI_PRV0:
686 case DLI_PRV1:
687 case DLI_PRV2:
688 case DLI_PRV3:
689 if ((length = (unsigned long)vsprintf(&fmtBuf[0], format, ap)) > 0) {
690 length += (sizeof(*pmsg) + 1);
691
692 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
693 (word)length))) {
694 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
695 queueFreeMsg(dbg_queue);
696 } else {
697 break;
698 }
699 }
700
701 pmsg->sequence = dbg_sequence++;
702 pmsg->time_sec = sec;
703 pmsg->time_usec = usec;
704 pmsg->facility = MSG_TYPE_STRING;
705 pmsg->dli = type; /* DLI_XXX */
706 pmsg->drv_id = id; /* driver MAINT id */
707 pmsg->di_cpu = 0;
708 pmsg->data_length = length - sizeof(*pmsg);
709
710 memcpy(&pmsg[1], fmtBuf, pmsg->data_length);
711 queueCompleteMsg(pmsg);
712 }
713 break;
714
715 } /* switch type */
716
717
718 if (queueCount(dbg_queue)) {
719 diva_maint_wakeup_read();
720 }
721
722 if (do_lock) {
723 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "format");
724 }
725 }
726
727 /*
728 Write driver ID and driver revision to callers buffer
729 */
diva_get_driver_info(dword id,byte * data,int data_length)730 int diva_get_driver_info(dword id, byte *data, int data_length) {
731 diva_os_spin_lock_magic_t old_irql;
732 byte *p = data;
733 int to_copy;
734
735 if (!data || !id || (data_length < 17) ||
736 (id >= ARRAY_SIZE(clients))) {
737 return (-1);
738 }
739
740 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "driver info");
741
742 if (clients[id].hDbg) {
743 *p++ = 1;
744 *p++ = (byte)clients[id].sec; /* save seconds */
745 *p++ = (byte)(clients[id].sec >> 8);
746 *p++ = (byte)(clients[id].sec >> 16);
747 *p++ = (byte)(clients[id].sec >> 24);
748
749 *p++ = (byte)(clients[id].usec / 1000); /* save mseconds */
750 *p++ = (byte)((clients[id].usec / 1000) >> 8);
751 *p++ = (byte)((clients[id].usec / 1000) >> 16);
752 *p++ = (byte)((clients[id].usec / 1000) >> 24);
753
754 data_length -= 9;
755
756 if ((to_copy = min(strlen(clients[id].drvName), (size_t)(data_length - 1)))) {
757 memcpy(p, clients[id].drvName, to_copy);
758 p += to_copy;
759 data_length -= to_copy;
760 if ((data_length >= 4) && clients[id].hDbg->drvTag[0]) {
761 *p++ = '(';
762 data_length -= 1;
763 if ((to_copy = min(strlen(clients[id].hDbg->drvTag), (size_t)(data_length - 2)))) {
764 memcpy(p, clients[id].hDbg->drvTag, to_copy);
765 p += to_copy;
766 data_length -= to_copy;
767 if (data_length >= 2) {
768 *p++ = ')';
769 data_length--;
770 }
771 }
772 }
773 }
774 }
775 *p++ = 0;
776
777 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "driver info");
778
779 return (p - data);
780 }
781
diva_get_driver_dbg_mask(dword id,byte * data)782 int diva_get_driver_dbg_mask(dword id, byte *data) {
783 diva_os_spin_lock_magic_t old_irql;
784 int ret = -1;
785
786 if (!data || !id || (id >= ARRAY_SIZE(clients))) {
787 return (-1);
788 }
789 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "driver info");
790
791 if (clients[id].hDbg) {
792 ret = 4;
793 *data++ = (byte)(clients[id].hDbg->dbgMask);
794 *data++ = (byte)(clients[id].hDbg->dbgMask >> 8);
795 *data++ = (byte)(clients[id].hDbg->dbgMask >> 16);
796 *data++ = (byte)(clients[id].hDbg->dbgMask >> 24);
797 }
798
799 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "driver info");
800
801 return (ret);
802 }
803
diva_set_driver_dbg_mask(dword id,dword mask)804 int diva_set_driver_dbg_mask(dword id, dword mask) {
805 diva_os_spin_lock_magic_t old_irql, old_irql1;
806 int ret = -1;
807
808
809 if (!id || (id >= ARRAY_SIZE(clients))) {
810 return (-1);
811 }
812
813 diva_os_enter_spin_lock(&dbg_adapter_lock, &old_irql1, "dbg mask");
814 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "dbg mask");
815
816 if (clients[id].hDbg) {
817 dword old_mask = clients[id].hDbg->dbgMask;
818 mask &= 0x7fffffff;
819 clients[id].hDbg->dbgMask = mask;
820 clients[id].last_dbgMask = (clients[id].hDbg->dbgMask | clients[id].dbgMask);
821 ret = 4;
822 diva_change_management_debug_mask(&clients[id], old_mask);
823 }
824
825
826 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "dbg mask");
827
828 if (clients[id].request_pending) {
829 clients[id].request_pending = 0;
830 (*(clients[id].request))((ENTITY *)(*(clients[id].pIdiLib->DivaSTraceGetHandle))(clients[id].pIdiLib->hLib));
831 }
832
833 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "dbg mask");
834
835 return (ret);
836 }
837
diva_get_idi_adapter_info(IDI_CALL request,dword * serial,dword * logical)838 static int diva_get_idi_adapter_info(IDI_CALL request, dword *serial, dword *logical) {
839 IDI_SYNC_REQ sync_req;
840
841 sync_req.xdi_logical_adapter_number.Req = 0;
842 sync_req.xdi_logical_adapter_number.Rc = IDI_SYNC_REQ_XDI_GET_LOGICAL_ADAPTER_NUMBER;
843 (*request)((ENTITY *)&sync_req);
844 *logical = sync_req.xdi_logical_adapter_number.info.logical_adapter_number;
845
846 sync_req.GetSerial.Req = 0;
847 sync_req.GetSerial.Rc = IDI_SYNC_REQ_GET_SERIAL;
848 sync_req.GetSerial.serial = 0;
849 (*request)((ENTITY *)&sync_req);
850 *serial = sync_req.GetSerial.serial;
851
852 return (0);
853 }
854
855 /*
856 Register XDI adapter as MAINT compatible driver
857 */
diva_mnt_add_xdi_adapter(const DESCRIPTOR * d)858 void diva_mnt_add_xdi_adapter(const DESCRIPTOR *d) {
859 diva_os_spin_lock_magic_t old_irql, old_irql1;
860 dword sec, usec, logical, serial, org_mask;
861 int id, free_id = -1;
862 char tmp[128];
863 diva_dbg_entry_head_t *pmsg = NULL;
864 int len;
865 word size;
866 byte *pmem;
867
868 diva_os_get_time(&sec, &usec);
869 diva_get_idi_adapter_info(d->request, &serial, &logical);
870 if (serial & 0xff000000) {
871 sprintf(tmp, "ADAPTER:%d SN:%u-%d",
872 (int)logical,
873 serial & 0x00ffffff,
874 (byte)(((serial & 0xff000000) >> 24) + 1));
875 } else {
876 sprintf(tmp, "ADAPTER:%d SN:%u", (int)logical, serial);
877 }
878
879 if (!(pmem = diva_os_malloc(0, DivaSTraceGetMemotyRequirement(d->channels)))) {
880 return;
881 }
882 memset(pmem, 0x00, DivaSTraceGetMemotyRequirement(d->channels));
883
884 diva_os_enter_spin_lock(&dbg_adapter_lock, &old_irql1, "register");
885 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "register");
886
887 for (id = 1; id < ARRAY_SIZE(clients); id++) {
888 if (clients[id].hDbg && (clients[id].request == d->request)) {
889 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "register");
890 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "register");
891 diva_os_free(0, pmem);
892 return;
893 }
894 if (clients[id].hDbg) { /* slot is busy */
895 continue;
896 }
897 if (free_id < 0) {
898 free_id = id;
899 }
900 if (!strcmp(clients[id].drvName, tmp)) {
901 /*
902 This driver was already registered with this name
903 and slot is still free - reuse it
904 */
905 free_id = id;
906 break;
907 }
908 }
909
910 if (free_id < 0) {
911 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "register");
912 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "register");
913 diva_os_free(0, pmem);
914 return;
915 }
916
917 id = free_id;
918 clients[id].request = d->request;
919 clients[id].request_pending = 0;
920 clients[id].hDbg = &clients[id].Dbg;
921 clients[id].sec = sec;
922 clients[id].usec = usec;
923 strcpy(clients[id].drvName, tmp);
924 strcpy(clients[id].Dbg.drvName, tmp);
925 clients[id].Dbg.drvTag[0] = 0;
926 clients[id].logical = (int)logical;
927 clients[id].channels = (int)d->channels;
928 clients[id].dma_handle = -1;
929
930 clients[id].Dbg.dbgMask = 0;
931 clients[id].dbgMask = clients[id].Dbg.dbgMask;
932 if (id) {
933 clients[id].Dbg.dbgMask |= clients[free_id].last_dbgMask;
934 } else {
935 clients[id].last_dbgMask = 0;
936 }
937 clients[id].Dbg.Registered = DBG_HANDLE_REG_NEW;
938 clients[id].Dbg.id = (byte)id;
939 clients[id].Dbg.dbg_end = DI_deregister;
940 clients[id].Dbg.dbg_prt = DI_format_locked;
941 clients[id].Dbg.dbg_ev = DiProcessEventLog;
942 clients[id].Dbg.dbg_irq = DI_format_locked;
943 clients[id].Dbg.next = (pDbgHandle)DBG_MAGIC;
944
945 {
946 diva_trace_library_user_interface_t diva_maint_user_ifc = { &clients[id],
947 diva_maint_state_change_notify,
948 diva_maint_trace_notify,
949 diva_maint_error };
950
951 /*
952 Attach to adapter management interface
953 */
954 if ((clients[id].pIdiLib =
955 DivaSTraceLibraryCreateInstance((int)logical, &diva_maint_user_ifc, pmem))) {
956 if (((*(clients[id].pIdiLib->DivaSTraceLibraryStart))(clients[id].pIdiLib->hLib))) {
957 diva_mnt_internal_dprintf(0, DLI_ERR, "Adapter(%d) Start failed", (int)logical);
958 (*(clients[id].pIdiLib->DivaSTraceLibraryFinit))(clients[id].pIdiLib->hLib);
959 clients[id].pIdiLib = NULL;
960 }
961 } else {
962 diva_mnt_internal_dprintf(0, DLI_ERR, "A(%d) management init failed", (int)logical);
963 }
964 }
965
966 if (!clients[id].pIdiLib) {
967 clients[id].request = NULL;
968 clients[id].request_pending = 0;
969 clients[id].hDbg = NULL;
970 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "register");
971 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "register");
972 diva_os_free(0, pmem);
973 return;
974 }
975
976 /*
977 Log driver register, MAINT driver ID is '0'
978 */
979 len = sprintf(tmp, "DIMAINT - drv # %d = '%s' registered",
980 id, clients[id].Dbg.drvName);
981
982 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
983 (word)(len + 1 + sizeof(*pmsg))))) {
984 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
985 queueFreeMsg(dbg_queue);
986 } else {
987 break;
988 }
989 }
990
991 if (pmsg) {
992 pmsg->sequence = dbg_sequence++;
993 pmsg->time_sec = sec;
994 pmsg->time_usec = usec;
995 pmsg->facility = MSG_TYPE_STRING;
996 pmsg->dli = DLI_REG;
997 pmsg->drv_id = 0; /* id 0 - DIMAINT */
998 pmsg->di_cpu = 0;
999 pmsg->data_length = len + 1;
1000
1001 memcpy(&pmsg[1], tmp, len + 1);
1002 queueCompleteMsg(pmsg);
1003 diva_maint_wakeup_read();
1004 }
1005
1006 org_mask = clients[id].Dbg.dbgMask;
1007 clients[id].Dbg.dbgMask = 0;
1008
1009 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "register");
1010
1011 if (clients[id].request_pending) {
1012 clients[id].request_pending = 0;
1013 (*(clients[id].request))((ENTITY *)(*(clients[id].pIdiLib->DivaSTraceGetHandle))(clients[id].pIdiLib->hLib));
1014 }
1015
1016 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "register");
1017
1018 diva_set_driver_dbg_mask(id, org_mask);
1019 }
1020
1021 /*
1022 De-Register XDI adapter
1023 */
diva_mnt_remove_xdi_adapter(const DESCRIPTOR * d)1024 void diva_mnt_remove_xdi_adapter(const DESCRIPTOR *d) {
1025 diva_os_spin_lock_magic_t old_irql, old_irql1;
1026 dword sec, usec;
1027 int i;
1028 word size;
1029 byte *pmem = NULL;
1030
1031 diva_os_get_time(&sec, &usec);
1032
1033 diva_os_enter_spin_lock(&dbg_adapter_lock, &old_irql1, "read");
1034 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "read");
1035
1036 for (i = 1; i < ARRAY_SIZE(clients); i++) {
1037 if (clients[i].hDbg && (clients[i].request == d->request)) {
1038 diva_dbg_entry_head_t *pmsg;
1039 char tmp[256];
1040 int len;
1041
1042 if (clients[i].pIdiLib) {
1043 (*(clients[i].pIdiLib->DivaSTraceLibraryFinit))(clients[i].pIdiLib->hLib);
1044 clients[i].pIdiLib = NULL;
1045
1046 pmem = clients[i].pmem;
1047 clients[i].pmem = NULL;
1048 }
1049
1050 clients[i].hDbg = NULL;
1051 clients[i].request_pending = 0;
1052 if (clients[i].dma_handle >= 0) {
1053 /*
1054 Free DMA handle
1055 */
1056 diva_free_dma_descriptor(clients[i].request, clients[i].dma_handle);
1057 clients[i].dma_handle = -1;
1058 }
1059 clients[i].request = NULL;
1060
1061 /*
1062 Log driver register, MAINT driver ID is '0'
1063 */
1064 len = sprintf(tmp, "DIMAINT - drv # %d = '%s' de-registered",
1065 i, clients[i].Dbg.drvName);
1066
1067 memset(&clients[i].Dbg, 0x00, sizeof(clients[i].Dbg));
1068
1069 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
1070 (word)(len + 1 + sizeof(*pmsg))))) {
1071 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
1072 queueFreeMsg(dbg_queue);
1073 } else {
1074 break;
1075 }
1076 }
1077
1078 if (pmsg) {
1079 pmsg->sequence = dbg_sequence++;
1080 pmsg->time_sec = sec;
1081 pmsg->time_usec = usec;
1082 pmsg->facility = MSG_TYPE_STRING;
1083 pmsg->dli = DLI_REG;
1084 pmsg->drv_id = 0; /* id 0 - DIMAINT */
1085 pmsg->di_cpu = 0;
1086 pmsg->data_length = len + 1;
1087
1088 memcpy(&pmsg[1], tmp, len + 1);
1089 queueCompleteMsg(pmsg);
1090 diva_maint_wakeup_read();
1091 }
1092
1093 break;
1094 }
1095 }
1096
1097 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "read_ack");
1098 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "read_ack");
1099
1100 if (pmem) {
1101 diva_os_free(0, pmem);
1102 }
1103 }
1104
1105 /* ----------------------------------------------------------------
1106 Low level interface for management interface client
1107 ---------------------------------------------------------------- */
1108 /*
1109 Return handle to client structure
1110 */
SuperTraceOpenAdapter(int AdapterNumber)1111 void *SuperTraceOpenAdapter(int AdapterNumber) {
1112 int i;
1113
1114 for (i = 1; i < ARRAY_SIZE(clients); i++) {
1115 if (clients[i].hDbg && clients[i].request && (clients[i].logical == AdapterNumber)) {
1116 return (&clients[i]);
1117 }
1118 }
1119
1120 return NULL;
1121 }
1122
SuperTraceCloseAdapter(void * AdapterHandle)1123 int SuperTraceCloseAdapter(void *AdapterHandle) {
1124 return (0);
1125 }
1126
SuperTraceReadRequest(void * AdapterHandle,const char * name,byte * data)1127 int SuperTraceReadRequest(void *AdapterHandle, const char *name, byte *data) {
1128 diva_maint_client_t *pC = (diva_maint_client_t *)AdapterHandle;
1129
1130 if (pC && pC->pIdiLib && pC->request) {
1131 ENTITY *e = (ENTITY *)(*(pC->pIdiLib->DivaSTraceGetHandle))(pC->pIdiLib->hLib);
1132 byte *xdata = (byte *)&pC->xbuffer[0];
1133 char tmp = 0;
1134 word length;
1135
1136 if (!strcmp(name, "\\")) { /* Read ROOT */
1137 name = &tmp;
1138 }
1139 length = SuperTraceCreateReadReq(xdata, name);
1140 single_p(xdata, &length, 0); /* End Of Message */
1141
1142 e->Req = MAN_READ;
1143 e->ReqCh = 0;
1144 e->X->PLength = length;
1145 e->X->P = (byte *)xdata;
1146
1147 pC->request_pending = 1;
1148
1149 return (0);
1150 }
1151
1152 return (-1);
1153 }
1154
SuperTraceGetNumberOfChannels(void * AdapterHandle)1155 int SuperTraceGetNumberOfChannels(void *AdapterHandle) {
1156 if (AdapterHandle) {
1157 diva_maint_client_t *pC = (diva_maint_client_t *)AdapterHandle;
1158
1159 return (pC->channels);
1160 }
1161
1162 return (0);
1163 }
1164
SuperTraceASSIGN(void * AdapterHandle,byte * data)1165 int SuperTraceASSIGN(void *AdapterHandle, byte *data) {
1166 diva_maint_client_t *pC = (diva_maint_client_t *)AdapterHandle;
1167
1168 if (pC && pC->pIdiLib && pC->request) {
1169 ENTITY *e = (ENTITY *)(*(pC->pIdiLib->DivaSTraceGetHandle))(pC->pIdiLib->hLib);
1170 IDI_SYNC_REQ *preq;
1171 char buffer[((sizeof(preq->xdi_extended_features) + 4) > sizeof(ENTITY)) ? (sizeof(preq->xdi_extended_features) + 4) : sizeof(ENTITY)];
1172 char features[4];
1173 word assign_data_length = 1;
1174
1175 features[0] = 0;
1176 pC->xbuffer[0] = 0;
1177 preq = (IDI_SYNC_REQ *)&buffer[0];
1178 preq->xdi_extended_features.Req = 0;
1179 preq->xdi_extended_features.Rc = IDI_SYNC_REQ_XDI_GET_EXTENDED_FEATURES;
1180 preq->xdi_extended_features.info.buffer_length_in_bytes = sizeof(features);
1181 preq->xdi_extended_features.info.features = &features[0];
1182
1183 (*(pC->request))((ENTITY *)preq);
1184
1185 if ((features[0] & DIVA_XDI_EXTENDED_FEATURES_VALID) &&
1186 (features[0] & DIVA_XDI_EXTENDED_FEATURE_MANAGEMENT_DMA)) {
1187 dword uninitialized_var(rx_dma_magic);
1188 if ((pC->dma_handle = diva_get_dma_descriptor(pC->request, &rx_dma_magic)) >= 0) {
1189 pC->xbuffer[0] = LLI;
1190 pC->xbuffer[1] = 8;
1191 pC->xbuffer[2] = 0x40;
1192 pC->xbuffer[3] = (byte)pC->dma_handle;
1193 pC->xbuffer[4] = (byte)rx_dma_magic;
1194 pC->xbuffer[5] = (byte)(rx_dma_magic >> 8);
1195 pC->xbuffer[6] = (byte)(rx_dma_magic >> 16);
1196 pC->xbuffer[7] = (byte)(rx_dma_magic >> 24);
1197 pC->xbuffer[8] = (byte)(DIVA_MAX_MANAGEMENT_TRANSFER_SIZE & 0xFF);
1198 pC->xbuffer[9] = (byte)(DIVA_MAX_MANAGEMENT_TRANSFER_SIZE >> 8);
1199 pC->xbuffer[10] = 0;
1200
1201 assign_data_length = 11;
1202 }
1203 } else {
1204 pC->dma_handle = -1;
1205 }
1206
1207 e->Id = MAN_ID;
1208 e->callback = diva_maint_xdi_cb;
1209 e->XNum = 1;
1210 e->X = &pC->XData;
1211 e->Req = ASSIGN;
1212 e->ReqCh = 0;
1213 e->X->PLength = assign_data_length;
1214 e->X->P = (byte *)&pC->xbuffer[0];
1215
1216 pC->request_pending = 1;
1217
1218 return (0);
1219 }
1220
1221 return (-1);
1222 }
1223
SuperTraceREMOVE(void * AdapterHandle)1224 int SuperTraceREMOVE(void *AdapterHandle) {
1225 diva_maint_client_t *pC = (diva_maint_client_t *)AdapterHandle;
1226
1227 if (pC && pC->pIdiLib && pC->request) {
1228 ENTITY *e = (ENTITY *)(*(pC->pIdiLib->DivaSTraceGetHandle))(pC->pIdiLib->hLib);
1229
1230 e->XNum = 1;
1231 e->X = &pC->XData;
1232 e->Req = REMOVE;
1233 e->ReqCh = 0;
1234 e->X->PLength = 1;
1235 e->X->P = (byte *)&pC->xbuffer[0];
1236 pC->xbuffer[0] = 0;
1237
1238 pC->request_pending = 1;
1239
1240 return (0);
1241 }
1242
1243 return (-1);
1244 }
1245
SuperTraceTraceOnRequest(void * hAdapter,const char * name,byte * data)1246 int SuperTraceTraceOnRequest(void *hAdapter, const char *name, byte *data) {
1247 diva_maint_client_t *pC = (diva_maint_client_t *)hAdapter;
1248
1249 if (pC && pC->pIdiLib && pC->request) {
1250 ENTITY *e = (ENTITY *)(*(pC->pIdiLib->DivaSTraceGetHandle))(pC->pIdiLib->hLib);
1251 byte *xdata = (byte *)&pC->xbuffer[0];
1252 char tmp = 0;
1253 word length;
1254
1255 if (!strcmp(name, "\\")) { /* Read ROOT */
1256 name = &tmp;
1257 }
1258 length = SuperTraceCreateReadReq(xdata, name);
1259 single_p(xdata, &length, 0); /* End Of Message */
1260 e->Req = MAN_EVENT_ON;
1261 e->ReqCh = 0;
1262 e->X->PLength = length;
1263 e->X->P = (byte *)xdata;
1264
1265 pC->request_pending = 1;
1266
1267 return (0);
1268 }
1269
1270 return (-1);
1271 }
1272
SuperTraceWriteVar(void * AdapterHandle,byte * data,const char * name,void * var,byte type,byte var_length)1273 int SuperTraceWriteVar(void *AdapterHandle,
1274 byte *data,
1275 const char *name,
1276 void *var,
1277 byte type,
1278 byte var_length) {
1279 diva_maint_client_t *pC = (diva_maint_client_t *)AdapterHandle;
1280
1281 if (pC && pC->pIdiLib && pC->request) {
1282 ENTITY *e = (ENTITY *)(*(pC->pIdiLib->DivaSTraceGetHandle))(pC->pIdiLib->hLib);
1283 diva_man_var_header_t *pVar = (diva_man_var_header_t *)&pC->xbuffer[0];
1284 word length = SuperTraceCreateReadReq((byte *)pVar, name);
1285
1286 memcpy(&pC->xbuffer[length], var, var_length);
1287 length += var_length;
1288 pVar->length += var_length;
1289 pVar->value_length = var_length;
1290 pVar->type = type;
1291 single_p((byte *)pVar, &length, 0); /* End Of Message */
1292
1293 e->Req = MAN_WRITE;
1294 e->ReqCh = 0;
1295 e->X->PLength = length;
1296 e->X->P = (byte *)pVar;
1297
1298 pC->request_pending = 1;
1299
1300 return (0);
1301 }
1302
1303 return (-1);
1304 }
1305
SuperTraceExecuteRequest(void * AdapterHandle,const char * name,byte * data)1306 int SuperTraceExecuteRequest(void *AdapterHandle,
1307 const char *name,
1308 byte *data) {
1309 diva_maint_client_t *pC = (diva_maint_client_t *)AdapterHandle;
1310
1311 if (pC && pC->pIdiLib && pC->request) {
1312 ENTITY *e = (ENTITY *)(*(pC->pIdiLib->DivaSTraceGetHandle))(pC->pIdiLib->hLib);
1313 byte *xdata = (byte *)&pC->xbuffer[0];
1314 word length;
1315
1316 length = SuperTraceCreateReadReq(xdata, name);
1317 single_p(xdata, &length, 0); /* End Of Message */
1318
1319 e->Req = MAN_EXECUTE;
1320 e->ReqCh = 0;
1321 e->X->PLength = length;
1322 e->X->P = (byte *)xdata;
1323
1324 pC->request_pending = 1;
1325
1326 return (0);
1327 }
1328
1329 return (-1);
1330 }
1331
SuperTraceCreateReadReq(byte * P,const char * path)1332 static word SuperTraceCreateReadReq(byte *P, const char *path) {
1333 byte var_length;
1334 byte *plen;
1335
1336 var_length = (byte)strlen(path);
1337
1338 *P++ = ESC;
1339 plen = P++;
1340 *P++ = 0x80; /* MAN_IE */
1341 *P++ = 0x00; /* Type */
1342 *P++ = 0x00; /* Attribute */
1343 *P++ = 0x00; /* Status */
1344 *P++ = 0x00; /* Variable Length */
1345 *P++ = var_length;
1346 memcpy(P, path, var_length);
1347 P += var_length;
1348 *plen = var_length + 0x06;
1349
1350 return ((word)(var_length + 0x08));
1351 }
1352
single_p(byte * P,word * PLength,byte Id)1353 static void single_p(byte *P, word *PLength, byte Id) {
1354 P[(*PLength)++] = Id;
1355 }
1356
diva_maint_xdi_cb(ENTITY * e)1357 static void diva_maint_xdi_cb(ENTITY *e) {
1358 diva_strace_context_t *pLib = DIVAS_CONTAINING_RECORD(e, diva_strace_context_t, e);
1359 diva_maint_client_t *pC;
1360 diva_os_spin_lock_magic_t old_irql, old_irql1;
1361
1362
1363 diva_os_enter_spin_lock(&dbg_adapter_lock, &old_irql1, "xdi_cb");
1364 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "xdi_cb");
1365
1366 pC = (diva_maint_client_t *)pLib->hAdapter;
1367
1368 if ((e->complete == 255) || (pC->dma_handle < 0)) {
1369 if ((*(pLib->instance.DivaSTraceMessageInput))(&pLib->instance)) {
1370 diva_mnt_internal_dprintf(0, DLI_ERR, "Trace internal library error");
1371 }
1372 } else {
1373 /*
1374 Process combined management interface indication
1375 */
1376 if ((*(pLib->instance.DivaSTraceMessageInput))(&pLib->instance)) {
1377 diva_mnt_internal_dprintf(0, DLI_ERR, "Trace internal library error (DMA mode)");
1378 }
1379 }
1380
1381 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "xdi_cb");
1382
1383
1384 if (pC->request_pending) {
1385 pC->request_pending = 0;
1386 (*(pC->request))(e);
1387 }
1388
1389 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "xdi_cb");
1390 }
1391
1392
diva_maint_error(void * user_context,diva_strace_library_interface_t * hLib,int Adapter,int error,const char * file,int line)1393 static void diva_maint_error(void *user_context,
1394 diva_strace_library_interface_t *hLib,
1395 int Adapter,
1396 int error,
1397 const char *file,
1398 int line) {
1399 diva_mnt_internal_dprintf(0, DLI_ERR,
1400 "Trace library error(%d) A(%d) %s %d", error, Adapter, file, line);
1401 }
1402
print_ie(diva_trace_ie_t * ie,char * buffer,int length)1403 static void print_ie(diva_trace_ie_t *ie, char *buffer, int length) {
1404 int i;
1405
1406 buffer[0] = 0;
1407
1408 if (length > 32) {
1409 for (i = 0; ((i < ie->length) && (length > 3)); i++) {
1410 sprintf(buffer, "%02x", ie->data[i]);
1411 buffer += 2;
1412 length -= 2;
1413 if (i < (ie->length - 1)) {
1414 strcpy(buffer, " ");
1415 buffer++;
1416 length--;
1417 }
1418 }
1419 }
1420 }
1421
diva_maint_state_change_notify(void * user_context,diva_strace_library_interface_t * hLib,int Adapter,diva_trace_line_state_t * channel,int notify_subject)1422 static void diva_maint_state_change_notify(void *user_context,
1423 diva_strace_library_interface_t *hLib,
1424 int Adapter,
1425 diva_trace_line_state_t *channel,
1426 int notify_subject) {
1427 diva_maint_client_t *pC = (diva_maint_client_t *)user_context;
1428 diva_trace_fax_state_t *fax = &channel->fax;
1429 diva_trace_modem_state_t *modem = &channel->modem;
1430 char tmp[256];
1431
1432 if (!pC->hDbg) {
1433 return;
1434 }
1435
1436 switch (notify_subject) {
1437 case DIVA_SUPER_TRACE_NOTIFY_LINE_CHANGE: {
1438 int view = (TraceFilter[0] == 0);
1439 /*
1440 Process selective Trace
1441 */
1442 if (channel->Line[0] == 'I' && channel->Line[1] == 'd' &&
1443 channel->Line[2] == 'l' && channel->Line[3] == 'e') {
1444 if ((TraceFilterIdent == pC->hDbg->id) && (TraceFilterChannel == (int)channel->ChannelNumber)) {
1445 (*(hLib->DivaSTraceSetBChannel))(hLib, (int)channel->ChannelNumber, 0);
1446 (*(hLib->DivaSTraceSetAudioTap))(hLib, (int)channel->ChannelNumber, 0);
1447 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG, "Selective Trace OFF for Ch=%d",
1448 (int)channel->ChannelNumber);
1449 TraceFilterIdent = -1;
1450 TraceFilterChannel = -1;
1451 view = 1;
1452 }
1453 } else if (TraceFilter[0] && (TraceFilterIdent < 0) && !(diva_mnt_cmp_nmbr(&channel->RemoteAddress[0]) &&
1454 diva_mnt_cmp_nmbr(&channel->LocalAddress[0]))) {
1455
1456 if ((pC->hDbg->dbgMask & DIVA_MGT_DBG_IFC_BCHANNEL) != 0) { /* Activate B-channel trace */
1457 (*(hLib->DivaSTraceSetBChannel))(hLib, (int)channel->ChannelNumber, 1);
1458 }
1459 if ((pC->hDbg->dbgMask & DIVA_MGT_DBG_IFC_AUDIO) != 0) { /* Activate AudioTap Trace */
1460 (*(hLib->DivaSTraceSetAudioTap))(hLib, (int)channel->ChannelNumber, 1);
1461 }
1462
1463 TraceFilterIdent = pC->hDbg->id;
1464 TraceFilterChannel = (int)channel->ChannelNumber;
1465
1466 if (TraceFilterIdent >= 0) {
1467 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG, "Selective Trace ON for Ch=%d",
1468 (int)channel->ChannelNumber);
1469 view = 1;
1470 }
1471 }
1472 if (view && (pC->hDbg->dbgMask & DIVA_MGT_DBG_LINE_EVENTS)) {
1473 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L Ch = %d",
1474 (int)channel->ChannelNumber);
1475 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L Status = <%s>", &channel->Line[0]);
1476 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L Layer1 = <%s>", &channel->Framing[0]);
1477 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L Layer2 = <%s>", &channel->Layer2[0]);
1478 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L Layer3 = <%s>", &channel->Layer3[0]);
1479 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L RAddr = <%s>",
1480 &channel->RemoteAddress[0]);
1481 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L RSAddr = <%s>",
1482 &channel->RemoteSubAddress[0]);
1483 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L LAddr = <%s>",
1484 &channel->LocalAddress[0]);
1485 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L LSAddr = <%s>",
1486 &channel->LocalSubAddress[0]);
1487 print_ie(&channel->call_BC, tmp, sizeof(tmp));
1488 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L BC = <%s>", tmp);
1489 print_ie(&channel->call_HLC, tmp, sizeof(tmp));
1490 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L HLC = <%s>", tmp);
1491 print_ie(&channel->call_LLC, tmp, sizeof(tmp));
1492 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L LLC = <%s>", tmp);
1493 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L CR = 0x%x", channel->CallReference);
1494 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L Disc = 0x%x",
1495 channel->LastDisconnecCause);
1496 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "L Owner = <%s>", &channel->UserID[0]);
1497 }
1498
1499 } break;
1500
1501 case DIVA_SUPER_TRACE_NOTIFY_MODEM_CHANGE:
1502 if (pC->hDbg->dbgMask & DIVA_MGT_DBG_MDM_PROGRESS) {
1503 {
1504 int ch = TraceFilterChannel;
1505 int id = TraceFilterIdent;
1506
1507 if ((id >= 0) && (ch >= 0) && (id < ARRAY_SIZE(clients)) &&
1508 (clients[id].Dbg.id == (byte)id) && (clients[id].pIdiLib == hLib)) {
1509 if (ch != (int)modem->ChannelNumber) {
1510 break;
1511 }
1512 } else if (TraceFilter[0] != 0) {
1513 break;
1514 }
1515 }
1516
1517
1518 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Ch = %lu",
1519 (int)modem->ChannelNumber);
1520 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Event = %lu", modem->Event);
1521 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Norm = %lu", modem->Norm);
1522 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Opts. = 0x%08x", modem->Options);
1523 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Tx = %lu Bps", modem->TxSpeed);
1524 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Rx = %lu Bps", modem->RxSpeed);
1525 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM RT = %lu mSec",
1526 modem->RoundtripMsec);
1527 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Sr = %lu", modem->SymbolRate);
1528 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Rxl = %d dBm", modem->RxLeveldBm);
1529 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM El = %d dBm", modem->EchoLeveldBm);
1530 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM SNR = %lu dB", modem->SNRdb);
1531 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM MAE = %lu", modem->MAE);
1532 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM LRet = %lu",
1533 modem->LocalRetrains);
1534 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM RRet = %lu",
1535 modem->RemoteRetrains);
1536 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM LRes = %lu", modem->LocalResyncs);
1537 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM RRes = %lu",
1538 modem->RemoteResyncs);
1539 if (modem->Event == 3) {
1540 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "MDM Disc = %lu", modem->DiscReason);
1541 }
1542 }
1543 if ((modem->Event == 3) && (pC->hDbg->dbgMask & DIVA_MGT_DBG_MDM_STATISTICS)) {
1544 (*(pC->pIdiLib->DivaSTraceGetModemStatistics))(pC->pIdiLib);
1545 }
1546 break;
1547
1548 case DIVA_SUPER_TRACE_NOTIFY_FAX_CHANGE:
1549 if (pC->hDbg->dbgMask & DIVA_MGT_DBG_FAX_PROGRESS) {
1550 {
1551 int ch = TraceFilterChannel;
1552 int id = TraceFilterIdent;
1553
1554 if ((id >= 0) && (ch >= 0) && (id < ARRAY_SIZE(clients)) &&
1555 (clients[id].Dbg.id == (byte)id) && (clients[id].pIdiLib == hLib)) {
1556 if (ch != (int)fax->ChannelNumber) {
1557 break;
1558 }
1559 } else if (TraceFilter[0] != 0) {
1560 break;
1561 }
1562 }
1563
1564 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Ch = %lu", (int)fax->ChannelNumber);
1565 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Event = %lu", fax->Event);
1566 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Pages = %lu", fax->Page_Counter);
1567 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Feat. = 0x%08x", fax->Features);
1568 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX ID = <%s>", &fax->Station_ID[0]);
1569 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Saddr = <%s>", &fax->Subaddress[0]);
1570 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Pwd = <%s>", &fax->Password[0]);
1571 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Speed = %lu", fax->Speed);
1572 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Res. = 0x%08x", fax->Resolution);
1573 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Width = %lu", fax->Paper_Width);
1574 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Length= %lu", fax->Paper_Length);
1575 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX SLT = %lu", fax->Scanline_Time);
1576 if (fax->Event == 3) {
1577 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT, "FAX Disc = %lu", fax->Disc_Reason);
1578 }
1579 }
1580 if ((fax->Event == 3) && (pC->hDbg->dbgMask & DIVA_MGT_DBG_FAX_STATISTICS)) {
1581 (*(pC->pIdiLib->DivaSTraceGetFaxStatistics))(pC->pIdiLib);
1582 }
1583 break;
1584
1585 case DIVA_SUPER_TRACE_INTERFACE_CHANGE:
1586 if (pC->hDbg->dbgMask & DIVA_MGT_DBG_IFC_EVENTS) {
1587 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT,
1588 "Layer 1 -> [%s]", channel->pInterface->Layer1);
1589 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_STAT,
1590 "Layer 2 -> [%s]", channel->pInterface->Layer2);
1591 }
1592 break;
1593
1594 case DIVA_SUPER_TRACE_NOTIFY_STAT_CHANGE:
1595 if (pC->hDbg->dbgMask & DIVA_MGT_DBG_IFC_STATISTICS) {
1596 /*
1597 Incoming Statistics
1598 */
1599 if (channel->pInterfaceStat->inc.Calls) {
1600 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1601 "Inc Calls =%lu", channel->pInterfaceStat->inc.Calls);
1602 }
1603 if (channel->pInterfaceStat->inc.Connected) {
1604 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1605 "Inc Connected =%lu", channel->pInterfaceStat->inc.Connected);
1606 }
1607 if (channel->pInterfaceStat->inc.User_Busy) {
1608 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1609 "Inc Busy =%lu", channel->pInterfaceStat->inc.User_Busy);
1610 }
1611 if (channel->pInterfaceStat->inc.Call_Rejected) {
1612 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1613 "Inc Rejected =%lu", channel->pInterfaceStat->inc.Call_Rejected);
1614 }
1615 if (channel->pInterfaceStat->inc.Wrong_Number) {
1616 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1617 "Inc Wrong Nr =%lu", channel->pInterfaceStat->inc.Wrong_Number);
1618 }
1619 if (channel->pInterfaceStat->inc.Incompatible_Dst) {
1620 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1621 "Inc Incomp. Dest =%lu", channel->pInterfaceStat->inc.Incompatible_Dst);
1622 }
1623 if (channel->pInterfaceStat->inc.Out_of_Order) {
1624 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1625 "Inc Out of Order =%lu", channel->pInterfaceStat->inc.Out_of_Order);
1626 }
1627 if (channel->pInterfaceStat->inc.Ignored) {
1628 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1629 "Inc Ignored =%lu", channel->pInterfaceStat->inc.Ignored);
1630 }
1631
1632 /*
1633 Outgoing Statistics
1634 */
1635 if (channel->pInterfaceStat->outg.Calls) {
1636 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1637 "Outg Calls =%lu", channel->pInterfaceStat->outg.Calls);
1638 }
1639 if (channel->pInterfaceStat->outg.Connected) {
1640 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1641 "Outg Connected =%lu", channel->pInterfaceStat->outg.Connected);
1642 }
1643 if (channel->pInterfaceStat->outg.User_Busy) {
1644 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1645 "Outg Busy =%lu", channel->pInterfaceStat->outg.User_Busy);
1646 }
1647 if (channel->pInterfaceStat->outg.No_Answer) {
1648 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1649 "Outg No Answer =%lu", channel->pInterfaceStat->outg.No_Answer);
1650 }
1651 if (channel->pInterfaceStat->outg.Wrong_Number) {
1652 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1653 "Outg Wrong Nr =%lu", channel->pInterfaceStat->outg.Wrong_Number);
1654 }
1655 if (channel->pInterfaceStat->outg.Call_Rejected) {
1656 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1657 "Outg Rejected =%lu", channel->pInterfaceStat->outg.Call_Rejected);
1658 }
1659 if (channel->pInterfaceStat->outg.Other_Failures) {
1660 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1661 "Outg Other Failures =%lu", channel->pInterfaceStat->outg.Other_Failures);
1662 }
1663 }
1664 break;
1665
1666 case DIVA_SUPER_TRACE_NOTIFY_MDM_STAT_CHANGE:
1667 if (channel->pInterfaceStat->mdm.Disc_Normal) {
1668 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1669 "MDM Disc Normal = %lu", channel->pInterfaceStat->mdm.Disc_Normal);
1670 }
1671 if (channel->pInterfaceStat->mdm.Disc_Unspecified) {
1672 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1673 "MDM Disc Unsp. = %lu", channel->pInterfaceStat->mdm.Disc_Unspecified);
1674 }
1675 if (channel->pInterfaceStat->mdm.Disc_Busy_Tone) {
1676 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1677 "MDM Disc Busy Tone = %lu", channel->pInterfaceStat->mdm.Disc_Busy_Tone);
1678 }
1679 if (channel->pInterfaceStat->mdm.Disc_Congestion) {
1680 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1681 "MDM Disc Congestion = %lu", channel->pInterfaceStat->mdm.Disc_Congestion);
1682 }
1683 if (channel->pInterfaceStat->mdm.Disc_Carr_Wait) {
1684 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1685 "MDM Disc Carrier Wait = %lu", channel->pInterfaceStat->mdm.Disc_Carr_Wait);
1686 }
1687 if (channel->pInterfaceStat->mdm.Disc_Trn_Timeout) {
1688 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1689 "MDM Disc Trn. T.o. = %lu", channel->pInterfaceStat->mdm.Disc_Trn_Timeout);
1690 }
1691 if (channel->pInterfaceStat->mdm.Disc_Incompat) {
1692 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1693 "MDM Disc Incompatible = %lu", channel->pInterfaceStat->mdm.Disc_Incompat);
1694 }
1695 if (channel->pInterfaceStat->mdm.Disc_Frame_Rej) {
1696 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1697 "MDM Disc Frame Reject = %lu", channel->pInterfaceStat->mdm.Disc_Frame_Rej);
1698 }
1699 if (channel->pInterfaceStat->mdm.Disc_V42bis) {
1700 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1701 "MDM Disc V.42bis = %lu", channel->pInterfaceStat->mdm.Disc_V42bis);
1702 }
1703 break;
1704
1705 case DIVA_SUPER_TRACE_NOTIFY_FAX_STAT_CHANGE:
1706 if (channel->pInterfaceStat->fax.Disc_Normal) {
1707 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1708 "FAX Disc Normal = %lu", channel->pInterfaceStat->fax.Disc_Normal);
1709 }
1710 if (channel->pInterfaceStat->fax.Disc_Not_Ident) {
1711 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1712 "FAX Disc Not Ident. = %lu", channel->pInterfaceStat->fax.Disc_Not_Ident);
1713 }
1714 if (channel->pInterfaceStat->fax.Disc_No_Response) {
1715 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1716 "FAX Disc No Response = %lu", channel->pInterfaceStat->fax.Disc_No_Response);
1717 }
1718 if (channel->pInterfaceStat->fax.Disc_Retries) {
1719 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1720 "FAX Disc Max Retries = %lu", channel->pInterfaceStat->fax.Disc_Retries);
1721 }
1722 if (channel->pInterfaceStat->fax.Disc_Unexp_Msg) {
1723 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1724 "FAX Unexp. Msg. = %lu", channel->pInterfaceStat->fax.Disc_Unexp_Msg);
1725 }
1726 if (channel->pInterfaceStat->fax.Disc_No_Polling) {
1727 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1728 "FAX Disc No Polling = %lu", channel->pInterfaceStat->fax.Disc_No_Polling);
1729 }
1730 if (channel->pInterfaceStat->fax.Disc_Training) {
1731 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1732 "FAX Disc Training = %lu", channel->pInterfaceStat->fax.Disc_Training);
1733 }
1734 if (channel->pInterfaceStat->fax.Disc_Unexpected) {
1735 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1736 "FAX Disc Unexpected = %lu", channel->pInterfaceStat->fax.Disc_Unexpected);
1737 }
1738 if (channel->pInterfaceStat->fax.Disc_Application) {
1739 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1740 "FAX Disc Application = %lu", channel->pInterfaceStat->fax.Disc_Application);
1741 }
1742 if (channel->pInterfaceStat->fax.Disc_Incompat) {
1743 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1744 "FAX Disc Incompatible = %lu", channel->pInterfaceStat->fax.Disc_Incompat);
1745 }
1746 if (channel->pInterfaceStat->fax.Disc_No_Command) {
1747 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1748 "FAX Disc No Command = %lu", channel->pInterfaceStat->fax.Disc_No_Command);
1749 }
1750 if (channel->pInterfaceStat->fax.Disc_Long_Msg) {
1751 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1752 "FAX Disc Long Msg. = %lu", channel->pInterfaceStat->fax.Disc_Long_Msg);
1753 }
1754 if (channel->pInterfaceStat->fax.Disc_Supervisor) {
1755 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1756 "FAX Disc Supervisor = %lu", channel->pInterfaceStat->fax.Disc_Supervisor);
1757 }
1758 if (channel->pInterfaceStat->fax.Disc_SUB_SEP_PWD) {
1759 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1760 "FAX Disc SUP SEP PWD = %lu", channel->pInterfaceStat->fax.Disc_SUB_SEP_PWD);
1761 }
1762 if (channel->pInterfaceStat->fax.Disc_Invalid_Msg) {
1763 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1764 "FAX Disc Invalid Msg. = %lu", channel->pInterfaceStat->fax.Disc_Invalid_Msg);
1765 }
1766 if (channel->pInterfaceStat->fax.Disc_Page_Coding) {
1767 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1768 "FAX Disc Page Coding = %lu", channel->pInterfaceStat->fax.Disc_Page_Coding);
1769 }
1770 if (channel->pInterfaceStat->fax.Disc_App_Timeout) {
1771 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1772 "FAX Disc Appl. T.o. = %lu", channel->pInterfaceStat->fax.Disc_App_Timeout);
1773 }
1774 if (channel->pInterfaceStat->fax.Disc_Unspecified) {
1775 diva_mnt_internal_dprintf(pC->hDbg->id, DLI_LOG,
1776 "FAX Disc Unspec. = %lu", channel->pInterfaceStat->fax.Disc_Unspecified);
1777 }
1778 break;
1779 }
1780 }
1781
1782 /*
1783 Receive trace information from the Management Interface and store it in the
1784 internal trace buffer with MSG_TYPE_MLOG as is, without any filtering.
1785 Event Filtering and formatting is done in Management Interface self.
1786 */
diva_maint_trace_notify(void * user_context,diva_strace_library_interface_t * hLib,int Adapter,void * xlog_buffer,int length)1787 static void diva_maint_trace_notify(void *user_context,
1788 diva_strace_library_interface_t *hLib,
1789 int Adapter,
1790 void *xlog_buffer,
1791 int length) {
1792 diva_maint_client_t *pC = (diva_maint_client_t *)user_context;
1793 diva_dbg_entry_head_t *pmsg;
1794 word size;
1795 dword sec, usec;
1796 int ch = TraceFilterChannel;
1797 int id = TraceFilterIdent;
1798
1799 /*
1800 Selective trace
1801 */
1802 if ((id >= 0) && (ch >= 0) && (id < ARRAY_SIZE(clients)) &&
1803 (clients[id].Dbg.id == (byte)id) && (clients[id].pIdiLib == hLib)) {
1804 const char *p = NULL;
1805 int ch_value = -1;
1806 MI_XLOG_HDR *TrcData = (MI_XLOG_HDR *)xlog_buffer;
1807
1808 if (Adapter != clients[id].logical) {
1809 return; /* Ignore all trace messages from other adapters */
1810 }
1811
1812 if (TrcData->code == 24) {
1813 p = (char *)&TrcData->code;
1814 p += 2;
1815 }
1816
1817 /*
1818 All L1 messages start as [dsp,ch], so we can filter this information
1819 and filter out all messages that use different channel
1820 */
1821 if (p && p[0] == '[') {
1822 if (p[2] == ',') {
1823 p += 3;
1824 ch_value = *p - '0';
1825 } else if (p[3] == ',') {
1826 p += 4;
1827 ch_value = *p - '0';
1828 }
1829 if (ch_value >= 0) {
1830 if (p[2] == ']') {
1831 ch_value = ch_value * 10 + p[1] - '0';
1832 }
1833 if (ch_value != ch) {
1834 return; /* Ignore other channels */
1835 }
1836 }
1837 }
1838
1839 } else if (TraceFilter[0] != 0) {
1840 return; /* Ignore trace if trace filter is activated, but idle */
1841 }
1842
1843 diva_os_get_time(&sec, &usec);
1844
1845 while (!(pmsg = (diva_dbg_entry_head_t *)queueAllocMsg(dbg_queue,
1846 (word)length + sizeof(*pmsg)))) {
1847 if ((pmsg = (diva_dbg_entry_head_t *)queuePeekMsg(dbg_queue, &size))) {
1848 queueFreeMsg(dbg_queue);
1849 } else {
1850 break;
1851 }
1852 }
1853 if (pmsg) {
1854 memcpy(&pmsg[1], xlog_buffer, length);
1855 pmsg->sequence = dbg_sequence++;
1856 pmsg->time_sec = sec;
1857 pmsg->time_usec = usec;
1858 pmsg->facility = MSG_TYPE_MLOG;
1859 pmsg->dli = pC->logical;
1860 pmsg->drv_id = pC->hDbg->id;
1861 pmsg->di_cpu = 0;
1862 pmsg->data_length = length;
1863 queueCompleteMsg(pmsg);
1864 if (queueCount(dbg_queue)) {
1865 diva_maint_wakeup_read();
1866 }
1867 }
1868 }
1869
1870
1871 /*
1872 Convert MAINT trace mask to management interface trace mask/work/facility and
1873 issue command to management interface
1874 */
diva_change_management_debug_mask(diva_maint_client_t * pC,dword old_mask)1875 static void diva_change_management_debug_mask(diva_maint_client_t *pC, dword old_mask) {
1876 if (pC->request && pC->hDbg && pC->pIdiLib) {
1877 dword changed = pC->hDbg->dbgMask ^ old_mask;
1878
1879 if (changed & DIVA_MGT_DBG_TRACE) {
1880 (*(pC->pIdiLib->DivaSTraceSetInfo))(pC->pIdiLib,
1881 (pC->hDbg->dbgMask & DIVA_MGT_DBG_TRACE) != 0);
1882 }
1883 if (changed & DIVA_MGT_DBG_DCHAN) {
1884 (*(pC->pIdiLib->DivaSTraceSetDChannel))(pC->pIdiLib,
1885 (pC->hDbg->dbgMask & DIVA_MGT_DBG_DCHAN) != 0);
1886 }
1887 if (!TraceFilter[0]) {
1888 if (changed & DIVA_MGT_DBG_IFC_BCHANNEL) {
1889 int i, state = ((pC->hDbg->dbgMask & DIVA_MGT_DBG_IFC_BCHANNEL) != 0);
1890
1891 for (i = 0; i < pC->channels; i++) {
1892 (*(pC->pIdiLib->DivaSTraceSetBChannel))(pC->pIdiLib, i + 1, state);
1893 }
1894 }
1895 if (changed & DIVA_MGT_DBG_IFC_AUDIO) {
1896 int i, state = ((pC->hDbg->dbgMask & DIVA_MGT_DBG_IFC_AUDIO) != 0);
1897
1898 for (i = 0; i < pC->channels; i++) {
1899 (*(pC->pIdiLib->DivaSTraceSetAudioTap))(pC->pIdiLib, i + 1, state);
1900 }
1901 }
1902 }
1903 }
1904 }
1905
1906
diva_mnt_internal_dprintf(dword drv_id,dword type,char * fmt,...)1907 void diva_mnt_internal_dprintf(dword drv_id, dword type, char *fmt, ...) {
1908 va_list ap;
1909
1910 va_start(ap, fmt);
1911 DI_format(0, (word)drv_id, (int)type, fmt, ap);
1912 va_end(ap);
1913 }
1914
1915 /*
1916 Shutdown all adapters before driver removal
1917 */
diva_mnt_shutdown_xdi_adapters(void)1918 int diva_mnt_shutdown_xdi_adapters(void) {
1919 diva_os_spin_lock_magic_t old_irql, old_irql1;
1920 int i, fret = 0;
1921 byte *pmem;
1922
1923
1924 for (i = 1; i < ARRAY_SIZE(clients); i++) {
1925 pmem = NULL;
1926
1927 diva_os_enter_spin_lock(&dbg_adapter_lock, &old_irql1, "unload");
1928 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "unload");
1929
1930 if (clients[i].hDbg && clients[i].pIdiLib && clients[i].request) {
1931 if ((*(clients[i].pIdiLib->DivaSTraceLibraryStop))(clients[i].pIdiLib) == 1) {
1932 /*
1933 Adapter removal complete
1934 */
1935 if (clients[i].pIdiLib) {
1936 (*(clients[i].pIdiLib->DivaSTraceLibraryFinit))(clients[i].pIdiLib->hLib);
1937 clients[i].pIdiLib = NULL;
1938
1939 pmem = clients[i].pmem;
1940 clients[i].pmem = NULL;
1941 }
1942 clients[i].hDbg = NULL;
1943 clients[i].request_pending = 0;
1944
1945 if (clients[i].dma_handle >= 0) {
1946 /*
1947 Free DMA handle
1948 */
1949 diva_free_dma_descriptor(clients[i].request, clients[i].dma_handle);
1950 clients[i].dma_handle = -1;
1951 }
1952 clients[i].request = NULL;
1953 } else {
1954 fret = -1;
1955 }
1956 }
1957
1958 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "unload");
1959 if (clients[i].hDbg && clients[i].pIdiLib && clients[i].request && clients[i].request_pending) {
1960 clients[i].request_pending = 0;
1961 (*(clients[i].request))((ENTITY *)(*(clients[i].pIdiLib->DivaSTraceGetHandle))(clients[i].pIdiLib->hLib));
1962 if (clients[i].dma_handle >= 0) {
1963 diva_free_dma_descriptor(clients[i].request, clients[i].dma_handle);
1964 clients[i].dma_handle = -1;
1965 }
1966 }
1967 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "unload");
1968
1969 if (pmem) {
1970 diva_os_free(0, pmem);
1971 }
1972 }
1973
1974 return (fret);
1975 }
1976
1977 /*
1978 Set/Read the trace filter used for selective tracing.
1979 Affects B- and Audio Tap trace mask at run time
1980 */
diva_set_trace_filter(int filter_length,const char * filter)1981 int diva_set_trace_filter(int filter_length, const char *filter) {
1982 diva_os_spin_lock_magic_t old_irql, old_irql1;
1983 int i, ch, on, client_b_on, client_atap_on;
1984
1985 diva_os_enter_spin_lock(&dbg_adapter_lock, &old_irql1, "dbg mask");
1986 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "write_filter");
1987
1988 if (filter_length <= DIVA_MAX_SELECTIVE_FILTER_LENGTH) {
1989 memcpy(&TraceFilter[0], filter, filter_length);
1990 if (TraceFilter[filter_length]) {
1991 TraceFilter[filter_length] = 0;
1992 }
1993 if (TraceFilter[0] == '*') {
1994 TraceFilter[0] = 0;
1995 }
1996 } else {
1997 filter_length = -1;
1998 }
1999
2000 TraceFilterIdent = -1;
2001 TraceFilterChannel = -1;
2002
2003 on = (TraceFilter[0] == 0);
2004
2005 for (i = 1; i < ARRAY_SIZE(clients); i++) {
2006 if (clients[i].hDbg && clients[i].pIdiLib && clients[i].request) {
2007 client_b_on = on && ((clients[i].hDbg->dbgMask & DIVA_MGT_DBG_IFC_BCHANNEL) != 0);
2008 client_atap_on = on && ((clients[i].hDbg->dbgMask & DIVA_MGT_DBG_IFC_AUDIO) != 0);
2009 for (ch = 0; ch < clients[i].channels; ch++) {
2010 (*(clients[i].pIdiLib->DivaSTraceSetBChannel))(clients[i].pIdiLib->hLib, ch + 1, client_b_on);
2011 (*(clients[i].pIdiLib->DivaSTraceSetAudioTap))(clients[i].pIdiLib->hLib, ch + 1, client_atap_on);
2012 }
2013 }
2014 }
2015
2016 for (i = 1; i < ARRAY_SIZE(clients); i++) {
2017 if (clients[i].hDbg && clients[i].pIdiLib && clients[i].request && clients[i].request_pending) {
2018 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "write_filter");
2019 clients[i].request_pending = 0;
2020 (*(clients[i].request))((ENTITY *)(*(clients[i].pIdiLib->DivaSTraceGetHandle))(clients[i].pIdiLib->hLib));
2021 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "write_filter");
2022 }
2023 }
2024
2025 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "write_filter");
2026 diva_os_leave_spin_lock(&dbg_adapter_lock, &old_irql1, "dbg mask");
2027
2028 return (filter_length);
2029 }
2030
diva_get_trace_filter(int max_length,char * filter)2031 int diva_get_trace_filter(int max_length, char *filter) {
2032 diva_os_spin_lock_magic_t old_irql;
2033 int len;
2034
2035 diva_os_enter_spin_lock(&dbg_q_lock, &old_irql, "read_filter");
2036 len = strlen(&TraceFilter[0]) + 1;
2037 if (max_length >= len) {
2038 memcpy(filter, &TraceFilter[0], len);
2039 }
2040 diva_os_leave_spin_lock(&dbg_q_lock, &old_irql, "read_filter");
2041
2042 return (len);
2043 }
2044
diva_dbg_cmp_key(const char * ref,const char * key)2045 static int diva_dbg_cmp_key(const char *ref, const char *key) {
2046 while (*key && (*ref++ == *key++));
2047 return (!*key && !*ref);
2048 }
2049
2050 /*
2051 In case trace filter starts with "C" character then
2052 all following characters are interpreted as command.
2053 Following commands are available:
2054 - single, trace single call at time, independent from CPN/CiPN
2055 */
diva_mnt_cmp_nmbr(const char * nmbr)2056 static int diva_mnt_cmp_nmbr(const char *nmbr) {
2057 const char *ref = &TraceFilter[0];
2058 int ref_len = strlen(&TraceFilter[0]), nmbr_len = strlen(nmbr);
2059
2060 if (ref[0] == 'C') {
2061 if (diva_dbg_cmp_key(&ref[1], "single")) {
2062 return (0);
2063 }
2064 return (-1);
2065 }
2066
2067 if (!ref_len || (ref_len > nmbr_len)) {
2068 return (-1);
2069 }
2070
2071 nmbr = nmbr + nmbr_len - 1;
2072 ref = ref + ref_len - 1;
2073
2074 while (ref_len--) {
2075 if (*nmbr-- != *ref--) {
2076 return (-1);
2077 }
2078 }
2079
2080 return (0);
2081 }
2082
diva_get_dma_descriptor(IDI_CALL request,dword * dma_magic)2083 static int diva_get_dma_descriptor(IDI_CALL request, dword *dma_magic) {
2084 ENTITY e;
2085 IDI_SYNC_REQ *pReq = (IDI_SYNC_REQ *)&e;
2086
2087 if (!request) {
2088 return (-1);
2089 }
2090
2091 pReq->xdi_dma_descriptor_operation.Req = 0;
2092 pReq->xdi_dma_descriptor_operation.Rc = IDI_SYNC_REQ_DMA_DESCRIPTOR_OPERATION;
2093
2094 pReq->xdi_dma_descriptor_operation.info.operation = IDI_SYNC_REQ_DMA_DESCRIPTOR_ALLOC;
2095 pReq->xdi_dma_descriptor_operation.info.descriptor_number = -1;
2096 pReq->xdi_dma_descriptor_operation.info.descriptor_address = NULL;
2097 pReq->xdi_dma_descriptor_operation.info.descriptor_magic = 0;
2098
2099 (*request)((ENTITY *)pReq);
2100
2101 if (!pReq->xdi_dma_descriptor_operation.info.operation &&
2102 (pReq->xdi_dma_descriptor_operation.info.descriptor_number >= 0) &&
2103 pReq->xdi_dma_descriptor_operation.info.descriptor_magic) {
2104 *dma_magic = pReq->xdi_dma_descriptor_operation.info.descriptor_magic;
2105 return (pReq->xdi_dma_descriptor_operation.info.descriptor_number);
2106 } else {
2107 return (-1);
2108 }
2109 }
2110
diva_free_dma_descriptor(IDI_CALL request,int nr)2111 static void diva_free_dma_descriptor(IDI_CALL request, int nr) {
2112 ENTITY e;
2113 IDI_SYNC_REQ *pReq = (IDI_SYNC_REQ *)&e;
2114
2115 if (!request || (nr < 0)) {
2116 return;
2117 }
2118
2119 pReq->xdi_dma_descriptor_operation.Req = 0;
2120 pReq->xdi_dma_descriptor_operation.Rc = IDI_SYNC_REQ_DMA_DESCRIPTOR_OPERATION;
2121
2122 pReq->xdi_dma_descriptor_operation.info.operation = IDI_SYNC_REQ_DMA_DESCRIPTOR_FREE;
2123 pReq->xdi_dma_descriptor_operation.info.descriptor_number = nr;
2124 pReq->xdi_dma_descriptor_operation.info.descriptor_address = NULL;
2125 pReq->xdi_dma_descriptor_operation.info.descriptor_magic = 0;
2126
2127 (*request)((ENTITY *)pReq);
2128 }
2129