Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | |
2 | /****************************************************************************** | |
3 | * | |
4 | * Module Name: exoparg1 - AML execution - opcodes with 1 argument | |
5 | * | |
6 | *****************************************************************************/ | |
7 | ||
8 | /* | |
4a90c7e8 | 9 | * Copyright (C) 2000 - 2006, R. Byron Moore |
1da177e4 LT |
10 | * All rights reserved. |
11 | * | |
12 | * Redistribution and use in source and binary forms, with or without | |
13 | * modification, are permitted provided that the following conditions | |
14 | * are met: | |
15 | * 1. Redistributions of source code must retain the above copyright | |
16 | * notice, this list of conditions, and the following disclaimer, | |
17 | * without modification. | |
18 | * 2. Redistributions in binary form must reproduce at minimum a disclaimer | |
19 | * substantially similar to the "NO WARRANTY" disclaimer below | |
20 | * ("Disclaimer") and any redistribution must be conditioned upon | |
21 | * including a substantially similar Disclaimer requirement for further | |
22 | * binary redistribution. | |
23 | * 3. Neither the names of the above-listed copyright holders nor the names | |
24 | * of any contributors may be used to endorse or promote products derived | |
25 | * from this software without specific prior written permission. | |
26 | * | |
27 | * Alternatively, this software may be distributed under the terms of the | |
28 | * GNU General Public License ("GPL") version 2 as published by the Free | |
29 | * Software Foundation. | |
30 | * | |
31 | * NO WARRANTY | |
32 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS | |
33 | * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT | |
34 | * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR | |
35 | * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT | |
36 | * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
37 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
38 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
39 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | |
40 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING | |
41 | * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | |
42 | * POSSIBILITY OF SUCH DAMAGES. | |
43 | */ | |
44 | ||
1da177e4 LT |
45 | #include <acpi/acpi.h> |
46 | #include <acpi/acparser.h> | |
47 | #include <acpi/acdispat.h> | |
48 | #include <acpi/acinterp.h> | |
49 | #include <acpi/amlcode.h> | |
50 | #include <acpi/acnamesp.h> | |
51 | ||
1da177e4 | 52 | #define _COMPONENT ACPI_EXECUTER |
4be44fcd | 53 | ACPI_MODULE_NAME("exoparg1") |
1da177e4 LT |
54 | |
55 | /*! | |
56 | * Naming convention for AML interpreter execution routines. | |
57 | * | |
58 | * The routines that begin execution of AML opcodes are named with a common | |
59 | * convention based upon the number of arguments, the number of target operands, | |
60 | * and whether or not a value is returned: | |
61 | * | |
62 | * AcpiExOpcode_xA_yT_zR | |
63 | * | |
64 | * Where: | |
65 | * | |
66 | * xA - ARGUMENTS: The number of arguments (input operands) that are | |
67 | * required for this opcode type (0 through 6 args). | |
68 | * yT - TARGETS: The number of targets (output operands) that are required | |
69 | * for this opcode type (0, 1, or 2 targets). | |
70 | * zR - RETURN VALUE: Indicates whether this opcode type returns a value | |
71 | * as the function return (0 or 1). | |
72 | * | |
73 | * The AcpiExOpcode* functions are called via the Dispatcher component with | |
74 | * fully resolved operands. | |
75 | !*/ | |
1da177e4 LT |
76 | /******************************************************************************* |
77 | * | |
78 | * FUNCTION: acpi_ex_opcode_0A_0T_1R | |
79 | * | |
80 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
81 | * | |
82 | * RETURN: Status | |
83 | * | |
84 | * DESCRIPTION: Execute operator with no operands, one return value | |
85 | * | |
86 | ******************************************************************************/ | |
4be44fcd | 87 | acpi_status acpi_ex_opcode_0A_0T_1R(struct acpi_walk_state *walk_state) |
1da177e4 | 88 | { |
4be44fcd LB |
89 | acpi_status status = AE_OK; |
90 | union acpi_operand_object *return_desc = NULL; | |
1da177e4 | 91 | |
4be44fcd LB |
92 | ACPI_FUNCTION_TRACE_STR("ex_opcode_0A_0T_1R", |
93 | acpi_ps_get_opcode_name(walk_state->opcode)); | |
1da177e4 LT |
94 | |
95 | /* Examine the AML opcode */ | |
96 | ||
97 | switch (walk_state->opcode) { | |
4be44fcd | 98 | case AML_TIMER_OP: /* Timer () */ |
1da177e4 LT |
99 | |
100 | /* Create a return object of type Integer */ | |
101 | ||
4be44fcd | 102 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
103 | if (!return_desc) { |
104 | status = AE_NO_MEMORY; | |
105 | goto cleanup; | |
106 | } | |
73459f73 | 107 | #if ACPI_MACHINE_WIDTH != 16 |
4be44fcd | 108 | return_desc->integer.value = acpi_os_get_timer(); |
73459f73 | 109 | #endif |
1da177e4 LT |
110 | break; |
111 | ||
4be44fcd | 112 | default: /* Unknown opcode */ |
1da177e4 | 113 | |
b8e4d893 BM |
114 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
115 | walk_state->opcode)); | |
1da177e4 LT |
116 | status = AE_AML_BAD_OPCODE; |
117 | break; | |
118 | } | |
119 | ||
4be44fcd | 120 | cleanup: |
1da177e4 | 121 | |
1da177e4 LT |
122 | /* Delete return object on error */ |
123 | ||
4be44fcd LB |
124 | if ((ACPI_FAILURE(status)) || walk_state->result_obj) { |
125 | acpi_ut_remove_reference(return_desc); | |
126 | } else { | |
88ac00f5 RM |
127 | /* Save the return value */ |
128 | ||
129 | walk_state->result_obj = return_desc; | |
130 | } | |
1da177e4 | 131 | |
4be44fcd | 132 | return_ACPI_STATUS(status); |
1da177e4 LT |
133 | } |
134 | ||
1da177e4 LT |
135 | /******************************************************************************* |
136 | * | |
137 | * FUNCTION: acpi_ex_opcode_1A_0T_0R | |
138 | * | |
139 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
140 | * | |
141 | * RETURN: Status | |
142 | * | |
143 | * DESCRIPTION: Execute Type 1 monadic operator with numeric operand on | |
144 | * object stack | |
145 | * | |
146 | ******************************************************************************/ | |
147 | ||
4be44fcd | 148 | acpi_status acpi_ex_opcode_1A_0T_0R(struct acpi_walk_state *walk_state) |
1da177e4 | 149 | { |
4be44fcd LB |
150 | union acpi_operand_object **operand = &walk_state->operands[0]; |
151 | acpi_status status = AE_OK; | |
1da177e4 | 152 | |
4be44fcd LB |
153 | ACPI_FUNCTION_TRACE_STR("ex_opcode_1A_0T_0R", |
154 | acpi_ps_get_opcode_name(walk_state->opcode)); | |
1da177e4 LT |
155 | |
156 | /* Examine the AML opcode */ | |
157 | ||
158 | switch (walk_state->opcode) { | |
4be44fcd | 159 | case AML_RELEASE_OP: /* Release (mutex_object) */ |
1da177e4 | 160 | |
4be44fcd | 161 | status = acpi_ex_release_mutex(operand[0], walk_state); |
1da177e4 LT |
162 | break; |
163 | ||
4be44fcd | 164 | case AML_RESET_OP: /* Reset (event_object) */ |
1da177e4 | 165 | |
4be44fcd | 166 | status = acpi_ex_system_reset_event(operand[0]); |
1da177e4 LT |
167 | break; |
168 | ||
4be44fcd | 169 | case AML_SIGNAL_OP: /* Signal (event_object) */ |
1da177e4 | 170 | |
4be44fcd | 171 | status = acpi_ex_system_signal_event(operand[0]); |
1da177e4 LT |
172 | break; |
173 | ||
4be44fcd | 174 | case AML_SLEEP_OP: /* Sleep (msec_time) */ |
1da177e4 | 175 | |
4be44fcd | 176 | status = acpi_ex_system_do_suspend(operand[0]->integer.value); |
1da177e4 LT |
177 | break; |
178 | ||
4be44fcd | 179 | case AML_STALL_OP: /* Stall (usec_time) */ |
1da177e4 | 180 | |
4be44fcd LB |
181 | status = |
182 | acpi_ex_system_do_stall((u32) operand[0]->integer.value); | |
1da177e4 LT |
183 | break; |
184 | ||
4be44fcd | 185 | case AML_UNLOAD_OP: /* Unload (Handle) */ |
1da177e4 | 186 | |
4be44fcd | 187 | status = acpi_ex_unload_table(operand[0]); |
1da177e4 LT |
188 | break; |
189 | ||
4be44fcd | 190 | default: /* Unknown opcode */ |
1da177e4 | 191 | |
b8e4d893 BM |
192 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
193 | walk_state->opcode)); | |
1da177e4 LT |
194 | status = AE_AML_BAD_OPCODE; |
195 | break; | |
196 | } | |
197 | ||
4be44fcd | 198 | return_ACPI_STATUS(status); |
1da177e4 LT |
199 | } |
200 | ||
1da177e4 LT |
201 | /******************************************************************************* |
202 | * | |
203 | * FUNCTION: acpi_ex_opcode_1A_1T_0R | |
204 | * | |
205 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
206 | * | |
207 | * RETURN: Status | |
208 | * | |
209 | * DESCRIPTION: Execute opcode with one argument, one target, and no | |
210 | * return value. | |
211 | * | |
212 | ******************************************************************************/ | |
213 | ||
4be44fcd | 214 | acpi_status acpi_ex_opcode_1A_1T_0R(struct acpi_walk_state *walk_state) |
1da177e4 | 215 | { |
4be44fcd LB |
216 | acpi_status status = AE_OK; |
217 | union acpi_operand_object **operand = &walk_state->operands[0]; | |
1da177e4 | 218 | |
4be44fcd LB |
219 | ACPI_FUNCTION_TRACE_STR("ex_opcode_1A_1T_0R", |
220 | acpi_ps_get_opcode_name(walk_state->opcode)); | |
1da177e4 LT |
221 | |
222 | /* Examine the AML opcode */ | |
223 | ||
224 | switch (walk_state->opcode) { | |
225 | case AML_LOAD_OP: | |
226 | ||
4be44fcd | 227 | status = acpi_ex_load_op(operand[0], operand[1], walk_state); |
1da177e4 LT |
228 | break; |
229 | ||
4be44fcd | 230 | default: /* Unknown opcode */ |
1da177e4 | 231 | |
b8e4d893 BM |
232 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
233 | walk_state->opcode)); | |
1da177e4 LT |
234 | status = AE_AML_BAD_OPCODE; |
235 | goto cleanup; | |
236 | } | |
237 | ||
4be44fcd | 238 | cleanup: |
1da177e4 | 239 | |
4be44fcd | 240 | return_ACPI_STATUS(status); |
1da177e4 LT |
241 | } |
242 | ||
1da177e4 LT |
243 | /******************************************************************************* |
244 | * | |
245 | * FUNCTION: acpi_ex_opcode_1A_1T_1R | |
246 | * | |
247 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
248 | * | |
249 | * RETURN: Status | |
250 | * | |
251 | * DESCRIPTION: Execute opcode with one argument, one target, and a | |
252 | * return value. | |
253 | * | |
254 | ******************************************************************************/ | |
255 | ||
4be44fcd | 256 | acpi_status acpi_ex_opcode_1A_1T_1R(struct acpi_walk_state *walk_state) |
1da177e4 | 257 | { |
4be44fcd LB |
258 | acpi_status status = AE_OK; |
259 | union acpi_operand_object **operand = &walk_state->operands[0]; | |
260 | union acpi_operand_object *return_desc = NULL; | |
261 | union acpi_operand_object *return_desc2 = NULL; | |
262 | u32 temp32; | |
263 | u32 i; | |
264 | acpi_integer power_of_ten; | |
265 | acpi_integer digit; | |
266 | ||
267 | ACPI_FUNCTION_TRACE_STR("ex_opcode_1A_1T_1R", | |
268 | acpi_ps_get_opcode_name(walk_state->opcode)); | |
1da177e4 LT |
269 | |
270 | /* Examine the AML opcode */ | |
271 | ||
272 | switch (walk_state->opcode) { | |
273 | case AML_BIT_NOT_OP: | |
274 | case AML_FIND_SET_LEFT_BIT_OP: | |
275 | case AML_FIND_SET_RIGHT_BIT_OP: | |
276 | case AML_FROM_BCD_OP: | |
277 | case AML_TO_BCD_OP: | |
278 | case AML_COND_REF_OF_OP: | |
279 | ||
280 | /* Create a return object of type Integer for these opcodes */ | |
281 | ||
4be44fcd | 282 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
283 | if (!return_desc) { |
284 | status = AE_NO_MEMORY; | |
285 | goto cleanup; | |
286 | } | |
287 | ||
288 | switch (walk_state->opcode) { | |
4be44fcd | 289 | case AML_BIT_NOT_OP: /* Not (Operand, Result) */ |
1da177e4 LT |
290 | |
291 | return_desc->integer.value = ~operand[0]->integer.value; | |
292 | break; | |
293 | ||
4be44fcd | 294 | case AML_FIND_SET_LEFT_BIT_OP: /* find_set_left_bit (Operand, Result) */ |
1da177e4 LT |
295 | |
296 | return_desc->integer.value = operand[0]->integer.value; | |
297 | ||
298 | /* | |
299 | * Acpi specification describes Integer type as a little | |
300 | * endian unsigned value, so this boundary condition is valid. | |
301 | */ | |
302 | for (temp32 = 0; return_desc->integer.value && | |
4be44fcd | 303 | temp32 < ACPI_INTEGER_BIT_SIZE; ++temp32) { |
1da177e4 LT |
304 | return_desc->integer.value >>= 1; |
305 | } | |
306 | ||
307 | return_desc->integer.value = temp32; | |
308 | break; | |
309 | ||
4be44fcd | 310 | case AML_FIND_SET_RIGHT_BIT_OP: /* find_set_right_bit (Operand, Result) */ |
1da177e4 LT |
311 | |
312 | return_desc->integer.value = operand[0]->integer.value; | |
313 | ||
314 | /* | |
315 | * The Acpi specification describes Integer type as a little | |
316 | * endian unsigned value, so this boundary condition is valid. | |
317 | */ | |
318 | for (temp32 = 0; return_desc->integer.value && | |
4be44fcd | 319 | temp32 < ACPI_INTEGER_BIT_SIZE; ++temp32) { |
1da177e4 LT |
320 | return_desc->integer.value <<= 1; |
321 | } | |
322 | ||
323 | /* Since the bit position is one-based, subtract from 33 (65) */ | |
324 | ||
325 | return_desc->integer.value = temp32 == 0 ? 0 : | |
4be44fcd | 326 | (ACPI_INTEGER_BIT_SIZE + 1) - temp32; |
1da177e4 LT |
327 | break; |
328 | ||
4be44fcd | 329 | case AML_FROM_BCD_OP: /* from_bcd (BCDValue, Result) */ |
1da177e4 LT |
330 | |
331 | /* | |
332 | * The 64-bit ACPI integer can hold 16 4-bit BCD characters | |
333 | * (if table is 32-bit, integer can hold 8 BCD characters) | |
334 | * Convert each 4-bit BCD value | |
335 | */ | |
336 | power_of_ten = 1; | |
337 | return_desc->integer.value = 0; | |
338 | digit = operand[0]->integer.value; | |
339 | ||
340 | /* Convert each BCD digit (each is one nybble wide) */ | |
341 | ||
4be44fcd LB |
342 | for (i = 0; |
343 | (i < acpi_gbl_integer_nybble_width) && (digit > 0); | |
344 | i++) { | |
52fc0b02 | 345 | |
1da177e4 LT |
346 | /* Get the least significant 4-bit BCD digit */ |
347 | ||
348 | temp32 = ((u32) digit) & 0xF; | |
349 | ||
350 | /* Check the range of the digit */ | |
351 | ||
352 | if (temp32 > 9) { | |
b8e4d893 BM |
353 | ACPI_ERROR((AE_INFO, |
354 | "BCD digit too large (not decimal): 0x%X", | |
355 | temp32)); | |
1da177e4 LT |
356 | |
357 | status = AE_AML_NUMERIC_OVERFLOW; | |
358 | goto cleanup; | |
359 | } | |
360 | ||
361 | /* Sum the digit into the result with the current power of 10 */ | |
362 | ||
4be44fcd LB |
363 | return_desc->integer.value += |
364 | (((acpi_integer) temp32) * power_of_ten); | |
1da177e4 LT |
365 | |
366 | /* Shift to next BCD digit */ | |
367 | ||
368 | digit >>= 4; | |
369 | ||
370 | /* Next power of 10 */ | |
371 | ||
372 | power_of_ten *= 10; | |
373 | } | |
374 | break; | |
375 | ||
4be44fcd | 376 | case AML_TO_BCD_OP: /* to_bcd (Operand, Result) */ |
1da177e4 LT |
377 | |
378 | return_desc->integer.value = 0; | |
379 | digit = operand[0]->integer.value; | |
380 | ||
381 | /* Each BCD digit is one nybble wide */ | |
382 | ||
4be44fcd LB |
383 | for (i = 0; |
384 | (i < acpi_gbl_integer_nybble_width) && (digit > 0); | |
385 | i++) { | |
386 | (void)acpi_ut_short_divide(digit, 10, &digit, | |
387 | &temp32); | |
1da177e4 | 388 | |
44f6c012 RM |
389 | /* |
390 | * Insert the BCD digit that resides in the | |
391 | * remainder from above | |
392 | */ | |
4be44fcd LB |
393 | return_desc->integer.value |= |
394 | (((acpi_integer) temp32) << ACPI_MUL_4(i)); | |
1da177e4 LT |
395 | } |
396 | ||
397 | /* Overflow if there is any data left in Digit */ | |
398 | ||
399 | if (digit > 0) { | |
b8e4d893 BM |
400 | ACPI_ERROR((AE_INFO, |
401 | "Integer too large to convert to BCD: %8.8X%8.8X", | |
402 | ACPI_FORMAT_UINT64(operand[0]-> | |
403 | integer.value))); | |
1da177e4 LT |
404 | status = AE_AML_NUMERIC_OVERFLOW; |
405 | goto cleanup; | |
406 | } | |
407 | break; | |
408 | ||
4be44fcd | 409 | case AML_COND_REF_OF_OP: /* cond_ref_of (source_object, Result) */ |
1da177e4 LT |
410 | |
411 | /* | |
412 | * This op is a little strange because the internal return value is | |
413 | * different than the return value stored in the result descriptor | |
414 | * (There are really two return values) | |
415 | */ | |
4be44fcd LB |
416 | if ((struct acpi_namespace_node *)operand[0] == |
417 | acpi_gbl_root_node) { | |
1da177e4 LT |
418 | /* |
419 | * This means that the object does not exist in the namespace, | |
420 | * return FALSE | |
421 | */ | |
422 | return_desc->integer.value = 0; | |
423 | goto cleanup; | |
424 | } | |
425 | ||
426 | /* Get the object reference, store it, and remove our reference */ | |
427 | ||
4be44fcd LB |
428 | status = acpi_ex_get_object_reference(operand[0], |
429 | &return_desc2, | |
430 | walk_state); | |
431 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
432 | goto cleanup; |
433 | } | |
434 | ||
4be44fcd LB |
435 | status = |
436 | acpi_ex_store(return_desc2, operand[1], walk_state); | |
437 | acpi_ut_remove_reference(return_desc2); | |
1da177e4 LT |
438 | |
439 | /* The object exists in the namespace, return TRUE */ | |
440 | ||
441 | return_desc->integer.value = ACPI_INTEGER_MAX; | |
442 | goto cleanup; | |
443 | ||
1da177e4 LT |
444 | default: |
445 | /* No other opcodes get here */ | |
446 | break; | |
447 | } | |
448 | break; | |
449 | ||
4be44fcd | 450 | case AML_STORE_OP: /* Store (Source, Target) */ |
1da177e4 LT |
451 | |
452 | /* | |
453 | * A store operand is typically a number, string, buffer or lvalue | |
454 | * Be careful about deleting the source object, | |
455 | * since the object itself may have been stored. | |
456 | */ | |
4be44fcd LB |
457 | status = acpi_ex_store(operand[0], operand[1], walk_state); |
458 | if (ACPI_FAILURE(status)) { | |
459 | return_ACPI_STATUS(status); | |
1da177e4 LT |
460 | } |
461 | ||
462 | /* It is possible that the Store already produced a return object */ | |
463 | ||
464 | if (!walk_state->result_obj) { | |
465 | /* | |
44f6c012 RM |
466 | * Normally, we would remove a reference on the Operand[0] |
467 | * parameter; But since it is being used as the internal return | |
468 | * object (meaning we would normally increment it), the two | |
469 | * cancel out, and we simply don't do anything. | |
1da177e4 LT |
470 | */ |
471 | walk_state->result_obj = operand[0]; | |
4be44fcd | 472 | walk_state->operands[0] = NULL; /* Prevent deletion */ |
1da177e4 | 473 | } |
4be44fcd | 474 | return_ACPI_STATUS(status); |
1da177e4 | 475 | |
4be44fcd LB |
476 | /* |
477 | * ACPI 2.0 Opcodes | |
478 | */ | |
479 | case AML_COPY_OP: /* Copy (Source, Target) */ | |
1da177e4 | 480 | |
4be44fcd LB |
481 | status = |
482 | acpi_ut_copy_iobject_to_iobject(operand[0], &return_desc, | |
483 | walk_state); | |
1da177e4 LT |
484 | break; |
485 | ||
4be44fcd | 486 | case AML_TO_DECSTRING_OP: /* to_decimal_string (Data, Result) */ |
1da177e4 | 487 | |
4be44fcd LB |
488 | status = acpi_ex_convert_to_string(operand[0], &return_desc, |
489 | ACPI_EXPLICIT_CONVERT_DECIMAL); | |
1da177e4 | 490 | if (return_desc == operand[0]) { |
52fc0b02 | 491 | |
1da177e4 | 492 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 493 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
494 | } |
495 | break; | |
496 | ||
4be44fcd | 497 | case AML_TO_HEXSTRING_OP: /* to_hex_string (Data, Result) */ |
1da177e4 | 498 | |
4be44fcd LB |
499 | status = acpi_ex_convert_to_string(operand[0], &return_desc, |
500 | ACPI_EXPLICIT_CONVERT_HEX); | |
1da177e4 | 501 | if (return_desc == operand[0]) { |
52fc0b02 | 502 | |
1da177e4 | 503 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 504 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
505 | } |
506 | break; | |
507 | ||
4be44fcd | 508 | case AML_TO_BUFFER_OP: /* to_buffer (Data, Result) */ |
1da177e4 | 509 | |
4be44fcd | 510 | status = acpi_ex_convert_to_buffer(operand[0], &return_desc); |
1da177e4 | 511 | if (return_desc == operand[0]) { |
52fc0b02 | 512 | |
1da177e4 | 513 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 514 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
515 | } |
516 | break; | |
517 | ||
4be44fcd | 518 | case AML_TO_INTEGER_OP: /* to_integer (Data, Result) */ |
1da177e4 | 519 | |
4be44fcd LB |
520 | status = acpi_ex_convert_to_integer(operand[0], &return_desc, |
521 | ACPI_ANY_BASE); | |
1da177e4 | 522 | if (return_desc == operand[0]) { |
52fc0b02 | 523 | |
1da177e4 | 524 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 525 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
526 | } |
527 | break; | |
528 | ||
4be44fcd LB |
529 | case AML_SHIFT_LEFT_BIT_OP: /* shift_left_bit (Source, bit_num) */ |
530 | case AML_SHIFT_RIGHT_BIT_OP: /* shift_right_bit (Source, bit_num) */ | |
1da177e4 | 531 | |
44f6c012 RM |
532 | /* These are two obsolete opcodes */ |
533 | ||
b8e4d893 BM |
534 | ACPI_ERROR((AE_INFO, |
535 | "%s is obsolete and not implemented", | |
536 | acpi_ps_get_opcode_name(walk_state->opcode))); | |
1da177e4 LT |
537 | status = AE_SUPPORT; |
538 | goto cleanup; | |
539 | ||
4be44fcd | 540 | default: /* Unknown opcode */ |
1da177e4 | 541 | |
b8e4d893 BM |
542 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
543 | walk_state->opcode)); | |
1da177e4 LT |
544 | status = AE_AML_BAD_OPCODE; |
545 | goto cleanup; | |
546 | } | |
547 | ||
4be44fcd | 548 | if (ACPI_SUCCESS(status)) { |
52fc0b02 | 549 | |
44f6c012 RM |
550 | /* Store the return value computed above into the target object */ |
551 | ||
4be44fcd | 552 | status = acpi_ex_store(return_desc, operand[1], walk_state); |
1da177e4 LT |
553 | } |
554 | ||
4be44fcd | 555 | cleanup: |
1da177e4 LT |
556 | |
557 | if (!walk_state->result_obj) { | |
558 | walk_state->result_obj = return_desc; | |
559 | } | |
560 | ||
561 | /* Delete return object on error */ | |
562 | ||
4be44fcd LB |
563 | if (ACPI_FAILURE(status)) { |
564 | acpi_ut_remove_reference(return_desc); | |
1da177e4 LT |
565 | } |
566 | ||
4be44fcd | 567 | return_ACPI_STATUS(status); |
1da177e4 LT |
568 | } |
569 | ||
1da177e4 LT |
570 | /******************************************************************************* |
571 | * | |
572 | * FUNCTION: acpi_ex_opcode_1A_0T_1R | |
573 | * | |
574 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
575 | * | |
576 | * RETURN: Status | |
577 | * | |
578 | * DESCRIPTION: Execute opcode with one argument, no target, and a return value | |
579 | * | |
580 | ******************************************************************************/ | |
581 | ||
4be44fcd | 582 | acpi_status acpi_ex_opcode_1A_0T_1R(struct acpi_walk_state *walk_state) |
1da177e4 | 583 | { |
4be44fcd LB |
584 | union acpi_operand_object **operand = &walk_state->operands[0]; |
585 | union acpi_operand_object *temp_desc; | |
586 | union acpi_operand_object *return_desc = NULL; | |
587 | acpi_status status = AE_OK; | |
588 | u32 type; | |
589 | acpi_integer value; | |
1da177e4 | 590 | |
4be44fcd LB |
591 | ACPI_FUNCTION_TRACE_STR("ex_opcode_1A_0T_1R", |
592 | acpi_ps_get_opcode_name(walk_state->opcode)); | |
1da177e4 LT |
593 | |
594 | /* Examine the AML opcode */ | |
595 | ||
596 | switch (walk_state->opcode) { | |
4be44fcd | 597 | case AML_LNOT_OP: /* LNot (Operand) */ |
1da177e4 | 598 | |
4be44fcd | 599 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
600 | if (!return_desc) { |
601 | status = AE_NO_MEMORY; | |
602 | goto cleanup; | |
603 | } | |
604 | ||
605 | /* | |
606 | * Set result to ONES (TRUE) if Value == 0. Note: | |
607 | * return_desc->Integer.Value is initially == 0 (FALSE) from above. | |
608 | */ | |
609 | if (!operand[0]->integer.value) { | |
610 | return_desc->integer.value = ACPI_INTEGER_MAX; | |
611 | } | |
612 | break; | |
613 | ||
4be44fcd LB |
614 | case AML_DECREMENT_OP: /* Decrement (Operand) */ |
615 | case AML_INCREMENT_OP: /* Increment (Operand) */ | |
1da177e4 LT |
616 | |
617 | /* | |
618 | * Create a new integer. Can't just get the base integer and | |
619 | * increment it because it may be an Arg or Field. | |
620 | */ | |
4be44fcd | 621 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
622 | if (!return_desc) { |
623 | status = AE_NO_MEMORY; | |
624 | goto cleanup; | |
625 | } | |
626 | ||
627 | /* | |
628 | * Since we are expecting a Reference operand, it can be either a | |
629 | * NS Node or an internal object. | |
630 | */ | |
631 | temp_desc = operand[0]; | |
4be44fcd LB |
632 | if (ACPI_GET_DESCRIPTOR_TYPE(temp_desc) == |
633 | ACPI_DESC_TYPE_OPERAND) { | |
52fc0b02 | 634 | |
1da177e4 LT |
635 | /* Internal reference object - prevent deletion */ |
636 | ||
4be44fcd | 637 | acpi_ut_add_reference(temp_desc); |
1da177e4 LT |
638 | } |
639 | ||
640 | /* | |
641 | * Convert the Reference operand to an Integer (This removes a | |
642 | * reference on the Operand[0] object) | |
643 | * | |
644 | * NOTE: We use LNOT_OP here in order to force resolution of the | |
645 | * reference operand to an actual integer. | |
646 | */ | |
4be44fcd LB |
647 | status = |
648 | acpi_ex_resolve_operands(AML_LNOT_OP, &temp_desc, | |
649 | walk_state); | |
650 | if (ACPI_FAILURE(status)) { | |
b8e4d893 BM |
651 | ACPI_EXCEPTION((AE_INFO, status, |
652 | "While resolving operands for [%s]", | |
653 | acpi_ps_get_opcode_name(walk_state-> | |
654 | opcode))); | |
1da177e4 LT |
655 | |
656 | goto cleanup; | |
657 | } | |
658 | ||
659 | /* | |
660 | * temp_desc is now guaranteed to be an Integer object -- | |
661 | * Perform the actual increment or decrement | |
662 | */ | |
663 | if (walk_state->opcode == AML_INCREMENT_OP) { | |
4be44fcd LB |
664 | return_desc->integer.value = |
665 | temp_desc->integer.value + 1; | |
666 | } else { | |
667 | return_desc->integer.value = | |
668 | temp_desc->integer.value - 1; | |
1da177e4 LT |
669 | } |
670 | ||
671 | /* Finished with this Integer object */ | |
672 | ||
4be44fcd | 673 | acpi_ut_remove_reference(temp_desc); |
1da177e4 LT |
674 | |
675 | /* | |
676 | * Store the result back (indirectly) through the original | |
677 | * Reference object | |
678 | */ | |
4be44fcd | 679 | status = acpi_ex_store(return_desc, operand[0], walk_state); |
1da177e4 LT |
680 | break; |
681 | ||
4be44fcd | 682 | case AML_TYPE_OP: /* object_type (source_object) */ |
1da177e4 LT |
683 | |
684 | /* | |
685 | * Note: The operand is not resolved at this point because we want to | |
44f6c012 RM |
686 | * get the associated object, not its value. For example, we don't |
687 | * want to resolve a field_unit to its value, we want the actual | |
688 | * field_unit object. | |
1da177e4 LT |
689 | */ |
690 | ||
691 | /* Get the type of the base object */ | |
692 | ||
4be44fcd LB |
693 | status = |
694 | acpi_ex_resolve_multiple(walk_state, operand[0], &type, | |
695 | NULL); | |
696 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
697 | goto cleanup; |
698 | } | |
699 | /* Allocate a descriptor to hold the type. */ | |
700 | ||
4be44fcd | 701 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
702 | if (!return_desc) { |
703 | status = AE_NO_MEMORY; | |
704 | goto cleanup; | |
705 | } | |
706 | ||
707 | return_desc->integer.value = type; | |
708 | break; | |
709 | ||
4be44fcd | 710 | case AML_SIZE_OF_OP: /* size_of (source_object) */ |
1da177e4 LT |
711 | |
712 | /* | |
713 | * Note: The operand is not resolved at this point because we want to | |
714 | * get the associated object, not its value. | |
715 | */ | |
716 | ||
717 | /* Get the base object */ | |
718 | ||
4be44fcd LB |
719 | status = acpi_ex_resolve_multiple(walk_state, |
720 | operand[0], &type, | |
721 | &temp_desc); | |
722 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
723 | goto cleanup; |
724 | } | |
725 | ||
726 | /* | |
727 | * The type of the base object must be integer, buffer, string, or | |
728 | * package. All others are not supported. | |
729 | * | |
730 | * NOTE: Integer is not specifically supported by the ACPI spec, | |
731 | * but is supported implicitly via implicit operand conversion. | |
732 | * rather than bother with conversion, we just use the byte width | |
733 | * global (4 or 8 bytes). | |
734 | */ | |
735 | switch (type) { | |
736 | case ACPI_TYPE_INTEGER: | |
737 | value = acpi_gbl_integer_byte_width; | |
738 | break; | |
739 | ||
740 | case ACPI_TYPE_BUFFER: | |
741 | value = temp_desc->buffer.length; | |
742 | break; | |
743 | ||
744 | case ACPI_TYPE_STRING: | |
745 | value = temp_desc->string.length; | |
746 | break; | |
747 | ||
748 | case ACPI_TYPE_PACKAGE: | |
749 | value = temp_desc->package.count; | |
750 | break; | |
751 | ||
752 | default: | |
b8e4d893 BM |
753 | ACPI_ERROR((AE_INFO, |
754 | "Operand is not Buf/Int/Str/Pkg - found type %s", | |
755 | acpi_ut_get_type_name(type))); | |
1da177e4 LT |
756 | status = AE_AML_OPERAND_TYPE; |
757 | goto cleanup; | |
758 | } | |
759 | ||
760 | /* | |
761 | * Now that we have the size of the object, create a result | |
762 | * object to hold the value | |
763 | */ | |
4be44fcd | 764 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
765 | if (!return_desc) { |
766 | status = AE_NO_MEMORY; | |
767 | goto cleanup; | |
768 | } | |
769 | ||
770 | return_desc->integer.value = value; | |
771 | break; | |
772 | ||
4be44fcd | 773 | case AML_REF_OF_OP: /* ref_of (source_object) */ |
1da177e4 | 774 | |
4be44fcd LB |
775 | status = |
776 | acpi_ex_get_object_reference(operand[0], &return_desc, | |
777 | walk_state); | |
778 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
779 | goto cleanup; |
780 | } | |
781 | break; | |
782 | ||
4be44fcd | 783 | case AML_DEREF_OF_OP: /* deref_of (obj_reference | String) */ |
1da177e4 LT |
784 | |
785 | /* Check for a method local or argument, or standalone String */ | |
786 | ||
52fc0b02 | 787 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) == |
4be44fcd | 788 | ACPI_DESC_TYPE_NAMED) { |
52fc0b02 BM |
789 | temp_desc = |
790 | acpi_ns_get_attached_object((struct | |
791 | acpi_namespace_node *) | |
792 | operand[0]); | |
793 | if (temp_desc | |
794 | && | |
795 | ((ACPI_GET_OBJECT_TYPE(temp_desc) == | |
796 | ACPI_TYPE_STRING) | |
797 | || (ACPI_GET_OBJECT_TYPE(temp_desc) == | |
798 | ACPI_TYPE_LOCAL_REFERENCE))) { | |
799 | operand[0] = temp_desc; | |
800 | acpi_ut_add_reference(temp_desc); | |
801 | } else { | |
802 | status = AE_AML_OPERAND_TYPE; | |
803 | goto cleanup; | |
804 | } | |
805 | } else { | |
4be44fcd | 806 | switch (ACPI_GET_OBJECT_TYPE(operand[0])) { |
1da177e4 LT |
807 | case ACPI_TYPE_LOCAL_REFERENCE: |
808 | /* | |
809 | * This is a deref_of (local_x | arg_x) | |
810 | * | |
811 | * Must resolve/dereference the local/arg reference first | |
812 | */ | |
813 | switch (operand[0]->reference.opcode) { | |
814 | case AML_LOCAL_OP: | |
815 | case AML_ARG_OP: | |
816 | ||
817 | /* Set Operand[0] to the value of the local/arg */ | |
818 | ||
4be44fcd LB |
819 | status = |
820 | acpi_ds_method_data_get_value | |
821 | (operand[0]->reference.opcode, | |
822 | operand[0]->reference.offset, | |
823 | walk_state, &temp_desc); | |
824 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
825 | goto cleanup; |
826 | } | |
827 | ||
828 | /* | |
829 | * Delete our reference to the input object and | |
830 | * point to the object just retrieved | |
831 | */ | |
4be44fcd | 832 | acpi_ut_remove_reference(operand[0]); |
1da177e4 LT |
833 | operand[0] = temp_desc; |
834 | break; | |
835 | ||
836 | case AML_REF_OF_OP: | |
837 | ||
838 | /* Get the object to which the reference refers */ | |
839 | ||
4be44fcd LB |
840 | temp_desc = |
841 | operand[0]->reference.object; | |
842 | acpi_ut_remove_reference(operand[0]); | |
1da177e4 LT |
843 | operand[0] = temp_desc; |
844 | break; | |
845 | ||
846 | default: | |
847 | ||
848 | /* Must be an Index op - handled below */ | |
849 | break; | |
850 | } | |
851 | break; | |
852 | ||
1da177e4 | 853 | case ACPI_TYPE_STRING: |
52fc0b02 | 854 | break; |
1da177e4 | 855 | |
52fc0b02 BM |
856 | default: |
857 | status = AE_AML_OPERAND_TYPE; | |
858 | goto cleanup; | |
859 | } | |
860 | } | |
861 | ||
862 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) != | |
863 | ACPI_DESC_TYPE_NAMED) { | |
864 | if (ACPI_GET_OBJECT_TYPE(operand[0]) == | |
865 | ACPI_TYPE_STRING) { | |
1da177e4 | 866 | /* |
44f6c012 RM |
867 | * This is a deref_of (String). The string is a reference |
868 | * to a named ACPI object. | |
1da177e4 LT |
869 | * |
870 | * 1) Find the owning Node | |
52fc0b02 | 871 | * 2) Dereference the node to an actual object. Could be a |
44f6c012 | 872 | * Field, so we need to resolve the node to a value. |
1da177e4 | 873 | */ |
4be44fcd LB |
874 | status = |
875 | acpi_ns_get_node_by_path(operand[0]->string. | |
876 | pointer, | |
877 | walk_state-> | |
878 | scope_info->scope. | |
879 | node, | |
880 | ACPI_NS_SEARCH_PARENT, | |
881 | ACPI_CAST_INDIRECT_PTR | |
882 | (struct | |
883 | acpi_namespace_node, | |
884 | &return_desc)); | |
885 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
886 | goto cleanup; |
887 | } | |
888 | ||
4be44fcd LB |
889 | status = |
890 | acpi_ex_resolve_node_to_value | |
891 | (ACPI_CAST_INDIRECT_PTR | |
892 | (struct acpi_namespace_node, &return_desc), | |
893 | walk_state); | |
1da177e4 | 894 | goto cleanup; |
1da177e4 LT |
895 | } |
896 | } | |
897 | ||
898 | /* Operand[0] may have changed from the code above */ | |
899 | ||
4be44fcd LB |
900 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) == |
901 | ACPI_DESC_TYPE_NAMED) { | |
1da177e4 LT |
902 | /* |
903 | * This is a deref_of (object_reference) | |
904 | * Get the actual object from the Node (This is the dereference). | |
44f6c012 RM |
905 | * This case may only happen when a local_x or arg_x is |
906 | * dereferenced above. | |
1da177e4 | 907 | */ |
4be44fcd LB |
908 | return_desc = acpi_ns_get_attached_object((struct |
909 | acpi_namespace_node | |
910 | *) | |
911 | operand[0]); | |
912 | acpi_ut_add_reference(return_desc); | |
913 | } else { | |
1da177e4 | 914 | /* |
44f6c012 RM |
915 | * This must be a reference object produced by either the |
916 | * Index() or ref_of() operator | |
1da177e4 LT |
917 | */ |
918 | switch (operand[0]->reference.opcode) { | |
919 | case AML_INDEX_OP: | |
920 | ||
921 | /* | |
922 | * The target type for the Index operator must be | |
923 | * either a Buffer or a Package | |
924 | */ | |
925 | switch (operand[0]->reference.target_type) { | |
926 | case ACPI_TYPE_BUFFER_FIELD: | |
927 | ||
4be44fcd LB |
928 | temp_desc = |
929 | operand[0]->reference.object; | |
1da177e4 LT |
930 | |
931 | /* | |
932 | * Create a new object that contains one element of the | |
933 | * buffer -- the element pointed to by the index. | |
934 | * | |
935 | * NOTE: index into a buffer is NOT a pointer to a | |
936 | * sub-buffer of the main buffer, it is only a pointer to a | |
937 | * single element (byte) of the buffer! | |
938 | */ | |
4be44fcd LB |
939 | return_desc = |
940 | acpi_ut_create_internal_object | |
941 | (ACPI_TYPE_INTEGER); | |
1da177e4 LT |
942 | if (!return_desc) { |
943 | status = AE_NO_MEMORY; | |
944 | goto cleanup; | |
945 | } | |
946 | ||
947 | /* | |
948 | * Since we are returning the value of the buffer at the | |
949 | * indexed location, we don't need to add an additional | |
950 | * reference to the buffer itself. | |
951 | */ | |
952 | return_desc->integer.value = | |
4be44fcd LB |
953 | temp_desc->buffer. |
954 | pointer[operand[0]->reference. | |
955 | offset]; | |
1da177e4 LT |
956 | break; |
957 | ||
1da177e4 LT |
958 | case ACPI_TYPE_PACKAGE: |
959 | ||
960 | /* | |
44f6c012 RM |
961 | * Return the referenced element of the package. We must |
962 | * add another reference to the referenced object, however. | |
1da177e4 | 963 | */ |
4be44fcd LB |
964 | return_desc = |
965 | *(operand[0]->reference.where); | |
f9f4601f | 966 | if (return_desc) { |
4be44fcd LB |
967 | acpi_ut_add_reference |
968 | (return_desc); | |
1da177e4 LT |
969 | } |
970 | ||
1da177e4 LT |
971 | break; |
972 | ||
1da177e4 LT |
973 | default: |
974 | ||
b8e4d893 BM |
975 | ACPI_ERROR((AE_INFO, |
976 | "Unknown Index target_type %X in obj %p", | |
977 | operand[0]->reference. | |
978 | target_type, operand[0])); | |
1da177e4 LT |
979 | status = AE_AML_OPERAND_TYPE; |
980 | goto cleanup; | |
981 | } | |
982 | break; | |
983 | ||
1da177e4 LT |
984 | case AML_REF_OF_OP: |
985 | ||
986 | return_desc = operand[0]->reference.object; | |
987 | ||
4be44fcd LB |
988 | if (ACPI_GET_DESCRIPTOR_TYPE(return_desc) == |
989 | ACPI_DESC_TYPE_NAMED) { | |
1da177e4 | 990 | |
4be44fcd LB |
991 | return_desc = |
992 | acpi_ns_get_attached_object((struct | |
993 | acpi_namespace_node | |
994 | *) | |
995 | return_desc); | |
1da177e4 LT |
996 | } |
997 | ||
998 | /* Add another reference to the object! */ | |
999 | ||
4be44fcd | 1000 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
1001 | break; |
1002 | ||
1da177e4 | 1003 | default: |
b8e4d893 BM |
1004 | ACPI_ERROR((AE_INFO, |
1005 | "Unknown opcode in ref(%p) - %X", | |
1006 | operand[0], | |
1007 | operand[0]->reference.opcode)); | |
1da177e4 LT |
1008 | |
1009 | status = AE_TYPE; | |
1010 | goto cleanup; | |
1011 | } | |
1012 | } | |
1013 | break; | |
1014 | ||
1da177e4 LT |
1015 | default: |
1016 | ||
b8e4d893 BM |
1017 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
1018 | walk_state->opcode)); | |
1da177e4 LT |
1019 | status = AE_AML_BAD_OPCODE; |
1020 | goto cleanup; | |
1021 | } | |
1022 | ||
4be44fcd | 1023 | cleanup: |
1da177e4 LT |
1024 | |
1025 | /* Delete return object on error */ | |
1026 | ||
4be44fcd LB |
1027 | if (ACPI_FAILURE(status)) { |
1028 | acpi_ut_remove_reference(return_desc); | |
1da177e4 LT |
1029 | } |
1030 | ||
1031 | walk_state->result_obj = return_desc; | |
4be44fcd | 1032 | return_ACPI_STATUS(status); |
1da177e4 | 1033 | } |