Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | |
2 | /****************************************************************************** | |
3 | * | |
4 | * Module Name: exoparg1 - AML execution - opcodes with 1 argument | |
5 | * | |
6 | *****************************************************************************/ | |
7 | ||
8 | /* | |
a8357b0c | 9 | * Copyright (C) 2000 - 2010, Intel Corp. |
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 | 45 | #include <acpi/acpi.h> |
e2f7a777 LB |
46 | #include "accommon.h" |
47 | #include "acparser.h" | |
48 | #include "acdispat.h" | |
49 | #include "acinterp.h" | |
50 | #include "amlcode.h" | |
51 | #include "acnamesp.h" | |
1da177e4 | 52 | |
1da177e4 | 53 | #define _COMPONENT ACPI_EXECUTER |
4be44fcd | 54 | ACPI_MODULE_NAME("exoparg1") |
1da177e4 LT |
55 | |
56 | /*! | |
57 | * Naming convention for AML interpreter execution routines. | |
58 | * | |
59 | * The routines that begin execution of AML opcodes are named with a common | |
60 | * convention based upon the number of arguments, the number of target operands, | |
61 | * and whether or not a value is returned: | |
62 | * | |
63 | * AcpiExOpcode_xA_yT_zR | |
64 | * | |
65 | * Where: | |
66 | * | |
67 | * xA - ARGUMENTS: The number of arguments (input operands) that are | |
68 | * required for this opcode type (0 through 6 args). | |
69 | * yT - TARGETS: The number of targets (output operands) that are required | |
70 | * for this opcode type (0, 1, or 2 targets). | |
71 | * zR - RETURN VALUE: Indicates whether this opcode type returns a value | |
72 | * as the function return (0 or 1). | |
73 | * | |
74 | * The AcpiExOpcode* functions are called via the Dispatcher component with | |
75 | * fully resolved operands. | |
76 | !*/ | |
1da177e4 LT |
77 | /******************************************************************************* |
78 | * | |
79 | * FUNCTION: acpi_ex_opcode_0A_0T_1R | |
80 | * | |
81 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
82 | * | |
83 | * RETURN: Status | |
84 | * | |
85 | * DESCRIPTION: Execute operator with no operands, one return value | |
86 | * | |
87 | ******************************************************************************/ | |
4be44fcd | 88 | acpi_status acpi_ex_opcode_0A_0T_1R(struct acpi_walk_state *walk_state) |
1da177e4 | 89 | { |
4be44fcd LB |
90 | acpi_status status = AE_OK; |
91 | union acpi_operand_object *return_desc = NULL; | |
1da177e4 | 92 | |
b229cf92 | 93 | ACPI_FUNCTION_TRACE_STR(ex_opcode_0A_0T_1R, |
4be44fcd | 94 | acpi_ps_get_opcode_name(walk_state->opcode)); |
1da177e4 LT |
95 | |
96 | /* Examine the AML opcode */ | |
97 | ||
98 | switch (walk_state->opcode) { | |
4be44fcd | 99 | case AML_TIMER_OP: /* Timer () */ |
1da177e4 LT |
100 | |
101 | /* Create a return object of type Integer */ | |
102 | ||
dc95a270 BM |
103 | return_desc = |
104 | acpi_ut_create_integer_object(acpi_os_get_timer()); | |
1da177e4 LT |
105 | if (!return_desc) { |
106 | status = AE_NO_MEMORY; | |
107 | goto cleanup; | |
108 | } | |
1da177e4 LT |
109 | break; |
110 | ||
4be44fcd | 111 | default: /* Unknown opcode */ |
1da177e4 | 112 | |
b8e4d893 BM |
113 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
114 | walk_state->opcode)); | |
1da177e4 LT |
115 | status = AE_AML_BAD_OPCODE; |
116 | break; | |
117 | } | |
118 | ||
4be44fcd | 119 | cleanup: |
1da177e4 | 120 | |
1da177e4 LT |
121 | /* Delete return object on error */ |
122 | ||
4be44fcd LB |
123 | if ((ACPI_FAILURE(status)) || walk_state->result_obj) { |
124 | acpi_ut_remove_reference(return_desc); | |
4b6e16cf | 125 | walk_state->result_obj = NULL; |
4be44fcd | 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 | |
b229cf92 | 153 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_0T_0R, |
4be44fcd | 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 | |
b229cf92 | 219 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_1T_0R, |
4be44fcd | 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; | |
5df7e6cb BM |
264 | u64 power_of_ten; |
265 | u64 digit; | |
4be44fcd | 266 | |
b229cf92 | 267 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_1T_1R, |
4be44fcd | 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 | ||
4c90ece2 BM |
325 | return_desc->integer.value = |
326 | temp32 == | |
327 | 0 ? 0 : (ACPI_INTEGER_BIT_SIZE + 1) - temp32; | |
1da177e4 LT |
328 | break; |
329 | ||
4be44fcd | 330 | case AML_FROM_BCD_OP: /* from_bcd (BCDValue, Result) */ |
1da177e4 LT |
331 | |
332 | /* | |
333 | * The 64-bit ACPI integer can hold 16 4-bit BCD characters | |
334 | * (if table is 32-bit, integer can hold 8 BCD characters) | |
335 | * Convert each 4-bit BCD value | |
336 | */ | |
337 | power_of_ten = 1; | |
338 | return_desc->integer.value = 0; | |
339 | digit = operand[0]->integer.value; | |
340 | ||
341 | /* Convert each BCD digit (each is one nybble wide) */ | |
342 | ||
4be44fcd LB |
343 | for (i = 0; |
344 | (i < acpi_gbl_integer_nybble_width) && (digit > 0); | |
345 | i++) { | |
52fc0b02 | 346 | |
1da177e4 LT |
347 | /* Get the least significant 4-bit BCD digit */ |
348 | ||
349 | temp32 = ((u32) digit) & 0xF; | |
350 | ||
351 | /* Check the range of the digit */ | |
352 | ||
353 | if (temp32 > 9) { | |
b8e4d893 BM |
354 | ACPI_ERROR((AE_INFO, |
355 | "BCD digit too large (not decimal): 0x%X", | |
356 | temp32)); | |
1da177e4 LT |
357 | |
358 | status = AE_AML_NUMERIC_OVERFLOW; | |
359 | goto cleanup; | |
360 | } | |
361 | ||
362 | /* Sum the digit into the result with the current power of 10 */ | |
363 | ||
4be44fcd | 364 | return_desc->integer.value += |
5df7e6cb | 365 | (((u64) temp32) * power_of_ten); |
1da177e4 LT |
366 | |
367 | /* Shift to next BCD digit */ | |
368 | ||
369 | digit >>= 4; | |
370 | ||
371 | /* Next power of 10 */ | |
372 | ||
373 | power_of_ten *= 10; | |
374 | } | |
375 | break; | |
376 | ||
4be44fcd | 377 | case AML_TO_BCD_OP: /* to_bcd (Operand, Result) */ |
1da177e4 LT |
378 | |
379 | return_desc->integer.value = 0; | |
380 | digit = operand[0]->integer.value; | |
381 | ||
382 | /* Each BCD digit is one nybble wide */ | |
383 | ||
4be44fcd LB |
384 | for (i = 0; |
385 | (i < acpi_gbl_integer_nybble_width) && (digit > 0); | |
386 | i++) { | |
387 | (void)acpi_ut_short_divide(digit, 10, &digit, | |
388 | &temp32); | |
1da177e4 | 389 | |
44f6c012 RM |
390 | /* |
391 | * Insert the BCD digit that resides in the | |
392 | * remainder from above | |
393 | */ | |
4be44fcd | 394 | return_desc->integer.value |= |
5df7e6cb | 395 | (((u64) temp32) << ACPI_MUL_4(i)); |
1da177e4 LT |
396 | } |
397 | ||
398 | /* Overflow if there is any data left in Digit */ | |
399 | ||
400 | if (digit > 0) { | |
b8e4d893 BM |
401 | ACPI_ERROR((AE_INFO, |
402 | "Integer too large to convert to BCD: %8.8X%8.8X", | |
403 | ACPI_FORMAT_UINT64(operand[0]-> | |
404 | integer.value))); | |
1da177e4 LT |
405 | status = AE_AML_NUMERIC_OVERFLOW; |
406 | goto cleanup; | |
407 | } | |
408 | break; | |
409 | ||
4be44fcd | 410 | case AML_COND_REF_OF_OP: /* cond_ref_of (source_object, Result) */ |
1da177e4 LT |
411 | |
412 | /* | |
413 | * This op is a little strange because the internal return value is | |
414 | * different than the return value stored in the result descriptor | |
415 | * (There are really two return values) | |
416 | */ | |
4be44fcd LB |
417 | if ((struct acpi_namespace_node *)operand[0] == |
418 | acpi_gbl_root_node) { | |
1da177e4 LT |
419 | /* |
420 | * This means that the object does not exist in the namespace, | |
421 | * return FALSE | |
422 | */ | |
423 | return_desc->integer.value = 0; | |
424 | goto cleanup; | |
425 | } | |
426 | ||
427 | /* Get the object reference, store it, and remove our reference */ | |
428 | ||
4be44fcd LB |
429 | status = acpi_ex_get_object_reference(operand[0], |
430 | &return_desc2, | |
431 | walk_state); | |
432 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
433 | goto cleanup; |
434 | } | |
435 | ||
4be44fcd LB |
436 | status = |
437 | acpi_ex_store(return_desc2, operand[1], walk_state); | |
438 | acpi_ut_remove_reference(return_desc2); | |
1da177e4 LT |
439 | |
440 | /* The object exists in the namespace, return TRUE */ | |
441 | ||
5df7e6cb | 442 | return_desc->integer.value = ACPI_UINT64_MAX; |
1da177e4 LT |
443 | goto cleanup; |
444 | ||
1da177e4 LT |
445 | default: |
446 | /* No other opcodes get here */ | |
447 | break; | |
448 | } | |
449 | break; | |
450 | ||
4be44fcd | 451 | case AML_STORE_OP: /* Store (Source, Target) */ |
1da177e4 LT |
452 | |
453 | /* | |
454 | * A store operand is typically a number, string, buffer or lvalue | |
455 | * Be careful about deleting the source object, | |
456 | * since the object itself may have been stored. | |
457 | */ | |
4be44fcd LB |
458 | status = acpi_ex_store(operand[0], operand[1], walk_state); |
459 | if (ACPI_FAILURE(status)) { | |
460 | return_ACPI_STATUS(status); | |
1da177e4 LT |
461 | } |
462 | ||
463 | /* It is possible that the Store already produced a return object */ | |
464 | ||
465 | if (!walk_state->result_obj) { | |
466 | /* | |
44f6c012 RM |
467 | * Normally, we would remove a reference on the Operand[0] |
468 | * parameter; But since it is being used as the internal return | |
469 | * object (meaning we would normally increment it), the two | |
470 | * cancel out, and we simply don't do anything. | |
1da177e4 LT |
471 | */ |
472 | walk_state->result_obj = operand[0]; | |
4be44fcd | 473 | walk_state->operands[0] = NULL; /* Prevent deletion */ |
1da177e4 | 474 | } |
4be44fcd | 475 | return_ACPI_STATUS(status); |
1da177e4 | 476 | |
4be44fcd LB |
477 | /* |
478 | * ACPI 2.0 Opcodes | |
479 | */ | |
480 | case AML_COPY_OP: /* Copy (Source, Target) */ | |
1da177e4 | 481 | |
4be44fcd LB |
482 | status = |
483 | acpi_ut_copy_iobject_to_iobject(operand[0], &return_desc, | |
484 | walk_state); | |
1da177e4 LT |
485 | break; |
486 | ||
4be44fcd | 487 | case AML_TO_DECSTRING_OP: /* to_decimal_string (Data, Result) */ |
1da177e4 | 488 | |
4be44fcd LB |
489 | status = acpi_ex_convert_to_string(operand[0], &return_desc, |
490 | ACPI_EXPLICIT_CONVERT_DECIMAL); | |
1da177e4 | 491 | if (return_desc == operand[0]) { |
52fc0b02 | 492 | |
1da177e4 | 493 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 494 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
495 | } |
496 | break; | |
497 | ||
4be44fcd | 498 | case AML_TO_HEXSTRING_OP: /* to_hex_string (Data, Result) */ |
1da177e4 | 499 | |
4be44fcd LB |
500 | status = acpi_ex_convert_to_string(operand[0], &return_desc, |
501 | ACPI_EXPLICIT_CONVERT_HEX); | |
1da177e4 | 502 | if (return_desc == operand[0]) { |
52fc0b02 | 503 | |
1da177e4 | 504 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 505 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
506 | } |
507 | break; | |
508 | ||
4be44fcd | 509 | case AML_TO_BUFFER_OP: /* to_buffer (Data, Result) */ |
1da177e4 | 510 | |
4be44fcd | 511 | status = acpi_ex_convert_to_buffer(operand[0], &return_desc); |
1da177e4 | 512 | if (return_desc == operand[0]) { |
52fc0b02 | 513 | |
1da177e4 | 514 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 515 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
516 | } |
517 | break; | |
518 | ||
4be44fcd | 519 | case AML_TO_INTEGER_OP: /* to_integer (Data, Result) */ |
1da177e4 | 520 | |
4be44fcd LB |
521 | status = acpi_ex_convert_to_integer(operand[0], &return_desc, |
522 | ACPI_ANY_BASE); | |
1da177e4 | 523 | if (return_desc == operand[0]) { |
52fc0b02 | 524 | |
1da177e4 | 525 | /* No conversion performed, add ref to handle return value */ |
4be44fcd | 526 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
527 | } |
528 | break; | |
529 | ||
4be44fcd LB |
530 | case AML_SHIFT_LEFT_BIT_OP: /* shift_left_bit (Source, bit_num) */ |
531 | case AML_SHIFT_RIGHT_BIT_OP: /* shift_right_bit (Source, bit_num) */ | |
1da177e4 | 532 | |
44f6c012 RM |
533 | /* These are two obsolete opcodes */ |
534 | ||
b8e4d893 BM |
535 | ACPI_ERROR((AE_INFO, |
536 | "%s is obsolete and not implemented", | |
537 | acpi_ps_get_opcode_name(walk_state->opcode))); | |
1da177e4 LT |
538 | status = AE_SUPPORT; |
539 | goto cleanup; | |
540 | ||
4be44fcd | 541 | default: /* Unknown opcode */ |
1da177e4 | 542 | |
b8e4d893 BM |
543 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
544 | walk_state->opcode)); | |
1da177e4 LT |
545 | status = AE_AML_BAD_OPCODE; |
546 | goto cleanup; | |
547 | } | |
548 | ||
4be44fcd | 549 | if (ACPI_SUCCESS(status)) { |
52fc0b02 | 550 | |
44f6c012 RM |
551 | /* Store the return value computed above into the target object */ |
552 | ||
4be44fcd | 553 | status = acpi_ex_store(return_desc, operand[1], walk_state); |
1da177e4 LT |
554 | } |
555 | ||
4be44fcd | 556 | cleanup: |
1da177e4 | 557 | |
1da177e4 LT |
558 | /* Delete return object on error */ |
559 | ||
4be44fcd LB |
560 | if (ACPI_FAILURE(status)) { |
561 | acpi_ut_remove_reference(return_desc); | |
1da177e4 LT |
562 | } |
563 | ||
8313524a BM |
564 | /* Save return object on success */ |
565 | ||
566 | else if (!walk_state->result_obj) { | |
567 | walk_state->result_obj = return_desc; | |
568 | } | |
569 | ||
4be44fcd | 570 | return_ACPI_STATUS(status); |
1da177e4 LT |
571 | } |
572 | ||
1da177e4 LT |
573 | /******************************************************************************* |
574 | * | |
575 | * FUNCTION: acpi_ex_opcode_1A_0T_1R | |
576 | * | |
577 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
578 | * | |
579 | * RETURN: Status | |
580 | * | |
581 | * DESCRIPTION: Execute opcode with one argument, no target, and a return value | |
582 | * | |
583 | ******************************************************************************/ | |
584 | ||
4be44fcd | 585 | acpi_status acpi_ex_opcode_1A_0T_1R(struct acpi_walk_state *walk_state) |
1da177e4 | 586 | { |
4be44fcd LB |
587 | union acpi_operand_object **operand = &walk_state->operands[0]; |
588 | union acpi_operand_object *temp_desc; | |
589 | union acpi_operand_object *return_desc = NULL; | |
590 | acpi_status status = AE_OK; | |
591 | u32 type; | |
5df7e6cb | 592 | u64 value; |
1da177e4 | 593 | |
b229cf92 | 594 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_0T_1R, |
4be44fcd | 595 | acpi_ps_get_opcode_name(walk_state->opcode)); |
1da177e4 LT |
596 | |
597 | /* Examine the AML opcode */ | |
598 | ||
599 | switch (walk_state->opcode) { | |
4be44fcd | 600 | case AML_LNOT_OP: /* LNot (Operand) */ |
1da177e4 | 601 | |
dc95a270 | 602 | return_desc = acpi_ut_create_integer_object((u64) 0); |
1da177e4 LT |
603 | if (!return_desc) { |
604 | status = AE_NO_MEMORY; | |
605 | goto cleanup; | |
606 | } | |
607 | ||
608 | /* | |
609 | * Set result to ONES (TRUE) if Value == 0. Note: | |
610 | * return_desc->Integer.Value is initially == 0 (FALSE) from above. | |
611 | */ | |
612 | if (!operand[0]->integer.value) { | |
5df7e6cb | 613 | return_desc->integer.value = ACPI_UINT64_MAX; |
1da177e4 LT |
614 | } |
615 | break; | |
616 | ||
4be44fcd LB |
617 | case AML_DECREMENT_OP: /* Decrement (Operand) */ |
618 | case AML_INCREMENT_OP: /* Increment (Operand) */ | |
1da177e4 LT |
619 | |
620 | /* | |
621 | * Create a new integer. Can't just get the base integer and | |
622 | * increment it because it may be an Arg or Field. | |
623 | */ | |
4be44fcd | 624 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
625 | if (!return_desc) { |
626 | status = AE_NO_MEMORY; | |
627 | goto cleanup; | |
628 | } | |
629 | ||
630 | /* | |
631 | * Since we are expecting a Reference operand, it can be either a | |
632 | * NS Node or an internal object. | |
633 | */ | |
634 | temp_desc = operand[0]; | |
4be44fcd LB |
635 | if (ACPI_GET_DESCRIPTOR_TYPE(temp_desc) == |
636 | ACPI_DESC_TYPE_OPERAND) { | |
52fc0b02 | 637 | |
1da177e4 LT |
638 | /* Internal reference object - prevent deletion */ |
639 | ||
4be44fcd | 640 | acpi_ut_add_reference(temp_desc); |
1da177e4 LT |
641 | } |
642 | ||
643 | /* | |
644 | * Convert the Reference operand to an Integer (This removes a | |
645 | * reference on the Operand[0] object) | |
646 | * | |
647 | * NOTE: We use LNOT_OP here in order to force resolution of the | |
648 | * reference operand to an actual integer. | |
649 | */ | |
4be44fcd LB |
650 | status = |
651 | acpi_ex_resolve_operands(AML_LNOT_OP, &temp_desc, | |
652 | walk_state); | |
653 | if (ACPI_FAILURE(status)) { | |
b8e4d893 BM |
654 | ACPI_EXCEPTION((AE_INFO, status, |
655 | "While resolving operands for [%s]", | |
656 | acpi_ps_get_opcode_name(walk_state-> | |
657 | opcode))); | |
1da177e4 LT |
658 | |
659 | goto cleanup; | |
660 | } | |
661 | ||
662 | /* | |
663 | * temp_desc is now guaranteed to be an Integer object -- | |
664 | * Perform the actual increment or decrement | |
665 | */ | |
666 | if (walk_state->opcode == AML_INCREMENT_OP) { | |
4be44fcd LB |
667 | return_desc->integer.value = |
668 | temp_desc->integer.value + 1; | |
669 | } else { | |
670 | return_desc->integer.value = | |
671 | temp_desc->integer.value - 1; | |
1da177e4 LT |
672 | } |
673 | ||
674 | /* Finished with this Integer object */ | |
675 | ||
4be44fcd | 676 | acpi_ut_remove_reference(temp_desc); |
1da177e4 LT |
677 | |
678 | /* | |
679 | * Store the result back (indirectly) through the original | |
680 | * Reference object | |
681 | */ | |
4be44fcd | 682 | status = acpi_ex_store(return_desc, operand[0], walk_state); |
1da177e4 LT |
683 | break; |
684 | ||
4be44fcd | 685 | case AML_TYPE_OP: /* object_type (source_object) */ |
1da177e4 LT |
686 | |
687 | /* | |
688 | * Note: The operand is not resolved at this point because we want to | |
44f6c012 RM |
689 | * get the associated object, not its value. For example, we don't |
690 | * want to resolve a field_unit to its value, we want the actual | |
691 | * field_unit object. | |
1da177e4 LT |
692 | */ |
693 | ||
694 | /* Get the type of the base object */ | |
695 | ||
4be44fcd LB |
696 | status = |
697 | acpi_ex_resolve_multiple(walk_state, operand[0], &type, | |
698 | NULL); | |
699 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
700 | goto cleanup; |
701 | } | |
4c90ece2 | 702 | |
1da177e4 LT |
703 | /* Allocate a descriptor to hold the type. */ |
704 | ||
dc95a270 | 705 | return_desc = acpi_ut_create_integer_object((u64) type); |
1da177e4 LT |
706 | if (!return_desc) { |
707 | status = AE_NO_MEMORY; | |
708 | goto cleanup; | |
709 | } | |
1da177e4 LT |
710 | break; |
711 | ||
4be44fcd | 712 | case AML_SIZE_OF_OP: /* size_of (source_object) */ |
1da177e4 LT |
713 | |
714 | /* | |
715 | * Note: The operand is not resolved at this point because we want to | |
716 | * get the associated object, not its value. | |
717 | */ | |
718 | ||
719 | /* Get the base object */ | |
720 | ||
4be44fcd LB |
721 | status = acpi_ex_resolve_multiple(walk_state, |
722 | operand[0], &type, | |
723 | &temp_desc); | |
724 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
725 | goto cleanup; |
726 | } | |
727 | ||
728 | /* | |
729 | * The type of the base object must be integer, buffer, string, or | |
730 | * package. All others are not supported. | |
731 | * | |
732 | * NOTE: Integer is not specifically supported by the ACPI spec, | |
733 | * but is supported implicitly via implicit operand conversion. | |
734 | * rather than bother with conversion, we just use the byte width | |
735 | * global (4 or 8 bytes). | |
736 | */ | |
737 | switch (type) { | |
738 | case ACPI_TYPE_INTEGER: | |
739 | value = acpi_gbl_integer_byte_width; | |
740 | break; | |
741 | ||
1da177e4 LT |
742 | case ACPI_TYPE_STRING: |
743 | value = temp_desc->string.length; | |
744 | break; | |
745 | ||
8246934b LM |
746 | case ACPI_TYPE_BUFFER: |
747 | ||
748 | /* Buffer arguments may not be evaluated at this point */ | |
749 | ||
750 | status = acpi_ds_get_buffer_arguments(temp_desc); | |
751 | value = temp_desc->buffer.length; | |
752 | break; | |
753 | ||
1da177e4 | 754 | case ACPI_TYPE_PACKAGE: |
8246934b LM |
755 | |
756 | /* Package arguments may not be evaluated at this point */ | |
757 | ||
758 | status = acpi_ds_get_package_arguments(temp_desc); | |
1da177e4 LT |
759 | value = temp_desc->package.count; |
760 | break; | |
761 | ||
762 | default: | |
b8e4d893 | 763 | ACPI_ERROR((AE_INFO, |
8246934b | 764 | "Operand must be Buffer/Integer/String/Package - found type %s", |
b8e4d893 | 765 | acpi_ut_get_type_name(type))); |
1da177e4 LT |
766 | status = AE_AML_OPERAND_TYPE; |
767 | goto cleanup; | |
768 | } | |
769 | ||
8246934b LM |
770 | if (ACPI_FAILURE(status)) { |
771 | goto cleanup; | |
772 | } | |
773 | ||
1da177e4 LT |
774 | /* |
775 | * Now that we have the size of the object, create a result | |
776 | * object to hold the value | |
777 | */ | |
dc95a270 | 778 | return_desc = acpi_ut_create_integer_object(value); |
1da177e4 LT |
779 | if (!return_desc) { |
780 | status = AE_NO_MEMORY; | |
781 | goto cleanup; | |
782 | } | |
1da177e4 LT |
783 | break; |
784 | ||
4be44fcd | 785 | case AML_REF_OF_OP: /* ref_of (source_object) */ |
1da177e4 | 786 | |
4be44fcd LB |
787 | status = |
788 | acpi_ex_get_object_reference(operand[0], &return_desc, | |
789 | walk_state); | |
790 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
791 | goto cleanup; |
792 | } | |
793 | break; | |
794 | ||
4be44fcd | 795 | case AML_DEREF_OF_OP: /* deref_of (obj_reference | String) */ |
1da177e4 LT |
796 | |
797 | /* Check for a method local or argument, or standalone String */ | |
798 | ||
52fc0b02 | 799 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) == |
4be44fcd | 800 | ACPI_DESC_TYPE_NAMED) { |
52fc0b02 BM |
801 | temp_desc = |
802 | acpi_ns_get_attached_object((struct | |
803 | acpi_namespace_node *) | |
804 | operand[0]); | |
805 | if (temp_desc | |
3371c19c BM |
806 | && ((temp_desc->common.type == ACPI_TYPE_STRING) |
807 | || (temp_desc->common.type == | |
808 | ACPI_TYPE_LOCAL_REFERENCE))) { | |
52fc0b02 BM |
809 | operand[0] = temp_desc; |
810 | acpi_ut_add_reference(temp_desc); | |
811 | } else { | |
812 | status = AE_AML_OPERAND_TYPE; | |
813 | goto cleanup; | |
814 | } | |
815 | } else { | |
3371c19c | 816 | switch ((operand[0])->common.type) { |
1da177e4 LT |
817 | case ACPI_TYPE_LOCAL_REFERENCE: |
818 | /* | |
819 | * This is a deref_of (local_x | arg_x) | |
820 | * | |
821 | * Must resolve/dereference the local/arg reference first | |
822 | */ | |
1044f1f6 BM |
823 | switch (operand[0]->reference.class) { |
824 | case ACPI_REFCLASS_LOCAL: | |
825 | case ACPI_REFCLASS_ARG: | |
1da177e4 LT |
826 | |
827 | /* Set Operand[0] to the value of the local/arg */ | |
828 | ||
4be44fcd LB |
829 | status = |
830 | acpi_ds_method_data_get_value | |
1044f1f6 BM |
831 | (operand[0]->reference.class, |
832 | operand[0]->reference.value, | |
4be44fcd LB |
833 | walk_state, &temp_desc); |
834 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
835 | goto cleanup; |
836 | } | |
837 | ||
838 | /* | |
839 | * Delete our reference to the input object and | |
840 | * point to the object just retrieved | |
841 | */ | |
4be44fcd | 842 | acpi_ut_remove_reference(operand[0]); |
1da177e4 LT |
843 | operand[0] = temp_desc; |
844 | break; | |
845 | ||
1044f1f6 | 846 | case ACPI_REFCLASS_REFOF: |
1da177e4 LT |
847 | |
848 | /* Get the object to which the reference refers */ | |
849 | ||
4be44fcd LB |
850 | temp_desc = |
851 | operand[0]->reference.object; | |
852 | acpi_ut_remove_reference(operand[0]); | |
1da177e4 LT |
853 | operand[0] = temp_desc; |
854 | break; | |
855 | ||
856 | default: | |
857 | ||
858 | /* Must be an Index op - handled below */ | |
859 | break; | |
860 | } | |
861 | break; | |
862 | ||
1da177e4 | 863 | case ACPI_TYPE_STRING: |
52fc0b02 | 864 | break; |
1da177e4 | 865 | |
52fc0b02 BM |
866 | default: |
867 | status = AE_AML_OPERAND_TYPE; | |
868 | goto cleanup; | |
869 | } | |
870 | } | |
871 | ||
872 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) != | |
873 | ACPI_DESC_TYPE_NAMED) { | |
3371c19c | 874 | if ((operand[0])->common.type == ACPI_TYPE_STRING) { |
1da177e4 | 875 | /* |
44f6c012 RM |
876 | * This is a deref_of (String). The string is a reference |
877 | * to a named ACPI object. | |
1da177e4 LT |
878 | * |
879 | * 1) Find the owning Node | |
52fc0b02 | 880 | * 2) Dereference the node to an actual object. Could be a |
44f6c012 | 881 | * Field, so we need to resolve the node to a value. |
1da177e4 | 882 | */ |
4be44fcd | 883 | status = |
4119532c BM |
884 | acpi_ns_get_node(walk_state->scope_info-> |
885 | scope.node, | |
886 | operand[0]->string.pointer, | |
887 | ACPI_NS_SEARCH_PARENT, | |
888 | ACPI_CAST_INDIRECT_PTR | |
889 | (struct | |
890 | acpi_namespace_node, | |
891 | &return_desc)); | |
4be44fcd | 892 | if (ACPI_FAILURE(status)) { |
1da177e4 LT |
893 | goto cleanup; |
894 | } | |
895 | ||
4be44fcd LB |
896 | status = |
897 | acpi_ex_resolve_node_to_value | |
898 | (ACPI_CAST_INDIRECT_PTR | |
899 | (struct acpi_namespace_node, &return_desc), | |
900 | walk_state); | |
1da177e4 | 901 | goto cleanup; |
1da177e4 LT |
902 | } |
903 | } | |
904 | ||
905 | /* Operand[0] may have changed from the code above */ | |
906 | ||
4be44fcd LB |
907 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) == |
908 | ACPI_DESC_TYPE_NAMED) { | |
1da177e4 LT |
909 | /* |
910 | * This is a deref_of (object_reference) | |
911 | * Get the actual object from the Node (This is the dereference). | |
44f6c012 RM |
912 | * This case may only happen when a local_x or arg_x is |
913 | * dereferenced above. | |
1da177e4 | 914 | */ |
4be44fcd LB |
915 | return_desc = acpi_ns_get_attached_object((struct |
916 | acpi_namespace_node | |
917 | *) | |
918 | operand[0]); | |
919 | acpi_ut_add_reference(return_desc); | |
920 | } else { | |
1da177e4 | 921 | /* |
44f6c012 RM |
922 | * This must be a reference object produced by either the |
923 | * Index() or ref_of() operator | |
1da177e4 | 924 | */ |
1044f1f6 BM |
925 | switch (operand[0]->reference.class) { |
926 | case ACPI_REFCLASS_INDEX: | |
1da177e4 LT |
927 | |
928 | /* | |
929 | * The target type for the Index operator must be | |
930 | * either a Buffer or a Package | |
931 | */ | |
932 | switch (operand[0]->reference.target_type) { | |
933 | case ACPI_TYPE_BUFFER_FIELD: | |
934 | ||
4be44fcd LB |
935 | temp_desc = |
936 | operand[0]->reference.object; | |
1da177e4 LT |
937 | |
938 | /* | |
939 | * Create a new object that contains one element of the | |
940 | * buffer -- the element pointed to by the index. | |
941 | * | |
942 | * NOTE: index into a buffer is NOT a pointer to a | |
943 | * sub-buffer of the main buffer, it is only a pointer to a | |
944 | * single element (byte) of the buffer! | |
dc95a270 BM |
945 | * |
946 | * Since we are returning the value of the buffer at the | |
947 | * indexed location, we don't need to add an additional | |
948 | * reference to the buffer itself. | |
1da177e4 | 949 | */ |
4be44fcd | 950 | return_desc = |
dc95a270 BM |
951 | acpi_ut_create_integer_object((u64) |
952 | temp_desc-> | |
953 | buffer. | |
954 | pointer | |
955 | [operand | |
956 | [0]-> | |
957 | reference. | |
958 | value]); | |
1da177e4 LT |
959 | if (!return_desc) { |
960 | status = AE_NO_MEMORY; | |
961 | goto cleanup; | |
962 | } | |
1da177e4 LT |
963 | break; |
964 | ||
1da177e4 LT |
965 | case ACPI_TYPE_PACKAGE: |
966 | ||
967 | /* | |
44f6c012 RM |
968 | * Return the referenced element of the package. We must |
969 | * add another reference to the referenced object, however. | |
1da177e4 | 970 | */ |
4be44fcd LB |
971 | return_desc = |
972 | *(operand[0]->reference.where); | |
f9f4601f | 973 | if (return_desc) { |
4be44fcd LB |
974 | acpi_ut_add_reference |
975 | (return_desc); | |
1da177e4 | 976 | } |
1da177e4 LT |
977 | break; |
978 | ||
1da177e4 LT |
979 | default: |
980 | ||
b8e4d893 | 981 | ACPI_ERROR((AE_INFO, |
1044f1f6 | 982 | "Unknown Index TargetType %X in reference object %p", |
b8e4d893 BM |
983 | operand[0]->reference. |
984 | target_type, operand[0])); | |
1da177e4 LT |
985 | status = AE_AML_OPERAND_TYPE; |
986 | goto cleanup; | |
987 | } | |
988 | break; | |
989 | ||
1044f1f6 | 990 | case ACPI_REFCLASS_REFOF: |
1da177e4 LT |
991 | |
992 | return_desc = operand[0]->reference.object; | |
993 | ||
4be44fcd LB |
994 | if (ACPI_GET_DESCRIPTOR_TYPE(return_desc) == |
995 | ACPI_DESC_TYPE_NAMED) { | |
4be44fcd LB |
996 | return_desc = |
997 | acpi_ns_get_attached_object((struct | |
998 | acpi_namespace_node | |
999 | *) | |
1000 | return_desc); | |
1da177e4 LT |
1001 | } |
1002 | ||
1003 | /* Add another reference to the object! */ | |
1004 | ||
4be44fcd | 1005 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
1006 | break; |
1007 | ||
1da177e4 | 1008 | default: |
b8e4d893 | 1009 | ACPI_ERROR((AE_INFO, |
1044f1f6 | 1010 | "Unknown class in reference(%p) - %2.2X", |
b8e4d893 | 1011 | operand[0], |
1044f1f6 | 1012 | operand[0]->reference.class)); |
1da177e4 LT |
1013 | |
1014 | status = AE_TYPE; | |
1015 | goto cleanup; | |
1016 | } | |
1017 | } | |
1018 | break; | |
1019 | ||
1da177e4 LT |
1020 | default: |
1021 | ||
b8e4d893 BM |
1022 | ACPI_ERROR((AE_INFO, "Unknown AML opcode %X", |
1023 | walk_state->opcode)); | |
1da177e4 LT |
1024 | status = AE_AML_BAD_OPCODE; |
1025 | goto cleanup; | |
1026 | } | |
1027 | ||
4be44fcd | 1028 | cleanup: |
1da177e4 LT |
1029 | |
1030 | /* Delete return object on error */ | |
1031 | ||
4be44fcd LB |
1032 | if (ACPI_FAILURE(status)) { |
1033 | acpi_ut_remove_reference(return_desc); | |
1da177e4 LT |
1034 | } |
1035 | ||
8313524a BM |
1036 | /* Save return object on success */ |
1037 | ||
1038 | else { | |
1039 | walk_state->result_obj = return_desc; | |
1040 | } | |
1041 | ||
4be44fcd | 1042 | return_ACPI_STATUS(status); |
1da177e4 | 1043 | } |