/usr/src/sys/dev/acpi/dsdt.c

Bug Summary

File:	dev/acpi/dsdt.c
Warning:	line 2033, column 3 Value stored to 'clen' is never read

Annotated Source Code

Press '?' to see keyboard shortcuts

Show analyzer invocation

clang -cc1 -cc1 -triple amd64-unknown-openbsd7.4 -analyze -disable-free -clear-ast-before-backend -disable-llvm-verifier -discard-value-names -main-file-name dsdt.c -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model static -mframe-pointer=all -relaxed-aliasing -ffp-contract=on -fno-rounding-math -mconstructor-aliases -ffreestanding -mcmodel=kernel -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -target-feature -sse2 -target-feature -sse -target-feature -3dnow -target-feature -mmx -target-feature +save-args -target-feature +retpoline-external-thunk -disable-red-zone -no-implicit-float -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/sys/arch/amd64/compile/GENERIC.MP/obj -nostdsysteminc -nobuiltininc -resource-dir /usr/local/llvm16/lib/clang/16 -I /usr/src/sys -I /usr/src/sys/arch/amd64/compile/GENERIC.MP/obj -I /usr/src/sys/arch -I /usr/src/sys/dev/pci/drm/include -I /usr/src/sys/dev/pci/drm/include/uapi -I /usr/src/sys/dev/pci/drm/amd/include/asic_reg -I /usr/src/sys/dev/pci/drm/amd/include -I /usr/src/sys/dev/pci/drm/amd/amdgpu -I /usr/src/sys/dev/pci/drm/amd/display -I /usr/src/sys/dev/pci/drm/amd/display/include -I /usr/src/sys/dev/pci/drm/amd/display/dc -I /usr/src/sys/dev/pci/drm/amd/display/amdgpu_dm -I /usr/src/sys/dev/pci/drm/amd/pm/inc -I /usr/src/sys/dev/pci/drm/amd/pm/legacy-dpm -I /usr/src/sys/dev/pci/drm/amd/pm/swsmu -I /usr/src/sys/dev/pci/drm/amd/pm/swsmu/inc -I /usr/src/sys/dev/pci/drm/amd/pm/swsmu/smu11 -I /usr/src/sys/dev/pci/drm/amd/pm/swsmu/smu12 -I /usr/src/sys/dev/pci/drm/amd/pm/swsmu/smu13 -I /usr/src/sys/dev/pci/drm/amd/pm/powerplay/inc -I /usr/src/sys/dev/pci/drm/amd/pm/powerplay/hwmgr -I /usr/src/sys/dev/pci/drm/amd/pm/powerplay/smumgr -I /usr/src/sys/dev/pci/drm/amd/pm/swsmu/inc -I /usr/src/sys/dev/pci/drm/amd/pm/swsmu/inc/pmfw_if -I /usr/src/sys/dev/pci/drm/amd/display/dc/inc -I /usr/src/sys/dev/pci/drm/amd/display/dc/inc/hw -I /usr/src/sys/dev/pci/drm/amd/display/dc/clk_mgr -I /usr/src/sys/dev/pci/drm/amd/display/modules/inc -I /usr/src/sys/dev/pci/drm/amd/display/modules/hdcp -I /usr/src/sys/dev/pci/drm/amd/display/dmub/inc -I /usr/src/sys/dev/pci/drm/i915 -D DDB -D DIAGNOSTIC -D KTRACE -D ACCOUNTING -D KMEMSTATS -D PTRACE -D POOL_DEBUG -D CRYPTO -D SYSVMSG -D SYSVSEM -D SYSVSHM -D UVM_SWAP_ENCRYPT -D FFS -D FFS2 -D FFS_SOFTUPDATES -D UFS_DIRHASH -D QUOTA -D EXT2FS -D MFS -D NFSCLIENT -D NFSSERVER -D CD9660 -D UDF -D MSDOSFS -D FIFO -D FUSE -D SOCKET_SPLICE -D TCP_ECN -D TCP_SIGNATURE -D INET6 -D IPSEC -D PPP_BSDCOMP -D PPP_DEFLATE -D PIPEX -D MROUTING -D MPLS -D BOOT_CONFIG -D USER_PCICONF -D APERTURE -D MTRR -D NTFS -D SUSPEND -D HIBERNATE -D PCIVERBOSE -D USBVERBOSE -D WSDISPLAY_COMPAT_USL -D WSDISPLAY_COMPAT_RAWKBD -D WSDISPLAY_DEFAULTSCREENS=6 -D X86EMU -D ONEWIREVERBOSE -D MULTIPROCESSOR -D MAXUSERS=80 -D _KERNEL -O2 -Wno-pointer-sign -Wno-address-of-packed-member -Wno-constant-conversion -Wno-unused-but-set-variable -Wno-gnu-folding-constant -fdebug-compilation-dir=/usr/src/sys/arch/amd64/compile/GENERIC.MP/obj -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fcf-protection=branch -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -o /home/ben/Projects/scan/2024-01-11-110808-61670-1 -x c /usr/src/sys/dev/acpi/dsdt.c

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 == AMLOP_EXTPREFIX0x5B) {
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 &map;
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;
	Value stored to 'clen' is never read
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 == NULL((void *)0)) {
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 */