File: | dev/acpi/dsdt.c |
Warning: | line 3991, column 7 Dereference of null pointer |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | /* $OpenBSD: dsdt.c,v 1.265 2024/01/08 19:52:29 kettenis Exp $ */ | |||
2 | /* | |||
3 | * Copyright (c) 2005 Jordan Hargrave <jordan@openbsd.org> | |||
4 | * | |||
5 | * Permission to use, copy, modify, and distribute this software for any | |||
6 | * purpose with or without fee is hereby granted, provided that the above | |||
7 | * copyright notice and this permission notice appear in all copies. | |||
8 | * | |||
9 | * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |||
10 | * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |||
11 | * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |||
12 | * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |||
13 | * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |||
14 | * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |||
15 | * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |||
16 | */ | |||
17 | ||||
18 | #include <sys/param.h> | |||
19 | #include <sys/systm.h> | |||
20 | #include <sys/kernel.h> | |||
21 | #include <sys/device.h> | |||
22 | #include <sys/malloc.h> | |||
23 | #include <sys/time.h> | |||
24 | ||||
25 | #include <machine/bus.h> | |||
26 | ||||
27 | #ifdef DDB1 | |||
28 | #include <machine/db_machdep.h> | |||
29 | #endif | |||
30 | ||||
31 | #include <dev/acpi/acpireg.h> | |||
32 | #include <dev/acpi/acpivar.h> | |||
33 | #include <dev/acpi/amltypes.h> | |||
34 | #include <dev/acpi/dsdt.h> | |||
35 | ||||
36 | #include <dev/i2c/i2cvar.h> | |||
37 | ||||
38 | #ifdef SMALL_KERNEL | |||
39 | #undef ACPI_DEBUG | |||
40 | #endif | |||
41 | ||||
42 | #define opsize(opcode)(((opcode) & 0xFF00) ? 2 : 1) (((opcode) & 0xFF00) ? 2 : 1) | |||
43 | ||||
44 | #define AML_FIELD_RESERVED0x00 0x00 | |||
45 | #define AML_FIELD_ATTRIB0x01 0x01 | |||
46 | ||||
47 | #define AML_REVISION0x01 0x01 | |||
48 | #define AML_INTSTRLEN16 16 | |||
49 | #define AML_NAMESEG_LEN4 4 | |||
50 | ||||
51 | struct aml_value *aml_loadtable(struct acpi_softc *, const char *, | |||
52 | const char *, const char *, const char *, | |||
53 | const char *, struct aml_value *); | |||
54 | struct aml_scope *aml_load(struct acpi_softc *, struct aml_scope *, | |||
55 | struct aml_value *, struct aml_value *); | |||
56 | ||||
57 | void aml_copyvalue(struct aml_value *, struct aml_value *); | |||
58 | ||||
59 | void aml_setvalue(struct aml_scope *, struct aml_value *, | |||
60 | struct aml_value *, int64_t); | |||
61 | void aml_freevalue(struct aml_value *); | |||
62 | struct aml_value *aml_allocvalue(int, int64_t, const void *); | |||
63 | struct aml_value *_aml_setvalue(struct aml_value *, int, int64_t, | |||
64 | const void *); | |||
65 | ||||
66 | uint64_t aml_convradix(uint64_t, int, int); | |||
67 | uint64_t aml_evalexpr(uint64_t, uint64_t, int); | |||
68 | int aml_lsb(uint64_t); | |||
69 | int aml_msb(uint64_t); | |||
70 | ||||
71 | int aml_tstbit(const uint8_t *, int); | |||
72 | void aml_setbit(uint8_t *, int, int); | |||
73 | ||||
74 | void aml_addref(struct aml_value *, const char *); | |||
75 | void aml_delref(struct aml_value **, const char *); | |||
76 | ||||
77 | void aml_bufcpy(void *, int, const void *, int, int); | |||
78 | ||||
79 | int aml_pc(uint8_t *); | |||
80 | ||||
81 | struct aml_value *aml_parseop(struct aml_scope *, struct aml_value *,int); | |||
82 | struct aml_value *aml_parsetarget(struct aml_scope *, struct aml_value *, | |||
83 | struct aml_value **); | |||
84 | struct aml_value *aml_parseterm(struct aml_scope *, struct aml_value *); | |||
85 | ||||
86 | struct aml_value *aml_evaltarget(struct aml_scope *scope, | |||
87 | struct aml_value *res); | |||
88 | int aml_evalterm(struct aml_scope *scope, | |||
89 | struct aml_value *raw, struct aml_value *dst); | |||
90 | ||||
91 | struct aml_opcode *aml_findopcode(int); | |||
92 | ||||
93 | #define acpi_os_malloc(sz)_acpi_os_malloc(sz, __FUNCTION__, 93) _acpi_os_malloc(sz, __FUNCTION__, __LINE__93) | |||
94 | #define acpi_os_free(ptr)_acpi_os_free(ptr, __FUNCTION__, 94) _acpi_os_free(ptr, __FUNCTION__, __LINE__94) | |||
95 | ||||
96 | void *_acpi_os_malloc(size_t, const char *, int); | |||
97 | void _acpi_os_free(void *, const char *, int); | |||
98 | void acpi_stall(int); | |||
99 | ||||
100 | struct aml_value *aml_callosi(struct aml_scope *, struct aml_value *); | |||
101 | ||||
102 | const char *aml_getname(const char *); | |||
103 | int64_t aml_hextoint(const char *); | |||
104 | void aml_dump(int, uint8_t *); | |||
105 | __dead__attribute__((__noreturn__)) void _aml_die(const char *fn, int line, const char *fmt, ...); | |||
106 | #define aml_die(x...)_aml_die(__FUNCTION__, 106, x...) _aml_die(__FUNCTION__, __LINE__106, x) | |||
107 | ||||
108 | void aml_notify_task(void *, int); | |||
109 | void acpi_poll_notify_task(void *, int); | |||
110 | ||||
111 | /* | |||
112 | * @@@: Global variables | |||
113 | */ | |||
114 | int aml_intlen = 64; | |||
115 | struct aml_node aml_root; | |||
116 | struct aml_value *aml_global_lock; | |||
117 | ||||
118 | /* Perfect Hash key */ | |||
119 | #define HASH_OFF6904 6904 | |||
120 | #define HASH_SIZE179 179 | |||
121 | #define HASH_KEY(k)(((k) ^ 6904) % 179) (((k) ^ HASH_OFF6904) % HASH_SIZE179) | |||
122 | ||||
123 | /* | |||
124 | * XXX this array should be sorted, and then aml_findopcode() should | |||
125 | * do a binary search | |||
126 | */ | |||
127 | struct aml_opcode **aml_ophash; | |||
128 | struct aml_opcode aml_table[] = { | |||
129 | /* Simple types */ | |||
130 | { AMLOP_ZERO0x00, "Zero", "c", }, | |||
131 | { AMLOP_ONE0x01, "One", "c", }, | |||
132 | { AMLOP_ONES0xFF, "Ones", "c", }, | |||
133 | { AMLOP_REVISION0x5B30, "Revision", "R", }, | |||
134 | { AMLOP_BYTEPREFIX0x0A, ".Byte", "b", }, | |||
135 | { AMLOP_WORDPREFIX0x0B, ".Word", "w", }, | |||
136 | { AMLOP_DWORDPREFIX0x0C, ".DWord", "d", }, | |||
137 | { AMLOP_QWORDPREFIX0x0E, ".QWord", "q", }, | |||
138 | { AMLOP_STRINGPREFIX0x0D, ".String", "a", }, | |||
139 | { AMLOP_DEBUG0x5B31, "DebugOp", "D", }, | |||
140 | { AMLOP_BUFFER0x11, "Buffer", "piB", }, | |||
141 | { AMLOP_PACKAGE0x12, "Package", "pbT", }, | |||
142 | { AMLOP_VARPACKAGE0x13, "VarPackage", "piT", }, | |||
143 | ||||
144 | /* Simple objects */ | |||
145 | { AMLOP_LOCAL00x60, "Local0", "L", }, | |||
146 | { AMLOP_LOCAL10x61, "Local1", "L", }, | |||
147 | { AMLOP_LOCAL20x62, "Local2", "L", }, | |||
148 | { AMLOP_LOCAL30x63, "Local3", "L", }, | |||
149 | { AMLOP_LOCAL40x64, "Local4", "L", }, | |||
150 | { AMLOP_LOCAL50x65, "Local5", "L", }, | |||
151 | { AMLOP_LOCAL60x66, "Local6", "L", }, | |||
152 | { AMLOP_LOCAL70x67, "Local7", "L", }, | |||
153 | { AMLOP_ARG00x68, "Arg0", "A", }, | |||
154 | { AMLOP_ARG10x69, "Arg1", "A", }, | |||
155 | { AMLOP_ARG20x6A, "Arg2", "A", }, | |||
156 | { AMLOP_ARG30x6B, "Arg3", "A", }, | |||
157 | { AMLOP_ARG40x6C, "Arg4", "A", }, | |||
158 | { AMLOP_ARG50x6D, "Arg5", "A", }, | |||
159 | { AMLOP_ARG60x6E, "Arg6", "A", }, | |||
160 | ||||
161 | /* Control flow */ | |||
162 | { AMLOP_IF0xA0, "If", "piI", }, | |||
163 | { AMLOP_ELSE0xA1, "Else", "pT" }, | |||
164 | { AMLOP_WHILE0xA2, "While", "piT", }, | |||
165 | { AMLOP_BREAK0xA5, "Break", "" }, | |||
166 | { AMLOP_CONTINUE0x9F, "Continue", "" }, | |||
167 | { AMLOP_RETURN0xA4, "Return", "t", }, | |||
168 | { AMLOP_FATAL0x5B32, "Fatal", "bdi", }, | |||
169 | { AMLOP_NOP0xA3, "Nop", "", }, | |||
170 | { AMLOP_BREAKPOINT0xCC, "BreakPoint", "", }, | |||
171 | ||||
172 | /* Arithmetic operations */ | |||
173 | { AMLOP_INCREMENT0x75, "Increment", "S", }, | |||
174 | { AMLOP_DECREMENT0x76, "Decrement", "S", }, | |||
175 | { AMLOP_ADD0x72, "Add", "iir", }, | |||
176 | { AMLOP_SUBTRACT0x74, "Subtract", "iir", }, | |||
177 | { AMLOP_MULTIPLY0x77, "Multiply", "iir", }, | |||
178 | { AMLOP_DIVIDE0x78, "Divide", "iirr", }, | |||
179 | { AMLOP_SHL0x79, "ShiftLeft", "iir", }, | |||
180 | { AMLOP_SHR0x7A, "ShiftRight", "iir", }, | |||
181 | { AMLOP_AND0x7B, "And", "iir", }, | |||
182 | { AMLOP_NAND0x7C, "Nand", "iir", }, | |||
183 | { AMLOP_OR0x7D, "Or", "iir", }, | |||
184 | { AMLOP_NOR0x7E, "Nor", "iir", }, | |||
185 | { AMLOP_XOR0x7F, "Xor", "iir", }, | |||
186 | { AMLOP_NOT0x80, "Not", "ir", }, | |||
187 | { AMLOP_MOD0x85, "Mod", "iir", }, | |||
188 | { AMLOP_FINDSETLEFTBIT0x81, "FindSetLeftBit", "ir", }, | |||
189 | { AMLOP_FINDSETRIGHTBIT0x82,"FindSetRightBit", "ir",}, | |||
190 | ||||
191 | /* Logical test operations */ | |||
192 | { AMLOP_LAND0x90, "LAnd", "ii", }, | |||
193 | { AMLOP_LOR0x91, "LOr", "ii", }, | |||
194 | { AMLOP_LNOT0x92, "LNot", "i", }, | |||
195 | { AMLOP_LNOTEQUAL0x9293, "LNotEqual", "tt", }, | |||
196 | { AMLOP_LLESSEQUAL0x9294, "LLessEqual", "tt", }, | |||
197 | { AMLOP_LGREATEREQUAL0x9295, "LGreaterEqual", "tt", }, | |||
198 | { AMLOP_LEQUAL0x93, "LEqual", "tt", }, | |||
199 | { AMLOP_LGREATER0x94, "LGreater", "tt", }, | |||
200 | { AMLOP_LLESS0x95, "LLess", "tt", }, | |||
201 | ||||
202 | /* Named objects */ | |||
203 | { AMLOP_NAMECHAR0x5F, ".NameRef", "n", }, | |||
204 | { AMLOP_ALIAS0x06, "Alias", "nN", }, | |||
205 | { AMLOP_NAME0x08, "Name", "Nt", }, | |||
206 | { AMLOP_EVENT0x5B02, "Event", "N", }, | |||
207 | { AMLOP_MUTEX0x5B01, "Mutex", "Nb", }, | |||
208 | { AMLOP_DATAREGION0x5B88, "DataRegion", "Nttt", }, | |||
209 | { AMLOP_OPREGION0x5B80, "OpRegion", "Nbii", }, | |||
210 | { AMLOP_SCOPE0x10, "Scope", "pnT", }, | |||
211 | { AMLOP_DEVICE0x5B82, "Device", "pNT", }, | |||
212 | { AMLOP_POWERRSRC0x5B84, "Power Resource", "pNbwT",}, | |||
213 | { AMLOP_THERMALZONE0x5B85, "ThermalZone", "pNT", }, | |||
214 | { AMLOP_PROCESSOR0x5B83, "Processor", "pNbdbT", }, | |||
215 | { AMLOP_METHOD0x14, "Method", "pNbM", }, | |||
216 | ||||
217 | /* Field operations */ | |||
218 | { AMLOP_FIELD0x5B81, "Field", "pnbF", }, | |||
219 | { AMLOP_INDEXFIELD0x5B86, "IndexField", "pnnbF",}, | |||
220 | { AMLOP_BANKFIELD0x5B87, "BankField", "pnnibF",}, | |||
221 | { AMLOP_CREATEFIELD0x5B13, "CreateField", "tiiN", }, | |||
222 | { AMLOP_CREATEQWORDFIELD0x8F, "CreateQWordField","tiN",}, | |||
223 | { AMLOP_CREATEDWORDFIELD0x8A, "CreateDWordField","tiN",}, | |||
224 | { AMLOP_CREATEWORDFIELD0x8B, "CreateWordField", "tiN",}, | |||
225 | { AMLOP_CREATEBYTEFIELD0x8C, "CreateByteField", "tiN",}, | |||
226 | { AMLOP_CREATEBITFIELD0x8D, "CreateBitField", "tiN", }, | |||
227 | ||||
228 | /* Conversion operations */ | |||
229 | { AMLOP_TOINTEGER0x99, "ToInteger", "tr", }, | |||
230 | { AMLOP_TOBUFFER0x96, "ToBuffer", "tr", }, | |||
231 | { AMLOP_TODECSTRING0x97, "ToDecString", "tr", }, | |||
232 | { AMLOP_TOHEXSTRING0x98, "ToHexString", "tr", }, | |||
233 | { AMLOP_TOSTRING0x9C, "ToString", "tir", }, | |||
234 | { AMLOP_MID0x9E, "Mid", "tiir", }, | |||
235 | { AMLOP_FROMBCD0x5B28, "FromBCD", "ir", }, | |||
236 | { AMLOP_TOBCD0x5B29, "ToBCD", "ir", }, | |||
237 | ||||
238 | /* Mutex/Signal operations */ | |||
239 | { AMLOP_ACQUIRE0x5B23, "Acquire", "Sw", }, | |||
240 | { AMLOP_RELEASE0x5B27, "Release", "S", }, | |||
241 | { AMLOP_SIGNAL0x5B24, "Signal", "S", }, | |||
242 | { AMLOP_WAIT0x5B25, "Wait", "Si", }, | |||
243 | { AMLOP_RESET0x5B26, "Reset", "S", }, | |||
244 | ||||
245 | { AMLOP_INDEX0x88, "Index", "tir", }, | |||
246 | { AMLOP_DEREFOF0x83, "DerefOf", "t", }, | |||
247 | { AMLOP_REFOF0x71, "RefOf", "S", }, | |||
248 | { AMLOP_CONDREFOF0x5B12, "CondRef", "Sr", }, | |||
249 | ||||
250 | { AMLOP_LOADTABLE0x5B1F, "LoadTable", "tttttt" }, | |||
251 | { AMLOP_STALL0x5B21, "Stall", "i", }, | |||
252 | { AMLOP_SLEEP0x5B22, "Sleep", "i", }, | |||
253 | { AMLOP_TIMER0x5B33, "Timer", "", }, | |||
254 | { AMLOP_LOAD0x5B20, "Load", "nS", }, | |||
255 | { AMLOP_UNLOAD0x5B2A, "Unload", "t" }, | |||
256 | { AMLOP_STORE0x70, "Store", "tS", }, | |||
257 | { AMLOP_CONCAT0x73, "Concat", "ttr", }, | |||
258 | { AMLOP_CONCATRES0x84, "ConcatRes", "ttt" }, | |||
259 | { AMLOP_NOTIFY0x86, "Notify", "Si", }, | |||
260 | { AMLOP_SIZEOF0x87, "Sizeof", "S", }, | |||
261 | { AMLOP_MATCH0x89, "Match", "tbibii", }, | |||
262 | { AMLOP_OBJECTTYPE0x8E, "ObjectType", "S", }, | |||
263 | { AMLOP_COPYOBJECT0x9D, "CopyObject", "tS", }, | |||
264 | }; | |||
265 | ||||
266 | int aml_pc(uint8_t *src) | |||
267 | { | |||
268 | return src - aml_root.start; | |||
269 | } | |||
270 | ||||
271 | struct aml_scope *aml_lastscope; | |||
272 | ||||
273 | void | |||
274 | _aml_die(const char *fn, int line, const char *fmt, ...) | |||
275 | { | |||
276 | #ifndef SMALL_KERNEL | |||
277 | struct aml_scope *root; | |||
278 | struct aml_value *sp; | |||
279 | int idx; | |||
280 | #endif /* SMALL_KERNEL */ | |||
281 | va_list ap; | |||
282 | ||||
283 | va_start(ap, fmt)__builtin_va_start((ap), fmt); | |||
284 | vprintf(fmt, ap); | |||
285 | printf("\n"); | |||
286 | va_end(ap)__builtin_va_end((ap)); | |||
287 | ||||
288 | #ifndef SMALL_KERNEL | |||
289 | for (root = aml_lastscope; root && root->pos; root = root->parent) { | |||
290 | printf("%.4x Called: %s\n", aml_pc(root->pos), | |||
291 | aml_nodename(root->node)); | |||
292 | for (idx = 0; idx < AML_MAX_ARG7; idx++) { | |||
293 | sp = aml_getstack(root, AMLOP_ARG00x68+idx); | |||
294 | if (sp && sp->type) { | |||
295 | printf(" arg%d: ", idx); | |||
296 | aml_showvalue(sp); | |||
297 | } | |||
298 | } | |||
299 | for (idx = 0; idx < AML_MAX_LOCAL8; idx++) { | |||
300 | sp = aml_getstack(root, AMLOP_LOCAL00x60+idx); | |||
301 | if (sp && sp->type) { | |||
302 | printf(" local%d: ", idx); | |||
303 | aml_showvalue(sp); | |||
304 | } | |||
305 | } | |||
306 | } | |||
307 | #endif /* SMALL_KERNEL */ | |||
308 | ||||
309 | /* XXX: don't panic */ | |||
310 | panic("aml_die %s:%d", fn, line); | |||
311 | } | |||
312 | ||||
313 | void | |||
314 | aml_hashopcodes(void) | |||
315 | { | |||
316 | int i; | |||
317 | ||||
318 | /* Dynamically allocate hash table */ | |||
319 | aml_ophash = (struct aml_opcode **)acpi_os_malloc(HASH_SIZE *_acpi_os_malloc(179 * sizeof(struct aml_opcode *), __FUNCTION__ , 320) | |||
320 | sizeof(struct aml_opcode *))_acpi_os_malloc(179 * sizeof(struct aml_opcode *), __FUNCTION__ , 320); | |||
321 | for (i = 0; i < sizeof(aml_table) / sizeof(aml_table[0]); i++) | |||
322 | aml_ophash[HASH_KEY(aml_table[i].opcode)(((aml_table[i].opcode) ^ 6904) % 179)] = &aml_table[i]; | |||
323 | } | |||
324 | ||||
325 | struct aml_opcode * | |||
326 | aml_findopcode(int opcode) | |||
327 | { | |||
328 | struct aml_opcode *hop; | |||
329 | ||||
330 | hop = aml_ophash[HASH_KEY(opcode)(((opcode) ^ 6904) % 179)]; | |||
331 | if (hop && hop->opcode == opcode) | |||
332 | return hop; | |||
333 | return NULL((void *)0); | |||
334 | } | |||
335 | ||||
336 | #if defined(DDB1) || !defined(SMALL_KERNEL) | |||
337 | const char * | |||
338 | aml_mnem(int opcode, uint8_t *pos) | |||
339 | { | |||
340 | struct aml_opcode *tab; | |||
341 | static char mnemstr[32]; | |||
342 | ||||
343 | if ((tab = aml_findopcode(opcode)) != NULL((void *)0)) { | |||
344 | strlcpy(mnemstr, tab->mnem, sizeof(mnemstr)); | |||
345 | if (pos != NULL((void *)0)) { | |||
346 | switch (opcode) { | |||
347 | case AMLOP_STRINGPREFIX0x0D: | |||
348 | snprintf(mnemstr, sizeof(mnemstr), "\"%s\"", pos); | |||
349 | break; | |||
350 | case AMLOP_BYTEPREFIX0x0A: | |||
351 | snprintf(mnemstr, sizeof(mnemstr), "0x%.2x", | |||
352 | *(uint8_t *)pos); | |||
353 | break; | |||
354 | case AMLOP_WORDPREFIX0x0B: | |||
355 | snprintf(mnemstr, sizeof(mnemstr), "0x%.4x", | |||
356 | *(uint16_t *)pos); | |||
357 | break; | |||
358 | case AMLOP_DWORDPREFIX0x0C: | |||
359 | snprintf(mnemstr, sizeof(mnemstr), "0x%.4x", | |||
360 | *(uint16_t *)pos); | |||
361 | break; | |||
362 | case AMLOP_NAMECHAR0x5F: | |||
363 | strlcpy(mnemstr, aml_getname(pos), sizeof(mnemstr)); | |||
364 | break; | |||
365 | } | |||
366 | } | |||
367 | return mnemstr; | |||
368 | } | |||
369 | return ("xxx"); | |||
370 | } | |||
371 | #endif /* defined(DDB) || !defined(SMALL_KERNEL) */ | |||
372 | ||||
373 | struct aml_notify_data { | |||
374 | struct aml_node *node; | |||
375 | char pnpid[20]; | |||
376 | void *cbarg; | |||
377 | int (*cbproc)(struct aml_node *, int, void *); | |||
378 | int poll; | |||
379 | ||||
380 | SLIST_ENTRY(aml_notify_data)struct { struct aml_notify_data *sle_next; } link; | |||
381 | }; | |||
382 | ||||
383 | SLIST_HEAD(aml_notify_head, aml_notify_data)struct aml_notify_head { struct aml_notify_data *slh_first; }; | |||
384 | struct aml_notify_head aml_notify_list = | |||
385 | SLIST_HEAD_INITIALIZER(aml_notify_list){ ((void *)0) }; | |||
386 | ||||
387 | /* | |||
388 | * @@@: Memory management functions | |||
389 | */ | |||
390 | ||||
391 | long acpi_nalloc; | |||
392 | ||||
393 | struct acpi_memblock { | |||
394 | size_t size; | |||
395 | #ifdef ACPI_MEMDEBUG | |||
396 | const char *fn; | |||
397 | int line; | |||
398 | int sig; | |||
399 | LIST_ENTRY(acpi_memblock)struct { struct acpi_memblock *le_next; struct acpi_memblock * *le_prev; } link; | |||
400 | #endif | |||
401 | }; | |||
402 | ||||
403 | #ifdef ACPI_MEMDEBUG | |||
404 | LIST_HEAD(, acpi_memblock)struct { struct acpi_memblock *lh_first; } acpi_memhead; | |||
405 | int acpi_memsig; | |||
406 | ||||
407 | int | |||
408 | acpi_walkmem(int sig, const char *lbl) | |||
409 | { | |||
410 | struct acpi_memblock *sptr; | |||
411 | ||||
412 | printf("--- walkmem:%s %x --- %lx bytes alloced\n", lbl, sig, | |||
413 | acpi_nalloc); | |||
414 | LIST_FOREACH(sptr, &acpi_memhead, link)for((sptr) = ((&acpi_memhead)->lh_first); (sptr)!= ((void *)0); (sptr) = ((sptr)->link.le_next)) { | |||
415 | if (sptr->sig < sig) | |||
416 | break; | |||
417 | printf("%.4x Alloc %.8lx bytes @ %s:%d\n", | |||
418 | sptr->sig, sptr->size, sptr->fn, sptr->line); | |||
419 | } | |||
420 | return acpi_memsig; | |||
421 | } | |||
422 | #endif /* ACPI_MEMDEBUG */ | |||
423 | ||||
424 | void * | |||
425 | _acpi_os_malloc(size_t size, const char *fn, int line) | |||
426 | { | |||
427 | struct acpi_memblock *sptr; | |||
428 | ||||
429 | sptr = malloc(size+sizeof(*sptr), M_ACPI33, M_WAITOK0x0001 | M_ZERO0x0008); | |||
430 | dnprintf(99, "alloc: %p %s:%d\n", sptr, fn, line); | |||
431 | acpi_nalloc += size; | |||
432 | sptr->size = size; | |||
433 | #ifdef ACPI_MEMDEBUG | |||
434 | sptr->line = line; | |||
435 | sptr->fn = fn; | |||
436 | sptr->sig = ++acpi_memsig; | |||
437 | ||||
438 | LIST_INSERT_HEAD(&acpi_memhead, sptr, link)do { if (((sptr)->link.le_next = (&acpi_memhead)->lh_first ) != ((void *)0)) (&acpi_memhead)->lh_first->link.le_prev = &(sptr)->link.le_next; (&acpi_memhead)->lh_first = (sptr); (sptr)->link.le_prev = &(&acpi_memhead) ->lh_first; } while (0); | |||
439 | #endif | |||
440 | ||||
441 | return &sptr[1]; | |||
442 | } | |||
443 | ||||
444 | void | |||
445 | _acpi_os_free(void *ptr, const char *fn, int line) | |||
446 | { | |||
447 | struct acpi_memblock *sptr; | |||
448 | ||||
449 | if (ptr != NULL((void *)0)) { | |||
450 | sptr = &(((struct acpi_memblock *)ptr)[-1]); | |||
451 | acpi_nalloc -= sptr->size; | |||
452 | ||||
453 | #ifdef ACPI_MEMDEBUG | |||
454 | LIST_REMOVE(sptr, link)do { if ((sptr)->link.le_next != ((void *)0)) (sptr)->link .le_next->link.le_prev = (sptr)->link.le_prev; *(sptr)-> link.le_prev = (sptr)->link.le_next; ((sptr)->link.le_prev ) = ((void *)-1); ((sptr)->link.le_next) = ((void *)-1); } while (0); | |||
455 | #endif | |||
456 | ||||
457 | dnprintf(99, "free: %p %s:%d\n", sptr, fn, line); | |||
458 | free(sptr, M_ACPI33, sizeof(*sptr) + sptr->size); | |||
459 | } | |||
460 | } | |||
461 | ||||
462 | void | |||
463 | acpi_sleep(int ms, char *reason) | |||
464 | { | |||
465 | static int acpinowait; | |||
466 | ||||
467 | /* XXX ACPI integers are supposed to be unsigned. */ | |||
468 | ms = MAX(1, ms)(((1)>(ms))?(1):(ms)); | |||
469 | ||||
470 | if (cold) | |||
471 | delay(ms * 1000)(*delay_func)(ms * 1000); | |||
472 | else | |||
473 | tsleep_nsec(&acpinowait, PWAIT32, reason, MSEC_TO_NSEC(ms)); | |||
474 | } | |||
475 | ||||
476 | void | |||
477 | acpi_stall(int us) | |||
478 | { | |||
479 | delay(us)(*delay_func)(us); | |||
480 | } | |||
481 | ||||
482 | /* | |||
483 | * @@@: Misc utility functions | |||
484 | */ | |||
485 | ||||
486 | #ifdef ACPI_DEBUG | |||
487 | void | |||
488 | aml_dump(int len, uint8_t *buf) | |||
489 | { | |||
490 | int idx; | |||
491 | ||||
492 | dnprintf(50, "{ "); | |||
493 | for (idx = 0; idx < len; idx++) { | |||
494 | dnprintf(50, "%s0x%.2x", idx ? ", " : "", buf[idx]); | |||
495 | } | |||
496 | dnprintf(50, " }\n"); | |||
497 | } | |||
498 | #endif | |||
499 | ||||
500 | /* Bit mangling code */ | |||
501 | int | |||
502 | aml_tstbit(const uint8_t *pb, int bit) | |||
503 | { | |||
504 | pb += aml_bytepos(bit)((bit)>>3); | |||
505 | ||||
506 | return (*pb & aml_bitmask(bit)(1L << ((bit) & 0x7))); | |||
507 | } | |||
508 | ||||
509 | void | |||
510 | aml_setbit(uint8_t *pb, int bit, int val) | |||
511 | { | |||
512 | pb += aml_bytepos(bit)((bit)>>3); | |||
513 | ||||
514 | if (val) | |||
515 | *pb |= aml_bitmask(bit)(1L << ((bit) & 0x7)); | |||
516 | else | |||
517 | *pb &= ~aml_bitmask(bit)(1L << ((bit) & 0x7)); | |||
518 | } | |||
519 | ||||
520 | /* | |||
521 | * @@@: Notify functions | |||
522 | */ | |||
523 | void | |||
524 | acpi_poll(void *arg) | |||
525 | { | |||
526 | int s; | |||
527 | ||||
528 | s = splbio()splraise(0x3); | |||
529 | acpi_addtask(acpi_softc, acpi_poll_notify_task, NULL((void *)0), 0); | |||
530 | acpi_softc->sc_threadwaiting = 0; | |||
531 | wakeup(acpi_softc); | |||
532 | splx(s)spllower(s); | |||
533 | ||||
534 | timeout_add_sec(&acpi_softc->sc_dev_timeout, 10); | |||
535 | } | |||
536 | ||||
537 | void | |||
538 | aml_notify_task(void *node, int notify_value) | |||
539 | { | |||
540 | struct aml_notify_data *pdata = NULL((void *)0); | |||
541 | ||||
542 | dnprintf(10,"run notify: %s %x\n", aml_nodename(node), notify_value); | |||
543 | SLIST_FOREACH(pdata, &aml_notify_list, link)for((pdata) = ((&aml_notify_list)->slh_first); (pdata) != ((void *)0); (pdata) = ((pdata)->link.sle_next)) | |||
544 | if (pdata->node == node) | |||
545 | pdata->cbproc(pdata->node, notify_value, pdata->cbarg); | |||
546 | } | |||
547 | ||||
548 | void | |||
549 | aml_register_notify(struct aml_node *node, const char *pnpid, | |||
550 | int (*proc)(struct aml_node *, int, void *), void *arg, int poll) | |||
551 | { | |||
552 | struct aml_notify_data *pdata; | |||
553 | extern int acpi_poll_enabled; | |||
554 | ||||
555 | dnprintf(10, "aml_register_notify: %s %s %p\n", | |||
556 | node->name, pnpid ? pnpid : "", proc); | |||
557 | ||||
558 | pdata = acpi_os_malloc(sizeof(struct aml_notify_data))_acpi_os_malloc(sizeof(struct aml_notify_data), __FUNCTION__, 558); | |||
559 | pdata->node = node; | |||
560 | pdata->cbarg = arg; | |||
561 | pdata->cbproc = proc; | |||
562 | pdata->poll = poll; | |||
563 | ||||
564 | if (pnpid) | |||
565 | strlcpy(pdata->pnpid, pnpid, sizeof(pdata->pnpid)); | |||
566 | ||||
567 | SLIST_INSERT_HEAD(&aml_notify_list, pdata, link)do { (pdata)->link.sle_next = (&aml_notify_list)->slh_first ; (&aml_notify_list)->slh_first = (pdata); } while (0); | |||
568 | ||||
569 | if (poll && !acpi_poll_enabled) | |||
570 | timeout_add_sec(&acpi_softc->sc_dev_timeout, 10); | |||
571 | } | |||
572 | ||||
573 | void | |||
574 | aml_notify(struct aml_node *node, int notify_value) | |||
575 | { | |||
576 | if (node == NULL((void *)0)) | |||
577 | return; | |||
578 | ||||
579 | dnprintf(10,"queue notify: %s %x\n", aml_nodename(node), notify_value); | |||
580 | acpi_addtask(acpi_softc, aml_notify_task, node, notify_value); | |||
581 | } | |||
582 | ||||
583 | void | |||
584 | aml_notify_dev(const char *pnpid, int notify_value) | |||
585 | { | |||
586 | struct aml_notify_data *pdata = NULL((void *)0); | |||
587 | ||||
588 | if (pnpid == NULL((void *)0)) | |||
589 | return; | |||
590 | ||||
591 | SLIST_FOREACH(pdata, &aml_notify_list, link)for((pdata) = ((&aml_notify_list)->slh_first); (pdata) != ((void *)0); (pdata) = ((pdata)->link.sle_next)) | |||
592 | if (strcmp(pdata->pnpid, pnpid) == 0) | |||
593 | pdata->cbproc(pdata->node, notify_value, pdata->cbarg); | |||
594 | } | |||
595 | ||||
596 | void | |||
597 | acpi_poll_notify_task(void *arg0, int arg1) | |||
598 | { | |||
599 | struct aml_notify_data *pdata = NULL((void *)0); | |||
600 | ||||
601 | SLIST_FOREACH(pdata, &aml_notify_list, link)for((pdata) = ((&aml_notify_list)->slh_first); (pdata) != ((void *)0); (pdata) = ((pdata)->link.sle_next)) | |||
602 | if (pdata->cbproc && pdata->poll) | |||
603 | pdata->cbproc(pdata->node, 0, pdata->cbarg); | |||
604 | } | |||
605 | ||||
606 | /* | |||
607 | * @@@: Namespace functions | |||
608 | */ | |||
609 | ||||
610 | struct aml_node *__aml_search(struct aml_node *, uint8_t *, int); | |||
611 | struct aml_node *__aml_searchname(struct aml_node *, const void *, int); | |||
612 | void aml_delchildren(struct aml_node *); | |||
613 | ||||
614 | ||||
615 | /* Search for a name in children nodes */ | |||
616 | struct aml_node * | |||
617 | __aml_search(struct aml_node *root, uint8_t *nameseg, int create) | |||
618 | { | |||
619 | struct aml_node *node; | |||
620 | ||||
621 | /* XXX: Replace with SLIST/SIMPLEQ routines */ | |||
622 | if (root == NULL((void *)0)) | |||
623 | return NULL((void *)0); | |||
624 | SIMPLEQ_FOREACH(node, &root->son, sib)for((node) = ((&root->son)->sqh_first); (node) != ( (void *)0); (node) = ((node)->sib.sqe_next)) { | |||
625 | if (!strncmp(node->name, nameseg, AML_NAMESEG_LEN4)) | |||
626 | return node; | |||
627 | } | |||
628 | if (create) { | |||
629 | node = acpi_os_malloc(sizeof(struct aml_node))_acpi_os_malloc(sizeof(struct aml_node), __FUNCTION__, 629); | |||
630 | memcpy((void *)node->name, nameseg, AML_NAMESEG_LEN)__builtin_memcpy(((void *)node->name), (nameseg), (4)); | |||
631 | node->value = aml_allocvalue(0,0,NULL((void *)0)); | |||
632 | node->value->node = node; | |||
633 | node->parent = root; | |||
634 | ||||
635 | SIMPLEQ_INIT(&node->son)do { (&node->son)->sqh_first = ((void *)0); (&node ->son)->sqh_last = &(&node->son)->sqh_first ; } while (0); | |||
636 | SIMPLEQ_INSERT_TAIL(&root->son, node, sib)do { (node)->sib.sqe_next = ((void *)0); *(&root->son )->sqh_last = (node); (&root->son)->sqh_last = & (node)->sib.sqe_next; } while (0); | |||
637 | return node; | |||
638 | } | |||
639 | return NULL((void *)0); | |||
640 | } | |||
641 | ||||
642 | /* Get absolute pathname of AML node */ | |||
643 | const char * | |||
644 | aml_nodename(struct aml_node *node) | |||
645 | { | |||
646 | static char namebuf[128]; | |||
647 | ||||
648 | namebuf[0] = 0; | |||
649 | if (node) { | |||
650 | aml_nodename(node->parent); | |||
651 | if (node->parent != &aml_root) | |||
652 | strlcat(namebuf, ".", sizeof(namebuf)); | |||
653 | strlcat(namebuf, node->name, sizeof(namebuf)); | |||
654 | return namebuf+1; | |||
655 | } | |||
656 | return namebuf; | |||
657 | } | |||
658 | ||||
659 | const char * | |||
660 | aml_getname(const char *name) | |||
661 | { | |||
662 | static char namebuf[128], *p; | |||
663 | int count; | |||
664 | ||||
665 | p = namebuf; | |||
666 | while (*name == AMLOP_ROOTCHAR0x5C || *name == AMLOP_PARENTPREFIX0x5E) | |||
667 | *(p++) = *(name++); | |||
668 | switch (*name) { | |||
669 | case 0x00: | |||
670 | count = 0; | |||
671 | break; | |||
672 | case AMLOP_MULTINAMEPREFIX0x2F: | |||
673 | count = name[1]; | |||
674 | name += 2; | |||
675 | break; | |||
676 | case AMLOP_DUALNAMEPREFIX0x2E: | |||
677 | count = 2; | |||
678 | name += 1; | |||
679 | break; | |||
680 | default: | |||
681 | count = 1; | |||
682 | } | |||
683 | while (count--) { | |||
684 | memcpy(p, name, 4)__builtin_memcpy((p), (name), (4)); | |||
685 | p[4] = '.'; | |||
686 | p += 5; | |||
687 | name += 4; | |||
688 | if (*name == '.') name++; | |||
689 | } | |||
690 | *(--p) = 0; | |||
691 | return namebuf; | |||
692 | } | |||
693 | ||||
694 | /* Free all children nodes/values */ | |||
695 | void | |||
696 | aml_delchildren(struct aml_node *node) | |||
697 | { | |||
698 | struct aml_node *onode; | |||
699 | ||||
700 | if (node == NULL((void *)0)) | |||
701 | return; | |||
702 | while ((onode = SIMPLEQ_FIRST(&node->son)((&node->son)->sqh_first)) != NULL((void *)0)) { | |||
703 | SIMPLEQ_REMOVE_HEAD(&node->son, sib)do { if (((&node->son)->sqh_first = (&node-> son)->sqh_first->sib.sqe_next) == ((void *)0)) (&node ->son)->sqh_last = &(&node->son)->sqh_first ; } while (0); | |||
704 | ||||
705 | aml_delchildren(onode); | |||
706 | ||||
707 | /* Don't delete values that have references */ | |||
708 | if (onode->value && onode->value->refcnt > 1) | |||
709 | onode->value->node = NULL((void *)0); | |||
710 | ||||
711 | /* Decrease reference count */ | |||
712 | aml_delref(&onode->value, ""); | |||
713 | ||||
714 | /* Delete node */ | |||
715 | acpi_os_free(onode)_acpi_os_free(onode, __FUNCTION__, 715); | |||
716 | } | |||
717 | } | |||
718 | ||||
719 | /* | |||
720 | * @@@: Value functions | |||
721 | */ | |||
722 | ||||
723 | /* | |||
724 | * Field I/O code | |||
725 | */ | |||
726 | void aml_unlockfield(struct aml_scope *, struct aml_value *); | |||
727 | void aml_lockfield(struct aml_scope *, struct aml_value *); | |||
728 | ||||
729 | static long global_lock_count = 0; | |||
730 | ||||
731 | void | |||
732 | acpi_glk_enter(void) | |||
733 | { | |||
734 | int st = 0; | |||
735 | ||||
736 | /* If lock is already ours, just continue. */ | |||
737 | if (global_lock_count++) | |||
738 | return; | |||
739 | ||||
740 | /* Spin to acquire the lock. */ | |||
741 | while (!st) { | |||
742 | st = acpi_acquire_glk(&acpi_softc->sc_facs->global_lock); | |||
743 | /* XXX - yield/delay? */ | |||
744 | } | |||
745 | } | |||
746 | ||||
747 | void | |||
748 | acpi_glk_leave(void) | |||
749 | { | |||
750 | int st, x; | |||
751 | ||||
752 | /* If we are the last one, turn out the lights. */ | |||
753 | if (--global_lock_count) | |||
754 | return; | |||
755 | ||||
756 | st = acpi_release_glk(&acpi_softc->sc_facs->global_lock); | |||
757 | if (!st) | |||
758 | return; | |||
759 | ||||
760 | /* | |||
761 | * If pending, notify the BIOS that the lock was released by | |||
762 | * OSPM. No locking is needed because nobody outside the ACPI | |||
763 | * thread is supposed to touch this register. | |||
764 | */ | |||
765 | x = acpi_read_pmreg(acpi_softc, ACPIREG_PM1_CNT0x10, 0); | |||
766 | x |= ACPI_PM1_GBL_RLS0x0004; | |||
767 | acpi_write_pmreg(acpi_softc, ACPIREG_PM1_CNT0x10, 0, x); | |||
768 | } | |||
769 | ||||
770 | void | |||
771 | aml_lockfield(struct aml_scope *scope, struct aml_value *field) | |||
772 | { | |||
773 | if (AML_FIELD_LOCK(field->v_field.flags)(((field->_.vfield.flags) >> 4) & 0x1) != AML_FIELD_LOCK_ON0x1) | |||
774 | return; | |||
775 | ||||
776 | acpi_glk_enter(); | |||
777 | } | |||
778 | ||||
779 | void | |||
780 | aml_unlockfield(struct aml_scope *scope, struct aml_value *field) | |||
781 | { | |||
782 | if (AML_FIELD_LOCK(field->v_field.flags)(((field->_.vfield.flags) >> 4) & 0x1) != AML_FIELD_LOCK_ON0x1) | |||
783 | return; | |||
784 | ||||
785 | acpi_glk_leave(); | |||
786 | } | |||
787 | ||||
788 | /* | |||
789 | * @@@: Value set/compare/alloc/free routines | |||
790 | */ | |||
791 | ||||
792 | #ifndef SMALL_KERNEL | |||
793 | void | |||
794 | aml_showvalue(struct aml_value *val) | |||
795 | { | |||
796 | int idx; | |||
797 | ||||
798 | if (val == NULL((void *)0)) | |||
799 | return; | |||
800 | ||||
801 | if (val->node) | |||
802 | printf(" [%s]", aml_nodename(val->node)); | |||
803 | printf(" %p cnt:%.2x stk:%.2x", val, val->refcnt, val->stack); | |||
804 | switch (val->type) { | |||
805 | case AML_OBJTYPE_INTEGER: | |||
806 | printf(" integer: %llx\n", val->v_integer_.vinteger); | |||
807 | break; | |||
808 | case AML_OBJTYPE_STRING: | |||
809 | printf(" string: %s\n", val->v_string_.vstring); | |||
810 | break; | |||
811 | case AML_OBJTYPE_METHOD: | |||
812 | printf(" method: %.2x\n", val->v_method_.vmethod.flags); | |||
813 | break; | |||
814 | case AML_OBJTYPE_PACKAGE: | |||
815 | printf(" package: %.2x\n", val->length); | |||
816 | for (idx = 0; idx < val->length; idx++) | |||
817 | aml_showvalue(val->v_package_.vpackage[idx]); | |||
818 | break; | |||
819 | case AML_OBJTYPE_BUFFER: | |||
820 | printf(" buffer: %.2x {", val->length); | |||
821 | for (idx = 0; idx < val->length; idx++) | |||
822 | printf("%s%.2x", idx ? ", " : "", val->v_buffer_.vbuffer[idx]); | |||
823 | printf("}\n"); | |||
824 | break; | |||
825 | case AML_OBJTYPE_FIELDUNIT: | |||
826 | case AML_OBJTYPE_BUFFERFIELD: | |||
827 | printf(" field: bitpos=%.4x bitlen=%.4x ref1:%p ref2:%p [%s]\n", | |||
828 | val->v_field_.vfield.bitpos, val->v_field_.vfield.bitlen, | |||
829 | val->v_field_.vfield.ref1, val->v_field_.vfield.ref2, | |||
830 | aml_mnem(val->v_field_.vfield.type, NULL((void *)0))); | |||
831 | if (val->v_field_.vfield.ref1) | |||
832 | printf(" ref1: %s\n", aml_nodename(val->v_field_.vfield.ref1->node)); | |||
833 | if (val->v_field_.vfield.ref2) | |||
834 | printf(" ref2: %s\n", aml_nodename(val->v_field_.vfield.ref2->node)); | |||
835 | break; | |||
836 | case AML_OBJTYPE_MUTEX: | |||
837 | printf(" mutex: %s ref: %d\n", | |||
838 | val->v_mutex_.vmutex ? val->v_mutex_.vmutex->amt_name : "", | |||
839 | val->v_mutex_.vmutex ? val->v_mutex_.vmutex->amt_ref_count : 0); | |||
840 | break; | |||
841 | case AML_OBJTYPE_EVENT: | |||
842 | printf(" event:\n"); | |||
843 | break; | |||
844 | case AML_OBJTYPE_OPREGION: | |||
845 | printf(" opregion: %.2x,%.8llx,%x\n", | |||
846 | val->v_opregion_.vopregion.iospace, val->v_opregion_.vopregion.iobase, | |||
847 | val->v_opregion_.vopregion.iolen); | |||
848 | break; | |||
849 | case AML_OBJTYPE_NAMEREF: | |||
850 | printf(" nameref: %s\n", aml_getname(val->v_nameref_.vbuffer)); | |||
851 | break; | |||
852 | case AML_OBJTYPE_DEVICE: | |||
853 | printf(" device:\n"); | |||
854 | break; | |||
855 | case AML_OBJTYPE_PROCESSOR: | |||
856 | printf(" cpu: %.2x,%.4x,%.2x\n", | |||
857 | val->v_processor_.vprocessor.proc_id, val->v_processor_.vprocessor.proc_addr, | |||
858 | val->v_processor_.vprocessor.proc_len); | |||
859 | break; | |||
860 | case AML_OBJTYPE_THERMZONE: | |||
861 | printf(" thermzone:\n"); | |||
862 | break; | |||
863 | case AML_OBJTYPE_POWERRSRC: | |||
864 | printf(" pwrrsrc: %.2x,%.2x\n", | |||
865 | val->v_powerrsrc_.vpowerrsrc.pwr_level, val->v_powerrsrc_.vpowerrsrc.pwr_order); | |||
866 | break; | |||
867 | case AML_OBJTYPE_OBJREF: | |||
868 | printf(" objref: %p index:%x opcode:%s\n", val->v_objref_.vobjref.ref, | |||
869 | val->v_objref_.vobjref.index, aml_mnem(val->v_objref_.vobjref.type, 0)); | |||
870 | aml_showvalue(val->v_objref_.vobjref.ref); | |||
871 | break; | |||
872 | default: | |||
873 | printf(" !!type: %x\n", val->type); | |||
874 | } | |||
875 | } | |||
876 | #endif /* SMALL_KERNEL */ | |||
877 | ||||
878 | int64_t | |||
879 | aml_val2int(struct aml_value *rval) | |||
880 | { | |||
881 | int64_t ival = 0; | |||
882 | ||||
883 | if (rval == NULL((void *)0)) { | |||
884 | dnprintf(50, "null val2int\n"); | |||
885 | return (0); | |||
886 | } | |||
887 | switch (rval->type) { | |||
888 | case AML_OBJTYPE_INTEGER: | |||
889 | ival = rval->v_integer_.vinteger; | |||
890 | break; | |||
891 | case AML_OBJTYPE_BUFFER: | |||
892 | aml_bufcpy(&ival, 0, rval->v_buffer_.vbuffer, 0, | |||
893 | min(aml_intlen, rval->length*8)); | |||
894 | break; | |||
895 | case AML_OBJTYPE_STRING: | |||
896 | ival = aml_hextoint(rval->v_string_.vstring); | |||
897 | break; | |||
898 | } | |||
899 | return (ival); | |||
900 | } | |||
901 | ||||
902 | /* Sets value into LHS: lhs must already be cleared */ | |||
903 | struct aml_value * | |||
904 | _aml_setvalue(struct aml_value *lhs, int type, int64_t ival, const void *bval) | |||
905 | { | |||
906 | memset(&lhs->_, 0x0, sizeof(lhs->_))__builtin_memset((&lhs->_), (0x0), (sizeof(lhs->_)) ); | |||
907 | ||||
908 | lhs->type = type; | |||
909 | switch (lhs->type) { | |||
910 | case AML_OBJTYPE_INTEGER: | |||
911 | lhs->length = aml_intlen>>3; | |||
912 | lhs->v_integer_.vinteger = ival; | |||
913 | break; | |||
914 | case AML_OBJTYPE_METHOD: | |||
915 | lhs->v_method_.vmethod.flags = ival; | |||
916 | lhs->v_method_.vmethod.fneval = bval; | |||
917 | break; | |||
918 | case AML_OBJTYPE_NAMEREF: | |||
919 | lhs->v_nameref_.vbuffer = (uint8_t *)bval; | |||
920 | break; | |||
921 | case AML_OBJTYPE_OBJREF: | |||
922 | lhs->v_objref_.vobjref.type = ival; | |||
923 | lhs->v_objref_.vobjref.ref = (struct aml_value *)bval; | |||
924 | break; | |||
925 | case AML_OBJTYPE_BUFFER: | |||
926 | lhs->length = ival; | |||
927 | lhs->v_buffer_.vbuffer = (uint8_t *)acpi_os_malloc(ival)_acpi_os_malloc(ival, __FUNCTION__, 927); | |||
928 | if (bval) | |||
929 | memcpy(lhs->v_buffer, bval, ival)__builtin_memcpy((lhs->_.vbuffer), (bval), (ival)); | |||
930 | break; | |||
931 | case AML_OBJTYPE_STRING: | |||
932 | if (ival == -1) | |||
933 | ival = strlen((const char *)bval); | |||
934 | lhs->length = ival; | |||
935 | lhs->v_string_.vstring = (char *)acpi_os_malloc(ival+1)_acpi_os_malloc(ival+1, __FUNCTION__, 935); | |||
936 | if (bval) | |||
937 | strncpy(lhs->v_string_.vstring, (const char *)bval, ival); | |||
938 | break; | |||
939 | case AML_OBJTYPE_PACKAGE: | |||
940 | lhs->length = ival; | |||
941 | lhs->v_package_.vpackage = (struct aml_value **)acpi_os_malloc(ival *_acpi_os_malloc(ival * sizeof(struct aml_value *), __FUNCTION__ , 942) | |||
942 | sizeof(struct aml_value *))_acpi_os_malloc(ival * sizeof(struct aml_value *), __FUNCTION__ , 942); | |||
943 | for (ival = 0; ival < lhs->length; ival++) | |||
944 | lhs->v_package_.vpackage[ival] = aml_allocvalue( | |||
945 | AML_OBJTYPE_UNINITIALIZED, 0, NULL((void *)0)); | |||
946 | break; | |||
947 | } | |||
948 | return lhs; | |||
949 | } | |||
950 | ||||
951 | /* Copy object to another value: lhs must already be cleared */ | |||
952 | void | |||
953 | aml_copyvalue(struct aml_value *lhs, struct aml_value *rhs) | |||
954 | { | |||
955 | int idx; | |||
956 | ||||
957 | lhs->type = rhs->type; | |||
958 | switch (lhs->type) { | |||
959 | case AML_OBJTYPE_UNINITIALIZED: | |||
960 | break; | |||
961 | case AML_OBJTYPE_INTEGER: | |||
962 | lhs->length = aml_intlen>>3; | |||
963 | lhs->v_integer_.vinteger = rhs->v_integer_.vinteger; | |||
964 | break; | |||
965 | case AML_OBJTYPE_MUTEX: | |||
966 | lhs->v_mutex_.vmutex = rhs->v_mutex_.vmutex; | |||
967 | break; | |||
968 | case AML_OBJTYPE_POWERRSRC: | |||
969 | lhs->node = rhs->node; | |||
970 | lhs->v_powerrsrc_.vpowerrsrc = rhs->v_powerrsrc_.vpowerrsrc; | |||
971 | break; | |||
972 | case AML_OBJTYPE_METHOD: | |||
973 | lhs->v_method_.vmethod = rhs->v_method_.vmethod; | |||
974 | break; | |||
975 | case AML_OBJTYPE_BUFFER: | |||
976 | _aml_setvalue(lhs, rhs->type, rhs->length, rhs->v_buffer_.vbuffer); | |||
977 | break; | |||
978 | case AML_OBJTYPE_STRING: | |||
979 | _aml_setvalue(lhs, rhs->type, rhs->length, rhs->v_string_.vstring); | |||
980 | break; | |||
981 | case AML_OBJTYPE_OPREGION: | |||
982 | lhs->v_opregion_.vopregion = rhs->v_opregion_.vopregion; | |||
983 | break; | |||
984 | case AML_OBJTYPE_PROCESSOR: | |||
985 | lhs->node = rhs->node; | |||
986 | lhs->v_processor_.vprocessor = rhs->v_processor_.vprocessor; | |||
987 | break; | |||
988 | case AML_OBJTYPE_NAMEREF: | |||
989 | lhs->v_nameref_.vbuffer = rhs->v_nameref_.vbuffer; | |||
990 | break; | |||
991 | case AML_OBJTYPE_PACKAGE: | |||
992 | _aml_setvalue(lhs, rhs->type, rhs->length, NULL((void *)0)); | |||
993 | for (idx = 0; idx < rhs->length; idx++) | |||
994 | aml_copyvalue(lhs->v_package_.vpackage[idx], rhs->v_package_.vpackage[idx]); | |||
995 | break; | |||
996 | case AML_OBJTYPE_OBJREF: | |||
997 | lhs->v_objref_.vobjref = rhs->v_objref_.vobjref; | |||
998 | aml_addref(lhs->v_objref_.vobjref.ref, ""); | |||
999 | break; | |||
1000 | case AML_OBJTYPE_DEVICE: | |||
1001 | case AML_OBJTYPE_THERMZONE: | |||
1002 | lhs->node = rhs->node; | |||
1003 | break; | |||
1004 | default: | |||
1005 | printf("copyvalue: %x", rhs->type); | |||
1006 | break; | |||
1007 | } | |||
1008 | } | |||
1009 | ||||
1010 | /* Allocate dynamic AML value | |||
1011 | * type : Type of object to allocate (AML_OBJTYPE_XXXX) | |||
1012 | * ival : Integer value (action depends on type) | |||
1013 | * bval : Buffer value (action depends on type) | |||
1014 | */ | |||
1015 | struct aml_value * | |||
1016 | aml_allocvalue(int type, int64_t ival, const void *bval) | |||
1017 | { | |||
1018 | struct aml_value *rv; | |||
1019 | ||||
1020 | rv = (struct aml_value *)acpi_os_malloc(sizeof(struct aml_value))_acpi_os_malloc(sizeof(struct aml_value), __FUNCTION__, 1020); | |||
1021 | if (rv != NULL((void *)0)) { | |||
1022 | aml_addref(rv, ""); | |||
1023 | return _aml_setvalue(rv, type, ival, bval); | |||
1024 | } | |||
1025 | return NULL((void *)0); | |||
1026 | } | |||
1027 | ||||
1028 | void | |||
1029 | aml_freevalue(struct aml_value *val) | |||
1030 | { | |||
1031 | int idx; | |||
1032 | ||||
1033 | if (val == NULL((void *)0)) | |||
1034 | return; | |||
1035 | switch (val->type) { | |||
1036 | case AML_OBJTYPE_STRING: | |||
1037 | acpi_os_free(val->v_string)_acpi_os_free(val->_.vstring, __FUNCTION__, 1037); | |||
1038 | break; | |||
1039 | case AML_OBJTYPE_BUFFER: | |||
1040 | acpi_os_free(val->v_buffer)_acpi_os_free(val->_.vbuffer, __FUNCTION__, 1040); | |||
1041 | break; | |||
1042 | case AML_OBJTYPE_PACKAGE: | |||
1043 | for (idx = 0; idx < val->length; idx++) | |||
1044 | aml_delref(&val->v_package_.vpackage[idx], ""); | |||
1045 | acpi_os_free(val->v_package)_acpi_os_free(val->_.vpackage, __FUNCTION__, 1045); | |||
1046 | break; | |||
1047 | case AML_OBJTYPE_OBJREF: | |||
1048 | aml_delref(&val->v_objref_.vobjref.ref, ""); | |||
1049 | break; | |||
1050 | case AML_OBJTYPE_BUFFERFIELD: | |||
1051 | case AML_OBJTYPE_FIELDUNIT: | |||
1052 | aml_delref(&val->v_field_.vfield.ref1, ""); | |||
1053 | aml_delref(&val->v_field_.vfield.ref2, ""); | |||
1054 | break; | |||
1055 | } | |||
1056 | val->type = 0; | |||
1057 | memset(&val->_, 0, sizeof(val->_))__builtin_memset((&val->_), (0), (sizeof(val->_))); | |||
1058 | } | |||
1059 | ||||
1060 | /* | |||
1061 | * @@@: Math eval routines | |||
1062 | */ | |||
1063 | ||||
1064 | /* Convert number from one radix to another | |||
1065 | * Used in BCD conversion routines */ | |||
1066 | uint64_t | |||
1067 | aml_convradix(uint64_t val, int iradix, int oradix) | |||
1068 | { | |||
1069 | uint64_t rv = 0, pwr; | |||
1070 | ||||
1071 | rv = 0; | |||
1072 | pwr = 1; | |||
1073 | while (val) { | |||
1074 | rv += (val % iradix) * pwr; | |||
1075 | val /= iradix; | |||
1076 | pwr *= oradix; | |||
1077 | } | |||
1078 | return rv; | |||
1079 | } | |||
1080 | ||||
1081 | /* Calculate LSB */ | |||
1082 | int | |||
1083 | aml_lsb(uint64_t val) | |||
1084 | { | |||
1085 | int lsb; | |||
1086 | ||||
1087 | if (val == 0) | |||
1088 | return (0); | |||
1089 | ||||
1090 | for (lsb = 1; !(val & 0x1); lsb++) | |||
1091 | val >>= 1; | |||
1092 | ||||
1093 | return (lsb); | |||
1094 | } | |||
1095 | ||||
1096 | /* Calculate MSB */ | |||
1097 | int | |||
1098 | aml_msb(uint64_t val) | |||
1099 | { | |||
1100 | int msb; | |||
1101 | ||||
1102 | if (val == 0) | |||
1103 | return (0); | |||
1104 | ||||
1105 | for (msb = 1; val != 0x1; msb++) | |||
1106 | val >>= 1; | |||
1107 | ||||
1108 | return (msb); | |||
1109 | } | |||
1110 | ||||
1111 | /* Evaluate Math operands */ | |||
1112 | uint64_t | |||
1113 | aml_evalexpr(uint64_t lhs, uint64_t rhs, int opcode) | |||
1114 | { | |||
1115 | uint64_t res = 0; | |||
1116 | ||||
1117 | switch (opcode) { | |||
1118 | /* Math operations */ | |||
1119 | case AMLOP_INCREMENT0x75: | |||
1120 | case AMLOP_ADD0x72: | |||
1121 | res = (lhs + rhs); | |||
1122 | break; | |||
1123 | case AMLOP_DECREMENT0x76: | |||
1124 | case AMLOP_SUBTRACT0x74: | |||
1125 | res = (lhs - rhs); | |||
1126 | break; | |||
1127 | case AMLOP_MULTIPLY0x77: | |||
1128 | res = (lhs * rhs); | |||
1129 | break; | |||
1130 | case AMLOP_DIVIDE0x78: | |||
1131 | res = (lhs / rhs); | |||
1132 | break; | |||
1133 | case AMLOP_MOD0x85: | |||
1134 | res = (lhs % rhs); | |||
1135 | break; | |||
1136 | case AMLOP_SHL0x79: | |||
1137 | res = (lhs << rhs); | |||
1138 | break; | |||
1139 | case AMLOP_SHR0x7A: | |||
1140 | res = (lhs >> rhs); | |||
1141 | break; | |||
1142 | case AMLOP_AND0x7B: | |||
1143 | res = (lhs & rhs); | |||
1144 | break; | |||
1145 | case AMLOP_NAND0x7C: | |||
1146 | res = ~(lhs & rhs); | |||
1147 | break; | |||
1148 | case AMLOP_OR0x7D: | |||
1149 | res = (lhs | rhs); | |||
1150 | break; | |||
1151 | case AMLOP_NOR0x7E: | |||
1152 | res = ~(lhs | rhs); | |||
1153 | break; | |||
1154 | case AMLOP_XOR0x7F: | |||
1155 | res = (lhs ^ rhs); | |||
1156 | break; | |||
1157 | case AMLOP_NOT0x80: | |||
1158 | res = ~(lhs); | |||
1159 | break; | |||
1160 | ||||
1161 | /* Conversion/misc */ | |||
1162 | case AMLOP_FINDSETLEFTBIT0x81: | |||
1163 | res = aml_msb(lhs); | |||
1164 | break; | |||
1165 | case AMLOP_FINDSETRIGHTBIT0x82: | |||
1166 | res = aml_lsb(lhs); | |||
1167 | break; | |||
1168 | case AMLOP_TOINTEGER0x99: | |||
1169 | res = (lhs); | |||
1170 | break; | |||
1171 | case AMLOP_FROMBCD0x5B28: | |||
1172 | res = aml_convradix(lhs, 16, 10); | |||
1173 | break; | |||
1174 | case AMLOP_TOBCD0x5B29: | |||
1175 | res = aml_convradix(lhs, 10, 16); | |||
1176 | break; | |||
1177 | ||||
1178 | /* Logical/Comparison */ | |||
1179 | case AMLOP_LAND0x90: | |||
1180 | res = -(lhs && rhs); | |||
1181 | break; | |||
1182 | case AMLOP_LOR0x91: | |||
1183 | res = -(lhs || rhs); | |||
1184 | break; | |||
1185 | case AMLOP_LNOT0x92: | |||
1186 | res = -(!lhs); | |||
1187 | break; | |||
1188 | case AMLOP_LNOTEQUAL0x9293: | |||
1189 | res = -(lhs != rhs); | |||
1190 | break; | |||
1191 | case AMLOP_LLESSEQUAL0x9294: | |||
1192 | res = -(lhs <= rhs); | |||
1193 | break; | |||
1194 | case AMLOP_LGREATEREQUAL0x9295: | |||
1195 | res = -(lhs >= rhs); | |||
1196 | break; | |||
1197 | case AMLOP_LEQUAL0x93: | |||
1198 | res = -(lhs == rhs); | |||
1199 | break; | |||
1200 | case AMLOP_LGREATER0x94: | |||
1201 | res = -(lhs > rhs); | |||
1202 | break; | |||
1203 | case AMLOP_LLESS0x95: | |||
1204 | res = -(lhs < rhs); | |||
1205 | break; | |||
1206 | } | |||
1207 | ||||
1208 | dnprintf(15,"aml_evalexpr: %s %llx %llx = %llx\n", | |||
1209 | aml_mnem(opcode, NULL), lhs, rhs, res); | |||
1210 | ||||
1211 | return res; | |||
1212 | } | |||
1213 | ||||
1214 | /* | |||
1215 | * aml_bufcpy copies/shifts buffer data, special case for aligned transfers | |||
1216 | * dstPos/srcPos are bit positions within destination/source buffers | |||
1217 | */ | |||
1218 | void | |||
1219 | aml_bufcpy(void *pvDst, int dstPos, const void *pvSrc, int srcPos, int len) | |||
1220 | { | |||
1221 | const uint8_t *pSrc = pvSrc; | |||
1222 | uint8_t *pDst = pvDst; | |||
1223 | int idx; | |||
1224 | ||||
1225 | if (aml_bytealigned(dstPos|srcPos|len)!((dstPos|srcPos|len)&0x7)) { | |||
1226 | /* Aligned transfer: use memcpy */ | |||
1227 | memcpy(pDst+aml_bytepos(dstPos), pSrc+aml_bytepos(srcPos),__builtin_memcpy((pDst+((dstPos)>>3)), (pSrc+((srcPos)>> 3)), ((((len)+7)>>3))) | |||
1228 | aml_bytelen(len))__builtin_memcpy((pDst+((dstPos)>>3)), (pSrc+((srcPos)>> 3)), ((((len)+7)>>3))); | |||
1229 | return; | |||
1230 | } | |||
1231 | ||||
1232 | /* Misaligned transfer: perform bitwise copy (slow) */ | |||
1233 | for (idx = 0; idx < len; idx++) | |||
1234 | aml_setbit(pDst, idx + dstPos, aml_tstbit(pSrc, idx + srcPos)); | |||
1235 | } | |||
1236 | ||||
1237 | /* | |||
1238 | * @@@: External API | |||
1239 | * | |||
1240 | * evaluate an AML node | |||
1241 | * Returns a copy of the value in res (must be freed by user) | |||
1242 | */ | |||
1243 | ||||
1244 | void | |||
1245 | aml_walknodes(struct aml_node *node, int mode, | |||
1246 | int (*nodecb)(struct aml_node *, void *), void *arg) | |||
1247 | { | |||
1248 | struct aml_node *child; | |||
1249 | ||||
1250 | if (node == NULL((void *)0)) | |||
1251 | return; | |||
1252 | if (mode == AML_WALK_PRE0x00) | |||
1253 | if (nodecb(node, arg)) | |||
1254 | return; | |||
1255 | SIMPLEQ_FOREACH(child, &node->son, sib)for((child) = ((&node->son)->sqh_first); (child) != ((void *)0); (child) = ((child)->sib.sqe_next)) | |||
1256 | aml_walknodes(child, mode, nodecb, arg); | |||
1257 | if (mode == AML_WALK_POST0x01) | |||
1258 | nodecb(node, arg); | |||
1259 | } | |||
1260 | ||||
1261 | void | |||
1262 | aml_find_node(struct aml_node *node, const char *name, | |||
1263 | int (*cbproc)(struct aml_node *, void *arg), void *arg) | |||
1264 | { | |||
1265 | struct aml_node *child; | |||
1266 | const char *nn; | |||
1267 | ||||
1268 | /* match child of this node first before recursing */ | |||
1269 | SIMPLEQ_FOREACH(child, &node->son, sib)for((child) = ((&node->son)->sqh_first); (child) != ((void *)0); (child) = ((child)->sib.sqe_next)) { | |||
1270 | nn = child->name; | |||
1271 | if (nn != NULL((void *)0)) { | |||
1272 | if (*nn == AMLOP_ROOTCHAR0x5C) nn++; | |||
1273 | while (*nn == AMLOP_PARENTPREFIX0x5E) nn++; | |||
1274 | if (strcmp(name, nn) == 0) { | |||
1275 | /* Only recurse if cbproc() wants us to */ | |||
1276 | if (cbproc(child, arg) != 0) | |||
1277 | return; | |||
1278 | } | |||
1279 | } | |||
1280 | } | |||
1281 | ||||
1282 | SIMPLEQ_FOREACH(child, &node->son, sib)for((child) = ((&node->son)->sqh_first); (child) != ((void *)0); (child) = ((child)->sib.sqe_next)) | |||
1283 | aml_find_node(child, name, cbproc, arg); | |||
1284 | } | |||
1285 | ||||
1286 | /* | |||
1287 | * @@@: Parser functions | |||
1288 | */ | |||
1289 | uint8_t *aml_parsename(struct aml_node *, uint8_t *, struct aml_value **, int); | |||
1290 | uint8_t *aml_parseend(struct aml_scope *scope); | |||
1291 | int aml_parselength(struct aml_scope *); | |||
1292 | int aml_parseopcode(struct aml_scope *); | |||
1293 | ||||
1294 | /* Get AML Opcode */ | |||
1295 | int | |||
1296 | aml_parseopcode(struct aml_scope *scope) | |||
1297 | { | |||
1298 | int opcode = (scope->pos[0]); | |||
1299 | int twocode = (scope->pos[0]<<8) + scope->pos[1]; | |||
1300 | ||||
1301 | /* Check if this is an embedded name */ | |||
1302 | switch (opcode) { | |||
1303 | case AMLOP_ROOTCHAR0x5C: | |||
1304 | case AMLOP_PARENTPREFIX0x5E: | |||
1305 | case AMLOP_MULTINAMEPREFIX0x2F: | |||
1306 | case AMLOP_DUALNAMEPREFIX0x2E: | |||
1307 | case AMLOP_NAMECHAR0x5F: | |||
1308 | return AMLOP_NAMECHAR0x5F; | |||
1309 | } | |||
1310 | if (opcode >= 'A' && opcode <= 'Z') | |||
1311 | return AMLOP_NAMECHAR0x5F; | |||
1312 | if (twocode == AMLOP_LNOTEQUAL0x9293 || twocode == AMLOP_LLESSEQUAL0x9294 || | |||
1313 | twocode == AMLOP_LGREATEREQUAL0x9295 || opcode
| |||
1314 | scope->pos += 2; | |||
1315 | return twocode; | |||
1316 | } | |||
1317 | scope->pos += 1; | |||
1318 | return opcode; | |||
1319 | } | |||
1320 | ||||
1321 | /* Decode embedded AML Namestring */ | |||
1322 | uint8_t * | |||
1323 | aml_parsename(struct aml_node *inode, uint8_t *pos, struct aml_value **rval, int create) | |||
1324 | { | |||
1325 | struct aml_node *relnode, *node = inode; | |||
1326 | uint8_t *start = pos; | |||
1327 | int i; | |||
1328 | ||||
1329 | if (*pos == AMLOP_ROOTCHAR0x5C) { | |||
1330 | pos++; | |||
1331 | node = &aml_root; | |||
1332 | } | |||
1333 | while (*pos == AMLOP_PARENTPREFIX0x5E) { | |||
1334 | pos++; | |||
1335 | if ((node = node->parent) == NULL((void *)0)) | |||
1336 | node = &aml_root; | |||
1337 | } | |||
1338 | switch (*pos) { | |||
1339 | case 0x00: | |||
1340 | pos++; | |||
1341 | break; | |||
1342 | case AMLOP_MULTINAMEPREFIX0x2F: | |||
1343 | for (i=0; i<pos[1]; i++) | |||
1344 | node = __aml_search(node, pos+2+i*AML_NAMESEG_LEN4, | |||
1345 | create); | |||
1346 | pos += 2+i*AML_NAMESEG_LEN4; | |||
1347 | break; | |||
1348 | case AMLOP_DUALNAMEPREFIX0x2E: | |||
1349 | node = __aml_search(node, pos+1, create); | |||
1350 | node = __aml_search(node, pos+1+AML_NAMESEG_LEN4, create); | |||
1351 | pos += 1+2*AML_NAMESEG_LEN4; | |||
1352 | break; | |||
1353 | default: | |||
1354 | /* If Relative Search (pos == start), recursively go up root */ | |||
1355 | relnode = node; | |||
1356 | do { | |||
1357 | node = __aml_search(relnode, pos, create); | |||
1358 | relnode = relnode->parent; | |||
1359 | } while (!node && pos == start && relnode); | |||
1360 | pos += AML_NAMESEG_LEN4; | |||
1361 | break; | |||
1362 | } | |||
1363 | if (node) { | |||
1364 | *rval = node->value; | |||
1365 | ||||
1366 | /* Dereference ALIAS here */ | |||
1367 | if ((*rval)->type == AML_OBJTYPE_OBJREF && | |||
1368 | (*rval)->v_objref_.vobjref.type == AMLOP_ALIAS0x06) { | |||
1369 | dnprintf(10, "deref alias: %s\n", aml_nodename(node)); | |||
1370 | *rval = (*rval)->v_objref_.vobjref.ref; | |||
1371 | } | |||
1372 | aml_addref(*rval, 0); | |||
1373 | ||||
1374 | dnprintf(10, "parsename: %s %x\n", aml_nodename(node), | |||
1375 | (*rval)->type); | |||
1376 | } else { | |||
1377 | *rval = aml_allocvalue(AML_OBJTYPE_NAMEREF, 0, start); | |||
1378 | ||||
1379 | dnprintf(10, "%s:%s not found\n", aml_nodename(inode), | |||
1380 | aml_getname(start)); | |||
1381 | } | |||
1382 | ||||
1383 | return pos; | |||
1384 | } | |||
1385 | ||||
1386 | /* Decode AML Length field | |||
1387 | * AML Length field is encoded: | |||
1388 | * byte0 byte1 byte2 byte3 | |||
1389 | * 00xxxxxx : if upper bits == 00, length = xxxxxx | |||
1390 | * 01--xxxx yyyyyyyy : if upper bits == 01, length = yyyyyyyyxxxx | |||
1391 | * 10--xxxx yyyyyyyy zzzzzzzz : if upper bits == 10, length = zzzzzzzzyyyyyyyyxxxx | |||
1392 | * 11--xxxx yyyyyyyy zzzzzzzz wwwwwwww : if upper bits == 11, length = wwwwwwwwzzzzzzzzyyyyyyyyxxxx | |||
1393 | */ | |||
1394 | int | |||
1395 | aml_parselength(struct aml_scope *scope) | |||
1396 | { | |||
1397 | int len; | |||
1398 | uint8_t lcode; | |||
1399 | ||||
1400 | lcode = *(scope->pos++); | |||
1401 | if (lcode <= 0x3F) | |||
1402 | return lcode; | |||
1403 | ||||
1404 | /* lcode >= 0x40, multibyte length, get first byte of extended length */ | |||
1405 | len = lcode & 0xF; | |||
1406 | len += *(scope->pos++) << 4L; | |||
1407 | if (lcode >= 0x80) | |||
1408 | len += *(scope->pos++) << 12L; | |||
1409 | if (lcode >= 0xC0) | |||
1410 | len += *(scope->pos++) << 20L; | |||
1411 | return len; | |||
1412 | } | |||
1413 | ||||
1414 | /* Get address of end of scope; based on current address */ | |||
1415 | uint8_t * | |||
1416 | aml_parseend(struct aml_scope *scope) | |||
1417 | { | |||
1418 | uint8_t *pos = scope->pos; | |||
1419 | int len; | |||
1420 | ||||
1421 | len = aml_parselength(scope); | |||
1422 | if (pos+len > scope->end) { | |||
1423 | dnprintf(10, | |||
1424 | "Bad scope... runover pos:%.4x new end:%.4x scope " | |||
1425 | "end:%.4x\n", aml_pc(pos), aml_pc(pos+len), | |||
1426 | aml_pc(scope->end)); | |||
1427 | return scope->end; | |||
1428 | } | |||
1429 | return pos+len; | |||
1430 | } | |||
1431 | ||||
1432 | /* | |||
1433 | * @@@: Opcode utility functions | |||
1434 | */ | |||
1435 | ||||
1436 | /* | |||
1437 | * @@@: Opcode functions | |||
1438 | */ | |||
1439 | ||||
1440 | int odp; | |||
1441 | ||||
1442 | const char hext[] = "0123456789ABCDEF"; | |||
1443 | ||||
1444 | const char * | |||
1445 | aml_eisaid(uint32_t pid) | |||
1446 | { | |||
1447 | static char id[8]; | |||
1448 | ||||
1449 | id[0] = '@' + ((pid >> 2) & 0x1F); | |||
1450 | id[1] = '@' + ((pid << 3) & 0x18) + ((pid >> 13) & 0x7); | |||
1451 | id[2] = '@' + ((pid >> 8) & 0x1F); | |||
1452 | id[3] = hext[(pid >> 20) & 0xF]; | |||
1453 | id[4] = hext[(pid >> 16) & 0xF]; | |||
1454 | id[5] = hext[(pid >> 28) & 0xF]; | |||
1455 | id[6] = hext[(pid >> 24) & 0xF]; | |||
1456 | id[7] = 0; | |||
1457 | return id; | |||
1458 | } | |||
1459 | ||||
1460 | /* | |||
1461 | * @@@: Default Object creation | |||
1462 | */ | |||
1463 | static char osstring[] = "Macrosift Windogs MT"; | |||
1464 | struct aml_defval { | |||
1465 | const char *name; | |||
1466 | int type; | |||
1467 | int64_t ival; | |||
1468 | const void *bval; | |||
1469 | struct aml_value **gval; | |||
1470 | } aml_defobj[] = { | |||
1471 | { "_OS_", AML_OBJTYPE_STRING, -1, osstring }, | |||
1472 | { "_REV", AML_OBJTYPE_INTEGER, 2, NULL((void *)0) }, | |||
1473 | { "_GL", AML_OBJTYPE_MUTEX, 1, NULL((void *)0), &aml_global_lock }, | |||
1474 | { "_OSI", AML_OBJTYPE_METHOD, 1, aml_callosi }, | |||
1475 | ||||
1476 | /* Create default scopes */ | |||
1477 | { "_GPE", AML_OBJTYPE_DEVICE }, | |||
1478 | { "_PR_", AML_OBJTYPE_DEVICE }, | |||
1479 | { "_SB_", AML_OBJTYPE_DEVICE }, | |||
1480 | { "_TZ_", AML_OBJTYPE_DEVICE }, | |||
1481 | { "_SI_", AML_OBJTYPE_DEVICE }, | |||
1482 | ||||
1483 | { NULL((void *)0) } | |||
1484 | }; | |||
1485 | ||||
1486 | /* _OSI Default Method: | |||
1487 | * Returns True if string argument matches list of known OS strings | |||
1488 | * We return True for Windows to fake out nasty bad AML | |||
1489 | */ | |||
1490 | char *aml_valid_osi[] = { | |||
1491 | AML_VALID_OSI"Windows 2000", "Windows 2001", "Windows 2001.1", "Windows 2001.1 SP1" , "Windows 2001 SP0", "Windows 2001 SP1", "Windows 2001 SP2", "Windows 2001 SP3", "Windows 2001 SP4", "Windows 2006", "Windows 2006.1" , "Windows 2006 SP1", "Windows 2006 SP2", "Windows 2009", "Windows 2012" , "Windows 2013", "Windows 2015", "Windows 2016", "Windows 2017" , "Windows 2017.2", "Windows 2018", "Windows 2018.2", "Windows 2019" , "Windows 2020", "Windows 2021", "Windows 2022", | |||
1492 | NULL((void *)0) | |||
1493 | }; | |||
1494 | ||||
1495 | enum acpi_osi acpi_max_osi = OSI_UNKNOWN; | |||
1496 | ||||
1497 | struct aml_value * | |||
1498 | aml_callosi(struct aml_scope *scope, struct aml_value *val) | |||
1499 | { | |||
1500 | int idx, result=0; | |||
1501 | struct aml_value *fa; | |||
1502 | ||||
1503 | fa = aml_getstack(scope, AMLOP_ARG00x68); | |||
1504 | ||||
1505 | if (hw_vendor != NULL((void *)0) && | |||
1506 | (strcmp(hw_vendor, "Apple Inc.") == 0 || | |||
1507 | strcmp(hw_vendor, "Apple Computer, Inc.") == 0)) { | |||
1508 | if (strcmp(fa->v_string_.vstring, "Darwin") == 0) { | |||
1509 | dnprintf(10,"osi: returning 1 for %s on %s hardware\n", | |||
1510 | fa->v_string, hw_vendor); | |||
1511 | result = 1; | |||
1512 | } else | |||
1513 | dnprintf(10,"osi: on %s hardware, but ignoring %s\n", | |||
1514 | hw_vendor, fa->v_string); | |||
1515 | ||||
1516 | return aml_allocvalue(AML_OBJTYPE_INTEGER, result, NULL((void *)0)); | |||
1517 | } | |||
1518 | ||||
1519 | for (idx=0; !result && aml_valid_osi[idx] != NULL((void *)0); idx++) { | |||
1520 | dnprintf(10,"osi: %s,%s\n", fa->v_string, aml_valid_osi[idx]); | |||
1521 | result = !strcmp(fa->v_string_.vstring, aml_valid_osi[idx]); | |||
1522 | if (result) { | |||
1523 | if (idx > acpi_max_osi) | |||
1524 | acpi_max_osi = idx; | |||
1525 | break; | |||
1526 | } | |||
1527 | } | |||
1528 | dnprintf(10,"@@ OSI found: %x\n", result); | |||
1529 | return aml_allocvalue(AML_OBJTYPE_INTEGER, result, NULL((void *)0)); | |||
1530 | } | |||
1531 | ||||
1532 | void | |||
1533 | aml_create_defaultobjects(void) | |||
1534 | { | |||
1535 | struct aml_value *tmp; | |||
1536 | struct aml_defval *def; | |||
1537 | ||||
1538 | #ifdef ACPI_MEMDEBUG | |||
1539 | LIST_INIT(&acpi_memhead)do { ((&acpi_memhead)->lh_first) = ((void *)0); } while (0); | |||
1540 | #endif | |||
1541 | ||||
1542 | osstring[1] = 'i'; | |||
1543 | osstring[6] = 'o'; | |||
1544 | osstring[15] = 'w'; | |||
1545 | osstring[18] = 'N'; | |||
1546 | ||||
1547 | SIMPLEQ_INIT(&aml_root.son)do { (&aml_root.son)->sqh_first = ((void *)0); (&aml_root .son)->sqh_last = &(&aml_root.son)->sqh_first; } while (0); | |||
1548 | strlcpy(aml_root.name, "\\", sizeof(aml_root.name)); | |||
1549 | aml_root.value = aml_allocvalue(0, 0, NULL((void *)0)); | |||
1550 | aml_root.value->node = &aml_root; | |||
1551 | ||||
1552 | for (def = aml_defobj; def->name; def++) { | |||
1553 | /* Allocate object value + add to namespace */ | |||
1554 | aml_parsename(&aml_root, (uint8_t *)def->name, &tmp, 1); | |||
1555 | _aml_setvalue(tmp, def->type, def->ival, def->bval); | |||
1556 | if (def->gval) { | |||
1557 | /* Set root object pointer */ | |||
1558 | *def->gval = tmp; | |||
1559 | } | |||
1560 | aml_delref(&tmp, 0); | |||
1561 | } | |||
1562 | } | |||
1563 | ||||
1564 | #ifdef ACPI_DEBUG | |||
1565 | int | |||
1566 | aml_print_resource(union acpi_resource *crs, void *arg) | |||
1567 | { | |||
1568 | int typ = AML_CRSTYPE(crs)((crs)->hdr.typecode & 0x80 ? (crs)->hdr.typecode : (crs)->hdr.typecode >> 3); | |||
1569 | ||||
1570 | switch (typ) { | |||
1571 | case LR_EXTIRQ0x89: | |||
1572 | printf("extirq\tflags:%.2x len:%.2x irq:%.4x\n", | |||
1573 | crs->lr_extirq.flags, crs->lr_extirq.irq_count, | |||
1574 | letoh32(crs->lr_extirq.irq[0])((__uint32_t)(crs->lr_extirq.irq[0]))); | |||
1575 | break; | |||
1576 | case SR_IRQ0x04: | |||
1577 | printf("irq\t%.4x %.2x\n", letoh16(crs->sr_irq.irq_mask)((__uint16_t)(crs->sr_irq.irq_mask)), | |||
1578 | crs->sr_irq.irq_flags); | |||
1579 | break; | |||
1580 | case SR_DMA0x05: | |||
1581 | printf("dma\t%.2x %.2x\n", crs->sr_dma.channel, | |||
1582 | crs->sr_dma.flags); | |||
1583 | break; | |||
1584 | case SR_IOPORT0x08: | |||
1585 | printf("ioport\tflags:%.2x _min:%.4x _max:%.4x _aln:%.2x _len:%.2x\n", | |||
1586 | crs->sr_ioport.flags, crs->sr_ioport._min, | |||
1587 | crs->sr_ioport._max, crs->sr_ioport._aln, | |||
1588 | crs->sr_ioport._len); | |||
1589 | break; | |||
1590 | case SR_STARTDEP0x06: | |||
1591 | printf("startdep\n"); | |||
1592 | break; | |||
1593 | case SR_ENDDEP0x07: | |||
1594 | printf("enddep\n"); | |||
1595 | break; | |||
1596 | case LR_WORD0x88: | |||
1597 | printf("word\ttype:%.2x flags:%.2x tflag:%.2x gra:%.4x min:%.4x max:%.4x tra:%.4x len:%.4x\n", | |||
1598 | crs->lr_word.type, crs->lr_word.flags, crs->lr_word.tflags, | |||
1599 | crs->lr_word._gra, crs->lr_word._min, crs->lr_word._max, | |||
1600 | crs->lr_word._tra, crs->lr_word._len); | |||
1601 | break; | |||
1602 | case LR_DWORD0x87: | |||
1603 | printf("dword\ttype:%.2x flags:%.2x tflag:%.2x gra:%.8x min:%.8x max:%.8x tra:%.8x len:%.8x\n", | |||
1604 | crs->lr_dword.type, crs->lr_dword.flags, crs->lr_dword.tflags, | |||
1605 | crs->lr_dword._gra, crs->lr_dword._min, crs->lr_dword._max, | |||
1606 | crs->lr_dword._tra, crs->lr_dword._len); | |||
1607 | break; | |||
1608 | case LR_QWORD0x8A: | |||
1609 | printf("dword\ttype:%.2x flags:%.2x tflag:%.2x gra:%.16llx min:%.16llx max:%.16llx tra:%.16llx len:%.16llx\n", | |||
1610 | crs->lr_qword.type, crs->lr_qword.flags, crs->lr_qword.tflags, | |||
1611 | crs->lr_qword._gra, crs->lr_qword._min, crs->lr_qword._max, | |||
1612 | crs->lr_qword._tra, crs->lr_qword._len); | |||
1613 | break; | |||
1614 | default: | |||
1615 | printf("unknown type: %x\n", typ); | |||
1616 | break; | |||
1617 | } | |||
1618 | return (0); | |||
1619 | } | |||
1620 | #endif /* ACPI_DEBUG */ | |||
1621 | ||||
1622 | union acpi_resource *aml_mapresource(union acpi_resource *); | |||
1623 | ||||
1624 | union acpi_resource * | |||
1625 | aml_mapresource(union acpi_resource *crs) | |||
1626 | { | |||
1627 | static union acpi_resource map; | |||
1628 | int rlen; | |||
1629 | ||||
1630 | rlen = AML_CRSLEN(crs)((crs)->hdr.typecode & 0x80 ? 3+(crs)->hdr.length : 1+((crs)->hdr.typecode & 0x7)); | |||
1631 | if (rlen >= sizeof(map)) | |||
1632 | return crs; | |||
1633 | ||||
1634 | memset(&map, 0, sizeof(map))__builtin_memset((&map), (0), (sizeof(map))); | |||
1635 | memcpy(&map, crs, rlen)__builtin_memcpy((&map), (crs), (rlen)); | |||
1636 | ||||
1637 | return ↦ | |||
1638 | } | |||
1639 | ||||
1640 | int | |||
1641 | aml_parse_resource(struct aml_value *res, | |||
1642 | int (*crs_enum)(int, union acpi_resource *, void *), void *arg) | |||
1643 | { | |||
1644 | int off, rlen, crsidx; | |||
1645 | union acpi_resource *crs; | |||
1646 | ||||
1647 | if (res->type != AML_OBJTYPE_BUFFER || res->length < 5) | |||
1648 | return (-1); | |||
1649 | for (off = 0, crsidx = 0; off < res->length; off += rlen, crsidx++) { | |||
1650 | crs = (union acpi_resource *)(res->v_buffer_.vbuffer+off); | |||
1651 | ||||
1652 | rlen = AML_CRSLEN(crs)((crs)->hdr.typecode & 0x80 ? 3+(crs)->hdr.length : 1+((crs)->hdr.typecode & 0x7)); | |||
1653 | if (crs->hdr.typecode == SRT_ENDTAG0x79 || !rlen) | |||
1654 | break; | |||
1655 | ||||
1656 | crs = aml_mapresource(crs); | |||
1657 | #ifdef ACPI_DEBUG | |||
1658 | aml_print_resource(crs, NULL((void *)0)); | |||
1659 | #endif | |||
1660 | crs_enum(crsidx, crs, arg); | |||
1661 | } | |||
1662 | ||||
1663 | return (0); | |||
1664 | } | |||
1665 | ||||
1666 | void | |||
1667 | aml_foreachpkg(struct aml_value *pkg, int start, | |||
1668 | void (*fn)(struct aml_value *, void *), void *arg) | |||
1669 | { | |||
1670 | int idx; | |||
1671 | ||||
1672 | if (pkg->type != AML_OBJTYPE_PACKAGE) | |||
1673 | return; | |||
1674 | for (idx=start; idx<pkg->length; idx++) | |||
1675 | fn(pkg->v_package_.vpackage[idx], arg); | |||
1676 | } | |||
1677 | ||||
1678 | /* | |||
1679 | * Walk nodes and perform fixups for nameref | |||
1680 | */ | |||
1681 | int aml_fixup_node(struct aml_node *, void *); | |||
1682 | ||||
1683 | int aml_fixup_node(struct aml_node *node, void *arg) | |||
1684 | { | |||
1685 | struct aml_value *val = arg; | |||
1686 | int i; | |||
1687 | ||||
1688 | if (node->value == NULL((void *)0)) | |||
1689 | return (0); | |||
1690 | if (arg == NULL((void *)0)) | |||
1691 | aml_fixup_node(node, node->value); | |||
1692 | else if (val->type == AML_OBJTYPE_NAMEREF) { | |||
1693 | node = aml_searchname(node, aml_getname(val->v_nameref_.vbuffer)); | |||
1694 | if (node && node->value) { | |||
1695 | _aml_setvalue(val, AML_OBJTYPE_OBJREF, AMLOP_NAMECHAR0x5F, | |||
1696 | node->value); | |||
1697 | } | |||
1698 | } else if (val->type == AML_OBJTYPE_PACKAGE) { | |||
1699 | for (i = 0; i < val->length; i++) | |||
1700 | aml_fixup_node(node, val->v_package_.vpackage[i]); | |||
1701 | } | |||
1702 | return (0); | |||
1703 | } | |||
1704 | ||||
1705 | void | |||
1706 | aml_postparse(void) | |||
1707 | { | |||
1708 | aml_walknodes(&aml_root, AML_WALK_PRE0x00, aml_fixup_node, NULL((void *)0)); | |||
1709 | } | |||
1710 | ||||
1711 | #ifndef SMALL_KERNEL | |||
1712 | const char * | |||
1713 | aml_val_to_string(const struct aml_value *val) | |||
1714 | { | |||
1715 | static char buffer[256]; | |||
1716 | ||||
1717 | int len; | |||
1718 | ||||
1719 | switch (val->type) { | |||
1720 | case AML_OBJTYPE_BUFFER: | |||
1721 | len = val->length; | |||
1722 | if (len >= sizeof(buffer)) | |||
1723 | len = sizeof(buffer) - 1; | |||
1724 | memcpy(buffer, val->v_buffer, len)__builtin_memcpy((buffer), (val->_.vbuffer), (len)); | |||
1725 | buffer[len] = 0; | |||
1726 | break; | |||
1727 | case AML_OBJTYPE_STRING: | |||
1728 | strlcpy(buffer, val->v_string_.vstring, sizeof(buffer)); | |||
1729 | break; | |||
1730 | case AML_OBJTYPE_INTEGER: | |||
1731 | snprintf(buffer, sizeof(buffer), "%llx", val->v_integer_.vinteger); | |||
1732 | break; | |||
1733 | default: | |||
1734 | snprintf(buffer, sizeof(buffer), | |||
1735 | "Failed to convert type %d to string!", val->type); | |||
1736 | }; | |||
1737 | ||||
1738 | return (buffer); | |||
1739 | } | |||
1740 | #endif /* SMALL_KERNEL */ | |||
1741 | ||||
1742 | int aml_error; | |||
1743 | ||||
1744 | struct aml_value *aml_gettgt(struct aml_value *, int); | |||
1745 | struct aml_value *aml_eval(struct aml_scope *, struct aml_value *, int, int, | |||
1746 | struct aml_value *); | |||
1747 | struct aml_value *aml_parsesimple(struct aml_scope *, char, | |||
1748 | struct aml_value *); | |||
1749 | struct aml_value *aml_parse(struct aml_scope *, int, const char *); | |||
1750 | struct aml_value *aml_seterror(struct aml_scope *, const char *, ...); | |||
1751 | ||||
1752 | struct aml_scope *aml_findscope(struct aml_scope *, int, int); | |||
1753 | struct aml_scope *aml_pushscope(struct aml_scope *, struct aml_value *, | |||
1754 | struct aml_node *, int); | |||
1755 | struct aml_scope *aml_popscope(struct aml_scope *); | |||
1756 | ||||
1757 | void aml_showstack(struct aml_scope *); | |||
1758 | struct aml_value *aml_convert(struct aml_value *, int, int); | |||
1759 | ||||
1760 | int aml_matchtest(int64_t, int64_t, int); | |||
1761 | int aml_match(struct aml_value *, int, int, int, int, int); | |||
1762 | ||||
1763 | int aml_compare(struct aml_value *, struct aml_value *, int); | |||
1764 | struct aml_value *aml_concat(struct aml_value *, struct aml_value *); | |||
1765 | struct aml_value *aml_concatres(struct aml_value *, struct aml_value *); | |||
1766 | struct aml_value *aml_mid(struct aml_value *, int, int); | |||
1767 | int aml_ccrlen(int, union acpi_resource *, void *); | |||
1768 | ||||
1769 | void aml_store(struct aml_scope *, struct aml_value *, int64_t, | |||
1770 | struct aml_value *); | |||
1771 | ||||
1772 | /* | |||
1773 | * Reference Count functions | |||
1774 | */ | |||
1775 | void | |||
1776 | aml_addref(struct aml_value *val, const char *lbl) | |||
1777 | { | |||
1778 | if (val == NULL((void *)0)) | |||
1779 | return; | |||
1780 | dnprintf(50, "XAddRef: %p %s:[%s] %d\n", | |||
1781 | val, lbl, | |||
1782 | val->node ? aml_nodename(val->node) : "INTERNAL", | |||
1783 | val->refcnt); | |||
1784 | val->refcnt++; | |||
1785 | } | |||
1786 | ||||
1787 | /* Decrease reference counter */ | |||
1788 | void | |||
1789 | aml_delref(struct aml_value **pv, const char *lbl) | |||
1790 | { | |||
1791 | struct aml_value *val; | |||
1792 | ||||
1793 | if (pv == NULL((void *)0) || *pv == NULL((void *)0)) | |||
1794 | return; | |||
1795 | val = *pv; | |||
1796 | val->refcnt--; | |||
1797 | if (val->refcnt == 0) { | |||
1798 | dnprintf(50, "XDelRef: %p %s %2d [%s] %s\n", | |||
1799 | val, lbl, | |||
1800 | val->refcnt, | |||
1801 | val->node ? aml_nodename(val->node) : "INTERNAL", | |||
1802 | val->refcnt ? "" : "---------------- FREEING"); | |||
1803 | ||||
1804 | aml_freevalue(val); | |||
1805 | acpi_os_free(val)_acpi_os_free(val, __FUNCTION__, 1805); | |||
1806 | *pv = NULL((void *)0); | |||
1807 | } | |||
1808 | } | |||
1809 | ||||
1810 | /* Walk list of parent scopes until we find one of 'type' | |||
1811 | * If endscope is set, mark all intermediate scopes as invalid (used for Method/While) */ | |||
1812 | struct aml_scope * | |||
1813 | aml_findscope(struct aml_scope *scope, int type, int endscope) | |||
1814 | { | |||
1815 | while (scope) { | |||
1816 | switch (endscope) { | |||
1817 | case AMLOP_RETURN0xA4: | |||
1818 | scope->pos = scope->end; | |||
1819 | if (scope->type == AMLOP_WHILE0xA2) | |||
1820 | scope->pos = NULL((void *)0); | |||
1821 | break; | |||
1822 | case AMLOP_CONTINUE0x9F: | |||
1823 | scope->pos = scope->end; | |||
1824 | break; | |||
1825 | case AMLOP_BREAK0xA5: | |||
1826 | scope->pos = scope->end; | |||
1827 | if (scope->type == type) | |||
1828 | scope->parent->pos = scope->end; | |||
1829 | break; | |||
1830 | } | |||
1831 | if (scope->type == type) | |||
1832 | break; | |||
1833 | scope = scope->parent; | |||
1834 | } | |||
1835 | return scope; | |||
1836 | } | |||
1837 | ||||
1838 | struct aml_value * | |||
1839 | aml_getstack(struct aml_scope *scope, int opcode) | |||
1840 | { | |||
1841 | struct aml_value *sp; | |||
1842 | ||||
1843 | sp = NULL((void *)0); | |||
1844 | scope = aml_findscope(scope, AMLOP_METHOD0x14, 0); | |||
1845 | if (scope == NULL((void *)0)) | |||
1846 | return NULL((void *)0); | |||
1847 | if (opcode >= AMLOP_LOCAL00x60 && opcode <= AMLOP_LOCAL70x67) { | |||
1848 | if (scope->locals == NULL((void *)0)) | |||
1849 | scope->locals = aml_allocvalue(AML_OBJTYPE_PACKAGE, 8, NULL((void *)0)); | |||
1850 | sp = scope->locals->v_package_.vpackage[opcode - AMLOP_LOCAL00x60]; | |||
1851 | sp->stack = opcode; | |||
1852 | } else if (opcode >= AMLOP_ARG00x68 && opcode <= AMLOP_ARG60x6E) { | |||
1853 | if (scope->args == NULL((void *)0)) | |||
1854 | scope->args = aml_allocvalue(AML_OBJTYPE_PACKAGE, 7, NULL((void *)0)); | |||
1855 | sp = scope->args->v_package_.vpackage[opcode - AMLOP_ARG00x68]; | |||
1856 | if (sp->type == AML_OBJTYPE_OBJREF) | |||
1857 | sp = sp->v_objref_.vobjref.ref; | |||
1858 | } | |||
1859 | return sp; | |||
1860 | } | |||
1861 | ||||
1862 | #ifdef ACPI_DEBUG | |||
1863 | /* Dump AML Stack */ | |||
1864 | void | |||
1865 | aml_showstack(struct aml_scope *scope) | |||
1866 | { | |||
1867 | struct aml_value *sp; | |||
1868 | int idx; | |||
1869 | ||||
1870 | dnprintf(10, "===== Stack %s:%s\n", aml_nodename(scope->node), | |||
1871 | aml_mnem(scope->type, 0)); | |||
1872 | for (idx=0; scope->args && idx<7; idx++) { | |||
1873 | sp = aml_getstack(scope, AMLOP_ARG00x68+idx); | |||
1874 | if (sp && sp->type) { | |||
1875 | dnprintf(10," Arg%d: ", idx); | |||
1876 | aml_showvalue(sp); | |||
1877 | } | |||
1878 | } | |||
1879 | for (idx=0; scope->locals && idx<8; idx++) { | |||
1880 | sp = aml_getstack(scope, AMLOP_LOCAL00x60+idx); | |||
1881 | if (sp && sp->type) { | |||
1882 | dnprintf(10," Local%d: ", idx); | |||
1883 | aml_showvalue(sp); | |||
1884 | } | |||
1885 | } | |||
1886 | } | |||
1887 | #endif | |||
1888 | ||||
1889 | /* Create a new scope object */ | |||
1890 | struct aml_scope * | |||
1891 | aml_pushscope(struct aml_scope *parent, struct aml_value *range, | |||
1892 | struct aml_node *node, int type) | |||
1893 | { | |||
1894 | struct aml_scope *scope; | |||
1895 | uint8_t *start, *end; | |||
1896 | ||||
1897 | if (range->type == AML_OBJTYPE_METHOD) { | |||
1898 | start = range->v_method_.vmethod.start; | |||
1899 | end = range->v_method_.vmethod.end; | |||
1900 | } else { | |||
1901 | start = range->v_buffer_.vbuffer; | |||
1902 | end = start + range->length; | |||
1903 | if (start == end) | |||
1904 | return NULL((void *)0); | |||
1905 | } | |||
1906 | scope = acpi_os_malloc(sizeof(struct aml_scope))_acpi_os_malloc(sizeof(struct aml_scope), __FUNCTION__, 1906); | |||
1907 | if (scope == NULL((void *)0)) | |||
1908 | return NULL((void *)0); | |||
1909 | ||||
1910 | scope->node = node; | |||
1911 | scope->start = start; | |||
1912 | scope->end = end; | |||
1913 | scope->pos = scope->start; | |||
1914 | scope->parent = parent; | |||
1915 | scope->type = type; | |||
1916 | scope->sc = acpi_softc; | |||
1917 | ||||
1918 | if (parent) | |||
1919 | scope->depth = parent->depth+1; | |||
1920 | ||||
1921 | aml_lastscope = scope; | |||
1922 | ||||
1923 | return scope; | |||
1924 | } | |||
1925 | ||||
1926 | /* Free a scope object and any children */ | |||
1927 | struct aml_scope * | |||
1928 | aml_popscope(struct aml_scope *scope) | |||
1929 | { | |||
1930 | struct aml_scope *nscope; | |||
1931 | ||||
1932 | if (scope == NULL((void *)0)) | |||
1933 | return NULL((void *)0); | |||
1934 | ||||
1935 | nscope = scope->parent; | |||
1936 | ||||
1937 | if (scope->type == AMLOP_METHOD0x14) | |||
1938 | aml_delchildren(scope->node); | |||
1939 | if (scope->locals) { | |||
1940 | aml_freevalue(scope->locals); | |||
1941 | acpi_os_free(scope->locals)_acpi_os_free(scope->locals, __FUNCTION__, 1941); | |||
1942 | scope->locals = NULL((void *)0); | |||
1943 | } | |||
1944 | if (scope->args) { | |||
1945 | aml_freevalue(scope->args); | |||
1946 | acpi_os_free(scope->args)_acpi_os_free(scope->args, __FUNCTION__, 1946); | |||
1947 | scope->args = NULL((void *)0); | |||
1948 | } | |||
1949 | acpi_os_free(scope)_acpi_os_free(scope, __FUNCTION__, 1949); | |||
1950 | aml_lastscope = nscope; | |||
1951 | ||||
1952 | return nscope; | |||
1953 | } | |||
1954 | ||||
1955 | /* Test AMLOP_MATCH codes */ | |||
1956 | int | |||
1957 | aml_matchtest(int64_t a, int64_t b, int op) | |||
1958 | { | |||
1959 | switch (op) { | |||
1960 | case AML_MATCH_TR0: | |||
1961 | return (1); | |||
1962 | case AML_MATCH_EQ1: | |||
1963 | return (a == b); | |||
1964 | case AML_MATCH_LT3: | |||
1965 | return (a < b); | |||
1966 | case AML_MATCH_LE2: | |||
1967 | return (a <= b); | |||
1968 | case AML_MATCH_GE4: | |||
1969 | return (a >= b); | |||
1970 | case AML_MATCH_GT5: | |||
1971 | return (a > b); | |||
1972 | } | |||
1973 | return (0); | |||
1974 | } | |||
1975 | ||||
1976 | /* Search a package for a matching value */ | |||
1977 | int | |||
1978 | aml_match(struct aml_value *pkg, int index, | |||
1979 | int op1, int v1, | |||
1980 | int op2, int v2) | |||
1981 | { | |||
1982 | struct aml_value *tmp; | |||
1983 | int flag; | |||
1984 | ||||
1985 | while (index < pkg->length) { | |||
1986 | /* Convert package value to integer */ | |||
1987 | tmp = aml_convert(pkg->v_package_.vpackage[index], | |||
1988 | AML_OBJTYPE_INTEGER, -1); | |||
1989 | ||||
1990 | /* Perform test */ | |||
1991 | flag = aml_matchtest(tmp->v_integer_.vinteger, v1, op1) && | |||
1992 | aml_matchtest(tmp->v_integer_.vinteger, v2, op2); | |||
1993 | aml_delref(&tmp, "xmatch"); | |||
1994 | ||||
1995 | if (flag) | |||
1996 | return index; | |||
1997 | index++; | |||
1998 | } | |||
1999 | return -1; | |||
2000 | } | |||
2001 | ||||
2002 | /* | |||
2003 | * Conversion routines | |||
2004 | */ | |||
2005 | int64_t | |||
2006 | aml_hextoint(const char *str) | |||
2007 | { | |||
2008 | int64_t v = 0; | |||
2009 | char c; | |||
2010 | ||||
2011 | while (*str) { | |||
2012 | if (*str >= '0' && *str <= '9') | |||
2013 | c = *(str++) - '0'; | |||
2014 | else if (*str >= 'a' && *str <= 'f') | |||
2015 | c = *(str++) - 'a' + 10; | |||
2016 | else if (*str >= 'A' && *str <= 'F') | |||
2017 | c = *(str++) - 'A' + 10; | |||
2018 | else | |||
2019 | break; | |||
2020 | v = (v << 4) + c; | |||
2021 | } | |||
2022 | return v; | |||
2023 | ||||
2024 | } | |||
2025 | ||||
2026 | struct aml_value * | |||
2027 | aml_convert(struct aml_value *a, int ctype, int clen) | |||
2028 | { | |||
2029 | struct aml_value *c = NULL((void *)0); | |||
2030 | ||||
2031 | /* Object is already this type */ | |||
2032 | if (clen == -1) | |||
2033 | clen = a->length; | |||
2034 | if (a->type == ctype) { | |||
2035 | aml_addref(a, "XConvert"); | |||
2036 | return a; | |||
2037 | } | |||
2038 | switch (ctype) { | |||
2039 | case AML_OBJTYPE_BUFFER: | |||
2040 | dnprintf(10,"convert to buffer\n"); | |||
2041 | switch (a->type) { | |||
2042 | case AML_OBJTYPE_INTEGER: | |||
2043 | c = aml_allocvalue(AML_OBJTYPE_BUFFER, a->length, | |||
2044 | &a->v_integer_.vinteger); | |||
2045 | break; | |||
2046 | case AML_OBJTYPE_STRING: | |||
2047 | c = aml_allocvalue(AML_OBJTYPE_BUFFER, a->length, | |||
2048 | a->v_string_.vstring); | |||
2049 | break; | |||
2050 | } | |||
2051 | break; | |||
2052 | case AML_OBJTYPE_INTEGER: | |||
2053 | dnprintf(10,"convert to integer : %x\n", a->type); | |||
2054 | switch (a->type) { | |||
2055 | case AML_OBJTYPE_BUFFER: | |||
2056 | c = aml_allocvalue(AML_OBJTYPE_INTEGER, 0, NULL((void *)0)); | |||
2057 | memcpy(&c->v_integer, a->v_buffer,__builtin_memcpy((&c->_.vinteger), (a->_.vbuffer), ( min(a->length, c->length))) | |||
2058 | min(a->length, c->length))__builtin_memcpy((&c->_.vinteger), (a->_.vbuffer), ( min(a->length, c->length))); | |||
2059 | break; | |||
2060 | case AML_OBJTYPE_STRING: | |||
2061 | c = aml_allocvalue(AML_OBJTYPE_INTEGER, 0, NULL((void *)0)); | |||
2062 | c->v_integer_.vinteger = aml_hextoint(a->v_string_.vstring); | |||
2063 | break; | |||
2064 | case AML_OBJTYPE_UNINITIALIZED: | |||
2065 | c = aml_allocvalue(AML_OBJTYPE_INTEGER, 0, NULL((void *)0)); | |||
2066 | break; | |||
2067 | } | |||
2068 | break; | |||
2069 | case AML_OBJTYPE_STRING: | |||
2070 | case AML_OBJTYPE_HEXSTRING: | |||
2071 | case AML_OBJTYPE_DECSTRING: | |||
2072 | dnprintf(10,"convert to string\n"); | |||
2073 | switch (a->type) { | |||
2074 | case AML_OBJTYPE_INTEGER: | |||
2075 | c = aml_allocvalue(AML_OBJTYPE_STRING, 20, NULL((void *)0)); | |||
2076 | snprintf(c->v_string_.vstring, c->length, (ctype == AML_OBJTYPE_HEXSTRING) ? | |||
2077 | "0x%llx" : "%lld", a->v_integer_.vinteger); | |||
2078 | break; | |||
2079 | case AML_OBJTYPE_BUFFER: | |||
2080 | c = aml_allocvalue(AML_OBJTYPE_STRING, a->length, | |||
2081 | a->v_buffer_.vbuffer); | |||
2082 | break; | |||
2083 | case AML_OBJTYPE_STRING: | |||
2084 | aml_addref(a, "XConvert"); | |||
2085 | return a; | |||
2086 | case AML_OBJTYPE_PACKAGE: /* XXX Deal with broken Lenovo X1 BIOS. */ | |||
2087 | c = aml_allocvalue(AML_OBJTYPE_STRING, 0, NULL((void *)0)); | |||
2088 | break; | |||
2089 | } | |||
2090 | break; | |||
2091 | } | |||
2092 | if (c == NULL((void *)0)) { | |||
2093 | #ifndef SMALL_KERNEL | |||
2094 | aml_showvalue(a); | |||
2095 | #endif | |||
2096 | aml_die("Could not convert %x to %x\n", a->type, ctype)_aml_die(__FUNCTION__, 2096, "Could not convert %x to %x\n", a ->type, ctype); | |||
2097 | } | |||
2098 | return c; | |||
2099 | } | |||
2100 | ||||
2101 | int | |||
2102 | aml_compare(struct aml_value *a1, struct aml_value *a2, int opcode) | |||
2103 | { | |||
2104 | int rc = 0; | |||
2105 | ||||
2106 | /* Convert A2 to type of A1 */ | |||
2107 | a2 = aml_convert(a2, a1->type, -1); | |||
2108 | if (a1->type == AML_OBJTYPE_INTEGER) | |||
2109 | rc = aml_evalexpr(a1->v_integer_.vinteger, a2->v_integer_.vinteger, opcode); | |||
2110 | else { | |||
2111 | /* Perform String/Buffer comparison */ | |||
2112 | rc = memcmp(a1->v_buffer, a2->v_buffer,__builtin_memcmp((a1->_.vbuffer), (a2->_.vbuffer), (min (a1->length, a2->length))) | |||
2113 | min(a1->length, a2->length))__builtin_memcmp((a1->_.vbuffer), (a2->_.vbuffer), (min (a1->length, a2->length))); | |||
2114 | if (rc == 0) { | |||
2115 | /* If buffers match, which one is longer */ | |||
2116 | rc = a1->length - a2->length; | |||
2117 | } | |||
2118 | /* Perform comparison against zero */ | |||
2119 | rc = aml_evalexpr(rc, 0, opcode); | |||
2120 | } | |||
2121 | /* Either deletes temp buffer, or decrease refcnt on original A2 */ | |||
2122 | aml_delref(&a2, "xcompare"); | |||
2123 | return rc; | |||
2124 | } | |||
2125 | ||||
2126 | /* Concatenate two objects, returning pointer to new object */ | |||
2127 | struct aml_value * | |||
2128 | aml_concat(struct aml_value *a1, struct aml_value *a2) | |||
2129 | { | |||
2130 | struct aml_value *c = NULL((void *)0); | |||
2131 | ||||
2132 | /* Convert arg2 to type of arg1 */ | |||
2133 | a2 = aml_convert(a2, a1->type, -1); | |||
2134 | switch (a1->type) { | |||
2135 | case AML_OBJTYPE_INTEGER: | |||
2136 | c = aml_allocvalue(AML_OBJTYPE_BUFFER, | |||
2137 | a1->length + a2->length, NULL((void *)0)); | |||
2138 | memcpy(c->v_buffer, &a1->v_integer, a1->length)__builtin_memcpy((c->_.vbuffer), (&a1->_.vinteger), (a1->length)); | |||
2139 | memcpy(c->v_buffer+a1->length, &a2->v_integer, a2->length)__builtin_memcpy((c->_.vbuffer+a1->length), (&a2-> _.vinteger), (a2->length)); | |||
2140 | break; | |||
2141 | case AML_OBJTYPE_BUFFER: | |||
2142 | c = aml_allocvalue(AML_OBJTYPE_BUFFER, | |||
2143 | a1->length + a2->length, NULL((void *)0)); | |||
2144 | memcpy(c->v_buffer, a1->v_buffer, a1->length)__builtin_memcpy((c->_.vbuffer), (a1->_.vbuffer), (a1-> length)); | |||
2145 | memcpy(c->v_buffer+a1->length, a2->v_buffer, a2->length)__builtin_memcpy((c->_.vbuffer+a1->length), (a2->_.vbuffer ), (a2->length)); | |||
2146 | break; | |||
2147 | case AML_OBJTYPE_STRING: | |||
2148 | c = aml_allocvalue(AML_OBJTYPE_STRING, | |||
2149 | a1->length + a2->length, NULL((void *)0)); | |||
2150 | memcpy(c->v_string, a1->v_string, a1->length)__builtin_memcpy((c->_.vstring), (a1->_.vstring), (a1-> length)); | |||
2151 | memcpy(c->v_string+a1->length, a2->v_string, a2->length)__builtin_memcpy((c->_.vstring+a1->length), (a2->_.vstring ), (a2->length)); | |||
2152 | break; | |||
2153 | default: | |||
2154 | aml_die("concat type mismatch %d != %d\n", a1->type, a2->type)_aml_die(__FUNCTION__, 2154, "concat type mismatch %d != %d\n" , a1->type, a2->type); | |||
2155 | break; | |||
2156 | } | |||
2157 | /* Either deletes temp buffer, or decrease refcnt on original A2 */ | |||
2158 | aml_delref(&a2, "xconcat"); | |||
2159 | return c; | |||
2160 | } | |||
2161 | ||||
2162 | /* Calculate length of Resource Template */ | |||
2163 | int | |||
2164 | aml_ccrlen(int crsidx, union acpi_resource *rs, void *arg) | |||
2165 | { | |||
2166 | int *plen = arg; | |||
2167 | ||||
2168 | *plen += AML_CRSLEN(rs)((rs)->hdr.typecode & 0x80 ? 3+(rs)->hdr.length : 1 +((rs)->hdr.typecode & 0x7)); | |||
2169 | return (0); | |||
2170 | } | |||
2171 | ||||
2172 | /* Concatenate resource templates, returning pointer to new object */ | |||
2173 | struct aml_value * | |||
2174 | aml_concatres(struct aml_value *a1, struct aml_value *a2) | |||
2175 | { | |||
2176 | struct aml_value *c; | |||
2177 | int l1 = 0, l2 = 0, l3 = 2; | |||
2178 | uint8_t a3[] = { SRT_ENDTAG0x79, 0x00 }; | |||
2179 | ||||
2180 | if (a1->type != AML_OBJTYPE_BUFFER || a2->type != AML_OBJTYPE_BUFFER) | |||
2181 | aml_die("concatres: not buffers\n")_aml_die(__FUNCTION__, 2181, "concatres: not buffers\n"); | |||
2182 | ||||
2183 | /* Walk a1, a2, get length minus end tags, concatenate buffers, add end tag */ | |||
2184 | aml_parse_resource(a1, aml_ccrlen, &l1); | |||
2185 | aml_parse_resource(a2, aml_ccrlen, &l2); | |||
2186 | ||||
2187 | /* Concatenate buffers, add end tag */ | |||
2188 | c = aml_allocvalue(AML_OBJTYPE_BUFFER, l1+l2+l3, NULL((void *)0)); | |||
2189 | memcpy(c->v_buffer, a1->v_buffer, l1)__builtin_memcpy((c->_.vbuffer), (a1->_.vbuffer), (l1)); | |||
2190 | memcpy(c->v_buffer+l1, a2->v_buffer, l2)__builtin_memcpy((c->_.vbuffer+l1), (a2->_.vbuffer), (l2 )); | |||
2191 | memcpy(c->v_buffer+l1+l2, a3, l3)__builtin_memcpy((c->_.vbuffer+l1+l2), (a3), (l3)); | |||
2192 | ||||
2193 | return c; | |||
2194 | } | |||
2195 | ||||
2196 | /* Extract substring from string or buffer */ | |||
2197 | struct aml_value * | |||
2198 | aml_mid(struct aml_value *src, int index, int length) | |||
2199 | { | |||
2200 | if (index > src->length) | |||
2201 | index = src->length; | |||
2202 | if ((index + length) > src->length) | |||
2203 | length = src->length - index; | |||
2204 | return aml_allocvalue(src->type, length, src->v_buffer_.vbuffer + index); | |||
2205 | } | |||
2206 | ||||
2207 | /* | |||
2208 | * Field I/O utility functions | |||
2209 | */ | |||
2210 | void aml_createfield(struct aml_value *, int, struct aml_value *, int, int, | |||
2211 | struct aml_value *, int, int); | |||
2212 | void aml_parsefieldlist(struct aml_scope *, int, int, | |||
2213 | struct aml_value *, struct aml_value *, int); | |||
2214 | ||||
2215 | int | |||
2216 | aml_evalhid(struct aml_node *node, struct aml_value *val) | |||
2217 | { | |||
2218 | if (aml_evalname(acpi_softc, node, "_HID", 0, NULL((void *)0), val)) | |||
2219 | return (-1); | |||
2220 | ||||
2221 | /* Integer _HID: convert to EISA ID */ | |||
2222 | if (val->type == AML_OBJTYPE_INTEGER) | |||
2223 | _aml_setvalue(val, AML_OBJTYPE_STRING, -1, aml_eisaid(val->v_integer_.vinteger)); | |||
2224 | return (0); | |||
2225 | } | |||
2226 | ||||
2227 | int | |||
2228 | aml_opreg_sysmem_handler(void *cookie, int iodir, uint64_t address, int size, | |||
2229 | uint64_t *value) | |||
2230 | { | |||
2231 | return acpi_gasio(acpi_softc, iodir, GAS_SYSTEM_MEMORY0, | |||
2232 | address, size, size, value); | |||
2233 | } | |||
2234 | ||||
2235 | int | |||
2236 | aml_opreg_sysio_handler(void *cookie, int iodir, uint64_t address, int size, | |||
2237 | uint64_t *value) | |||
2238 | { | |||
2239 | return acpi_gasio(acpi_softc, iodir, GAS_SYSTEM_IOSPACE1, | |||
2240 | address, size, size, value); | |||
2241 | } | |||
2242 | ||||
2243 | int | |||
2244 | aml_opreg_pcicfg_handler(void *cookie, int iodir, uint64_t address, int size, | |||
2245 | uint64_t *value) | |||
2246 | { | |||
2247 | return acpi_gasio(acpi_softc, iodir, GAS_PCI_CFG_SPACE2, | |||
2248 | address, size, size, value); | |||
2249 | } | |||
2250 | ||||
2251 | int | |||
2252 | aml_opreg_ec_handler(void *cookie, int iodir, uint64_t address, int size, | |||
2253 | uint64_t *value) | |||
2254 | { | |||
2255 | return acpi_gasio(acpi_softc, iodir, GAS_EMBEDDED3, | |||
2256 | address, size, size, value); | |||
2257 | } | |||
2258 | ||||
2259 | struct aml_regionspace { | |||
2260 | void *cookie; | |||
2261 | int (*handler)(void *, int, uint64_t, int, uint64_t *); | |||
2262 | }; | |||
2263 | ||||
2264 | struct aml_regionspace aml_regionspace[256] = { | |||
2265 | [ACPI_OPREG_SYSMEM0] = { NULL((void *)0), aml_opreg_sysmem_handler }, | |||
2266 | [ACPI_OPREG_SYSIO1] = { NULL((void *)0), aml_opreg_sysio_handler }, | |||
2267 | [ACPI_OPREG_PCICFG2] = { NULL((void *)0), aml_opreg_pcicfg_handler }, | |||
2268 | [ACPI_OPREG_EC3] = { NULL((void *)0), aml_opreg_ec_handler }, | |||
2269 | }; | |||
2270 | ||||
2271 | void | |||
2272 | aml_register_regionspace(struct aml_node *node, int iospace, void *cookie, | |||
2273 | int (*handler)(void *, int, uint64_t, int, uint64_t *)) | |||
2274 | { | |||
2275 | struct aml_value arg[2]; | |||
2276 | ||||
2277 | KASSERT(iospace >= 0 && iospace < 256)((iospace >= 0 && iospace < 256) ? (void)0 : __assert ("diagnostic ", "/usr/src/sys/dev/acpi/dsdt.c", 2277, "iospace >= 0 && iospace < 256" )); | |||
2278 | ||||
2279 | aml_regionspace[iospace].cookie = cookie; | |||
2280 | aml_regionspace[iospace].handler = handler; | |||
2281 | ||||
2282 | /* Register address space. */ | |||
2283 | memset(&arg, 0, sizeof(arg))__builtin_memset((&arg), (0), (sizeof(arg))); | |||
2284 | arg[0].type = AML_OBJTYPE_INTEGER; | |||
2285 | arg[0].v_integer_.vinteger = iospace; | |||
2286 | arg[1].type = AML_OBJTYPE_INTEGER; | |||
2287 | arg[1].v_integer_.vinteger = 1; | |||
2288 | node = aml_searchname(node, "_REG"); | |||
2289 | if (node) | |||
2290 | aml_evalnode(acpi_softc, node, 2, arg, NULL((void *)0)); | |||
2291 | } | |||
2292 | ||||
2293 | void aml_rwgen(struct aml_value *, int, int, struct aml_value *, int, int); | |||
2294 | void aml_rwgpio(struct aml_value *, int, int, struct aml_value *, int, int); | |||
2295 | void aml_rwgsb(struct aml_value *, int, int, int, struct aml_value *, int, int); | |||
2296 | void aml_rwindexfield(struct aml_value *, struct aml_value *val, int); | |||
2297 | void aml_rwfield(struct aml_value *, int, int, struct aml_value *, int); | |||
2298 | ||||
2299 | /* Get PCI address for opregion objects */ | |||
2300 | int | |||
2301 | aml_rdpciaddr(struct aml_node *pcidev, union amlpci_t *addr) | |||
2302 | { | |||
2303 | int64_t res; | |||
2304 | ||||
2305 | addr->bus = 0; | |||
2306 | addr->seg = 0; | |||
2307 | if (aml_evalinteger(acpi_softc, pcidev, "_ADR", 0, NULL((void *)0), &res) == 0) { | |||
2308 | addr->fun = res & 0xFFFF; | |||
2309 | addr->dev = res >> 16; | |||
2310 | } | |||
2311 | while (pcidev != NULL((void *)0)) { | |||
2312 | /* HID device (PCI or PCIE root): eval _SEG and _BBN */ | |||
2313 | if (__aml_search(pcidev, "_HID", 0)) { | |||
2314 | if (aml_evalinteger(acpi_softc, pcidev, "_SEG", | |||
2315 | 0, NULL((void *)0), &res) == 0) { | |||
2316 | addr->seg = res; | |||
2317 | } | |||
2318 | if (aml_evalinteger(acpi_softc, pcidev, "_BBN", | |||
2319 | 0, NULL((void *)0), &res) == 0) { | |||
2320 | addr->bus = res; | |||
2321 | break; | |||
2322 | } | |||
2323 | } | |||
2324 | pcidev = pcidev->parent; | |||
2325 | } | |||
2326 | return (0); | |||
2327 | } | |||
2328 | ||||
2329 | int | |||
2330 | acpi_genio(struct acpi_softc *sc, int iodir, int iospace, uint64_t address, | |||
2331 | int access_size, int len, void *buffer) | |||
2332 | { | |||
2333 | struct aml_regionspace *region = &aml_regionspace[iospace]; | |||
2334 | uint8_t *pb; | |||
2335 | int reg; | |||
2336 | ||||
2337 | dnprintf(50, "genio: %.2x 0x%.8llx %s\n", | |||
2338 | iospace, address, (iodir == ACPI_IOWRITE) ? "write" : "read"); | |||
2339 | ||||
2340 | KASSERT((len % access_size) == 0)(((len % access_size) == 0) ? (void)0 : __assert("diagnostic " , "/usr/src/sys/dev/acpi/dsdt.c", 2340, "(len % access_size) == 0" )); | |||
2341 | ||||
2342 | pb = (uint8_t *)buffer; | |||
2343 | for (reg = 0; reg < len; reg += access_size) { | |||
2344 | uint64_t value; | |||
2345 | int err; | |||
2346 | ||||
2347 | if (iodir == ACPI_IOREAD0) { | |||
2348 | err = region->handler(region->cookie, iodir, | |||
2349 | address + reg, access_size, &value); | |||
2350 | if (err) | |||
2351 | return err; | |||
2352 | switch (access_size) { | |||
2353 | case 1: | |||
2354 | *(uint8_t *)(pb + reg) = value; | |||
2355 | break; | |||
2356 | case 2: | |||
2357 | *(uint16_t *)(pb + reg) = value; | |||
2358 | break; | |||
2359 | case 4: | |||
2360 | *(uint32_t *)(pb + reg) = value; | |||
2361 | break; | |||
2362 | default: | |||
2363 | printf("%s: invalid access size %d on read\n", | |||
2364 | __func__, access_size); | |||
2365 | return -1; | |||
2366 | } | |||
2367 | } else { | |||
2368 | switch (access_size) { | |||
2369 | case 1: | |||
2370 | value = *(uint8_t *)(pb + reg); | |||
2371 | break; | |||
2372 | case 2: | |||
2373 | value = *(uint16_t *)(pb + reg); | |||
2374 | break; | |||
2375 | case 4: | |||
2376 | value = *(uint32_t *)(pb + reg); | |||
2377 | break; | |||
2378 | default: | |||
2379 | printf("%s: invalid access size %d on write\n", | |||
2380 | __func__, access_size); | |||
2381 | return -1; | |||
2382 | } | |||
2383 | err = region->handler(region->cookie, iodir, | |||
2384 | address + reg, access_size, &value); | |||
2385 | if (err) | |||
2386 | return err; | |||
2387 | } | |||
2388 | } | |||
2389 | ||||
2390 | return 0; | |||
2391 | } | |||
2392 | ||||
2393 | /* Read/Write from opregion object */ | |||
2394 | void | |||
2395 | aml_rwgen(struct aml_value *rgn, int bpos, int blen, struct aml_value *val, | |||
2396 | int mode, int flag) | |||
2397 | { | |||
2398 | struct aml_value tmp; | |||
2399 | union amlpci_t pi; | |||
2400 | void *tbit, *vbit; | |||
2401 | int tlen, type, sz; | |||
2402 | ||||
2403 | dnprintf(10," %5s %.2x %.8llx %.4x [%s]\n", | |||
2404 | mode == ACPI_IOREAD ? "read" : "write", | |||
2405 | rgn->v_opregion.iospace, | |||
2406 | rgn->v_opregion.iobase + (bpos >> 3), | |||
2407 | blen, aml_nodename(rgn->node)); | |||
2408 | memset(&tmp, 0, sizeof(tmp))__builtin_memset((&tmp), (0), (sizeof(tmp))); | |||
2409 | ||||
2410 | /* Get field access size */ | |||
2411 | switch (AML_FIELD_ACCESS(flag)(((flag) >> 0) & 0xF)) { | |||
2412 | case AML_FIELD_WORDACC0x2: | |||
2413 | sz = 2; | |||
2414 | break; | |||
2415 | case AML_FIELD_DWORDACC0x3: | |||
2416 | sz = 4; | |||
2417 | break; | |||
2418 | case AML_FIELD_QWORDACC0x4: | |||
2419 | sz = 8; | |||
2420 | break; | |||
2421 | default: | |||
2422 | sz = 1; | |||
2423 | break; | |||
2424 | } | |||
2425 | ||||
2426 | pi.addr = (rgn->v_opregion_.vopregion.iobase + (bpos >> 3)) & ~(sz - 1); | |||
2427 | bpos += ((rgn->v_opregion_.vopregion.iobase & (sz - 1)) << 3); | |||
2428 | bpos &= ((sz << 3) - 1); | |||
2429 | ||||
2430 | if (rgn->v_opregion_.vopregion.iospace == ACPI_OPREG_PCICFG2) { | |||
2431 | /* Get PCI Root Address for this opregion */ | |||
2432 | aml_rdpciaddr(rgn->node->parent, &pi); | |||
2433 | } | |||
2434 | ||||
2435 | tbit = &tmp.v_integer_.vinteger; | |||
2436 | vbit = &val->v_integer_.vinteger; | |||
2437 | tlen = roundup(bpos + blen, sz << 3)((((bpos + blen)+((sz << 3)-1))/(sz << 3))*(sz << 3)); | |||
2438 | type = rgn->v_opregion_.vopregion.iospace; | |||
2439 | ||||
2440 | if (aml_regionspace[type].handler == NULL((void *)0)) { | |||
2441 | printf("%s: unregistered RegionSpace 0x%x\n", __func__, type); | |||
2442 | return; | |||
2443 | } | |||
2444 | ||||
2445 | /* Allocate temporary storage */ | |||
2446 | if (tlen > aml_intlen) { | |||
2447 | _aml_setvalue(&tmp, AML_OBJTYPE_BUFFER, tlen >> 3, 0); | |||
2448 | tbit = tmp.v_buffer_.vbuffer; | |||
2449 | } | |||
2450 | ||||
2451 | if (blen > aml_intlen) { | |||
2452 | if (mode == ACPI_IOREAD0) { | |||
2453 | /* Read from a large field: create buffer */ | |||
2454 | _aml_setvalue(val, AML_OBJTYPE_BUFFER, (blen + 7) >> 3, 0); | |||
2455 | } else { | |||
2456 | /* Write to a large field.. create or convert buffer */ | |||
2457 | val = aml_convert(val, AML_OBJTYPE_BUFFER, -1); | |||
2458 | ||||
2459 | if (blen > (val->length << 3)) | |||
2460 | blen = val->length << 3; | |||
2461 | } | |||
2462 | vbit = val->v_buffer_.vbuffer; | |||
2463 | } else { | |||
2464 | if (mode == ACPI_IOREAD0) { | |||
2465 | /* Read from a short field.. initialize integer */ | |||
2466 | _aml_setvalue(val, AML_OBJTYPE_INTEGER, 0, 0); | |||
2467 | } else { | |||
2468 | /* Write to a short field.. convert to integer */ | |||
2469 | val = aml_convert(val, AML_OBJTYPE_INTEGER, -1); | |||
2470 | } | |||
2471 | } | |||
2472 | ||||
2473 | if (mode == ACPI_IOREAD0) { | |||
2474 | /* Read bits from opregion */ | |||
2475 | acpi_genio(acpi_softc, ACPI_IOREAD0, type, pi.addr, | |||
2476 | sz, tlen >> 3, tbit); | |||
2477 | aml_bufcpy(vbit, 0, tbit, bpos, blen); | |||
2478 | } else { | |||
2479 | /* Write bits to opregion */ | |||
2480 | if (AML_FIELD_UPDATE(flag)(((flag) >> 5) & 0x3) == AML_FIELD_PRESERVE0x0 && | |||
2481 | (bpos != 0 || blen != tlen)) { | |||
2482 | acpi_genio(acpi_softc, ACPI_IOREAD0, type, pi.addr, | |||
2483 | sz, tlen >> 3, tbit); | |||
2484 | } else if (AML_FIELD_UPDATE(flag)(((flag) >> 5) & 0x3) == AML_FIELD_WRITEASONES0x1) { | |||
2485 | memset(tbit, 0xff, tmp.length)__builtin_memset((tbit), (0xff), (tmp.length)); | |||
2486 | } | |||
2487 | /* Copy target bits, then write to region */ | |||
2488 | aml_bufcpy(tbit, bpos, vbit, 0, blen); | |||
2489 | acpi_genio(acpi_softc, ACPI_IOWRITE1, type, pi.addr, | |||
2490 | sz, tlen >> 3, tbit); | |||
2491 | ||||
2492 | aml_delref(&val, "fld.write"); | |||
2493 | } | |||
2494 | aml_freevalue(&tmp); | |||
2495 | } | |||
2496 | ||||
2497 | void | |||
2498 | aml_rwgpio(struct aml_value *conn, int bpos, int blen, struct aml_value *val, | |||
2499 | int mode, int flag) | |||
2500 | { | |||
2501 | union acpi_resource *crs = (union acpi_resource *)conn->v_buffer_.vbuffer; | |||
2502 | struct aml_node *node; | |||
2503 | uint16_t pin; | |||
2504 | int v = 0; | |||
2505 | ||||
2506 | if (conn->type != AML_OBJTYPE_BUFFER || conn->length < 5 || | |||
2507 | AML_CRSTYPE(crs)((crs)->hdr.typecode & 0x80 ? (crs)->hdr.typecode : (crs)->hdr.typecode >> 3) != LR_GPIO0x8C || AML_CRSLEN(crs)((crs)->hdr.typecode & 0x80 ? 3+(crs)->hdr.length : 1+((crs)->hdr.typecode & 0x7)) > conn->length) | |||
2508 | aml_die("Invalid GpioIo")_aml_die(__FUNCTION__, 2508, "Invalid GpioIo"); | |||
2509 | if (bpos != 0 || blen != 1) | |||
2510 | aml_die("Invalid GpioIo access")_aml_die(__FUNCTION__, 2510, "Invalid GpioIo access"); | |||
2511 | ||||
2512 | node = aml_searchname(conn->node, | |||
2513 | (char *)&crs->pad[crs->lr_gpio.res_off]); | |||
2514 | pin = *(uint16_t *)&crs->pad[crs->lr_gpio.pin_off]; | |||
2515 | ||||
2516 | if (node == NULL((void *)0) || node->gpio == NULL((void *)0)) | |||
2517 | aml_die("Could not find GpioIo pin")_aml_die(__FUNCTION__, 2517, "Could not find GpioIo pin"); | |||
2518 | ||||
2519 | if (mode == ACPI_IOWRITE1) { | |||
2520 | v = aml_val2int(val); | |||
2521 | node->gpio->write_pin(node->gpio->cookie, pin, v); | |||
2522 | } else { | |||
2523 | v = node->gpio->read_pin(node->gpio->cookie, pin); | |||
2524 | _aml_setvalue(val, AML_OBJTYPE_INTEGER, v, NULL((void *)0)); | |||
2525 | } | |||
2526 | } | |||
2527 | ||||
2528 | #ifndef SMALL_KERNEL | |||
2529 | ||||
2530 | void | |||
2531 | aml_rwgsb(struct aml_value *conn, int len, int bpos, int blen, | |||
2532 | struct aml_value *val, int mode, int flag) | |||
2533 | { | |||
2534 | union acpi_resource *crs = (union acpi_resource *)conn->v_buffer_.vbuffer; | |||
2535 | struct aml_node *node; | |||
2536 | i2c_tag_t tag; | |||
2537 | i2c_op_t op; | |||
2538 | i2c_addr_t addr; | |||
2539 | int cmdlen, buflen; | |||
2540 | uint8_t cmd[2]; | |||
2541 | uint8_t *buf; | |||
2542 | int err; | |||
2543 | ||||
2544 | if (conn->type != AML_OBJTYPE_BUFFER || conn->length < 5 || | |||
2545 | AML_CRSTYPE(crs)((crs)->hdr.typecode & 0x80 ? (crs)->hdr.typecode : (crs)->hdr.typecode >> 3) != LR_SERBUS0x8E || AML_CRSLEN(crs)((crs)->hdr.typecode & 0x80 ? 3+(crs)->hdr.length : 1+((crs)->hdr.typecode & 0x7)) > conn->length || | |||
2546 | crs->lr_i2cbus.revid != 1 || crs->lr_i2cbus.type != LR_SERBUS_I2C1) | |||
2547 | aml_die("Invalid GenericSerialBus")_aml_die(__FUNCTION__, 2547, "Invalid GenericSerialBus"); | |||
2548 | if (AML_FIELD_ACCESS(flag)(((flag) >> 0) & 0xF) != AML_FIELD_BUFFERACC0x5 || | |||
2549 | bpos & 0x3 || (blen % 8) != 0 || blen > 16) | |||
2550 | aml_die("Invalid GenericSerialBus access")_aml_die(__FUNCTION__, 2550, "Invalid GenericSerialBus access" ); | |||
2551 | ||||
2552 | node = aml_searchname(conn->node, | |||
2553 | (char *)&crs->lr_i2cbus.vdata[crs->lr_i2cbus.tlength - 6]); | |||
2554 | ||||
2555 | switch (((flag >> 6) & 0x3)) { | |||
2556 | case 0: /* Normal */ | |||
2557 | switch (AML_FIELD_ATTR(flag)((flag) >> 8)) { | |||
2558 | case 0x02: /* AttribQuick */ | |||
2559 | cmdlen = 0; | |||
2560 | buflen = 0; | |||
2561 | break; | |||
2562 | case 0x04: /* AttribSendReceive */ | |||
2563 | cmdlen = 0; | |||
2564 | buflen = 1; | |||
2565 | break; | |||
2566 | case 0x06: /* AttribByte */ | |||
2567 | cmdlen = blen / 8; | |||
2568 | buflen = 1; | |||
2569 | break; | |||
2570 | case 0x08: /* AttribWord */ | |||
2571 | cmdlen = blen / 8; | |||
2572 | buflen = 2; | |||
2573 | break; | |||
2574 | case 0x0b: /* AttribBytes */ | |||
2575 | cmdlen = blen / 8; | |||
2576 | buflen = len; | |||
2577 | break; | |||
2578 | case 0x0e: /* AttribRawBytes */ | |||
2579 | cmdlen = 0; | |||
2580 | buflen = len; | |||
2581 | break; | |||
2582 | default: | |||
2583 | aml_die("unsupported access type 0x%x", flag)_aml_die(__FUNCTION__, 2583, "unsupported access type 0x%x", flag ); | |||
2584 | break; | |||
2585 | } | |||
2586 | break; | |||
2587 | case 1: /* AttribBytes */ | |||
2588 | cmdlen = blen / 8; | |||
2589 | buflen = AML_FIELD_ATTR(flag)((flag) >> 8); | |||
2590 | break; | |||
2591 | case 2: /* AttribRawBytes */ | |||
2592 | cmdlen = 0; | |||
2593 | buflen = AML_FIELD_ATTR(flag)((flag) >> 8); | |||
2594 | break; | |||
2595 | default: | |||
2596 | aml_die("unsupported access type 0x%x", flag)_aml_die(__FUNCTION__, 2596, "unsupported access type 0x%x", flag ); | |||
2597 | break; | |||
2598 | } | |||
2599 | ||||
2600 | if (mode == ACPI_IOREAD0) { | |||
2601 | _aml_setvalue(val, AML_OBJTYPE_BUFFER, buflen + 2, NULL((void *)0)); | |||
2602 | op = I2C_OP_READ_WITH_STOP; | |||
2603 | } else { | |||
2604 | op = I2C_OP_WRITE_WITH_STOP; | |||
2605 | } | |||
2606 | ||||
2607 | buf = val->v_buffer_.vbuffer; | |||
2608 | ||||
2609 | /* | |||
2610 | * Return an error if we can't find the I2C controller that | |||
2611 | * we're supposed to use for this request. | |||
2612 | */ | |||
2613 | if (node == NULL((void *)0) || node->i2c == NULL((void *)0)) { | |||
2614 | buf[0] = EIO5; | |||
2615 | return; | |||
2616 | } | |||
2617 | ||||
2618 | tag = node->i2c; | |||
2619 | addr = crs->lr_i2cbus._adr; | |||
2620 | cmd[0] = bpos >> 3; | |||
2621 | cmd[1] = bpos >> 11; | |||
2622 | ||||
2623 | iic_acquire_bus(tag, 0)(*(tag)->ic_acquire_bus)((tag)->ic_cookie, (0)); | |||
2624 | err = iic_exec(tag, op, addr, &cmd, cmdlen, &buf[2], buflen, 0); | |||
2625 | iic_release_bus(tag, 0)(*(tag)->ic_release_bus)((tag)->ic_cookie, (0)); | |||
2626 | ||||
2627 | /* | |||
2628 | * The ACPI specification doesn't tell us what the status | |||
2629 | * codes mean beyond implying that zero means success. So use | |||
2630 | * the error returned from the transfer. All possible error | |||
2631 | * numbers should fit in a single byte. | |||
2632 | */ | |||
2633 | buf[0] = err; | |||
2634 | } | |||
2635 | ||||
2636 | #else | |||
2637 | ||||
2638 | /* | |||
2639 | * We don't support GenericSerialBus in RAMDISK kernels. Provide a | |||
2640 | * dummy implementation that returns a non-zero error status. | |||
2641 | */ | |||
2642 | ||||
2643 | void | |||
2644 | aml_rwgsb(struct aml_value *conn, int len, int bpos, int blen, | |||
2645 | struct aml_value *val, int mode, int flag) | |||
2646 | { | |||
2647 | int buflen; | |||
2648 | uint8_t *buf; | |||
2649 | ||||
2650 | if (AML_FIELD_ACCESS(flag)(((flag) >> 0) & 0xF) != AML_FIELD_BUFFERACC0x5 || | |||
2651 | bpos & 0x3 || (blen % 8) != 0 || blen > 16) | |||
2652 | aml_die("Invalid GenericSerialBus access")_aml_die(__FUNCTION__, 2652, "Invalid GenericSerialBus access" ); | |||
2653 | ||||
2654 | switch (((flag >> 6) & 0x3)) { | |||
2655 | case 0: /* Normal */ | |||
2656 | switch (AML_FIELD_ATTR(flag)((flag) >> 8)) { | |||
2657 | case 0x02: /* AttribQuick */ | |||
2658 | buflen = 0; | |||
2659 | break; | |||
2660 | case 0x04: /* AttribSendReceive */ | |||
2661 | case 0x06: /* AttribByte */ | |||
2662 | buflen = 1; | |||
2663 | break; | |||
2664 | case 0x08: /* AttribWord */ | |||
2665 | buflen = 2; | |||
2666 | break; | |||
2667 | case 0x0b: /* AttribBytes */ | |||
2668 | case 0x0e: /* AttribRawBytes */ | |||
2669 | buflen = len; | |||
2670 | break; | |||
2671 | default: | |||
2672 | aml_die("unsupported access type 0x%x", flag)_aml_die(__FUNCTION__, 2672, "unsupported access type 0x%x", flag ); | |||
2673 | break; | |||
2674 | } | |||
2675 | break; | |||
2676 | case 1: /* AttribBytes */ | |||
2677 | case 2: /* AttribRawBytes */ | |||
2678 | buflen = AML_FIELD_ATTR(flag)((flag) >> 8); | |||
2679 | break; | |||
2680 | default: | |||
2681 | aml_die("unsupported access type 0x%x", flag)_aml_die(__FUNCTION__, 2681, "unsupported access type 0x%x", flag ); | |||
2682 | break; | |||
2683 | } | |||
2684 | ||||
2685 | if (mode == ACPI_IOREAD0) | |||
2686 | _aml_setvalue(val, AML_OBJTYPE_BUFFER, buflen + 2, NULL((void *)0)); | |||
2687 | ||||
2688 | buf = val->v_buffer_.vbuffer; | |||
2689 | buf[0] = EIO5; | |||
2690 | } | |||
2691 | ||||
2692 | #endif | |||
2693 | ||||
2694 | void | |||
2695 | aml_rwindexfield(struct aml_value *fld, struct aml_value *val, int mode) | |||
2696 | { | |||
2697 | struct aml_value tmp, *ref1, *ref2; | |||
2698 | void *tbit, *vbit; | |||
2699 | int vpos, bpos, blen; | |||
2700 | int indexval; | |||
2701 | int sz, len; | |||
2702 | ||||
2703 | ref2 = fld->v_field_.vfield.ref2; | |||
2704 | ref1 = fld->v_field_.vfield.ref1; | |||
2705 | bpos = fld->v_field_.vfield.bitpos; | |||
2706 | blen = fld->v_field_.vfield.bitlen; | |||
2707 | ||||
2708 | memset(&tmp, 0, sizeof(tmp))__builtin_memset((&tmp), (0), (sizeof(tmp))); | |||
2709 | tmp.refcnt = 99; | |||
2710 | ||||
2711 | /* Get field access size */ | |||
2712 | switch (AML_FIELD_ACCESS(fld->v_field.flags)(((fld->_.vfield.flags) >> 0) & 0xF)) { | |||
2713 | case AML_FIELD_WORDACC0x2: | |||
2714 | sz = 2; | |||
2715 | break; | |||
2716 | case AML_FIELD_DWORDACC0x3: | |||
2717 | sz = 4; | |||
2718 | break; | |||
2719 | case AML_FIELD_QWORDACC0x4: | |||
2720 | sz = 8; | |||
2721 | break; | |||
2722 | default: | |||
2723 | sz = 1; | |||
2724 | break; | |||
2725 | } | |||
2726 | ||||
2727 | if (blen > aml_intlen) { | |||
2728 | if (mode == ACPI_IOREAD0) { | |||
2729 | /* Read from a large field: create buffer */ | |||
2730 | _aml_setvalue(val, AML_OBJTYPE_BUFFER, | |||
2731 | (blen + 7) >> 3, 0); | |||
2732 | } | |||
2733 | vbit = val->v_buffer_.vbuffer; | |||
2734 | } else { | |||
2735 | if (mode == ACPI_IOREAD0) { | |||
2736 | /* Read from a short field: initialize integer */ | |||
2737 | _aml_setvalue(val, AML_OBJTYPE_INTEGER, 0, 0); | |||
2738 | } | |||
2739 | vbit = &val->v_integer_.vinteger; | |||
2740 | } | |||
2741 | tbit = &tmp.v_integer_.vinteger; | |||
2742 | vpos = 0; | |||
2743 | ||||
2744 | indexval = (bpos >> 3) & ~(sz - 1); | |||
2745 | bpos = bpos - (indexval << 3); | |||
2746 | ||||
2747 | while (blen > 0) { | |||
2748 | len = min(blen, (sz << 3) - bpos); | |||
2749 | ||||
2750 | /* Write index register */ | |||
2751 | _aml_setvalue(&tmp, AML_OBJTYPE_INTEGER, indexval, 0); | |||
2752 | aml_rwfield(ref2, 0, aml_intlen, &tmp, ACPI_IOWRITE1); | |||
2753 | indexval += sz; | |||
2754 | ||||
2755 | /* Read/write data register */ | |||
2756 | _aml_setvalue(&tmp, AML_OBJTYPE_INTEGER, 0, 0); | |||
2757 | if (mode == ACPI_IOWRITE1) | |||
2758 | aml_bufcpy(tbit, 0, vbit, vpos, len); | |||
2759 | aml_rwfield(ref1, bpos, len, &tmp, mode); | |||
2760 | if (mode == ACPI_IOREAD0) | |||
2761 | aml_bufcpy(vbit, vpos, tbit, 0, len); | |||
2762 | vpos += len; | |||
2763 | blen -= len; | |||
2764 | bpos = 0; | |||
2765 | } | |||
2766 | } | |||
2767 | ||||
2768 | void | |||
2769 | aml_rwfield(struct aml_value *fld, int bpos, int blen, struct aml_value *val, | |||
2770 | int mode) | |||
2771 | { | |||
2772 | struct aml_value tmp, *ref1, *ref2; | |||
2773 | ||||
2774 | ref2 = fld->v_field_.vfield.ref2; | |||
2775 | ref1 = fld->v_field_.vfield.ref1; | |||
2776 | if (blen > fld->v_field_.vfield.bitlen) | |||
2777 | blen = fld->v_field_.vfield.bitlen; | |||
2778 | ||||
2779 | aml_lockfield(NULL((void *)0), fld); | |||
2780 | memset(&tmp, 0, sizeof(tmp))__builtin_memset((&tmp), (0), (sizeof(tmp))); | |||
2781 | aml_addref(&tmp, "fld.write"); | |||
2782 | if (fld->v_field_.vfield.type == AMLOP_INDEXFIELD0x5B86) { | |||
2783 | aml_rwindexfield(fld, val, mode); | |||
2784 | } else if (fld->v_field_.vfield.type == AMLOP_BANKFIELD0x5B87) { | |||
2785 | _aml_setvalue(&tmp, AML_OBJTYPE_INTEGER, fld->v_field_.vfield.ref3, 0); | |||
2786 | aml_rwfield(ref2, 0, aml_intlen, &tmp, ACPI_IOWRITE1); | |||
2787 | aml_rwgen(ref1, fld->v_field_.vfield.bitpos, fld->v_field_.vfield.bitlen, | |||
2788 | val, mode, fld->v_field_.vfield.flags); | |||
2789 | } else if (fld->v_field_.vfield.type == AMLOP_FIELD0x5B81) { | |||
2790 | switch (ref1->v_opregion_.vopregion.iospace) { | |||
2791 | case ACPI_OPREG_GPIO8: | |||
2792 | aml_rwgpio(ref2, bpos, blen, val, mode, | |||
2793 | fld->v_field_.vfield.flags); | |||
2794 | break; | |||
2795 | case ACPI_OPREG_GSB9: | |||
2796 | aml_rwgsb(ref2, fld->v_field_.vfield.ref3, | |||
2797 | fld->v_field_.vfield.bitpos + bpos, blen, | |||
2798 | val, mode, fld->v_field_.vfield.flags); | |||
2799 | break; | |||
2800 | default: | |||
2801 | aml_rwgen(ref1, fld->v_field_.vfield.bitpos + bpos, blen, | |||
2802 | val, mode, fld->v_field_.vfield.flags); | |||
2803 | break; | |||
2804 | } | |||
2805 | } else if (mode == ACPI_IOREAD0) { | |||
2806 | /* bufferfield:read */ | |||
2807 | _aml_setvalue(val, AML_OBJTYPE_INTEGER, 0, 0); | |||
2808 | aml_bufcpy(&val->v_integer_.vinteger, 0, ref1->v_buffer_.vbuffer, | |||
2809 | fld->v_field_.vfield.bitpos, fld->v_field_.vfield.bitlen); | |||
2810 | } else { | |||
2811 | /* bufferfield:write */ | |||
2812 | val = aml_convert(val, AML_OBJTYPE_INTEGER, -1); | |||
2813 | aml_bufcpy(ref1->v_buffer_.vbuffer, fld->v_field_.vfield.bitpos, &val->v_integer_.vinteger, | |||
2814 | 0, fld->v_field_.vfield.bitlen); | |||
2815 | aml_delref(&val, "wrbuffld"); | |||
2816 | } | |||
2817 | aml_unlockfield(NULL((void *)0), fld); | |||
2818 | } | |||
2819 | ||||
2820 | /* Create Field Object data index | |||
2821 | * AMLOP_FIELD n:OpRegion NULL | |||
2822 | * AMLOP_INDEXFIELD n:Field n:Field | |||
2823 | * AMLOP_BANKFIELD n:OpRegion n:Field | |||
2824 | * AMLOP_CREATEFIELD t:Buffer NULL | |||
2825 | * AMLOP_CREATEBITFIELD t:Buffer NULL | |||
2826 | * AMLOP_CREATEBYTEFIELD t:Buffer NULL | |||
2827 | * AMLOP_CREATEWORDFIELD t:Buffer NULL | |||
2828 | * AMLOP_CREATEDWORDFIELD t:Buffer NULL | |||
2829 | * AMLOP_CREATEQWORDFIELD t:Buffer NULL | |||
2830 | * AMLOP_INDEX t:Buffer NULL | |||
2831 | */ | |||
2832 | void | |||
2833 | aml_createfield(struct aml_value *field, int opcode, | |||
2834 | struct aml_value *data, int bpos, int blen, | |||
2835 | struct aml_value *index, int indexval, int flags) | |||
2836 | { | |||
2837 | dnprintf(10, "## %s(%s): %s %.4x-%.4x\n", | |||
2838 | aml_mnem(opcode, 0), | |||
2839 | blen > aml_intlen ? "BUF" : "INT", | |||
2840 | aml_nodename(field->node), bpos, blen); | |||
2841 | if (index) { | |||
2842 | dnprintf(10, " index:%s:%.2x\n", aml_nodename(index->node), | |||
2843 | indexval); | |||
2844 | } | |||
2845 | dnprintf(10, " data:%s\n", aml_nodename(data->node)); | |||
2846 | field->type = (opcode == AMLOP_FIELD0x5B81 || | |||
2847 | opcode == AMLOP_INDEXFIELD0x5B86 || | |||
2848 | opcode == AMLOP_BANKFIELD0x5B87) ? | |||
2849 | AML_OBJTYPE_FIELDUNIT : | |||
2850 | AML_OBJTYPE_BUFFERFIELD; | |||
2851 | ||||
2852 | if (field->type == AML_OBJTYPE_BUFFERFIELD && | |||
2853 | data->type != AML_OBJTYPE_BUFFER) | |||
2854 | data = aml_convert(data, AML_OBJTYPE_BUFFER, -1); | |||
2855 | ||||
2856 | field->v_field_.vfield.type = opcode; | |||
2857 | field->v_field_.vfield.bitpos = bpos; | |||
2858 | field->v_field_.vfield.bitlen = blen; | |||
2859 | field->v_field_.vfield.ref3 = indexval; | |||
2860 | field->v_field_.vfield.ref2 = index; | |||
2861 | field->v_field_.vfield.ref1 = data; | |||
2862 | field->v_field_.vfield.flags = flags; | |||
2863 | ||||
2864 | /* Increase reference count */ | |||
2865 | aml_addref(data, "Field.Data"); | |||
2866 | aml_addref(index, "Field.Index"); | |||
2867 | } | |||
2868 | ||||
2869 | /* Parse Field/IndexField/BankField scope */ | |||
2870 | void | |||
2871 | aml_parsefieldlist(struct aml_scope *mscope, int opcode, int flags, | |||
2872 | struct aml_value *data, struct aml_value *index, int indexval) | |||
2873 | { | |||
2874 | struct aml_value *conn = NULL((void *)0); | |||
2875 | struct aml_value *rv; | |||
2876 | int bpos, blen; | |||
2877 | ||||
2878 | if (mscope == NULL((void *)0)) | |||
2879 | return; | |||
2880 | bpos = 0; | |||
2881 | while (mscope->pos < mscope->end) { | |||
2882 | switch (*mscope->pos) { | |||
2883 | case 0x00: /* ReservedField */ | |||
2884 | mscope->pos++; | |||
2885 | blen = aml_parselength(mscope); | |||
2886 | break; | |||
2887 | case 0x01: /* AccessField */ | |||
2888 | mscope->pos++; | |||
2889 | blen = 0; | |||
2890 | flags = aml_get8(mscope->pos++)*(uint8_t *)(mscope->pos++); | |||
2891 | flags |= aml_get8(mscope->pos++)*(uint8_t *)(mscope->pos++) << 8; | |||
2892 | break; | |||
2893 | case 0x02: /* ConnectionField */ | |||
2894 | mscope->pos++; | |||
2895 | blen = 0; | |||
2896 | conn = aml_parse(mscope, 'o', "Connection"); | |||
2897 | if (conn == NULL((void *)0)) | |||
2898 | aml_die("Could not parse connection")_aml_die(__FUNCTION__, 2898, "Could not parse connection"); | |||
2899 | conn->node = mscope->node; | |||
2900 | break; | |||
2901 | case 0x03: /* ExtendedAccessField */ | |||
2902 | mscope->pos++; | |||
2903 | blen = 0; | |||
2904 | flags = aml_get8(mscope->pos++)*(uint8_t *)(mscope->pos++); | |||
2905 | flags |= aml_get8(mscope->pos++)*(uint8_t *)(mscope->pos++) << 8; | |||
2906 | indexval = aml_get8(mscope->pos++)*(uint8_t *)(mscope->pos++); | |||
2907 | break; | |||
2908 | default: /* NamedField */ | |||
2909 | mscope->pos = aml_parsename(mscope->node, mscope->pos, | |||
2910 | &rv, 1); | |||
2911 | blen = aml_parselength(mscope); | |||
2912 | aml_createfield(rv, opcode, data, bpos, blen, | |||
2913 | conn ? conn : index, indexval, flags); | |||
2914 | aml_delref(&rv, 0); | |||
2915 | break; | |||
2916 | } | |||
2917 | bpos += blen; | |||
2918 | } | |||
2919 | aml_popscope(mscope); | |||
2920 | } | |||
2921 | ||||
2922 | /* | |||
2923 | * Mutex/Event utility functions | |||
2924 | */ | |||
2925 | int acpi_mutex_acquire(struct aml_scope *, struct aml_value *, int); | |||
2926 | void acpi_mutex_release(struct aml_scope *, struct aml_value *); | |||
2927 | int acpi_event_wait(struct aml_scope *, struct aml_value *, int); | |||
2928 | void acpi_event_signal(struct aml_scope *, struct aml_value *); | |||
2929 | void acpi_event_reset(struct aml_scope *, struct aml_value *); | |||
2930 | ||||
2931 | int | |||
2932 | acpi_mutex_acquire(struct aml_scope *scope, struct aml_value *mtx, | |||
2933 | int timeout) | |||
2934 | { | |||
2935 | if (mtx->v_mtx_.Vmutex.owner == NULL((void *)0) || scope == mtx->v_mtx_.Vmutex.owner) { | |||
2936 | /* We are now the owner */ | |||
2937 | mtx->v_mtx_.Vmutex.owner = scope; | |||
2938 | if (mtx == aml_global_lock) { | |||
2939 | dnprintf(10,"LOCKING GLOBAL\n"); | |||
2940 | acpi_glk_enter(); | |||
2941 | } | |||
2942 | dnprintf(5,"%s acquires mutex %s\n", scope->node->name, | |||
2943 | mtx->node->name); | |||
2944 | return (0); | |||
2945 | } else if (timeout == 0) { | |||
2946 | return (-1); | |||
2947 | } | |||
2948 | /* Wait for mutex */ | |||
2949 | return (0); | |||
2950 | } | |||
2951 | ||||
2952 | void | |||
2953 | acpi_mutex_release(struct aml_scope *scope, struct aml_value *mtx) | |||
2954 | { | |||
2955 | if (mtx == aml_global_lock) { | |||
2956 | dnprintf(10,"UNLOCKING GLOBAL\n"); | |||
2957 | acpi_glk_leave(); | |||
2958 | } | |||
2959 | dnprintf(5, "%s releases mutex %s\n", scope->node->name, | |||
2960 | mtx->node->name); | |||
2961 | mtx->v_mtx_.Vmutex.owner = NULL((void *)0); | |||
2962 | /* Wakeup waiters */ | |||
2963 | } | |||
2964 | ||||
2965 | int | |||
2966 | acpi_event_wait(struct aml_scope *scope, struct aml_value *evt, int timeout) | |||
2967 | { | |||
2968 | /* Wait for event to occur; do work in meantime */ | |||
2969 | while (evt->v_evt_.Vevent.state == 0 && timeout >= 0) { | |||
2970 | if (acpi_dotask(acpi_softc)) | |||
2971 | continue; | |||
2972 | if (!cold) { | |||
2973 | if (rwsleep(evt, &acpi_softc->sc_lck, PWAIT32, | |||
2974 | "acpievt", 1) == EWOULDBLOCK35) { | |||
2975 | if (timeout < AML_NO_TIMEOUT0xffff) | |||
2976 | timeout -= (1000 / hz); | |||
2977 | } | |||
2978 | } else { | |||
2979 | delay(1000)(*delay_func)(1000); | |||
2980 | if (timeout < AML_NO_TIMEOUT0xffff) | |||
2981 | timeout--; | |||
2982 | } | |||
2983 | } | |||
2984 | if (evt->v_evt_.Vevent.state == 0) | |||
2985 | return (-1); | |||
2986 | evt->v_evt_.Vevent.state--; | |||
2987 | return (0); | |||
2988 | } | |||
2989 | ||||
2990 | void | |||
2991 | acpi_event_signal(struct aml_scope *scope, struct aml_value *evt) | |||
2992 | { | |||
2993 | evt->v_evt_.Vevent.state++; | |||
2994 | if (evt->v_evt_.Vevent.state > 0) | |||
2995 | wakeup_one(evt)wakeup_n((evt), 1); | |||
2996 | } | |||
2997 | ||||
2998 | void | |||
2999 | acpi_event_reset(struct aml_scope *scope, struct aml_value *evt) | |||
3000 | { | |||
3001 | evt->v_evt_.Vevent.state = 0; | |||
3002 | } | |||
3003 | ||||
3004 | /* Store result value into an object */ | |||
3005 | void | |||
3006 | aml_store(struct aml_scope *scope, struct aml_value *lhs , int64_t ival, | |||
3007 | struct aml_value *rhs) | |||
3008 | { | |||
3009 | struct aml_value tmp; | |||
3010 | struct aml_node *node; | |||
3011 | int mlen; | |||
3012 | ||||
3013 | /* Already set */ | |||
3014 | if (lhs == rhs || lhs == NULL((void *)0) || lhs->type == AML_OBJTYPE_NOTARGET) { | |||
3015 | return; | |||
3016 | } | |||
3017 | memset(&tmp, 0, sizeof(tmp))__builtin_memset((&tmp), (0), (sizeof(tmp))); | |||
3018 | tmp.refcnt=99; | |||
3019 | if (rhs == NULL((void *)0)) { | |||
3020 | rhs = _aml_setvalue(&tmp, AML_OBJTYPE_INTEGER, ival, NULL((void *)0)); | |||
3021 | } | |||
3022 | if (rhs->type == AML_OBJTYPE_BUFFERFIELD || | |||
3023 | rhs->type == AML_OBJTYPE_FIELDUNIT) { | |||
3024 | aml_rwfield(rhs, 0, rhs->v_field_.vfield.bitlen, &tmp, ACPI_IOREAD0); | |||
3025 | rhs = &tmp; | |||
3026 | } | |||
3027 | /* Store to LocalX: free value */ | |||
3028 | if (lhs->stack >= AMLOP_LOCAL00x60 && lhs->stack <= AMLOP_LOCAL70x67) | |||
3029 | aml_freevalue(lhs); | |||
3030 | ||||
3031 | lhs = aml_gettgt(lhs, AMLOP_STORE0x70); | |||
3032 | ||||
3033 | /* Store to LocalX: free value again */ | |||
3034 | if (lhs->stack >= AMLOP_LOCAL00x60 && lhs->stack <= AMLOP_LOCAL70x67) | |||
3035 | aml_freevalue(lhs); | |||
3036 | switch (lhs->type) { | |||
3037 | case AML_OBJTYPE_UNINITIALIZED: | |||
3038 | aml_copyvalue(lhs, rhs); | |||
3039 | break; | |||
3040 | case AML_OBJTYPE_BUFFERFIELD: | |||
3041 | case AML_OBJTYPE_FIELDUNIT: | |||
3042 | aml_rwfield(lhs, 0, lhs->v_field_.vfield.bitlen, rhs, ACPI_IOWRITE1); | |||
3043 | break; | |||
3044 | case AML_OBJTYPE_DEBUGOBJ: | |||
3045 | break; | |||
3046 | case AML_OBJTYPE_INTEGER: | |||
3047 | rhs = aml_convert(rhs, lhs->type, -1); | |||
3048 | lhs->v_integer_.vinteger = rhs->v_integer_.vinteger; | |||
3049 | aml_delref(&rhs, "store.int"); | |||
3050 | break; | |||
3051 | case AML_OBJTYPE_BUFFER: | |||
3052 | case AML_OBJTYPE_STRING: | |||
3053 | rhs = aml_convert(rhs, lhs->type, -1); | |||
3054 | if (lhs->length < rhs->length) { | |||
3055 | dnprintf(10, "Overrun! %d,%d\n", | |||
3056 | lhs->length, rhs->length); | |||
3057 | aml_freevalue(lhs); | |||
3058 | _aml_setvalue(lhs, rhs->type, rhs->length, NULL((void *)0)); | |||
3059 | } | |||
3060 | mlen = min(lhs->length, rhs->length); | |||
3061 | memset(lhs->v_buffer, 0x00, lhs->length)__builtin_memset((lhs->_.vbuffer), (0x00), (lhs->length )); | |||
3062 | memcpy(lhs->v_buffer, rhs->v_buffer, mlen)__builtin_memcpy((lhs->_.vbuffer), (rhs->_.vbuffer), (mlen )); | |||
3063 | aml_delref(&rhs, "store.bufstr"); | |||
3064 | break; | |||
3065 | case AML_OBJTYPE_PACKAGE: | |||
3066 | /* Convert to LHS type, copy into LHS */ | |||
3067 | if (rhs->type != AML_OBJTYPE_PACKAGE) { | |||
3068 | aml_die("Copy non-package into package?")_aml_die(__FUNCTION__, 3068, "Copy non-package into package?" ); | |||
3069 | } | |||
3070 | aml_freevalue(lhs); | |||
3071 | aml_copyvalue(lhs, rhs); | |||
3072 | break; | |||
3073 | case AML_OBJTYPE_NAMEREF: | |||
3074 | node = __aml_searchname(scope->node, | |||
3075 | aml_getname(lhs->v_nameref_.vbuffer), 1); | |||
3076 | if (node == NULL((void *)0)) { | |||
3077 | aml_die("Could not create node %s",_aml_die(__FUNCTION__, 3078, "Could not create node %s", aml_getname (lhs->_.vbuffer)) | |||
3078 | aml_getname(lhs->v_nameref))_aml_die(__FUNCTION__, 3078, "Could not create node %s", aml_getname (lhs->_.vbuffer)); | |||
3079 | } | |||
3080 | aml_copyvalue(node->value, rhs); | |||
3081 | break; | |||
3082 | case AML_OBJTYPE_METHOD: | |||
3083 | /* Method override */ | |||
3084 | if (rhs->type != AML_OBJTYPE_INTEGER) { | |||
3085 | aml_die("Overriding a method with a non-int?")_aml_die(__FUNCTION__, 3085, "Overriding a method with a non-int?" ); | |||
3086 | } | |||
3087 | aml_freevalue(lhs); | |||
3088 | aml_copyvalue(lhs, rhs); | |||
3089 | break; | |||
3090 | default: | |||
3091 | aml_die("Store to default type! %x\n", lhs->type)_aml_die(__FUNCTION__, 3091, "Store to default type! %x\n", lhs ->type); | |||
3092 | break; | |||
3093 | } | |||
3094 | aml_freevalue(&tmp); | |||
3095 | } | |||
3096 | ||||
3097 | #ifdef DDB1 | |||
3098 | /* Disassembler routines */ | |||
3099 | void aml_disprintf(void *arg, const char *fmt, ...); | |||
3100 | ||||
3101 | void | |||
3102 | aml_disprintf(void *arg, const char *fmt, ...) | |||
3103 | { | |||
3104 | va_list ap; | |||
3105 | ||||
3106 | va_start(ap, fmt)__builtin_va_start((ap), fmt); | |||
3107 | vprintf(fmt, ap); | |||
3108 | va_end(ap)__builtin_va_end((ap)); | |||
3109 | } | |||
3110 | ||||
3111 | void | |||
3112 | aml_disasm(struct aml_scope *scope, int lvl, | |||
3113 | void (*dbprintf)(void *, const char *, ...) | |||
3114 | __attribute__((__format__(__kprintf__,2,3))), | |||
3115 | void *arg) | |||
3116 | { | |||
3117 | int pc, opcode; | |||
3118 | struct aml_opcode *htab; | |||
3119 | uint64_t ival; | |||
3120 | struct aml_value *rv, tmp; | |||
3121 | uint8_t *end = NULL((void *)0); | |||
3122 | struct aml_scope ms; | |||
3123 | char *ch; | |||
3124 | char mch[64]; | |||
3125 | ||||
3126 | if (dbprintf == NULL((void *)0)) | |||
3127 | dbprintf = aml_disprintf; | |||
3128 | ||||
3129 | pc = aml_pc(scope->pos); | |||
3130 | opcode = aml_parseopcode(scope); | |||
3131 | htab = aml_findopcode(opcode); | |||
3132 | ||||
3133 | /* Display address + indent */ | |||
3134 | if (lvl <= 0x7FFF) { | |||
3135 | dbprintf(arg, "%.4x ", pc); | |||
3136 | for (pc=0; pc<lvl; pc++) { | |||
3137 | dbprintf(arg, " "); | |||
3138 | } | |||
3139 | } | |||
3140 | ch = NULL((void *)0); | |||
3141 | switch (opcode) { | |||
3142 | case AMLOP_NAMECHAR0x5F: | |||
3143 | scope->pos = aml_parsename(scope->node, scope->pos, &rv, 0); | |||
3144 | if (rv->type == AML_OBJTYPE_NAMEREF) { | |||
3145 | ch = "@@@"; | |||
3146 | aml_delref(&rv, "disasm"); | |||
3147 | break; | |||
3148 | } | |||
3149 | /* if this is a method, get arguments */ | |||
3150 | strlcpy(mch, aml_nodename(rv->node), sizeof(mch)); | |||
3151 | if (rv->type == AML_OBJTYPE_METHOD) { | |||
3152 | strlcat(mch, "(", sizeof(mch)); | |||
3153 | for (ival=0; | |||
3154 | ival < AML_METHOD_ARGCOUNT(rv->v_method.flags)(((rv->_.vmethod.flags) >> 0) & 0x7); | |||
3155 | ival++) { | |||
3156 | strlcat(mch, ival ? ", %z" : "%z", | |||
3157 | sizeof(mch)); | |||
3158 | } | |||
3159 | strlcat(mch, ")", sizeof(mch)); | |||
3160 | } | |||
3161 | aml_delref(&rv, ""); | |||
3162 | ch = mch; | |||
3163 | break; | |||
3164 | ||||
3165 | case AMLOP_ZERO0x00: | |||
3166 | case AMLOP_ONE0x01: | |||
3167 | case AMLOP_ONES0xFF: | |||
3168 | case AMLOP_LOCAL00x60: | |||
3169 | case AMLOP_LOCAL10x61: | |||
3170 | case AMLOP_LOCAL20x62: | |||
3171 | case AMLOP_LOCAL30x63: | |||
3172 | case AMLOP_LOCAL40x64: | |||
3173 | case AMLOP_LOCAL50x65: | |||
3174 | case AMLOP_LOCAL60x66: | |||
3175 | case AMLOP_LOCAL70x67: | |||
3176 | case AMLOP_ARG00x68: | |||
3177 | case AMLOP_ARG10x69: | |||
3178 | case AMLOP_ARG20x6A: | |||
3179 | case AMLOP_ARG30x6B: | |||
3180 | case AMLOP_ARG40x6C: | |||
3181 | case AMLOP_ARG50x6D: | |||
3182 | case AMLOP_ARG60x6E: | |||
3183 | case AMLOP_NOP0xA3: | |||
3184 | case AMLOP_REVISION0x5B30: | |||
3185 | case AMLOP_DEBUG0x5B31: | |||
3186 | case AMLOP_CONTINUE0x9F: | |||
3187 | case AMLOP_BREAKPOINT0xCC: | |||
3188 | case AMLOP_BREAK0xA5: | |||
3189 | ch="%m"; | |||
3190 | break; | |||
3191 | case AMLOP_BYTEPREFIX0x0A: | |||
3192 | ch="%b"; | |||
3193 | break; | |||
3194 | case AMLOP_WORDPREFIX0x0B: | |||
3195 | ch="%w"; | |||
3196 | break; | |||
3197 | case AMLOP_DWORDPREFIX0x0C: | |||
3198 | ch="%d"; | |||
3199 | break; | |||
3200 | case AMLOP_QWORDPREFIX0x0E: | |||
3201 | ch="%q"; | |||
3202 | break; | |||
3203 | case AMLOP_STRINGPREFIX0x0D: | |||
3204 | ch="%a"; | |||
3205 | break; | |||
3206 | ||||
3207 | case AMLOP_INCREMENT0x75: | |||
3208 | case AMLOP_DECREMENT0x76: | |||
3209 | case AMLOP_LNOT0x92: | |||
3210 | case AMLOP_SIZEOF0x87: | |||
3211 | case AMLOP_DEREFOF0x83: | |||
3212 | case AMLOP_REFOF0x71: | |||
3213 | case AMLOP_OBJECTTYPE0x8E: | |||
3214 | case AMLOP_UNLOAD0x5B2A: | |||
3215 | case AMLOP_RELEASE0x5B27: | |||
3216 | case AMLOP_SIGNAL0x5B24: | |||
3217 | case AMLOP_RESET0x5B26: | |||
3218 | case AMLOP_STALL0x5B21: | |||
3219 | case AMLOP_SLEEP0x5B22: | |||
3220 | case AMLOP_RETURN0xA4: | |||
3221 | ch="%m(%n)"; | |||
3222 | break; | |||
3223 | case AMLOP_OR0x7D: | |||
3224 | case AMLOP_ADD0x72: | |||
3225 | case AMLOP_AND0x7B: | |||
3226 | case AMLOP_NAND0x7C: | |||
3227 | case AMLOP_XOR0x7F: | |||
3228 | case AMLOP_SHL0x79: | |||
3229 | case AMLOP_SHR0x7A: | |||
3230 | case AMLOP_NOR0x7E: | |||
3231 | case AMLOP_MOD0x85: | |||
3232 | case AMLOP_SUBTRACT0x74: | |||
3233 | case AMLOP_MULTIPLY0x77: | |||
3234 | case AMLOP_INDEX0x88: | |||
3235 | case AMLOP_CONCAT0x73: | |||
3236 | case AMLOP_CONCATRES0x84: | |||
3237 | case AMLOP_TOSTRING0x9C: | |||
3238 | ch="%m(%n, %n, %n)"; | |||
3239 | break; | |||
3240 | case AMLOP_CREATEBYTEFIELD0x8C: | |||
3241 | case AMLOP_CREATEWORDFIELD0x8B: | |||
3242 | case AMLOP_CREATEDWORDFIELD0x8A: | |||
3243 | case AMLOP_CREATEQWORDFIELD0x8F: | |||
3244 | case AMLOP_CREATEBITFIELD0x8D: | |||
3245 | ch="%m(%n, %n, %N)"; | |||
3246 | break; | |||
3247 | case AMLOP_CREATEFIELD0x5B13: | |||
3248 | ch="%m(%n, %n, %n, %N)"; | |||
3249 | break; | |||
3250 | case AMLOP_DIVIDE0x78: | |||
3251 | case AMLOP_MID0x9E: | |||
3252 | ch="%m(%n, %n, %n, %n)"; | |||
3253 | break; | |||
3254 | case AMLOP_LAND0x90: | |||
3255 | case AMLOP_LOR0x91: | |||
3256 | case AMLOP_LNOTEQUAL0x9293: | |||
3257 | case AMLOP_LLESSEQUAL0x9294: | |||
3258 | case AMLOP_LLESS0x95: | |||
3259 | case AMLOP_LEQUAL0x93: | |||
3260 | case AMLOP_LGREATEREQUAL0x9295: | |||
3261 | case AMLOP_LGREATER0x94: | |||
3262 | case AMLOP_NOT0x80: | |||
3263 | case AMLOP_FINDSETLEFTBIT0x81: | |||
3264 | case AMLOP_FINDSETRIGHTBIT0x82: | |||
3265 | case AMLOP_TOINTEGER0x99: | |||
3266 | case AMLOP_TOBUFFER0x96: | |||
3267 | case AMLOP_TOHEXSTRING0x98: | |||
3268 | case AMLOP_TODECSTRING0x97: | |||
3269 | case AMLOP_FROMBCD0x5B28: | |||
3270 | case AMLOP_TOBCD0x5B29: | |||
3271 | case AMLOP_WAIT0x5B25: | |||
3272 | case AMLOP_LOAD0x5B20: | |||
3273 | case AMLOP_STORE0x70: | |||
3274 | case AMLOP_NOTIFY0x86: | |||
3275 | case AMLOP_COPYOBJECT0x9D: | |||
3276 | ch="%m(%n, %n)"; | |||
3277 | break; | |||
3278 | case AMLOP_ACQUIRE0x5B23: | |||
3279 | ch = "%m(%n, %w)"; | |||
3280 | break; | |||
3281 | case AMLOP_CONDREFOF0x5B12: | |||
3282 | ch="%m(%R, %n)"; | |||
3283 | break; | |||
3284 | case AMLOP_ALIAS0x06: | |||
3285 | ch="%m(%n, %N)"; | |||
3286 | break; | |||
3287 | case AMLOP_NAME0x08: | |||
3288 | ch="%m(%N, %n)"; | |||
3289 | break; | |||
3290 | case AMLOP_EVENT0x5B02: | |||
3291 | ch="%m(%N)"; | |||
3292 | break; | |||
3293 | case AMLOP_MUTEX0x5B01: | |||
3294 | ch = "%m(%N, %b)"; | |||
3295 | break; | |||
3296 | case AMLOP_OPREGION0x5B80: | |||
3297 | ch = "%m(%N, %b, %n, %n)"; | |||
3298 | break; | |||
3299 | case AMLOP_DATAREGION0x5B88: | |||
3300 | ch="%m(%N, %n, %n, %n)"; | |||
3301 | break; | |||
3302 | case AMLOP_FATAL0x5B32: | |||
3303 | ch = "%m(%b, %d, %n)"; | |||
3304 | break; | |||
3305 | case AMLOP_IF0xA0: | |||
3306 | case AMLOP_WHILE0xA2: | |||
3307 | case AMLOP_SCOPE0x10: | |||
3308 | case AMLOP_THERMALZONE0x5B85: | |||
3309 | case AMLOP_VARPACKAGE0x13: | |||
3310 | end = aml_parseend(scope); | |||
3311 | ch = "%m(%n) {\n%T}"; | |||
3312 | break; | |||
3313 | case AMLOP_DEVICE0x5B82: | |||
3314 | end = aml_parseend(scope); | |||
3315 | ch = "%m(%N) {\n%T}"; | |||
3316 | break; | |||
3317 | case AMLOP_POWERRSRC0x5B84: | |||
3318 | end = aml_parseend(scope); | |||
3319 | ch = "%m(%N, %b, %w) {\n%T}"; | |||
3320 | break; | |||
3321 | case AMLOP_PROCESSOR0x5B83: | |||
3322 | end = aml_parseend(scope); | |||
3323 | ch = "%m(%N, %b, %d, %b) {\n%T}"; | |||
3324 | break; | |||
3325 | case AMLOP_METHOD0x14: | |||
3326 | end = aml_parseend(scope); | |||
3327 | ch = "%m(%N, %b) {\n%T}"; | |||
3328 | break; | |||
3329 | case AMLOP_PACKAGE0x12: | |||
3330 | end = aml_parseend(scope); | |||
3331 | ch = "%m(%b) {\n%T}"; | |||
3332 | break; | |||
3333 | case AMLOP_ELSE0xA1: | |||
3334 | end = aml_parseend(scope); | |||
3335 | ch = "%m {\n%T}"; | |||
3336 | break; | |||
3337 | case AMLOP_BUFFER0x11: | |||
3338 | end = aml_parseend(scope); | |||
3339 | ch = "%m(%n) { %B }"; | |||
3340 | break; | |||
3341 | case AMLOP_INDEXFIELD0x5B86: | |||
3342 | end = aml_parseend(scope); | |||
3343 | ch = "%m(%n, %n, %b) {\n%F}"; | |||
3344 | break; | |||
3345 | case AMLOP_BANKFIELD0x5B87: | |||
3346 | end = aml_parseend(scope); | |||
3347 | ch = "%m(%n, %n, %n, %b) {\n%F}"; | |||
3348 | break; | |||
3349 | case AMLOP_FIELD0x5B81: | |||
3350 | end = aml_parseend(scope); | |||
3351 | ch = "%m(%n, %b) {\n%F}"; | |||
3352 | break; | |||
3353 | case AMLOP_MATCH0x89: | |||
3354 | ch = "%m(%n, %b, %n, %b, %n, %n)"; | |||
3355 | break; | |||
3356 | case AMLOP_LOADTABLE0x5B1F: | |||
3357 | ch = "%m(%n, %n, %n, %n, %n, %n)"; | |||
3358 | break; | |||
3359 | default: | |||
3360 | aml_die("opcode = %x\n", opcode)_aml_die(__FUNCTION__, 3360, "opcode = %x\n", opcode); | |||
3361 | break; | |||
3362 | } | |||
3363 | ||||
3364 | /* Parse printable buffer args */ | |||
3365 | while (ch && *ch) { | |||
3366 | char c; | |||
3367 | ||||
3368 | if (*ch != '%') { | |||
3369 | dbprintf(arg,"%c", *(ch++)); | |||
3370 | continue; | |||
3371 | } | |||
3372 | c = *(++ch); | |||
3373 | switch (c) { | |||
3374 | case 'b': | |||
3375 | case 'w': | |||
3376 | case 'd': | |||
3377 | case 'q': | |||
3378 | /* Parse simple object: don't allocate */ | |||
3379 | aml_parsesimple(scope, c, &tmp); | |||
3380 | dbprintf(arg,"0x%llx", tmp.v_integer_.vinteger); | |||
3381 | break; | |||
3382 | case 'a': | |||
3383 | dbprintf(arg, "\'%s\'", scope->pos); | |||
3384 | scope->pos += strlen(scope->pos)+1; | |||
3385 | break; | |||
3386 | case 'N': | |||
3387 | /* Create Name */ | |||
3388 | rv = aml_parsesimple(scope, c, NULL((void *)0)); | |||
3389 | dbprintf(arg, "%s", aml_nodename(rv->node)); | |||
3390 | break; | |||
3391 | case 'm': | |||
3392 | /* display mnemonic */ | |||
3393 | dbprintf(arg, "%s", htab->mnem); | |||
3394 | break; | |||
3395 | case 'R': | |||
3396 | /* Search name */ | |||
3397 | printf("%s", aml_getname(scope->pos)); | |||
3398 | scope->pos = aml_parsename(scope->node, scope->pos, | |||
3399 | &rv, 0); | |||
3400 | aml_delref(&rv, 0); | |||
3401 | break; | |||
3402 | case 'z': | |||
3403 | case 'n': | |||
3404 | /* generic arg: recurse */ | |||
3405 | aml_disasm(scope, lvl | 0x8000, dbprintf, arg); | |||
3406 | break; | |||
3407 | case 'B': | |||
3408 | /* Buffer */ | |||
3409 | scope->pos = end; | |||
3410 | break; | |||
3411 | case 'F': | |||
3412 | /* Scope: Field List */ | |||
3413 | memset(&ms, 0, sizeof(ms))__builtin_memset((&ms), (0), (sizeof(ms))); | |||
3414 | ms.node = scope->node; | |||
3415 | ms.start = scope->pos; | |||
3416 | ms.end = end; | |||
3417 | ms.pos = ms.start; | |||
3418 | ms.type = AMLOP_FIELD0x5B81; | |||
3419 | ||||
3420 | while (ms.pos < ms.end) { | |||
3421 | if (*ms.pos == 0x00) { | |||
3422 | ms.pos++; | |||
3423 | aml_parselength(&ms); | |||
3424 | } else if (*ms.pos == 0x01) { | |||
3425 | ms.pos+=3; | |||
3426 | } else { | |||
3427 | ms.pos = aml_parsename(ms.node, | |||
3428 | ms.pos, &rv, 1); | |||
3429 | aml_parselength(&ms); | |||
3430 | dbprintf(arg," %s\n", | |||
3431 | aml_nodename(rv->node)); | |||
3432 | aml_delref(&rv, 0); | |||
3433 | } | |||
3434 | } | |||
3435 | ||||
3436 | /* Display address and closing bracket */ | |||
3437 | dbprintf(arg,"%.4x ", aml_pc(scope->pos)); | |||
3438 | for (pc=0; pc<(lvl & 0x7FFF); pc++) { | |||
3439 | dbprintf(arg," "); | |||
3440 | } | |||
3441 | scope->pos = end; | |||
3442 | break; | |||
3443 | case 'T': | |||
3444 | /* Scope: Termlist */ | |||
3445 | memset(&ms, 0, sizeof(ms))__builtin_memset((&ms), (0), (sizeof(ms))); | |||
3446 | ms.node = scope->node; | |||
3447 | ms.start = scope->pos; | |||
3448 | ms.end = end; | |||
3449 | ms.pos = ms.start; | |||
3450 | ms.type = AMLOP_SCOPE0x10; | |||
3451 | ||||
3452 | while (ms.pos < ms.end) { | |||
3453 | aml_disasm(&ms, (lvl + 1) & 0x7FFF, | |||
3454 | dbprintf, arg); | |||
3455 | } | |||
3456 | ||||
3457 | /* Display address and closing bracket */ | |||
3458 | dbprintf(arg,"%.4x ", aml_pc(scope->pos)); | |||
3459 | for (pc=0; pc<(lvl & 0x7FFF); pc++) { | |||
3460 | dbprintf(arg," "); | |||
3461 | } | |||
3462 | scope->pos = end; | |||
3463 | break; | |||
3464 | } | |||
3465 | ch++; | |||
3466 | } | |||
3467 | if (lvl <= 0x7FFF) { | |||
3468 | dbprintf(arg,"\n"); | |||
3469 | } | |||
3470 | } | |||
3471 | #endif /* DDB */ | |||
3472 | ||||
3473 | int aml_busy; | |||
3474 | ||||
3475 | /* Evaluate method or buffervalue objects */ | |||
3476 | struct aml_value * | |||
3477 | aml_eval(struct aml_scope *scope, struct aml_value *my_ret, int ret_type, | |||
3478 | int argc, struct aml_value *argv) | |||
3479 | { | |||
3480 | struct aml_value *tmp = my_ret; | |||
3481 | struct aml_scope *ms; | |||
3482 | int idx; | |||
3483 | ||||
3484 | switch (tmp->type) { | |||
3485 | case AML_OBJTYPE_NAMEREF: | |||
3486 | my_ret = aml_seterror(scope, "Undefined name: %s", | |||
3487 | aml_getname(my_ret->v_nameref_.vbuffer)); | |||
3488 | break; | |||
3489 | case AML_OBJTYPE_METHOD: | |||
3490 | dnprintf(10,"\n--== Eval Method [%s, %d args] to %c ==--\n", | |||
3491 | aml_nodename(tmp->node), | |||
3492 | AML_METHOD_ARGCOUNT(tmp->v_method.flags), | |||
3493 | ret_type); | |||
3494 | ms = aml_pushscope(scope, tmp, tmp->node, AMLOP_METHOD0x14); | |||
3495 | ||||
3496 | /* Parse method arguments */ | |||
3497 | for (idx=0; idx<AML_METHOD_ARGCOUNT(tmp->v_method.flags)(((tmp->_.vmethod.flags) >> 0) & 0x7); idx++) { | |||
3498 | struct aml_value *sp; | |||
3499 | ||||
3500 | sp = aml_getstack(ms, AMLOP_ARG00x68+idx); | |||
3501 | if (argv) { | |||
3502 | aml_copyvalue(sp, &argv[idx]); | |||
3503 | } else { | |||
3504 | _aml_setvalue(sp, AML_OBJTYPE_OBJREF, AMLOP_ARG00x68 + idx, 0); | |||
3505 | sp->v_objref_.vobjref.ref = aml_parse(scope, 't', "ARGX"); | |||
3506 | } | |||
3507 | } | |||
3508 | #ifdef ACPI_DEBUG | |||
3509 | aml_showstack(ms); | |||
3510 | #endif | |||
3511 | ||||
3512 | /* Evaluate method scope */ | |||
3513 | aml_root.start = tmp->v_method_.vmethod.base; | |||
3514 | if (tmp->v_method_.vmethod.fneval != NULL((void *)0)) { | |||
3515 | my_ret = tmp->v_method_.vmethod.fneval(ms, NULL((void *)0)); | |||
3516 | } else { | |||
3517 | aml_parse(ms, 'T', "METHEVAL"); | |||
3518 | my_ret = ms->retv; | |||
3519 | } | |||
3520 | dnprintf(10,"\n--==Finished evaluating method: %s %c\n", | |||
3521 | aml_nodename(tmp->node), ret_type); | |||
3522 | #ifdef ACPI_DEBUG | |||
3523 | aml_showvalue(my_ret); | |||
3524 | aml_showstack(ms); | |||
3525 | #endif | |||
3526 | aml_popscope(ms); | |||
3527 | break; | |||
3528 | case AML_OBJTYPE_BUFFERFIELD: | |||
3529 | case AML_OBJTYPE_FIELDUNIT: | |||
3530 | my_ret = aml_allocvalue(0,0,NULL((void *)0)); | |||
3531 | dnprintf(20,"quick: Convert Bufferfield to %c %p\n", | |||
3532 | ret_type, my_ret); | |||
3533 | aml_rwfield(tmp, 0, tmp->v_field_.vfield.bitlen, my_ret, ACPI_IOREAD0); | |||
3534 | break; | |||
3535 | } | |||
3536 | if (ret_type == 'i' && my_ret && my_ret->type != AML_OBJTYPE_INTEGER) { | |||
3537 | #ifndef SMALL_KERNEL | |||
3538 | aml_showvalue(my_ret); | |||
3539 | #endif | |||
3540 | aml_die("Not Integer")_aml_die(__FUNCTION__, 3540, "Not Integer"); | |||
3541 | } | |||
3542 | return my_ret; | |||
3543 | } | |||
3544 | ||||
3545 | /* | |||
3546 | * The following opcodes produce return values | |||
3547 | * TOSTRING -> Str | |||
3548 | * TOHEXSTR -> Str | |||
3549 | * TODECSTR -> Str | |||
3550 | * STRINGPFX -> Str | |||
3551 | * BUFFER -> Buf | |||
3552 | * CONCATRES -> Buf | |||
3553 | * TOBUFFER -> Buf | |||
3554 | * MID -> Buf|Str | |||
3555 | * CONCAT -> Buf|Str | |||
3556 | * PACKAGE -> Pkg | |||
3557 | * VARPACKAGE -> Pkg | |||
3558 | * LOCALx -> Obj | |||
3559 | * ARGx -> Obj | |||
3560 | * NAMECHAR -> Obj | |||
3561 | * REFOF -> ObjRef | |||
3562 | * INDEX -> ObjRef | |||
3563 | * DEREFOF -> DataRefObj | |||
3564 | * COPYOBJECT -> DataRefObj | |||
3565 | * STORE -> DataRefObj | |||
3566 | ||||
3567 | * ZERO -> Int | |||
3568 | * ONE -> Int | |||
3569 | * ONES -> Int | |||
3570 | * REVISION -> Int | |||
3571 | * B/W/D/Q -> Int | |||
3572 | * OR -> Int | |||
3573 | * AND -> Int | |||
3574 | * ADD -> Int | |||
3575 | * NAND -> Int | |||
3576 | * XOR -> Int | |||
3577 | * SHL -> Int | |||
3578 | * SHR -> Int | |||
3579 | * NOR -> Int | |||
3580 | * MOD -> Int | |||
3581 | * SUBTRACT -> Int | |||
3582 | * MULTIPLY -> Int | |||
3583 | * DIVIDE -> Int | |||
3584 | * NOT -> Int | |||
3585 | * TOBCD -> Int | |||
3586 | * FROMBCD -> Int | |||
3587 | * FSLEFTBIT -> Int | |||
3588 | * FSRIGHTBIT -> Int | |||
3589 | * INCREMENT -> Int | |||
3590 | * DECREMENT -> Int | |||
3591 | * TOINTEGER -> Int | |||
3592 | * MATCH -> Int | |||
3593 | * SIZEOF -> Int | |||
3594 | * OBJECTTYPE -> Int | |||
3595 | * TIMER -> Int | |||
3596 | ||||
3597 | * CONDREFOF -> Bool | |||
3598 | * ACQUIRE -> Bool | |||
3599 | * WAIT -> Bool | |||
3600 | * LNOT -> Bool | |||
3601 | * LAND -> Bool | |||
3602 | * LOR -> Bool | |||
3603 | * LLESS -> Bool | |||
3604 | * LEQUAL -> Bool | |||
3605 | * LGREATER -> Bool | |||
3606 | * LNOTEQUAL -> Bool | |||
3607 | * LLESSEQUAL -> Bool | |||
3608 | * LGREATEREQ -> Bool | |||
3609 | ||||
3610 | * LOADTABLE -> DDB | |||
3611 | * DEBUG -> Debug | |||
3612 | ||||
3613 | * The following opcodes do not generate a return value: | |||
3614 | * NOP | |||
3615 | * BREAKPOINT | |||
3616 | * RELEASE | |||
3617 | * RESET | |||
3618 | * SIGNAL | |||
3619 | * NAME | |||
3620 | * ALIAS | |||
3621 | * OPREGION | |||
3622 | * DATAREGION | |||
3623 | * EVENT | |||
3624 | * MUTEX | |||
3625 | * SCOPE | |||
3626 | * DEVICE | |||
3627 | * THERMALZONE | |||
3628 | * POWERRSRC | |||
3629 | * PROCESSOR | |||
3630 | * METHOD | |||
3631 | * CREATEFIELD | |||
3632 | * CREATEBITFIELD | |||
3633 | * CREATEBYTEFIELD | |||
3634 | * CREATEWORDFIELD | |||
3635 | * CREATEDWORDFIELD | |||
3636 | * CREATEQWORDFIELD | |||
3637 | * FIELD | |||
3638 | * INDEXFIELD | |||
3639 | * BANKFIELD | |||
3640 | * STALL | |||
3641 | * SLEEP | |||
3642 | * NOTIFY | |||
3643 | * FATAL | |||
3644 | * LOAD | |||
3645 | * UNLOAD | |||
3646 | * IF | |||
3647 | * ELSE | |||
3648 | * WHILE | |||
3649 | * BREAK | |||
3650 | * CONTINUE | |||
3651 | */ | |||
3652 | ||||
3653 | /* Parse a simple object from AML Bytestream */ | |||
3654 | struct aml_value * | |||
3655 | aml_parsesimple(struct aml_scope *scope, char ch, struct aml_value *rv) | |||
3656 | { | |||
3657 | if (rv == NULL((void *)0)) | |||
3658 | rv = aml_allocvalue(0,0,NULL((void *)0)); | |||
3659 | switch (ch) { | |||
3660 | case AML_ARG_REVISION'R': | |||
3661 | _aml_setvalue(rv, AML_OBJTYPE_INTEGER, AML_REVISION0x01, NULL((void *)0)); | |||
3662 | break; | |||
3663 | case AML_ARG_DEBUG'D': | |||
3664 | _aml_setvalue(rv, AML_OBJTYPE_DEBUGOBJ, 0, NULL((void *)0)); | |||
3665 | break; | |||
3666 | case AML_ARG_BYTE'b': | |||
3667 | _aml_setvalue(rv, AML_OBJTYPE_INTEGER, | |||
3668 | aml_get8(scope->pos)*(uint8_t *)(scope->pos), NULL((void *)0)); | |||
3669 | scope->pos += 1; | |||
3670 | break; | |||
3671 | case AML_ARG_WORD'w': | |||
3672 | _aml_setvalue(rv, AML_OBJTYPE_INTEGER, | |||
3673 | aml_get16(scope->pos)*(uint16_t *)(scope->pos), NULL((void *)0)); | |||
3674 | scope->pos += 2; | |||
3675 | break; | |||
3676 | case AML_ARG_DWORD'd': | |||
3677 | _aml_setvalue(rv, AML_OBJTYPE_INTEGER, | |||
3678 | aml_get32(scope->pos)*(uint32_t *)(scope->pos), NULL((void *)0)); | |||
3679 | scope->pos += 4; | |||
3680 | break; | |||
3681 | case AML_ARG_QWORD'q': | |||
3682 | _aml_setvalue(rv, AML_OBJTYPE_INTEGER, | |||
3683 | aml_get64(scope->pos)*(uint64_t *)(scope->pos), NULL((void *)0)); | |||
3684 | scope->pos += 8; | |||
3685 | break; | |||
3686 | case AML_ARG_STRING'a': | |||
3687 | _aml_setvalue(rv, AML_OBJTYPE_STRING, -1, scope->pos); | |||
3688 | scope->pos += rv->length+1; | |||
3689 | break; | |||
3690 | } | |||
3691 | return rv; | |||
3692 | } | |||
3693 | ||||
3694 | /* | |||
3695 | * Main Opcode Parser/Evaluator | |||
3696 | * | |||
3697 | * ret_type is expected type for return value | |||
3698 | * 'o' = Data Object (Int/Str/Buf/Pkg/Name) | |||
3699 | * 'i' = Integer | |||
3700 | * 't' = TermArg (Int/Str/Buf/Pkg) | |||
3701 | * 'r' = Target (NamedObj/Local/Arg/Null) | |||
3702 | * 'S' = SuperName (NamedObj/Local/Arg) | |||
3703 | * 'T' = TermList | |||
3704 | */ | |||
3705 | #define aml_debugger(x) | |||
3706 | ||||
3707 | int maxdp; | |||
3708 | ||||
3709 | struct aml_value * | |||
3710 | aml_gettgt(struct aml_value *val, int opcode) | |||
3711 | { | |||
3712 | while (val && val->type == AML_OBJTYPE_OBJREF) { | |||
3713 | val = val->v_objref_.vobjref.ref; | |||
3714 | } | |||
3715 | return val; | |||
3716 | } | |||
3717 | ||||
3718 | struct aml_value * | |||
3719 | aml_seterror(struct aml_scope *scope, const char *fmt, ...) | |||
3720 | { | |||
3721 | va_list ap; | |||
3722 | ||||
3723 | va_start(ap, fmt)__builtin_va_start((ap), fmt); | |||
3724 | printf("### AML PARSE ERROR (0x%x): ", aml_pc(scope->pos)); | |||
3725 | vprintf(fmt, ap); | |||
3726 | printf("\n"); | |||
3727 | va_end(ap)__builtin_va_end((ap)); | |||
3728 | ||||
3729 | while (scope) { | |||
3730 | scope->pos = scope->end; | |||
3731 | scope = scope->parent; | |||
3732 | } | |||
3733 | aml_error++; | |||
3734 | return aml_allocvalue(AML_OBJTYPE_INTEGER, 0, 0); | |||
3735 | } | |||
3736 | ||||
3737 | struct aml_value * | |||
3738 | aml_loadtable(struct acpi_softc *sc, const char *signature, | |||
3739 | const char *oemid, const char *oemtableid, const char *rootpath, | |||
3740 | const char *parameterpath, struct aml_value *parameterdata) | |||
3741 | { | |||
3742 | struct acpi_table_header *hdr; | |||
3743 | struct acpi_dsdt *p_dsdt; | |||
3744 | struct acpi_q *entry; | |||
3745 | ||||
3746 | if (strlen(parameterpath) > 0) | |||
3747 | aml_die("LoadTable: ParameterPathString unsupported")_aml_die(__FUNCTION__, 3747, "LoadTable: ParameterPathString unsupported" ); | |||
3748 | ||||
3749 | SIMPLEQ_FOREACH(entry, &sc->sc_tables, q_next)for((entry) = ((&sc->sc_tables)->sqh_first); (entry ) != ((void *)0); (entry) = ((entry)->q_next.sqe_next)) { | |||
3750 | hdr = entry->q_table; | |||
3751 | if (strncmp(hdr->signature, signature, | |||
3752 | sizeof(hdr->signature)) == 0 && | |||
3753 | strncmp(hdr->oemid, oemid, sizeof(hdr->oemid)) == 0 && | |||
3754 | strncmp(hdr->oemtableid, oemtableid, | |||
3755 | sizeof(hdr->oemtableid)) == 0) { | |||
3756 | p_dsdt = entry->q_table; | |||
3757 | acpi_parse_aml(sc, rootpath, p_dsdt->aml, | |||
3758 | p_dsdt->hdr_lengthhdr.length - sizeof(p_dsdt->hdr)); | |||
3759 | return aml_allocvalue(AML_OBJTYPE_DDBHANDLE, 0, 0); | |||
3760 | } | |||
3761 | } | |||
3762 | ||||
3763 | return aml_allocvalue(AML_OBJTYPE_INTEGER, 0, 0); | |||
3764 | } | |||
3765 | ||||
3766 | /* Load new SSDT scope from memory address */ | |||
3767 | struct aml_scope * | |||
3768 | aml_load(struct acpi_softc *sc, struct aml_scope *scope, | |||
3769 | struct aml_value *rgn, struct aml_value *ddb) | |||
3770 | { | |||
3771 | struct acpi_q *entry; | |||
3772 | struct acpi_dsdt *p_ssdt; | |||
3773 | struct aml_value tmp; | |||
3774 | ||||
3775 | ddb->type = AML_OBJTYPE_DDBHANDLE; | |||
3776 | ddb->v_integer_.vinteger = 0; | |||
3777 | ||||
3778 | memset(&tmp, 0, sizeof(tmp))__builtin_memset((&tmp), (0), (sizeof(tmp))); | |||
3779 | if (rgn->type != AML_OBJTYPE_OPREGION || | |||
3780 | rgn->v_opregion_.vopregion.iospace != GAS_SYSTEM_MEMORY0) | |||
3781 | goto fail; | |||
3782 | ||||
3783 | /* Load SSDT from memory */ | |||
3784 | entry = acpi_maptable(sc, rgn->v_opregion_.vopregion.iobase, "SSDT", NULL((void *)0), NULL((void *)0), 1); | |||
3785 | if (entry == NULL((void *)0)) | |||
3786 | goto fail; | |||
3787 | ||||
3788 | dnprintf(10, "%s: loaded SSDT %s @ %llx\n", sc->sc_dev.dv_xname, | |||
3789 | aml_nodename(rgn->node), rgn->v_opregion.iobase); | |||
3790 | ddb->v_integer_.vinteger = entry->q_id; | |||
3791 | ||||
3792 | p_ssdt = entry->q_table; | |||
3793 | tmp.v_buffer_.vbuffer = p_ssdt->aml; | |||
3794 | tmp.length = p_ssdt->hdr_lengthhdr.length - sizeof(p_ssdt->hdr); | |||
3795 | ||||
3796 | return aml_pushscope(scope, &tmp, scope->node, | |||
3797 | AMLOP_LOAD0x5B20); | |||
3798 | fail: | |||
3799 | printf("%s: unable to load %s\n", sc->sc_dev.dv_xname, | |||
3800 | aml_nodename(rgn->node)); | |||
3801 | return NULL((void *)0); | |||
3802 | } | |||
3803 | ||||
3804 | struct aml_value * | |||
3805 | aml_parse(struct aml_scope *scope, int ret_type, const char *stype) | |||
3806 | { | |||
3807 | int opcode, idx, pc; | |||
3808 | struct aml_opcode *htab; | |||
3809 | struct aml_value *opargs[8], *my_ret, *rv; | |||
3810 | struct aml_scope *mscope, *iscope; | |||
3811 | uint8_t *start, *end; | |||
3812 | const char *ch; | |||
3813 | int64_t ival; | |||
3814 | struct timespec ts; | |||
3815 | ||||
3816 | my_ret = NULL((void *)0); | |||
3817 | if (scope == NULL((void *)0) || scope->pos >= scope->end) { | |||
| ||||
3818 | return NULL((void *)0); | |||
3819 | } | |||
3820 | if (odp++ > 125) | |||
3821 | panic("depth"); | |||
3822 | if (odp > maxdp) { | |||
3823 | maxdp = odp; | |||
3824 | dnprintf(10, "max depth: %d\n", maxdp); | |||
3825 | } | |||
3826 | end = NULL((void *)0); | |||
3827 | iscope = scope; | |||
3828 | start: | |||
3829 | /* --== Stage 0: Get Opcode ==-- */ | |||
3830 | start = scope->pos; | |||
3831 | pc = aml_pc(scope->pos); | |||
3832 | aml_debugger(scope); | |||
3833 | ||||
3834 | opcode = aml_parseopcode(scope); | |||
3835 | htab = aml_findopcode(opcode); | |||
3836 | if (htab
| |||
3837 | /* No opcode handler */ | |||
3838 | aml_die("Unknown opcode: %.4x @ %.4x", opcode, pc)_aml_die(__FUNCTION__, 3838, "Unknown opcode: %.4x @ %.4x", opcode , pc); | |||
3839 | } | |||
3840 | dnprintf(18,"%.4x %s\n", pc, aml_mnem(opcode, scope->pos)); | |||
3841 | ||||
3842 | /* --== Stage 1: Process opcode arguments ==-- */ | |||
3843 | memset(opargs, 0, sizeof(opargs))__builtin_memset((opargs), (0), (sizeof(opargs))); | |||
3844 | idx = 0; | |||
3845 | for (ch = htab->args; *ch; ch++) { | |||
3846 | rv = NULL((void *)0); | |||
3847 | switch (*ch) { | |||
3848 | case AML_ARG_OBJLEN'p': | |||
3849 | end = aml_parseend(scope); | |||
3850 | break; | |||
3851 | case AML_ARG_IFELSE'I': | |||
3852 | /* Special Case: IF-ELSE:piTbpT or IF:piT */ | |||
3853 | ch = (*end == AMLOP_ELSE0xA1 && end < scope->end) ? | |||
3854 | "-TbpT" : "-T"; | |||
3855 | break; | |||
3856 | ||||
3857 | /* Complex arguments */ | |||
3858 | case 's': | |||
3859 | case 'S': | |||
3860 | case AML_ARG_TARGET'r': | |||
3861 | case AML_ARG_TERMOBJ't': | |||
3862 | case AML_ARG_INTEGER'i': | |||
3863 | if (*ch == 'r' && *scope->pos == AMLOP_ZERO0x00) { | |||
3864 | /* Special case: NULL Target */ | |||
3865 | rv = aml_allocvalue(AML_OBJTYPE_NOTARGET, 0, NULL((void *)0)); | |||
3866 | scope->pos++; | |||
3867 | } | |||
3868 | else { | |||
3869 | rv = aml_parse(scope, *ch, htab->mnem); | |||
3870 | if (rv == NULL((void *)0) || aml_error) | |||
3871 | goto parse_error; | |||
3872 | } | |||
3873 | break; | |||
3874 | ||||
3875 | /* Simple arguments */ | |||
3876 | case AML_ARG_BUFFER'B': | |||
3877 | case AML_ARG_METHOD'M': | |||
3878 | case AML_ARG_FIELDLIST'F': | |||
3879 | case AML_ARG_TERMOBJLIST'T': | |||
3880 | rv = aml_allocvalue(AML_OBJTYPE_SCOPE, 0, NULL((void *)0)); | |||
3881 | rv->v_buffer_.vbuffer = scope->pos; | |||
3882 | rv->length = end - scope->pos; | |||
3883 | scope->pos = end; | |||
3884 | break; | |||
3885 | case AML_ARG_CONST'c': | |||
3886 | rv = aml_allocvalue(AML_OBJTYPE_INTEGER, | |||
3887 | (char)opcode, NULL((void *)0)); | |||
3888 | break; | |||
3889 | case AML_ARG_CREATENAME'N': | |||
3890 | scope->pos = aml_parsename(scope->node, scope->pos, | |||
3891 | &rv, 1); | |||
3892 | break; | |||
3893 | case AML_ARG_SEARCHNAME'n': | |||
3894 | scope->pos = aml_parsename(scope->node, scope->pos, | |||
3895 | &rv, 0); | |||
3896 | break; | |||
3897 | case AML_ARG_BYTE'b': | |||
3898 | case AML_ARG_WORD'w': | |||
3899 | case AML_ARG_DWORD'd': | |||
3900 | case AML_ARG_QWORD'q': | |||
3901 | case AML_ARG_DEBUG'D': | |||
3902 | case AML_ARG_STRING'a': | |||
3903 | case AML_ARG_REVISION'R': | |||
3904 | rv = aml_parsesimple(scope, *ch, NULL((void *)0)); | |||
3905 | break; | |||
3906 | case AML_ARG_STKLOCAL'L': | |||
3907 | case AML_ARG_STKARG'A': | |||
3908 | rv = aml_getstack(scope, opcode); | |||
3909 | break; | |||
3910 | default: | |||
3911 | aml_die("Unknown arg type: %c\n", *ch)_aml_die(__FUNCTION__, 3911, "Unknown arg type: %c\n", *ch); | |||
3912 | break; | |||
3913 | } | |||
3914 | if (rv != NULL((void *)0)) | |||
3915 | opargs[idx++] = rv; | |||
3916 | } | |||
3917 | ||||
3918 | /* --== Stage 2: Process opcode ==-- */ | |||
3919 | ival = 0; | |||
3920 | my_ret = NULL((void *)0); | |||
3921 | mscope = NULL((void *)0); | |||
3922 | switch (opcode) { | |||
3923 | case AMLOP_NOP0xA3: | |||
3924 | case AMLOP_BREAKPOINT0xCC: | |||
3925 | break; | |||
3926 | case AMLOP_LOCAL00x60: | |||
3927 | case AMLOP_LOCAL10x61: | |||
3928 | case AMLOP_LOCAL20x62: | |||
3929 | case AMLOP_LOCAL30x63: | |||
3930 | case AMLOP_LOCAL40x64: | |||
3931 | case AMLOP_LOCAL50x65: | |||
3932 | case AMLOP_LOCAL60x66: | |||
3933 | case AMLOP_LOCAL70x67: | |||
3934 | case AMLOP_ARG00x68: | |||
3935 | case AMLOP_ARG10x69: | |||
3936 | case AMLOP_ARG20x6A: | |||
3937 | case AMLOP_ARG30x6B: | |||
3938 | case AMLOP_ARG40x6C: | |||
3939 | case AMLOP_ARG50x6D: | |||
3940 | case AMLOP_ARG60x6E: | |||
3941 | my_ret = opargs[0]; | |||
3942 | aml_addref(my_ret, htab->mnem); | |||
3943 | break; | |||
3944 | case AMLOP_NAMECHAR0x5F: | |||
3945 | /* opargs[0] = named object (node != NULL), or nameref */ | |||
3946 | my_ret = opargs[0]; | |||
3947 | if (scope->type == AMLOP_PACKAGE0x12 && my_ret->node) { | |||
3948 | /* Special case for package */ | |||
3949 | my_ret = aml_allocvalue(AML_OBJTYPE_OBJREF, | |||
3950 | AMLOP_NAMECHAR0x5F, 0); | |||
3951 | my_ret->v_objref_.vobjref.ref = opargs[0]; | |||
3952 | aml_addref(my_ret, "package"); | |||
3953 | } else if (my_ret->type == AML_OBJTYPE_OBJREF) { | |||
3954 | my_ret = my_ret->v_objref_.vobjref.ref; | |||
3955 | aml_addref(my_ret, "de-alias"); | |||
3956 | } | |||
3957 | if (ret_type == 'i' || ret_type == 't' || ret_type == 'T') { | |||
3958 | /* Return TermArg or Integer: Evaluate object */ | |||
3959 | my_ret = aml_eval(scope, my_ret, ret_type, 0, NULL((void *)0)); | |||
3960 | } else if (my_ret->type == AML_OBJTYPE_METHOD) { | |||
3961 | /* This should only happen with CondRef */ | |||
3962 | dnprintf(12,"non-termarg method : %s\n", stype); | |||
3963 | aml_addref(my_ret, "zoom"); | |||
3964 | } | |||
3965 | break; | |||
3966 | ||||
3967 | case AMLOP_ZERO0x00: | |||
3968 | case AMLOP_ONE0x01: | |||
3969 | case AMLOP_ONES0xFF: | |||
3970 | case AMLOP_DEBUG0x5B31: | |||
3971 | case AMLOP_REVISION0x5B30: | |||
3972 | case AMLOP_BYTEPREFIX0x0A: | |||
3973 | case AMLOP_WORDPREFIX0x0B: | |||
3974 | case AMLOP_DWORDPREFIX0x0C: | |||
3975 | case AMLOP_QWORDPREFIX0x0E: | |||
3976 | case AMLOP_STRINGPREFIX0x0D: | |||
3977 | my_ret = opargs[0]; | |||
3978 | break; | |||
3979 | ||||
3980 | case AMLOP_BUFFER0x11: | |||
3981 | /* Buffer: iB => Buffer */ | |||
3982 | my_ret = aml_allocvalue(AML_OBJTYPE_BUFFER, | |||
3983 | opargs[0]->v_integer_.vinteger, NULL((void *)0)); | |||
3984 | memcpy(my_ret->v_buffer, opargs[1]->v_buffer,__builtin_memcpy((my_ret->_.vbuffer), (opargs[1]->_.vbuffer ), (opargs[1]->length)) | |||
3985 | opargs[1]->length)__builtin_memcpy((my_ret->_.vbuffer), (opargs[1]->_.vbuffer ), (opargs[1]->length)); | |||
3986 | break; | |||
3987 | case AMLOP_PACKAGE0x12: | |||
3988 | case AMLOP_VARPACKAGE0x13: | |||
3989 | /* Package/VarPackage: bT/iT => Package */ | |||
3990 | my_ret = aml_allocvalue(AML_OBJTYPE_PACKAGE, | |||
3991 | opargs[0]->v_integer_.vinteger, 0); | |||
| ||||
3992 | mscope = aml_pushscope(scope, opargs[1], scope->node, | |||
3993 | AMLOP_PACKAGE0x12); | |||
3994 | ||||
3995 | /* Recursively parse package contents */ | |||
3996 | for (idx=0; idx<my_ret->length; idx++) { | |||
3997 | rv = aml_parse(mscope, 'o', "Package"); | |||
3998 | if (rv != NULL((void *)0)) { | |||
3999 | aml_delref(&my_ret->v_package_.vpackage[idx], "pkginit"); | |||
4000 | my_ret->v_package_.vpackage[idx] = rv; | |||
4001 | } | |||
4002 | } | |||
4003 | aml_popscope(mscope); | |||
4004 | mscope = NULL((void *)0); | |||
4005 | break; | |||
4006 | ||||
4007 | /* Math/Logical operations */ | |||
4008 | case AMLOP_OR0x7D: | |||
4009 | case AMLOP_ADD0x72: | |||
4010 | case AMLOP_AND0x7B: | |||
4011 | case AMLOP_NAND0x7C: | |||
4012 | case AMLOP_XOR0x7F: | |||
4013 | case AMLOP_SHL0x79: | |||
4014 | case AMLOP_SHR0x7A: | |||
4015 | case AMLOP_NOR0x7E: | |||
4016 | case AMLOP_MOD0x85: | |||
4017 | case AMLOP_SUBTRACT0x74: | |||
4018 | case AMLOP_MULTIPLY0x77: | |||
4019 | /* XXX: iir => I */ | |||
4020 | ival = aml_evalexpr(opargs[0]->v_integer_.vinteger, | |||
4021 | opargs[1]->v_integer_.vinteger, opcode); | |||
4022 | aml_store(scope, opargs[2], ival, NULL((void *)0)); | |||
4023 | break; | |||
4024 | case AMLOP_DIVIDE0x78: | |||
4025 | /* Divide: iirr => I */ | |||
4026 | if (opargs[1]->v_integer_.vinteger == 0) { | |||
4027 | my_ret = aml_seterror(scope, "Divide by Zero!"); | |||
4028 | break; | |||
4029 | } | |||
4030 | ival = aml_evalexpr(opargs[0]->v_integer_.vinteger, | |||
4031 | opargs[1]->v_integer_.vinteger, AMLOP_MOD0x85); | |||
4032 | aml_store(scope, opargs[2], ival, NULL((void *)0)); | |||
4033 | ||||
4034 | ival = aml_evalexpr(opargs[0]->v_integer_.vinteger, | |||
4035 | opargs[1]->v_integer_.vinteger, AMLOP_DIVIDE0x78); | |||
4036 | aml_store(scope, opargs[3], ival, NULL((void *)0)); | |||
4037 | break; | |||
4038 | case AMLOP_NOT0x80: | |||
4039 | case AMLOP_TOBCD0x5B29: | |||
4040 | case AMLOP_FROMBCD0x5B28: | |||
4041 | case AMLOP_FINDSETLEFTBIT0x81: | |||
4042 | case AMLOP_FINDSETRIGHTBIT0x82: | |||
4043 | /* XXX: ir => I */ | |||
4044 | ival = aml_evalexpr(opargs[0]->v_integer_.vinteger, 0, opcode); | |||
4045 | aml_store(scope, opargs[1], ival, NULL((void *)0)); | |||
4046 | break; | |||
4047 | case AMLOP_INCREMENT0x75: | |||
4048 | case AMLOP_DECREMENT0x76: | |||
4049 | /* Inc/Dec: S => I */ | |||
4050 | my_ret = aml_eval(scope, opargs[0], AML_ARG_INTEGER'i', 0, NULL((void *)0)); | |||
4051 | ival = aml_evalexpr(my_ret->v_integer_.vinteger, 1, opcode); | |||
4052 | aml_store(scope, opargs[0], ival, NULL((void *)0)); | |||
4053 | break; | |||
4054 | case AMLOP_LNOT0x92: | |||
4055 | /* LNot: i => Bool */ | |||
4056 | ival = aml_evalexpr(opargs[0]->v_integer_.vinteger, 0, opcode); | |||
4057 | break; | |||
4058 | case AMLOP_LOR0x91: | |||
4059 | case AMLOP_LAND0x90: | |||
4060 | /* XXX: ii => Bool */ | |||
4061 | ival = aml_evalexpr(opargs[0]->v_integer_.vinteger, | |||
4062 | opargs[1]->v_integer_.vinteger, opcode); | |||
4063 | break; | |||
4064 | case AMLOP_LLESS0x95: | |||
4065 | case AMLOP_LEQUAL0x93: | |||
4066 | case AMLOP_LGREATER0x94: | |||
4067 | case AMLOP_LNOTEQUAL0x9293: | |||
4068 | case AMLOP_LLESSEQUAL0x9294: | |||
4069 | case AMLOP_LGREATEREQUAL0x9295: | |||
4070 | /* XXX: tt => Bool */ | |||
4071 | ival = aml_compare(opargs[0], opargs[1], opcode); | |||
4072 | break; | |||
4073 | ||||
4074 | /* Reference/Store operations */ | |||
4075 | case AMLOP_CONDREFOF0x5B12: | |||
4076 | /* CondRef: rr => I */ | |||
4077 | ival = 0; | |||
4078 | if (opargs[0]->node != NULL((void *)0)) { | |||
4079 | /* Create Object Reference */ | |||
4080 | rv = aml_allocvalue(AML_OBJTYPE_OBJREF, opcode, | |||
4081 | opargs[0]); | |||
4082 | aml_addref(opargs[0], "CondRef"); | |||
4083 | aml_store(scope, opargs[1], 0, rv); | |||
4084 | aml_delref(&rv, 0); | |||
4085 | ||||
4086 | /* Mark that we found it */ | |||
4087 | ival = -1; | |||
4088 | } | |||
4089 | break; | |||
4090 | case AMLOP_REFOF0x71: | |||
4091 | /* RefOf: r => ObjRef */ | |||
4092 | my_ret = aml_allocvalue(AML_OBJTYPE_OBJREF, opcode, opargs[0]); | |||
4093 | aml_addref(my_ret->v_objref_.vobjref.ref, "RefOf"); | |||
4094 | break; | |||
4095 | case AMLOP_INDEX0x88: | |||
4096 | /* Index: tir => ObjRef */ | |||
4097 | idx = opargs[1]->v_integer_.vinteger; | |||
4098 | /* Reading past the end of the array? - Ignore */ | |||
4099 | if (idx >= opargs[0]->length || idx < 0) | |||
4100 | break; | |||
4101 | switch (opargs[0]->type) { | |||
4102 | case AML_OBJTYPE_PACKAGE: | |||
4103 | /* Don't set opargs[0] to NULL */ | |||
4104 | if (ret_type == 't' || ret_type == 'i' || ret_type == 'T') { | |||
4105 | my_ret = opargs[0]->v_package_.vpackage[idx]; | |||
4106 | aml_addref(my_ret, "Index.Package"); | |||
4107 | } else { | |||
4108 | my_ret = aml_allocvalue(AML_OBJTYPE_OBJREF, AMLOP_PACKAGE0x12, | |||
4109 | opargs[0]->v_package_.vpackage[idx]); | |||
4110 | aml_addref(my_ret->v_objref_.vobjref.ref, | |||
4111 | "Index.Package"); | |||
4112 | } | |||
4113 | break; | |||
4114 | case AML_OBJTYPE_BUFFER: | |||
4115 | case AML_OBJTYPE_STRING: | |||
4116 | case AML_OBJTYPE_INTEGER: | |||
4117 | rv = aml_convert(opargs[0], AML_OBJTYPE_BUFFER, -1); | |||
4118 | if (ret_type == 't' || ret_type == 'i' || ret_type == 'T') { | |||
4119 | dnprintf(12,"Index.Buf Term: %d = %x\n", | |||
4120 | idx, rv->v_buffer[idx]); | |||
4121 | ival = rv->v_buffer_.vbuffer[idx]; | |||
4122 | } else { | |||
4123 | dnprintf(12, "Index.Buf Targ\n"); | |||
4124 | my_ret = aml_allocvalue(0,0,NULL((void *)0)); | |||
4125 | aml_createfield(my_ret, AMLOP_INDEX0x88, rv, | |||
4126 | 8 * idx, 8, NULL((void *)0), 0, AML_FIELD_BYTEACC0x1); | |||
4127 | } | |||
4128 | aml_delref(&rv, "Index.BufStr"); | |||
4129 | break; | |||
4130 | default: | |||
4131 | aml_die("Unknown index : %x\n", opargs[0]->type)_aml_die(__FUNCTION__, 4131, "Unknown index : %x\n", opargs[0 ]->type); | |||
4132 | break; | |||
4133 | } | |||
4134 | aml_store(scope, opargs[2], ival, my_ret); | |||
4135 | break; | |||
4136 | case AMLOP_DEREFOF0x83: | |||
4137 | /* DerefOf: t:ObjRef => DataRefObj */ | |||
4138 | if (opargs[0]->type == AML_OBJTYPE_OBJREF) { | |||
4139 | my_ret = opargs[0]->v_objref_.vobjref.ref; | |||
4140 | aml_addref(my_ret, "DerefOf"); | |||
4141 | } else { | |||
4142 | my_ret = opargs[0]; | |||
4143 | //aml_addref(my_ret, "DerefOf"); | |||
4144 | } | |||
4145 | break; | |||
4146 | case AMLOP_COPYOBJECT0x9D: | |||
4147 | /* CopyObject: t:DataRefObj, s:implename => DataRefObj */ | |||
4148 | my_ret = opargs[0]; | |||
4149 | aml_freevalue(opargs[1]); | |||
4150 | aml_copyvalue(opargs[1], opargs[0]); | |||
4151 | break; | |||
4152 | case AMLOP_STORE0x70: | |||
4153 | /* Store: t:DataRefObj, S:upername => DataRefObj */ | |||
4154 | my_ret = opargs[0]; | |||
4155 | aml_store(scope, opargs[1], 0, opargs[0]); | |||
4156 | break; | |||
4157 | ||||
4158 | /* Conversion */ | |||
4159 | case AMLOP_TOINTEGER0x99: | |||
4160 | /* Source:CData, Result => Integer */ | |||
4161 | my_ret = aml_convert(opargs[0], AML_OBJTYPE_INTEGER, -1); | |||
4162 | aml_store(scope, opargs[1], 0, my_ret); | |||
4163 | break; | |||
4164 | case AMLOP_TOBUFFER0x96: | |||
4165 | /* Source:CData, Result => Buffer */ | |||
4166 | my_ret = aml_convert(opargs[0], AML_OBJTYPE_BUFFER, -1); | |||
4167 | aml_store(scope, opargs[1], 0, my_ret); | |||
4168 | break; | |||
4169 | case AMLOP_TOHEXSTRING0x98: | |||
4170 | /* Source:CData, Result => String */ | |||
4171 | my_ret = aml_convert(opargs[0], AML_OBJTYPE_HEXSTRING, -1); | |||
4172 | aml_store(scope, opargs[1], 0, my_ret); | |||
4173 | break; | |||
4174 | case AMLOP_TODECSTRING0x97: | |||
4175 | /* Source:CData, Result => String */ | |||
4176 | my_ret = aml_convert(opargs[0], AML_OBJTYPE_DECSTRING, -1); | |||
4177 | aml_store(scope, opargs[1], 0, my_ret); | |||
4178 | break; | |||
4179 | case AMLOP_TOSTRING0x9C: | |||
4180 | /* Source:B, Length:I, Result => String */ | |||
4181 | my_ret = aml_convert(opargs[0], AML_OBJTYPE_STRING, | |||
4182 | opargs[1]->v_integer_.vinteger); | |||
4183 | aml_store(scope, opargs[2], 0, my_ret); | |||
4184 | break; | |||
4185 | case AMLOP_CONCAT0x73: | |||
4186 | /* Source1:CData, Source2:CData, Result => CData */ | |||
4187 | my_ret = aml_concat(opargs[0], opargs[1]); | |||
4188 | aml_store(scope, opargs[2], 0, my_ret); | |||
4189 | break; | |||
4190 | case AMLOP_CONCATRES0x84: | |||
4191 | /* Concat two resource buffers: buf1, buf2, result => Buffer */ | |||
4192 | my_ret = aml_concatres(opargs[0], opargs[1]); | |||
4193 | aml_store(scope, opargs[2], 0, my_ret); | |||
4194 | break; | |||
4195 | case AMLOP_MID0x9E: | |||
4196 | /* Source:BS, Index:I, Length:I, Result => BS */ | |||
4197 | my_ret = aml_mid(opargs[0], opargs[1]->v_integer_.vinteger, | |||
4198 | opargs[2]->v_integer_.vinteger); | |||
4199 | aml_store(scope, opargs[3], 0, my_ret); | |||
4200 | break; | |||
4201 | case AMLOP_MATCH0x89: | |||
4202 | /* Match: Pkg, Op1, Val1, Op2, Val2, Index */ | |||
4203 | ival = aml_match(opargs[0], opargs[5]->v_integer_.vinteger, | |||
4204 | opargs[1]->v_integer_.vinteger, opargs[2]->v_integer_.vinteger, | |||
4205 | opargs[3]->v_integer_.vinteger, opargs[4]->v_integer_.vinteger); | |||
4206 | break; | |||
4207 | case AMLOP_SIZEOF0x87: | |||
4208 | /* Sizeof: S => i */ | |||
4209 | rv = aml_gettgt(opargs[0], opcode); | |||
4210 | ival = rv->length; | |||
4211 | break; | |||
4212 | case AMLOP_OBJECTTYPE0x8E: | |||
4213 | /* ObjectType: S => i */ | |||
4214 | rv = aml_gettgt(opargs[0], opcode); | |||
4215 | ival = rv->type; | |||
4216 | break; | |||
4217 | ||||
4218 | /* Mutex/Event handlers */ | |||
4219 | case AMLOP_ACQUIRE0x5B23: | |||
4220 | /* Acquire: Sw => Bool */ | |||
4221 | rv = aml_gettgt(opargs[0], opcode); | |||
4222 | ival = acpi_mutex_acquire(scope, rv, | |||
4223 | opargs[1]->v_integer_.vinteger); | |||
4224 | break; | |||
4225 | case AMLOP_RELEASE0x5B27: | |||
4226 | /* Release: S */ | |||
4227 | rv = aml_gettgt(opargs[0], opcode); | |||
4228 | acpi_mutex_release(scope, rv); | |||
4229 | break; | |||
4230 | case AMLOP_WAIT0x5B25: | |||
4231 | /* Wait: Si => Bool */ | |||
4232 | rv = aml_gettgt(opargs[0], opcode); | |||
4233 | ival = acpi_event_wait(scope, rv, | |||
4234 | opargs[1]->v_integer_.vinteger); | |||
4235 | break; | |||
4236 | case AMLOP_RESET0x5B26: | |||
4237 | /* Reset: S */ | |||
4238 | rv = aml_gettgt(opargs[0], opcode); | |||
4239 | acpi_event_reset(scope, rv); | |||
4240 | break; | |||
4241 | case AMLOP_SIGNAL0x5B24: | |||
4242 | /* Signal: S */ | |||
4243 | rv = aml_gettgt(opargs[0], opcode); | |||
4244 | acpi_event_signal(scope, rv); | |||
4245 | break; | |||
4246 | ||||
4247 | /* Named objects */ | |||
4248 | case AMLOP_NAME0x08: | |||
4249 | /* Name: Nt */ | |||
4250 | rv = opargs[0]; | |||
4251 | aml_freevalue(rv); | |||
4252 | aml_copyvalue(rv, opargs[1]); | |||
4253 | break; | |||
4254 | case AMLOP_ALIAS0x06: | |||
4255 | /* Alias: nN */ | |||
4256 | rv = _aml_setvalue(opargs[1], AML_OBJTYPE_OBJREF, opcode, 0); | |||
4257 | rv->v_objref_.vobjref.ref = aml_gettgt(opargs[0], opcode); | |||
4258 | aml_addref(rv->v_objref_.vobjref.ref, "Alias"); | |||
4259 | break; | |||
4260 | case AMLOP_OPREGION0x5B80: | |||
4261 | /* OpRegion: Nbii */ | |||
4262 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_OPREGION, 0, 0); | |||
4263 | rv->v_opregion_.vopregion.iospace = opargs[1]->v_integer_.vinteger; | |||
4264 | rv->v_opregion_.vopregion.iobase = opargs[2]->v_integer_.vinteger; | |||
4265 | rv->v_opregion_.vopregion.iolen = opargs[3]->v_integer_.vinteger; | |||
4266 | rv->v_opregion_.vopregion.flag = 0; | |||
4267 | break; | |||
4268 | case AMLOP_DATAREGION0x5B88: | |||
4269 | /* DataTableRegion: N,t:SigStr,t:OemIDStr,t:OemTableIDStr */ | |||
4270 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_OPREGION, 0, 0); | |||
4271 | rv->v_opregion_.vopregion.iospace = GAS_SYSTEM_MEMORY0; | |||
4272 | rv->v_opregion_.vopregion.iobase = 0; | |||
4273 | rv->v_opregion_.vopregion.iolen = 0; | |||
4274 | aml_die("AML-DataTableRegion\n")_aml_die(__FUNCTION__, 4274, "AML-DataTableRegion\n"); | |||
4275 | break; | |||
4276 | case AMLOP_EVENT0x5B02: | |||
4277 | /* Event: N */ | |||
4278 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_EVENT, 0, 0); | |||
4279 | rv->v_evt_.Vevent.state = 0; | |||
4280 | break; | |||
4281 | case AMLOP_MUTEX0x5B01: | |||
4282 | /* Mutex: Nw */ | |||
4283 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_MUTEX, 0, 0); | |||
4284 | rv->v_mtx_.Vmutex.synclvl = opargs[1]->v_integer_.vinteger; | |||
4285 | break; | |||
4286 | case AMLOP_SCOPE0x10: | |||
4287 | /* Scope: NT */ | |||
4288 | rv = opargs[0]; | |||
4289 | if (rv->type == AML_OBJTYPE_NAMEREF) { | |||
4290 | printf("Undefined scope: %s\n", aml_getname(rv->v_nameref_.vbuffer)); | |||
4291 | break; | |||
4292 | } | |||
4293 | mscope = aml_pushscope(scope, opargs[1], rv->node, opcode); | |||
4294 | break; | |||
4295 | case AMLOP_DEVICE0x5B82: | |||
4296 | /* Device: NT */ | |||
4297 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_DEVICE, 0, 0); | |||
4298 | mscope = aml_pushscope(scope, opargs[1], rv->node, opcode); | |||
4299 | break; | |||
4300 | case AMLOP_THERMALZONE0x5B85: | |||
4301 | /* ThermalZone: NT */ | |||
4302 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_THERMZONE, 0, 0); | |||
4303 | mscope = aml_pushscope(scope, opargs[1], rv->node, opcode); | |||
4304 | break; | |||
4305 | case AMLOP_POWERRSRC0x5B84: | |||
4306 | /* PowerRsrc: NbwT */ | |||
4307 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_POWERRSRC, 0, 0); | |||
4308 | rv->v_powerrsrc_.vpowerrsrc.pwr_level = opargs[1]->v_integer_.vinteger; | |||
4309 | rv->v_powerrsrc_.vpowerrsrc.pwr_order = opargs[2]->v_integer_.vinteger; | |||
4310 | mscope = aml_pushscope(scope, opargs[3], rv->node, opcode); | |||
4311 | break; | |||
4312 | case AMLOP_PROCESSOR0x5B83: | |||
4313 | /* Processor: NbdbT */ | |||
4314 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_PROCESSOR, 0, 0); | |||
4315 | rv->v_processor_.vprocessor.proc_id = opargs[1]->v_integer_.vinteger; | |||
4316 | rv->v_processor_.vprocessor.proc_addr = opargs[2]->v_integer_.vinteger; | |||
4317 | rv->v_processor_.vprocessor.proc_len = opargs[3]->v_integer_.vinteger; | |||
4318 | mscope = aml_pushscope(scope, opargs[4], rv->node, opcode); | |||
4319 | break; | |||
4320 | case AMLOP_METHOD0x14: | |||
4321 | /* Method: NbM */ | |||
4322 | rv = _aml_setvalue(opargs[0], AML_OBJTYPE_METHOD, 0, 0); | |||
4323 | rv->v_method_.vmethod.flags = opargs[1]->v_integer_.vinteger; | |||
4324 | rv->v_method_.vmethod.start = opargs[2]->v_buffer_.vbuffer; | |||
4325 | rv->v_method_.vmethod.end = rv->v_method_.vmethod.start + opargs[2]->length; | |||
4326 | rv->v_method_.vmethod.base = aml_root.start; | |||
4327 | break; | |||
4328 | ||||
4329 | /* Field objects */ | |||
4330 | case AMLOP_CREATEFIELD0x5B13: | |||
4331 | /* Source:B, BitIndex:I, NumBits:I, FieldName */ | |||
4332 | rv = _aml_setvalue(opargs[3], AML_OBJTYPE_BUFFERFIELD, 0, 0); | |||
4333 | aml_createfield(rv, opcode, opargs[0], opargs[1]->v_integer_.vinteger, | |||
4334 | opargs[2]->v_integer_.vinteger, NULL((void *)0), 0, 0); | |||
4335 | break; | |||
4336 | case AMLOP_CREATEBITFIELD0x8D: | |||
4337 | /* Source:B, BitIndex:I, FieldName */ | |||
4338 | rv = _aml_setvalue(opargs[2], AML_OBJTYPE_BUFFERFIELD, 0, 0); | |||
4339 | aml_createfield(rv, opcode, opargs[0], opargs[1]->v_integer_.vinteger, | |||
4340 | 1, NULL((void *)0), 0, 0); | |||
4341 | break; | |||
4342 | case AMLOP_CREATEBYTEFIELD0x8C: | |||
4343 | /* Source:B, ByteIndex:I, FieldName */ | |||
4344 | rv = _aml_setvalue(opargs[2], AML_OBJTYPE_BUFFERFIELD, 0, 0); | |||
4345 | aml_createfield(rv, opcode, opargs[0], opargs[1]->v_integer_.vinteger*8, | |||
4346 | 8, NULL((void *)0), 0, AML_FIELD_BYTEACC0x1); | |||
4347 | break; | |||
4348 | case AMLOP_CREATEWORDFIELD0x8B: | |||
4349 | /* Source:B, ByteIndex:I, FieldName */ | |||
4350 | rv = _aml_setvalue(opargs[2], AML_OBJTYPE_BUFFERFIELD, 0, 0); | |||
4351 | aml_createfield(rv, opcode, opargs[0], opargs[1]->v_integer_.vinteger*8, | |||
4352 | 16, NULL((void *)0), 0, AML_FIELD_WORDACC0x2); | |||
4353 | break; | |||
4354 | case AMLOP_CREATEDWORDFIELD0x8A: | |||
4355 | /* Source:B, ByteIndex:I, FieldName */ | |||
4356 | rv = _aml_setvalue(opargs[2], AML_OBJTYPE_BUFFERFIELD, 0, 0); | |||
4357 | aml_createfield(rv, opcode, opargs[0], opargs[1]->v_integer_.vinteger*8, | |||
4358 | 32, NULL((void *)0), 0, AML_FIELD_DWORDACC0x3); | |||
4359 | break; | |||
4360 | case AMLOP_CREATEQWORDFIELD0x8F: | |||
4361 | /* Source:B, ByteIndex:I, FieldName */ | |||
4362 | rv = _aml_setvalue(opargs[2], AML_OBJTYPE_BUFFERFIELD, 0, 0); | |||
4363 | aml_createfield(rv, opcode, opargs[0], opargs[1]->v_integer_.vinteger*8, | |||
4364 | 64, NULL((void *)0), 0, AML_FIELD_QWORDACC0x4); | |||
4365 | break; | |||
4366 | case AMLOP_FIELD0x5B81: | |||
4367 | /* Field: n:OpRegion, b:Flags, F:ieldlist */ | |||
4368 | mscope = aml_pushscope(scope, opargs[2], scope->node, opcode); | |||
4369 | aml_parsefieldlist(mscope, opcode, opargs[1]->v_integer_.vinteger, | |||
4370 | opargs[0], NULL((void *)0), 0); | |||
4371 | mscope = NULL((void *)0); | |||
4372 | break; | |||
4373 | case AMLOP_INDEXFIELD0x5B86: | |||
4374 | /* IndexField: n:Index, n:Data, b:Flags, F:ieldlist */ | |||
4375 | mscope = aml_pushscope(scope, opargs[3], scope->node, opcode); | |||
4376 | aml_parsefieldlist(mscope, opcode, opargs[2]->v_integer_.vinteger, | |||
4377 | opargs[1], opargs[0], 0); | |||
4378 | mscope = NULL((void *)0); | |||
4379 | break; | |||
4380 | case AMLOP_BANKFIELD0x5B87: | |||
4381 | /* BankField: n:OpRegion, n:Field, i:Bank, b:Flags, F:ieldlist */ | |||
4382 | mscope = aml_pushscope(scope, opargs[4], scope->node, opcode); | |||
4383 | aml_parsefieldlist(mscope, opcode, opargs[3]->v_integer_.vinteger, | |||
4384 | opargs[0], opargs[1], opargs[2]->v_integer_.vinteger); | |||
4385 | mscope = NULL((void *)0); | |||
4386 | break; | |||
4387 | ||||
4388 | /* Misc functions */ | |||
4389 | case AMLOP_STALL0x5B21: | |||
4390 | /* Stall: i */ | |||
4391 | acpi_stall(opargs[0]->v_integer_.vinteger); | |||
4392 | break; | |||
4393 | case AMLOP_SLEEP0x5B22: | |||
4394 | /* Sleep: i */ | |||
4395 | acpi_sleep(opargs[0]->v_integer_.vinteger, "amlsleep"); | |||
4396 | break; | |||
4397 | case AMLOP_NOTIFY0x86: | |||
4398 | /* Notify: Si */ | |||
4399 | rv = aml_gettgt(opargs[0], opcode); | |||
4400 | dnprintf(50,"Notifying: %s %llx\n", | |||
4401 | aml_nodename(rv->node), | |||
4402 | opargs[1]->v_integer); | |||
4403 | aml_notify(rv->node, opargs[1]->v_integer_.vinteger); | |||
4404 | break; | |||
4405 | case AMLOP_TIMER0x5B33: | |||
4406 | /* Timer: => i */ | |||
4407 | nanouptime(&ts); | |||
4408 | ival = ts.tv_sec * 10000000 + ts.tv_nsec / 100; | |||
4409 | break; | |||
4410 | case AMLOP_FATAL0x5B32: | |||
4411 | /* Fatal: bdi */ | |||
4412 | aml_die("AML FATAL ERROR: %x,%x,%x\n",_aml_die(__FUNCTION__, 4414, "AML FATAL ERROR: %x,%x,%x\n", opargs [0]->_.vinteger, opargs[1]->_.vinteger, opargs[2]->_ .vinteger) | |||
4413 | opargs[0]->v_integer, opargs[1]->v_integer,_aml_die(__FUNCTION__, 4414, "AML FATAL ERROR: %x,%x,%x\n", opargs [0]->_.vinteger, opargs[1]->_.vinteger, opargs[2]->_ .vinteger) | |||
4414 | opargs[2]->v_integer)_aml_die(__FUNCTION__, 4414, "AML FATAL ERROR: %x,%x,%x\n", opargs [0]->_.vinteger, opargs[1]->_.vinteger, opargs[2]->_ .vinteger); | |||
4415 | break; | |||
4416 | case AMLOP_LOADTABLE0x5B1F: | |||
4417 | /* LoadTable(Sig:Str, OEMID:Str, OEMTable:Str, [RootPath:Str], [ParmPath:Str], | |||
4418 | [ParmData:DataRefObj]) => DDBHandle */ | |||
4419 | my_ret = aml_loadtable(acpi_softc, opargs[0]->v_string_.vstring, | |||
4420 | opargs[1]->v_string_.vstring, opargs[2]->v_string_.vstring, | |||
4421 | opargs[3]->v_string_.vstring, opargs[4]->v_string_.vstring, opargs[5]); | |||
4422 | break; | |||
4423 | case AMLOP_LOAD0x5B20: | |||
4424 | /* Load(Object:NameString, DDBHandle:SuperName) */ | |||
4425 | mscope = aml_load(acpi_softc, scope, opargs[0], opargs[1]); | |||
4426 | break; | |||
4427 | case AMLOP_UNLOAD0x5B2A: | |||
4428 | /* DDBHandle */ | |||
4429 | aml_die("Unload")_aml_die(__FUNCTION__, 4429, "Unload"); | |||
4430 | break; | |||
4431 | ||||
4432 | /* Control Flow */ | |||
4433 | case AMLOP_IF0xA0: | |||
4434 | /* Arguments: iT or iTbT */ | |||
4435 | if (opargs[0]->v_integer_.vinteger) { | |||
4436 | dnprintf(10,"parse-if @ %.4x\n", pc); | |||
4437 | mscope = aml_pushscope(scope, opargs[1], scope->node, | |||
4438 | AMLOP_IF0xA0); | |||
4439 | } else if (opargs[3] != NULL((void *)0)) { | |||
4440 | dnprintf(10,"parse-else @ %.4x\n", pc); | |||
4441 | mscope = aml_pushscope(scope, opargs[3], scope->node, | |||
4442 | AMLOP_ELSE0xA1); | |||
4443 | } | |||
4444 | break; | |||
4445 | case AMLOP_WHILE0xA2: | |||
4446 | if (opargs[0]->v_integer_.vinteger) { | |||
4447 | /* Set parent position to start of WHILE */ | |||
4448 | scope->pos = start; | |||
4449 | mscope = aml_pushscope(scope, opargs[1], scope->node, | |||
4450 | AMLOP_WHILE0xA2); | |||
4451 | } | |||
4452 | break; | |||
4453 | case AMLOP_BREAK0xA5: | |||
4454 | /* Break: Find While Scope parent, mark type as null */ | |||
4455 | aml_findscope(scope, AMLOP_WHILE0xA2, AMLOP_BREAK0xA5); | |||
4456 | break; | |||
4457 | case AMLOP_CONTINUE0x9F: | |||
4458 | /* Find Scope.. mark all objects as invalid on way to root */ | |||
4459 | aml_findscope(scope, AMLOP_WHILE0xA2, AMLOP_CONTINUE0x9F); | |||
4460 | break; | |||
4461 | case AMLOP_RETURN0xA4: | |||
4462 | mscope = aml_findscope(scope, AMLOP_METHOD0x14, AMLOP_RETURN0xA4); | |||
4463 | if (mscope->retv) { | |||
4464 | aml_die("already allocated\n")_aml_die(__FUNCTION__, 4464, "already allocated\n"); | |||
4465 | } | |||
4466 | mscope->retv = aml_allocvalue(0,0,NULL((void *)0)); | |||
4467 | aml_copyvalue(mscope->retv, opargs[0]); | |||
4468 | mscope = NULL((void *)0); | |||
4469 | break; | |||
4470 | default: | |||
4471 | /* may be set direct result */ | |||
4472 | aml_die("Unknown opcode: %x:%s\n", opcode, htab->mnem)_aml_die(__FUNCTION__, 4472, "Unknown opcode: %x:%s\n", opcode , htab->mnem); | |||
4473 | break; | |||
4474 | } | |||
4475 | if (mscope != NULL((void *)0)) { | |||
4476 | /* Change our scope to new scope */ | |||
4477 | scope = mscope; | |||
4478 | } | |||
4479 | if ((ret_type == 'i' || ret_type == 't') && my_ret == NULL((void *)0)) { | |||
4480 | dnprintf(10,"quick: %.4x [%s] alloc return integer = 0x%llx\n", | |||
4481 | pc, htab->mnem, ival); | |||
4482 | my_ret = aml_allocvalue(AML_OBJTYPE_INTEGER, ival, NULL((void *)0)); | |||
4483 | } | |||
4484 | if (ret_type == 'i' && my_ret && my_ret->type != AML_OBJTYPE_INTEGER) { | |||
4485 | dnprintf(10,"quick: %.4x convert to integer %s -> %s\n", | |||
4486 | pc, htab->mnem, stype); | |||
4487 | my_ret = aml_convert(my_ret, AML_OBJTYPE_INTEGER, -1); | |||
4488 | } | |||
4489 | if (my_ret != NULL((void *)0)) { | |||
4490 | /* Display result */ | |||
4491 | dnprintf(20,"quick: %.4x %18s %c %.4x\n", pc, stype, | |||
4492 | ret_type, my_ret->stack); | |||
4493 | } | |||
4494 | ||||
4495 | /* End opcode: display/free arguments */ | |||
4496 | parse_error: | |||
4497 | for (idx=0; idx<8; idx++) { | |||
4498 | if (opargs[idx] == my_ret) | |||
4499 | opargs[idx] = NULL((void *)0); | |||
4500 | aml_delref(&opargs[idx], "oparg"); | |||
4501 | } | |||
4502 | ||||
4503 | /* If parsing whole scope and not done, start again */ | |||
4504 | if (ret_type == 'T') { | |||
4505 | aml_delref(&my_ret, "scope.loop"); | |||
4506 | while (scope->pos >= scope->end && scope != iscope) { | |||
4507 | /* Pop intermediate scope */ | |||
4508 | scope = aml_popscope(scope); | |||
4509 | } | |||
4510 | if (scope->pos && scope->pos < scope->end) | |||
4511 | goto start; | |||
4512 | } | |||
4513 | ||||
4514 | odp--; | |||
4515 | dnprintf(50, ">>return [%s] %s %c %p\n", aml_nodename(scope->node), | |||
4516 | stype, ret_type, my_ret); | |||
4517 | ||||
4518 | return my_ret; | |||
4519 | } | |||
4520 | ||||
4521 | int | |||
4522 | acpi_parse_aml(struct acpi_softc *sc, const char *rootpath, | |||
4523 | uint8_t *start, uint32_t length) | |||
4524 | { | |||
4525 | struct aml_node *root = &aml_root; | |||
4526 | struct aml_scope *scope; | |||
4527 | struct aml_value res; | |||
4528 | ||||
4529 | if (rootpath) { | |||
4530 | root = aml_searchname(&aml_root, rootpath); | |||
4531 | if (root == NULL((void *)0)) | |||
4532 | aml_die("Invalid RootPathName %s\n", rootpath)_aml_die(__FUNCTION__, 4532, "Invalid RootPathName %s\n", rootpath ); | |||
4533 | } | |||
4534 | ||||
4535 | aml_root.start = start; | |||
4536 | memset(&res, 0, sizeof(res))__builtin_memset((&res), (0), (sizeof(res))); | |||
4537 | res.type = AML_OBJTYPE_SCOPE; | |||
4538 | res.length = length; | |||
4539 | res.v_buffer_.vbuffer = start; | |||
4540 | ||||
4541 | /* Push toplevel scope, parse AML */ | |||
4542 | aml_error = 0; | |||
4543 | scope = aml_pushscope(NULL((void *)0), &res, &aml_root, AMLOP_SCOPE0x10); | |||
4544 | aml_busy++; | |||
4545 | aml_parse(scope, 'T', "TopLevel"); | |||
4546 | aml_busy--; | |||
4547 | aml_popscope(scope); | |||
4548 | ||||
4549 | if (aml_error) { | |||
4550 | printf("error in acpi_parse_aml\n"); | |||
4551 | return -1; | |||
4552 | } | |||
4553 | return (0); | |||
4554 | } | |||
4555 | ||||
4556 | /* | |||
4557 | * @@@: External API | |||
4558 | * | |||
4559 | * evaluate an AML node | |||
4560 | * Returns a copy of the value in res (must be freed by user) | |||
4561 | */ | |||
4562 | int | |||
4563 | aml_evalnode(struct acpi_softc *sc, struct aml_node *node, | |||
4564 | int argc, struct aml_value *argv, struct aml_value *res) | |||
4565 | { | |||
4566 | struct aml_value *xres; | |||
4567 | ||||
4568 | if (res) | |||
4569 | memset(res, 0, sizeof(*res))__builtin_memset((res), (0), (sizeof(*res))); | |||
4570 | if (node == NULL((void *)0) || node->value == NULL((void *)0)) | |||
4571 | return (ACPI_E_BADVALUE0x01); | |||
4572 | dnprintf(12,"EVALNODE: %s %lx\n", aml_nodename(node), acpi_nalloc); | |||
4573 | ||||
4574 | aml_error = 0; | |||
4575 | xres = aml_eval(NULL((void *)0), node->value, 't', argc, argv); | |||
4576 | if (xres) { | |||
4577 | if (res) | |||
4578 | aml_copyvalue(res, xres); | |||
4579 | if (xres != node->value) | |||
4580 | aml_delref(&xres, "evalnode"); | |||
4581 | } | |||
4582 | if (aml_error) { | |||
4583 | printf("error evaluating: %s\n", aml_nodename(node)); | |||
4584 | return (-1); | |||
4585 | } | |||
4586 | return (0); | |||
4587 | } | |||
4588 | ||||
4589 | int | |||
4590 | aml_node_setval(struct acpi_softc *sc, struct aml_node *node, int64_t val) | |||
4591 | { | |||
4592 | struct aml_value env; | |||
4593 | ||||
4594 | if (!node) | |||
4595 | return (0); | |||
4596 | ||||
4597 | memset(&env, 0, sizeof(env))__builtin_memset((&env), (0), (sizeof(env))); | |||
4598 | env.type = AML_OBJTYPE_INTEGER; | |||
4599 | env.v_integer_.vinteger = val; | |||
4600 | ||||
4601 | return aml_evalnode(sc, node, 1, &env, NULL((void *)0)); | |||
4602 | } | |||
4603 | ||||
4604 | /* | |||
4605 | * evaluate an AML name | |||
4606 | * Returns a copy of the value in res (must be freed by user) | |||
4607 | */ | |||
4608 | int | |||
4609 | aml_evalname(struct acpi_softc *sc, struct aml_node *parent, const char *name, | |||
4610 | int argc, struct aml_value *argv, struct aml_value *res) | |||
4611 | { | |||
4612 | parent = aml_searchname(parent, name); | |||
4613 | return aml_evalnode(sc, parent, argc, argv, res); | |||
4614 | } | |||
4615 | ||||
4616 | /* | |||
4617 | * evaluate an AML integer object | |||
4618 | */ | |||
4619 | int | |||
4620 | aml_evalinteger(struct acpi_softc *sc, struct aml_node *parent, | |||
4621 | const char *name, int argc, struct aml_value *argv, int64_t *ival) | |||
4622 | { | |||
4623 | struct aml_value res; | |||
4624 | int rc; | |||
4625 | ||||
4626 | parent = aml_searchname(parent, name); | |||
4627 | rc = aml_evalnode(sc, parent, argc, argv, &res); | |||
4628 | if (rc == 0) { | |||
4629 | *ival = aml_val2int(&res); | |||
4630 | aml_freevalue(&res); | |||
4631 | } | |||
4632 | return rc; | |||
4633 | } | |||
4634 | ||||
4635 | /* | |||
4636 | * Search for an AML name in namespace.. root only | |||
4637 | */ | |||
4638 | struct aml_node * | |||
4639 | __aml_searchname(struct aml_node *root, const void *vname, int create) | |||
4640 | { | |||
4641 | char *name = (char *)vname; | |||
4642 | char nseg[AML_NAMESEG_LEN4 + 1]; | |||
4643 | int i; | |||
4644 | ||||
4645 | dnprintf(25,"Searchname: %s:%s = ", aml_nodename(root), name); | |||
4646 | while (*name == AMLOP_ROOTCHAR0x5C) { | |||
4647 | root = &aml_root; | |||
4648 | name++; | |||
4649 | } | |||
4650 | while (*name != 0) { | |||
4651 | /* Ugh.. we can have short names here: append '_' */ | |||
4652 | strlcpy(nseg, "____", sizeof(nseg)); | |||
4653 | for (i=0; i < AML_NAMESEG_LEN4 && *name && *name != '.'; i++) | |||
4654 | nseg[i] = *name++; | |||
4655 | if (*name == '.') | |||
4656 | name++; | |||
4657 | root = __aml_search(root, nseg, create); | |||
4658 | } | |||
4659 | dnprintf(25,"%p %s\n", root, aml_nodename(root)); | |||
4660 | return root; | |||
4661 | } | |||
4662 | ||||
4663 | struct aml_node * | |||
4664 | aml_searchname(struct aml_node *root, const void *vname) | |||
4665 | { | |||
4666 | return __aml_searchname(root, vname, 0); | |||
4667 | } | |||
4668 | ||||
4669 | /* | |||
4670 | * Search for relative name | |||
4671 | */ | |||
4672 | struct aml_node * | |||
4673 | aml_searchrel(struct aml_node *root, const void *vname) | |||
4674 | { | |||
4675 | struct aml_node *res; | |||
4676 | ||||
4677 | while (root) { | |||
4678 | res = aml_searchname(root, vname); | |||
4679 | if (res != NULL((void *)0)) | |||
4680 | return res; | |||
4681 | root = root->parent; | |||
4682 | } | |||
4683 | return NULL((void *)0); | |||
4684 | } | |||
4685 | ||||
4686 | #ifndef SMALL_KERNEL | |||
4687 | ||||
4688 | void | |||
4689 | acpi_getdevlist(struct acpi_devlist_head *list, struct aml_node *root, | |||
4690 | struct aml_value *pkg, int off) | |||
4691 | { | |||
4692 | struct acpi_devlist *dl; | |||
4693 | struct aml_value *val; | |||
4694 | struct aml_node *node; | |||
4695 | int idx; | |||
4696 | ||||
4697 | for (idx = off; idx < pkg->length; idx++) { | |||
4698 | val = pkg->v_package_.vpackage[idx]; | |||
4699 | if (val->type == AML_OBJTYPE_NAMEREF) { | |||
4700 | node = aml_searchrel(root, aml_getname(val->v_nameref_.vbuffer)); | |||
4701 | if (node == NULL((void *)0)) { | |||
4702 | printf("%s: device %s not found\n", __func__, | |||
4703 | aml_getname(val->v_nameref_.vbuffer)); | |||
4704 | continue; | |||
4705 | } | |||
4706 | val = node->value; | |||
4707 | } | |||
4708 | if (val->type == AML_OBJTYPE_OBJREF) | |||
4709 | val = val->v_objref_.vobjref.ref; | |||
4710 | if (val->node) { | |||
4711 | dl = acpi_os_malloc(sizeof(*dl))_acpi_os_malloc(sizeof(*dl), __FUNCTION__, 4711); | |||
4712 | if (dl) { | |||
4713 | dl->dev_node = val->node; | |||
4714 | TAILQ_INSERT_TAIL(list, dl, dev_link)do { (dl)->dev_link.tqe_next = ((void *)0); (dl)->dev_link .tqe_prev = (list)->tqh_last; *(list)->tqh_last = (dl); (list)->tqh_last = &(dl)->dev_link.tqe_next; } while (0); | |||
4715 | } | |||
4716 | } | |||
4717 | } | |||
4718 | } | |||
4719 | ||||
4720 | void | |||
4721 | acpi_freedevlist(struct acpi_devlist_head *list) | |||
4722 | { | |||
4723 | struct acpi_devlist *dl; | |||
4724 | ||||
4725 | while ((dl = TAILQ_FIRST(list)((list)->tqh_first)) != NULL((void *)0)) { | |||
4726 | TAILQ_REMOVE(list, dl, dev_link)do { if (((dl)->dev_link.tqe_next) != ((void *)0)) (dl)-> dev_link.tqe_next->dev_link.tqe_prev = (dl)->dev_link.tqe_prev ; else (list)->tqh_last = (dl)->dev_link.tqe_prev; *(dl )->dev_link.tqe_prev = (dl)->dev_link.tqe_next; ((dl)-> dev_link.tqe_prev) = ((void *)-1); ((dl)->dev_link.tqe_next ) = ((void *)-1); } while (0); | |||
4727 | acpi_os_free(dl)_acpi_os_free(dl, __FUNCTION__, 4727); | |||
4728 | } | |||
4729 | } | |||
4730 | ||||
4731 | #endif /* SMALL_KERNEL */ |