obio.c revision 1.50 1 /* $NetBSD: obio.c,v 1.50 2021/08/07 16:18:57 thorpej Exp $ */
2
3 /*-
4 * Copyright (C) 1998 Internet Research Institute, Inc.
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 * must display the following acknowledgement:
17 * This product includes software developed by
18 * Internet Research Institute, Inc.
19 * 4. The name of the author may not be used to endorse or promote products
20 * derived from this software without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
23 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
24 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
25 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
26 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
27 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
28 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
29 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
31 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 */
33
34 #include <sys/cdefs.h>
35 __KERNEL_RCSID(0, "$NetBSD: obio.c,v 1.50 2021/08/07 16:18:57 thorpej Exp $");
36
37 #include <sys/param.h>
38 #include <sys/systm.h>
39 #include <sys/kernel.h>
40 #include <sys/device.h>
41 #include <sys/sysctl.h>
42
43 #include <dev/pci/pcivar.h>
44 #include <dev/pci/pcidevs.h>
45
46 #include <dev/ofw/openfirm.h>
47
48 #include <machine/autoconf.h>
49
50 #include <macppc/dev/obiovar.h>
51
52 #include <powerpc/cpu.h>
53 #include <sys/cpufreq.h>
54
55 #include "opt_obio.h"
56
57 #ifdef OBIO_DEBUG
58 # define DPRINTF printf
59 #else
60 # define DPRINTF while (0) printf
61 #endif
62
63 static void obio_attach(device_t, device_t, void *);
64 static int obio_match(device_t, cfdata_t, void *);
65 static int obio_print(void *, const char *);
66
67 struct obio_softc {
68 device_t sc_dev;
69 bus_space_tag_t sc_tag;
70 bus_space_handle_t sc_bh;
71 int sc_node;
72 #ifdef OBIO_SPEED_CONTROL
73 int sc_voltage;
74 int sc_busspeed;
75 int sc_spd_hi, sc_spd_lo;
76 struct cpufreq sc_cf;
77 #endif
78 };
79
80 static struct obio_softc *obio0 = NULL;
81
82 #ifdef OBIO_SPEED_CONTROL
83 static void obio_setup_gpios(struct obio_softc *, int);
84 static void obio_set_cpu_speed(struct obio_softc *, int);
85 static int obio_get_cpu_speed(struct obio_softc *);
86 static int sysctl_cpuspeed_temp(SYSCTLFN_ARGS);
87 static int sysctl_cpuspeed_cur(SYSCTLFN_ARGS);
88 static int sysctl_cpuspeed_available(SYSCTLFN_ARGS);
89 static void obio_get_freq(void *, void *);
90 static void obio_set_freq(void *, void *);
91 static const char *keylargo[] = {"Keylargo",
92 "AAPL,Keylargo",
93 NULL};
94
95 #endif
96
97 CFATTACH_DECL_NEW(obio, sizeof(struct obio_softc),
98 obio_match, obio_attach, NULL, NULL);
99
100 int
101 obio_match(device_t parent, cfdata_t cf, void *aux)
102 {
103 struct pci_attach_args *pa = aux;
104
105 if (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_APPLE)
106 switch (PCI_PRODUCT(pa->pa_id)) {
107 case PCI_PRODUCT_APPLE_GC:
108 case PCI_PRODUCT_APPLE_OHARE:
109 case PCI_PRODUCT_APPLE_HEATHROW:
110 case PCI_PRODUCT_APPLE_PADDINGTON:
111 case PCI_PRODUCT_APPLE_KEYLARGO:
112 case PCI_PRODUCT_APPLE_PANGEA_MACIO:
113 case PCI_PRODUCT_APPLE_INTREPID:
114 case PCI_PRODUCT_APPLE_K2:
115 case PCI_PRODUCT_APPLE_SHASTA:
116 return 1;
117 }
118
119 return 0;
120 }
121
122 /*
123 * Attach all the sub-devices we can find
124 */
125 void
126 obio_attach(device_t parent, device_t self, void *aux)
127 {
128 struct obio_softc *sc = device_private(self);
129 struct pci_attach_args *pa = aux;
130 struct confargs ca;
131 bus_space_handle_t bsh;
132 int node, child, namelen, error;
133 u_int reg[20];
134 int intr[6], parent_intr = 0, parent_nintr = 0;
135 int map_size = 0x1000;
136 char name[32];
137 char compat[32];
138
139 sc->sc_dev = self;
140 #ifdef OBIO_SPEED_CONTROL
141 sc->sc_voltage = -1;
142 sc->sc_busspeed = -1;
143 sc->sc_spd_lo = 600;
144 sc->sc_spd_hi = 800;
145 #endif
146
147 switch (PCI_PRODUCT(pa->pa_id)) {
148
149 case PCI_PRODUCT_APPLE_GC:
150 case PCI_PRODUCT_APPLE_OHARE:
151 case PCI_PRODUCT_APPLE_HEATHROW:
152 case PCI_PRODUCT_APPLE_PADDINGTON:
153 case PCI_PRODUCT_APPLE_KEYLARGO:
154 case PCI_PRODUCT_APPLE_PANGEA_MACIO:
155 case PCI_PRODUCT_APPLE_INTREPID:
156 node = pcidev_to_ofdev(pa->pa_pc, pa->pa_tag);
157 if (node == -1)
158 node = OF_finddevice("mac-io");
159 if (node == -1)
160 node = OF_finddevice("/pci/mac-io");
161 break;
162 case PCI_PRODUCT_APPLE_K2:
163 case PCI_PRODUCT_APPLE_SHASTA:
164 node = OF_finddevice("mac-io");
165 map_size = 0x10000;
166 break;
167
168 default:
169 node = -1;
170 break;
171 }
172 if (node == -1)
173 panic("macio not found or unknown");
174
175 sc->sc_node = node;
176
177 #if defined (PMAC_G5)
178 if (OF_getprop(node, "assigned-addresses", reg, sizeof(reg)) < 20)
179 {
180 return;
181 }
182 #else
183 if (OF_getprop(node, "assigned-addresses", reg, sizeof(reg)) < 12)
184 return;
185 #endif /* PMAC_G5 */
186
187 /*
188 * XXX
189 * This relies on the primary obio always attaching first which is
190 * true on the PowerBook 3400c and similar machines but may or may
191 * not work on others. We can't rely on the node name since Apple
192 * didn't follow anything remotely resembling a consistent naming
193 * scheme.
194 */
195 if (obio0 == NULL)
196 obio0 = sc;
197
198 ca.ca_baseaddr = reg[2];
199 ca.ca_tag = pa->pa_memt;
200 sc->sc_tag = pa->pa_memt;
201 error = bus_space_map (pa->pa_memt, ca.ca_baseaddr, map_size, 0, &bsh);
202 if (error)
203 panic(": failed to map mac-io %#x", ca.ca_baseaddr);
204 sc->sc_bh = bsh;
205
206 printf(": addr 0x%x\n", ca.ca_baseaddr);
207
208 /* Enable internal modem (KeyLargo) */
209 if (PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_APPLE_KEYLARGO) {
210 aprint_normal("%s: enabling KeyLargo internal modem\n",
211 device_xname(self));
212 bus_space_write_4(ca.ca_tag, bsh, 0x40,
213 bus_space_read_4(ca.ca_tag, bsh, 0x40) & ~(1<<25));
214 }
215
216 /* Enable internal modem (Pangea) */
217 if (PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_APPLE_PANGEA_MACIO) {
218 /* set reset */
219 bus_space_write_1(ca.ca_tag, bsh, 0x006a + 0x03, 0x04);
220 /* power modem on */
221 bus_space_write_1(ca.ca_tag, bsh, 0x006a + 0x02, 0x04);
222 /* unset reset */
223 bus_space_write_1(ca.ca_tag, bsh, 0x006a + 0x03, 0x05);
224 }
225
226 /* Gatwick and Paddington use same product ID */
227 namelen = OF_getprop(node, "compatible", compat, sizeof(compat));
228
229 if (strcmp(compat, "gatwick") == 0) {
230 parent_nintr = OF_getprop(node, "AAPL,interrupts", intr,
231 sizeof(intr));
232 parent_intr = intr[0];
233 } else {
234 /* Enable CD and microphone sound input. */
235 if (PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_APPLE_PADDINGTON)
236 bus_space_write_1(ca.ca_tag, bsh, 0x37, 0x03);
237 }
238
239 for (child = OF_child(node); child; child = OF_peer(child)) {
240 namelen = OF_getprop(child, "name", name, sizeof(name));
241 if (namelen < 0)
242 continue;
243 if (namelen >= sizeof(name))
244 continue;
245
246 #ifdef OBIO_SPEED_CONTROL
247 if (strcmp(name, "gpio") == 0) {
248
249 obio_setup_gpios(sc, child);
250 continue;
251 }
252 #endif
253
254 name[namelen] = 0;
255 ca.ca_name = name;
256 ca.ca_node = child;
257 ca.ca_tag = pa->pa_memt;
258
259 ca.ca_nreg = OF_getprop(child, "reg", reg, sizeof(reg));
260
261 if (strcmp(compat, "gatwick") != 0) {
262 ca.ca_nintr = OF_getprop(child, "AAPL,interrupts", intr,
263 sizeof(intr));
264 if (ca.ca_nintr == -1)
265 ca.ca_nintr = OF_getprop(child, "interrupts", intr,
266 sizeof(intr));
267 } else {
268 intr[0] = parent_intr;
269 ca.ca_nintr = parent_nintr;
270 }
271 ca.ca_reg = reg;
272 ca.ca_intr = intr;
273
274 config_found(self, &ca, obio_print,
275 CFARGS(.devhandle = devhandle_from_of(child)));
276 }
277 }
278
279 static const char * const skiplist[] = {
280 "interrupt-controller",
281 "gpio",
282 "escc-legacy",
283 "timer",
284 "i2c",
285 "power-mgt",
286 "escc",
287 "battery",
288 "backlight"
289
290 };
291
292 #define N_LIST (sizeof(skiplist) / sizeof(skiplist[0]))
293
294 int
295 obio_print(void *aux, const char *obio)
296 {
297 struct confargs *ca = aux;
298 int i;
299
300 for (i = 0; i < N_LIST; i++)
301 if (strcmp(ca->ca_name, skiplist[i]) == 0)
302 return QUIET;
303
304 if (obio)
305 aprint_normal("%s at %s", ca->ca_name, obio);
306
307 if (ca->ca_nreg > 0)
308 aprint_normal(" offset 0x%x", ca->ca_reg[0]);
309
310 return UNCONF;
311 }
312
313 void obio_write_4(int offset, uint32_t value)
314 {
315 if (obio0 == NULL)
316 return;
317 bus_space_write_4(obio0->sc_tag, obio0->sc_bh, offset, value);
318 }
319
320 void obio_write_1(int offset, uint8_t value)
321 {
322 if (obio0 == NULL)
323 return;
324 bus_space_write_1(obio0->sc_tag, obio0->sc_bh, offset, value);
325 }
326
327 uint32_t obio_read_4(int offset)
328 {
329 if (obio0 == NULL)
330 return 0xffffffff;
331 return bus_space_read_4(obio0->sc_tag, obio0->sc_bh, offset);
332 }
333
334 uint8_t obio_read_1(int offset)
335 {
336 if (obio0 == NULL)
337 return 0xff;
338 return bus_space_read_1(obio0->sc_tag, obio0->sc_bh, offset);
339 }
340
341 int
342 obio_space_map(bus_addr_t addr, bus_size_t size, bus_space_handle_t *bh)
343 {
344 if (obio0 == NULL)
345 return 0xff;
346 return bus_space_subregion(obio0->sc_tag, obio0->sc_bh,
347 addr & 0xfffff, size, bh);
348 }
349
350 #ifdef OBIO_SPEED_CONTROL
351
352 static void
353 obio_setup_cpufreq(device_t dev)
354 {
355 struct obio_softc *sc = device_private(dev);
356 int ret;
357
358 ret = cpufreq_register(&sc->sc_cf);
359 if (ret != 0)
360 aprint_error_dev(sc->sc_dev, "cpufreq_register() failed, error %d\n", ret);
361 }
362
363 static void
364 obio_setup_gpios(struct obio_softc *sc, int node)
365 {
366 uint32_t gpio_base, reg[6];
367 const struct sysctlnode *sysctl_node, *me, *freq;
368 struct cpufreq *cf = &sc->sc_cf;
369 char name[32];
370 int child, use_dfs, cpunode, hiclock;
371
372 if (! of_compatible(sc->sc_node, keylargo))
373 return;
374
375 if (OF_getprop(node, "reg", reg, sizeof(reg)) < 4)
376 return;
377
378 gpio_base = reg[0];
379 DPRINTF("gpio_base: %02x\n", gpio_base);
380
381 /* now look for voltage and bus speed gpios */
382 use_dfs = 0;
383 for (child = OF_child(node); child; child = OF_peer(child)) {
384
385 if (OF_getprop(child, "name", name, sizeof(name)) < 1)
386 continue;
387
388 if (OF_getprop(child, "reg", reg, sizeof(reg)) < 4)
389 continue;
390
391 /*
392 * These register offsets either have to be added to the obio
393 * base address or to the gpio base address. This differs
394 * even in the same OF-tree! So we guess the offset is
395 * based on obio when it is larger than the gpio_base.
396 */
397 if (reg[0] >= gpio_base)
398 reg[0] -= gpio_base;
399
400 if (strcmp(name, "frequency-gpio") == 0) {
401 DPRINTF("found frequency_gpio at %02x\n", reg[0]);
402 sc->sc_busspeed = gpio_base + reg[0];
403 }
404 if (strcmp(name, "voltage-gpio") == 0) {
405 DPRINTF("found voltage_gpio at %02x\n", reg[0]);
406 sc->sc_voltage = gpio_base + reg[0];
407 }
408 if (strcmp(name, "cpu-vcore-select") == 0) {
409 DPRINTF("found cpu-vcore-select at %02x\n", reg[0]);
410 sc->sc_voltage = gpio_base + reg[0];
411 /* frequency gpio is not needed, we use cpu's DFS */
412 use_dfs = 1;
413 }
414 }
415
416 if ((sc->sc_voltage < 0) || (sc->sc_busspeed < 0 && !use_dfs))
417 return;
418
419 printf("%s: enabling Intrepid CPU speed control\n",
420 device_xname(sc->sc_dev));
421
422 sc->sc_spd_lo = curcpu()->ci_khz / 1000;
423 hiclock = 0;
424 cpunode = OF_finddevice("/cpus/@0");
425 OF_getprop(cpunode, "clock-frequency", &hiclock, 4);
426 if (hiclock != 0)
427 sc->sc_spd_hi = (hiclock + 500000) / 1000000;
428 printf("hiclock: %d\n", sc->sc_spd_hi);
429 if (use_dfs) sc->sc_spd_lo = sc->sc_spd_hi / 2;
430
431 sysctl_node = NULL;
432
433 if (sysctl_createv(NULL, 0, NULL,
434 &me,
435 CTLFLAG_READWRITE, CTLTYPE_NODE, "cpu", NULL, NULL,
436 0, NULL, 0, CTL_MACHDEP, CTL_CREATE, CTL_EOL) != 0)
437 printf("couldn't create 'cpu' node\n");
438
439 if (sysctl_createv(NULL, 0, NULL,
440 &freq,
441 CTLFLAG_READWRITE, CTLTYPE_NODE, "frequency", NULL, NULL,
442 0, NULL, 0, CTL_MACHDEP, me->sysctl_num, CTL_CREATE, CTL_EOL) != 0)
443 printf("couldn't create 'frequency' node\n");
444
445 if (sysctl_createv(NULL, 0, NULL,
446 &sysctl_node,
447 CTLFLAG_READWRITE | CTLFLAG_OWNDESC,
448 CTLTYPE_INT, "target", "CPU speed", sysctl_cpuspeed_temp,
449 0, (void *)sc, 0, CTL_MACHDEP, me->sysctl_num, freq->sysctl_num,
450 CTL_CREATE, CTL_EOL) == 0) {
451 } else
452 printf("couldn't create 'target' node\n");
453
454 if (sysctl_createv(NULL, 0, NULL,
455 &sysctl_node,
456 CTLFLAG_READWRITE,
457 CTLTYPE_INT, "current", NULL, sysctl_cpuspeed_cur,
458 1, (void *)sc, 0, CTL_MACHDEP, me->sysctl_num, freq->sysctl_num,
459 CTL_CREATE, CTL_EOL) == 0) {
460 } else
461 printf("couldn't create 'current' node\n");
462
463 if (sysctl_createv(NULL, 0, NULL,
464 &sysctl_node,
465 CTLFLAG_READWRITE,
466 CTLTYPE_STRING, "available", NULL, sysctl_cpuspeed_available,
467 2, (void *)sc, 0, CTL_MACHDEP, me->sysctl_num, freq->sysctl_num,
468 CTL_CREATE, CTL_EOL) == 0) {
469 } else
470 printf("couldn't create 'available' node\n");
471 printf("speed: %d\n", curcpu()->ci_khz);
472
473 /* support cpufreq */
474 snprintf(cf->cf_name, CPUFREQ_NAME_MAX, "Intrepid");
475 cf->cf_state[0].cfs_freq = sc->sc_spd_hi;
476 cf->cf_state[1].cfs_freq = sc->sc_spd_lo;
477 cf->cf_state_count = 2;
478 cf->cf_mp = FALSE;
479 cf->cf_cookie = sc;
480 cf->cf_get_freq = obio_get_freq;
481 cf->cf_set_freq = obio_set_freq;
482 /*
483 * XXX
484 * cpufreq_register() calls xc_broadcast() which relies on kthreads
485 * running so we need to postpone it
486 */
487 config_interrupts(sc->sc_dev, obio_setup_cpufreq);
488 }
489
490 static void
491 obio_set_cpu_speed(struct obio_softc *sc, int fast)
492 {
493
494 if (sc->sc_voltage < 0)
495 return;
496
497 if (sc->sc_busspeed >= 0) {
498 /* set voltage and speed via gpio */
499 if (fast) {
500 bus_space_write_1(sc->sc_tag, sc->sc_bh,
501 sc->sc_voltage, 5);
502 bus_space_write_1(sc->sc_tag, sc->sc_bh,
503 sc->sc_busspeed, 5);
504 } else {
505 bus_space_write_1(sc->sc_tag, sc->sc_bh,
506 sc->sc_busspeed, 4);
507 bus_space_write_1(sc->sc_tag, sc->sc_bh,
508 sc->sc_voltage, 4);
509 }
510 }
511 else {
512 /* set voltage via gpio and speed via the 7447A's DFS bit */
513 if (fast) {
514 bus_space_write_1(sc->sc_tag, sc->sc_bh,
515 sc->sc_voltage, 5);
516 DELAY(1000);
517 }
518
519 /* set DFS for all cpus */
520 cpu_set_dfs(fast ? 1 : 2);
521 DELAY(100);
522
523 if (!fast) {
524 bus_space_write_1(sc->sc_tag, sc->sc_bh,
525 sc->sc_voltage, 4);
526 DELAY(1000);
527 }
528 }
529 }
530
531 static int
532 obio_get_cpu_speed(struct obio_softc *sc)
533 {
534
535 if (sc->sc_voltage < 0)
536 return 0;
537
538 if (sc->sc_busspeed >= 0) {
539 if (bus_space_read_1(sc->sc_tag, sc->sc_bh, sc->sc_busspeed)
540 & 1)
541 return 1;
542 }
543 else
544 return cpu_get_dfs() == 1;
545
546 return 0;
547 }
548
549 static void
550 obio_get_freq(void *cookie, void *spd)
551 {
552 struct obio_softc *sc = cookie;
553 uint32_t *freq;
554
555 freq = spd;
556 if (obio_get_cpu_speed(sc) == 0) {
557 *freq = sc->sc_spd_lo;
558 } else
559 *freq = sc->sc_spd_hi;
560 }
561
562 static void
563 obio_set_freq(void *cookie, void *spd)
564 {
565 struct obio_softc *sc = cookie;
566 uint32_t *freq;
567
568 freq = spd;
569 if (*freq == sc->sc_spd_lo) {
570 obio_set_cpu_speed(sc, 0);
571 } else if (*freq == sc->sc_spd_hi) {
572 obio_set_cpu_speed(sc, 1);
573 } else
574 aprint_error_dev(sc->sc_dev, "%s(%d) bogus CPU speed\n", __func__, *freq);
575 }
576
577 static int
578 sysctl_cpuspeed_temp(SYSCTLFN_ARGS)
579 {
580 struct sysctlnode node = *rnode;
581 struct obio_softc *sc = node.sysctl_data;
582 int speed, mhz;
583
584 speed = obio_get_cpu_speed(sc);
585 switch (speed) {
586 case 0:
587 mhz = sc->sc_spd_lo;
588 break;
589 case 1:
590 mhz = sc->sc_spd_hi;
591 break;
592 default:
593 speed = -1;
594 }
595 node.sysctl_data = &mhz;
596 if (sysctl_lookup(SYSCTLFN_CALL(&node)) == 0) {
597 int new_reg;
598
599 new_reg = *(int *)node.sysctl_data;
600 if (new_reg == sc->sc_spd_lo) {
601 obio_set_cpu_speed(sc, 0);
602 } else if (new_reg == sc->sc_spd_hi) {
603 obio_set_cpu_speed(sc, 1);
604 } else {
605 printf("%s: new_reg %d\n", __func__, new_reg);
606 return EINVAL;
607 }
608 return 0;
609 }
610 return EINVAL;
611 }
612
613 static int
614 sysctl_cpuspeed_cur(SYSCTLFN_ARGS)
615 {
616 struct sysctlnode node = *rnode;
617 struct obio_softc *sc = node.sysctl_data;
618 int speed, mhz;
619
620 speed = obio_get_cpu_speed(sc);
621 switch (speed) {
622 case 0:
623 mhz = sc->sc_spd_lo;
624 break;
625 case 1:
626 mhz = sc->sc_spd_hi;
627 break;
628 default:
629 speed = -1;
630 }
631 node.sysctl_data = &mhz;
632 return sysctl_lookup(SYSCTLFN_CALL(&node));
633 }
634
635 static int
636 sysctl_cpuspeed_available(SYSCTLFN_ARGS)
637 {
638 struct sysctlnode node = *rnode;
639 struct obio_softc *sc = node.sysctl_data;
640 char buf[128];
641
642 snprintf(buf, 128, "%d %d", sc->sc_spd_lo, sc->sc_spd_hi);
643 node.sysctl_data = buf;
644 return(sysctl_lookup(SYSCTLFN_CALL(&node)));
645 }
646
647 SYSCTL_SETUP(sysctl_ams_setup, "sysctl obio subtree setup")
648 {
649
650 sysctl_createv(NULL, 0, NULL, NULL,
651 CTLFLAG_PERMANENT,
652 CTLTYPE_NODE, "machdep", NULL,
653 NULL, 0, NULL, 0,
654 CTL_MACHDEP, CTL_EOL);
655 }
656
657 #endif /* OBIO_SPEEDCONTROL */
658