Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | /****************************************************************************** |
2 | * | |
3 | * Module Name: exoparg1 - AML execution - opcodes with 1 argument | |
4 | * | |
5 | *****************************************************************************/ | |
6 | ||
7 | /* | |
25f044e6 | 8 | * Copyright (C) 2000 - 2013, Intel Corp. |
1da177e4 LT |
9 | * All rights reserved. |
10 | * | |
11 | * Redistribution and use in source and binary forms, with or without | |
12 | * modification, are permitted provided that the following conditions | |
13 | * are met: | |
14 | * 1. Redistributions of source code must retain the above copyright | |
15 | * notice, this list of conditions, and the following disclaimer, | |
16 | * without modification. | |
17 | * 2. Redistributions in binary form must reproduce at minimum a disclaimer | |
18 | * substantially similar to the "NO WARRANTY" disclaimer below | |
19 | * ("Disclaimer") and any redistribution must be conditioned upon | |
20 | * including a substantially similar Disclaimer requirement for further | |
21 | * binary redistribution. | |
22 | * 3. Neither the names of the above-listed copyright holders nor the names | |
23 | * of any contributors may be used to endorse or promote products derived | |
24 | * from this software without specific prior written permission. | |
25 | * | |
26 | * Alternatively, this software may be distributed under the terms of the | |
27 | * GNU General Public License ("GPL") version 2 as published by the Free | |
28 | * Software Foundation. | |
29 | * | |
30 | * NO WARRANTY | |
31 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS | |
32 | * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT | |
33 | * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR | |
34 | * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT | |
35 | * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
36 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
37 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
38 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | |
39 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING | |
40 | * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | |
41 | * POSSIBILITY OF SUCH DAMAGES. | |
42 | */ | |
43 | ||
1da177e4 | 44 | #include <acpi/acpi.h> |
e2f7a777 LB |
45 | #include "accommon.h" |
46 | #include "acparser.h" | |
47 | #include "acdispat.h" | |
48 | #include "acinterp.h" | |
49 | #include "amlcode.h" | |
50 | #include "acnamesp.h" | |
1da177e4 | 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 | |
b229cf92 | 92 | ACPI_FUNCTION_TRACE_STR(ex_opcode_0A_0T_1R, |
4be44fcd | 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 | ||
dc95a270 BM |
102 | return_desc = |
103 | acpi_ut_create_integer_object(acpi_os_get_timer()); | |
1da177e4 LT |
104 | if (!return_desc) { |
105 | status = AE_NO_MEMORY; | |
106 | goto cleanup; | |
107 | } | |
1da177e4 LT |
108 | break; |
109 | ||
4be44fcd | 110 | default: /* Unknown opcode */ |
1da177e4 | 111 | |
f6a22b0b | 112 | ACPI_ERROR((AE_INFO, "Unknown AML opcode 0x%X", |
b8e4d893 | 113 | walk_state->opcode)); |
1da177e4 LT |
114 | status = AE_AML_BAD_OPCODE; |
115 | break; | |
116 | } | |
117 | ||
4be44fcd | 118 | cleanup: |
1da177e4 | 119 | |
1da177e4 LT |
120 | /* Delete return object on error */ |
121 | ||
4be44fcd LB |
122 | if ((ACPI_FAILURE(status)) || walk_state->result_obj) { |
123 | acpi_ut_remove_reference(return_desc); | |
4b6e16cf | 124 | walk_state->result_obj = NULL; |
4be44fcd | 125 | } else { |
88ac00f5 RM |
126 | /* Save the return value */ |
127 | ||
128 | walk_state->result_obj = return_desc; | |
129 | } | |
1da177e4 | 130 | |
4be44fcd | 131 | return_ACPI_STATUS(status); |
1da177e4 LT |
132 | } |
133 | ||
1da177e4 LT |
134 | /******************************************************************************* |
135 | * | |
136 | * FUNCTION: acpi_ex_opcode_1A_0T_0R | |
137 | * | |
138 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
139 | * | |
140 | * RETURN: Status | |
141 | * | |
142 | * DESCRIPTION: Execute Type 1 monadic operator with numeric operand on | |
143 | * object stack | |
144 | * | |
145 | ******************************************************************************/ | |
146 | ||
4be44fcd | 147 | acpi_status acpi_ex_opcode_1A_0T_0R(struct acpi_walk_state *walk_state) |
1da177e4 | 148 | { |
4be44fcd LB |
149 | union acpi_operand_object **operand = &walk_state->operands[0]; |
150 | acpi_status status = AE_OK; | |
1da177e4 | 151 | |
b229cf92 | 152 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_0T_0R, |
4be44fcd | 153 | acpi_ps_get_opcode_name(walk_state->opcode)); |
1da177e4 LT |
154 | |
155 | /* Examine the AML opcode */ | |
156 | ||
157 | switch (walk_state->opcode) { | |
4be44fcd | 158 | case AML_RELEASE_OP: /* Release (mutex_object) */ |
1da177e4 | 159 | |
4be44fcd | 160 | status = acpi_ex_release_mutex(operand[0], walk_state); |
1da177e4 LT |
161 | break; |
162 | ||
4be44fcd | 163 | case AML_RESET_OP: /* Reset (event_object) */ |
1da177e4 | 164 | |
4be44fcd | 165 | status = acpi_ex_system_reset_event(operand[0]); |
1da177e4 LT |
166 | break; |
167 | ||
4be44fcd | 168 | case AML_SIGNAL_OP: /* Signal (event_object) */ |
1da177e4 | 169 | |
4be44fcd | 170 | status = acpi_ex_system_signal_event(operand[0]); |
1da177e4 LT |
171 | break; |
172 | ||
4be44fcd | 173 | case AML_SLEEP_OP: /* Sleep (msec_time) */ |
1da177e4 | 174 | |
ada241dc | 175 | status = acpi_ex_system_do_sleep(operand[0]->integer.value); |
1da177e4 LT |
176 | break; |
177 | ||
4be44fcd | 178 | case AML_STALL_OP: /* Stall (usec_time) */ |
1da177e4 | 179 | |
4be44fcd LB |
180 | status = |
181 | acpi_ex_system_do_stall((u32) operand[0]->integer.value); | |
1da177e4 LT |
182 | break; |
183 | ||
4be44fcd | 184 | case AML_UNLOAD_OP: /* Unload (Handle) */ |
1da177e4 | 185 | |
4be44fcd | 186 | status = acpi_ex_unload_table(operand[0]); |
1da177e4 LT |
187 | break; |
188 | ||
4be44fcd | 189 | default: /* Unknown opcode */ |
1da177e4 | 190 | |
f6a22b0b | 191 | ACPI_ERROR((AE_INFO, "Unknown AML opcode 0x%X", |
b8e4d893 | 192 | walk_state->opcode)); |
1da177e4 LT |
193 | status = AE_AML_BAD_OPCODE; |
194 | break; | |
195 | } | |
196 | ||
4be44fcd | 197 | return_ACPI_STATUS(status); |
1da177e4 LT |
198 | } |
199 | ||
1da177e4 LT |
200 | /******************************************************************************* |
201 | * | |
202 | * FUNCTION: acpi_ex_opcode_1A_1T_0R | |
203 | * | |
204 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
205 | * | |
206 | * RETURN: Status | |
207 | * | |
208 | * DESCRIPTION: Execute opcode with one argument, one target, and no | |
209 | * return value. | |
210 | * | |
211 | ******************************************************************************/ | |
212 | ||
4be44fcd | 213 | acpi_status acpi_ex_opcode_1A_1T_0R(struct acpi_walk_state *walk_state) |
1da177e4 | 214 | { |
4be44fcd LB |
215 | acpi_status status = AE_OK; |
216 | union acpi_operand_object **operand = &walk_state->operands[0]; | |
1da177e4 | 217 | |
b229cf92 | 218 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_1T_0R, |
4be44fcd | 219 | acpi_ps_get_opcode_name(walk_state->opcode)); |
1da177e4 LT |
220 | |
221 | /* Examine the AML opcode */ | |
222 | ||
223 | switch (walk_state->opcode) { | |
224 | case AML_LOAD_OP: | |
225 | ||
4be44fcd | 226 | status = acpi_ex_load_op(operand[0], operand[1], walk_state); |
1da177e4 LT |
227 | break; |
228 | ||
4be44fcd | 229 | default: /* Unknown opcode */ |
1da177e4 | 230 | |
f6a22b0b | 231 | ACPI_ERROR((AE_INFO, "Unknown AML opcode 0x%X", |
b8e4d893 | 232 | walk_state->opcode)); |
1da177e4 LT |
233 | status = AE_AML_BAD_OPCODE; |
234 | goto cleanup; | |
235 | } | |
236 | ||
4be44fcd | 237 | cleanup: |
1da177e4 | 238 | |
4be44fcd | 239 | return_ACPI_STATUS(status); |
1da177e4 LT |
240 | } |
241 | ||
1da177e4 LT |
242 | /******************************************************************************* |
243 | * | |
244 | * FUNCTION: acpi_ex_opcode_1A_1T_1R | |
245 | * | |
246 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
247 | * | |
248 | * RETURN: Status | |
249 | * | |
250 | * DESCRIPTION: Execute opcode with one argument, one target, and a | |
251 | * return value. | |
252 | * | |
253 | ******************************************************************************/ | |
254 | ||
4be44fcd | 255 | acpi_status acpi_ex_opcode_1A_1T_1R(struct acpi_walk_state *walk_state) |
1da177e4 | 256 | { |
4be44fcd LB |
257 | acpi_status status = AE_OK; |
258 | union acpi_operand_object **operand = &walk_state->operands[0]; | |
259 | union acpi_operand_object *return_desc = NULL; | |
260 | union acpi_operand_object *return_desc2 = NULL; | |
261 | u32 temp32; | |
262 | u32 i; | |
5df7e6cb BM |
263 | u64 power_of_ten; |
264 | u64 digit; | |
4be44fcd | 265 | |
b229cf92 | 266 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_1T_1R, |
4be44fcd | 267 | acpi_ps_get_opcode_name(walk_state->opcode)); |
1da177e4 LT |
268 | |
269 | /* Examine the AML opcode */ | |
270 | ||
271 | switch (walk_state->opcode) { | |
272 | case AML_BIT_NOT_OP: | |
273 | case AML_FIND_SET_LEFT_BIT_OP: | |
274 | case AML_FIND_SET_RIGHT_BIT_OP: | |
275 | case AML_FROM_BCD_OP: | |
276 | case AML_TO_BCD_OP: | |
277 | case AML_COND_REF_OF_OP: | |
278 | ||
279 | /* Create a return object of type Integer for these opcodes */ | |
280 | ||
4be44fcd | 281 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
282 | if (!return_desc) { |
283 | status = AE_NO_MEMORY; | |
284 | goto cleanup; | |
285 | } | |
286 | ||
287 | switch (walk_state->opcode) { | |
4be44fcd | 288 | case AML_BIT_NOT_OP: /* Not (Operand, Result) */ |
1da177e4 LT |
289 | |
290 | return_desc->integer.value = ~operand[0]->integer.value; | |
291 | break; | |
292 | ||
4be44fcd | 293 | case AML_FIND_SET_LEFT_BIT_OP: /* find_set_left_bit (Operand, Result) */ |
1da177e4 LT |
294 | |
295 | return_desc->integer.value = operand[0]->integer.value; | |
296 | ||
297 | /* | |
298 | * Acpi specification describes Integer type as a little | |
299 | * endian unsigned value, so this boundary condition is valid. | |
300 | */ | |
301 | for (temp32 = 0; return_desc->integer.value && | |
4be44fcd | 302 | temp32 < ACPI_INTEGER_BIT_SIZE; ++temp32) { |
1da177e4 LT |
303 | return_desc->integer.value >>= 1; |
304 | } | |
305 | ||
306 | return_desc->integer.value = temp32; | |
307 | break; | |
308 | ||
4be44fcd | 309 | case AML_FIND_SET_RIGHT_BIT_OP: /* find_set_right_bit (Operand, Result) */ |
1da177e4 LT |
310 | |
311 | return_desc->integer.value = operand[0]->integer.value; | |
312 | ||
313 | /* | |
314 | * The Acpi specification describes Integer type as a little | |
315 | * endian unsigned value, so this boundary condition is valid. | |
316 | */ | |
317 | for (temp32 = 0; return_desc->integer.value && | |
4be44fcd | 318 | temp32 < ACPI_INTEGER_BIT_SIZE; ++temp32) { |
1da177e4 LT |
319 | return_desc->integer.value <<= 1; |
320 | } | |
321 | ||
322 | /* Since the bit position is one-based, subtract from 33 (65) */ | |
323 | ||
4c90ece2 BM |
324 | return_desc->integer.value = |
325 | temp32 == | |
326 | 0 ? 0 : (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 | 363 | return_desc->integer.value += |
5df7e6cb | 364 | (((u64) 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 | 393 | return_desc->integer.value |= |
5df7e6cb | 394 | (((u64) 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 | 400 | ACPI_ERROR((AE_INFO, |
f6a22b0b | 401 | "Integer too large to convert to BCD: 0x%8.8X%8.8X", |
b8e4d893 BM |
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 | ||
5df7e6cb | 441 | return_desc->integer.value = ACPI_UINT64_MAX; |
1da177e4 LT |
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 | |
f6a22b0b | 542 | ACPI_ERROR((AE_INFO, "Unknown AML opcode 0x%X", |
b8e4d893 | 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 | 556 | |
1da177e4 LT |
557 | /* Delete return object on error */ |
558 | ||
4be44fcd LB |
559 | if (ACPI_FAILURE(status)) { |
560 | acpi_ut_remove_reference(return_desc); | |
1da177e4 LT |
561 | } |
562 | ||
8313524a BM |
563 | /* Save return object on success */ |
564 | ||
565 | else if (!walk_state->result_obj) { | |
566 | walk_state->result_obj = return_desc; | |
567 | } | |
568 | ||
4be44fcd | 569 | return_ACPI_STATUS(status); |
1da177e4 LT |
570 | } |
571 | ||
1da177e4 LT |
572 | /******************************************************************************* |
573 | * | |
574 | * FUNCTION: acpi_ex_opcode_1A_0T_1R | |
575 | * | |
576 | * PARAMETERS: walk_state - Current state (contains AML opcode) | |
577 | * | |
578 | * RETURN: Status | |
579 | * | |
580 | * DESCRIPTION: Execute opcode with one argument, no target, and a return value | |
581 | * | |
582 | ******************************************************************************/ | |
583 | ||
4be44fcd | 584 | acpi_status acpi_ex_opcode_1A_0T_1R(struct acpi_walk_state *walk_state) |
1da177e4 | 585 | { |
4be44fcd LB |
586 | union acpi_operand_object **operand = &walk_state->operands[0]; |
587 | union acpi_operand_object *temp_desc; | |
588 | union acpi_operand_object *return_desc = NULL; | |
589 | acpi_status status = AE_OK; | |
590 | u32 type; | |
5df7e6cb | 591 | u64 value; |
1da177e4 | 592 | |
b229cf92 | 593 | ACPI_FUNCTION_TRACE_STR(ex_opcode_1A_0T_1R, |
4be44fcd | 594 | acpi_ps_get_opcode_name(walk_state->opcode)); |
1da177e4 LT |
595 | |
596 | /* Examine the AML opcode */ | |
597 | ||
598 | switch (walk_state->opcode) { | |
4be44fcd | 599 | case AML_LNOT_OP: /* LNot (Operand) */ |
1da177e4 | 600 | |
dc95a270 | 601 | return_desc = acpi_ut_create_integer_object((u64) 0); |
1da177e4 LT |
602 | if (!return_desc) { |
603 | status = AE_NO_MEMORY; | |
604 | goto cleanup; | |
605 | } | |
606 | ||
607 | /* | |
73a3090a | 608 | * Set result to ONES (TRUE) if Value == 0. Note: |
1da177e4 LT |
609 | * return_desc->Integer.Value is initially == 0 (FALSE) from above. |
610 | */ | |
611 | if (!operand[0]->integer.value) { | |
5df7e6cb | 612 | return_desc->integer.value = ACPI_UINT64_MAX; |
1da177e4 LT |
613 | } |
614 | break; | |
615 | ||
4be44fcd LB |
616 | case AML_DECREMENT_OP: /* Decrement (Operand) */ |
617 | case AML_INCREMENT_OP: /* Increment (Operand) */ | |
1da177e4 LT |
618 | |
619 | /* | |
73a3090a | 620 | * Create a new integer. Can't just get the base integer and |
1da177e4 LT |
621 | * increment it because it may be an Arg or Field. |
622 | */ | |
4be44fcd | 623 | return_desc = acpi_ut_create_internal_object(ACPI_TYPE_INTEGER); |
1da177e4 LT |
624 | if (!return_desc) { |
625 | status = AE_NO_MEMORY; | |
626 | goto cleanup; | |
627 | } | |
628 | ||
629 | /* | |
630 | * Since we are expecting a Reference operand, it can be either a | |
631 | * NS Node or an internal object. | |
632 | */ | |
633 | temp_desc = operand[0]; | |
4be44fcd LB |
634 | if (ACPI_GET_DESCRIPTOR_TYPE(temp_desc) == |
635 | ACPI_DESC_TYPE_OPERAND) { | |
52fc0b02 | 636 | |
1da177e4 LT |
637 | /* Internal reference object - prevent deletion */ |
638 | ||
4be44fcd | 639 | acpi_ut_add_reference(temp_desc); |
1da177e4 LT |
640 | } |
641 | ||
642 | /* | |
643 | * Convert the Reference operand to an Integer (This removes a | |
644 | * reference on the Operand[0] object) | |
645 | * | |
646 | * NOTE: We use LNOT_OP here in order to force resolution of the | |
647 | * reference operand to an actual integer. | |
648 | */ | |
4be44fcd LB |
649 | status = |
650 | acpi_ex_resolve_operands(AML_LNOT_OP, &temp_desc, | |
651 | walk_state); | |
652 | if (ACPI_FAILURE(status)) { | |
b8e4d893 BM |
653 | ACPI_EXCEPTION((AE_INFO, status, |
654 | "While resolving operands for [%s]", | |
655 | acpi_ps_get_opcode_name(walk_state-> | |
656 | opcode))); | |
1da177e4 LT |
657 | |
658 | goto cleanup; | |
659 | } | |
660 | ||
661 | /* | |
662 | * temp_desc is now guaranteed to be an Integer object -- | |
663 | * Perform the actual increment or decrement | |
664 | */ | |
665 | if (walk_state->opcode == AML_INCREMENT_OP) { | |
4be44fcd LB |
666 | return_desc->integer.value = |
667 | temp_desc->integer.value + 1; | |
668 | } else { | |
669 | return_desc->integer.value = | |
670 | temp_desc->integer.value - 1; | |
1da177e4 LT |
671 | } |
672 | ||
673 | /* Finished with this Integer object */ | |
674 | ||
4be44fcd | 675 | acpi_ut_remove_reference(temp_desc); |
1da177e4 LT |
676 | |
677 | /* | |
678 | * Store the result back (indirectly) through the original | |
679 | * Reference object | |
680 | */ | |
4be44fcd | 681 | status = acpi_ex_store(return_desc, operand[0], walk_state); |
1da177e4 LT |
682 | break; |
683 | ||
4be44fcd | 684 | case AML_TYPE_OP: /* object_type (source_object) */ |
1da177e4 LT |
685 | |
686 | /* | |
687 | * Note: The operand is not resolved at this point because we want to | |
73a3090a | 688 | * get the associated object, not its value. For example, we don't |
44f6c012 RM |
689 | * want to resolve a field_unit to its value, we want the actual |
690 | * field_unit object. | |
1da177e4 LT |
691 | */ |
692 | ||
693 | /* Get the type of the base object */ | |
694 | ||
4be44fcd LB |
695 | status = |
696 | acpi_ex_resolve_multiple(walk_state, operand[0], &type, | |
697 | NULL); | |
698 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
699 | goto cleanup; |
700 | } | |
4c90ece2 | 701 | |
1da177e4 LT |
702 | /* Allocate a descriptor to hold the type. */ |
703 | ||
dc95a270 | 704 | return_desc = acpi_ut_create_integer_object((u64) type); |
1da177e4 LT |
705 | if (!return_desc) { |
706 | status = AE_NO_MEMORY; | |
707 | goto cleanup; | |
708 | } | |
1da177e4 LT |
709 | break; |
710 | ||
4be44fcd | 711 | case AML_SIZE_OF_OP: /* size_of (source_object) */ |
1da177e4 LT |
712 | |
713 | /* | |
714 | * Note: The operand is not resolved at this point because we want to | |
715 | * get the associated object, not its value. | |
716 | */ | |
717 | ||
718 | /* Get the base object */ | |
719 | ||
4be44fcd LB |
720 | status = acpi_ex_resolve_multiple(walk_state, |
721 | operand[0], &type, | |
722 | &temp_desc); | |
723 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
724 | goto cleanup; |
725 | } | |
726 | ||
727 | /* | |
728 | * The type of the base object must be integer, buffer, string, or | |
73a3090a | 729 | * package. All others are not supported. |
1da177e4 LT |
730 | * |
731 | * NOTE: Integer is not specifically supported by the ACPI spec, | |
732 | * but is supported implicitly via implicit operand conversion. | |
733 | * rather than bother with conversion, we just use the byte width | |
734 | * global (4 or 8 bytes). | |
735 | */ | |
736 | switch (type) { | |
737 | case ACPI_TYPE_INTEGER: | |
738 | value = acpi_gbl_integer_byte_width; | |
739 | break; | |
740 | ||
1da177e4 LT |
741 | case ACPI_TYPE_STRING: |
742 | value = temp_desc->string.length; | |
743 | break; | |
744 | ||
8246934b LM |
745 | case ACPI_TYPE_BUFFER: |
746 | ||
747 | /* Buffer arguments may not be evaluated at this point */ | |
748 | ||
749 | status = acpi_ds_get_buffer_arguments(temp_desc); | |
750 | value = temp_desc->buffer.length; | |
751 | break; | |
752 | ||
1da177e4 | 753 | case ACPI_TYPE_PACKAGE: |
8246934b LM |
754 | |
755 | /* Package arguments may not be evaluated at this point */ | |
756 | ||
757 | status = acpi_ds_get_package_arguments(temp_desc); | |
1da177e4 LT |
758 | value = temp_desc->package.count; |
759 | break; | |
760 | ||
761 | default: | |
b8e4d893 | 762 | ACPI_ERROR((AE_INFO, |
8246934b | 763 | "Operand must be Buffer/Integer/String/Package - found type %s", |
b8e4d893 | 764 | acpi_ut_get_type_name(type))); |
1da177e4 LT |
765 | status = AE_AML_OPERAND_TYPE; |
766 | goto cleanup; | |
767 | } | |
768 | ||
8246934b LM |
769 | if (ACPI_FAILURE(status)) { |
770 | goto cleanup; | |
771 | } | |
772 | ||
1da177e4 LT |
773 | /* |
774 | * Now that we have the size of the object, create a result | |
775 | * object to hold the value | |
776 | */ | |
dc95a270 | 777 | return_desc = acpi_ut_create_integer_object(value); |
1da177e4 LT |
778 | if (!return_desc) { |
779 | status = AE_NO_MEMORY; | |
780 | goto cleanup; | |
781 | } | |
1da177e4 LT |
782 | break; |
783 | ||
4be44fcd | 784 | case AML_REF_OF_OP: /* ref_of (source_object) */ |
1da177e4 | 785 | |
4be44fcd LB |
786 | status = |
787 | acpi_ex_get_object_reference(operand[0], &return_desc, | |
788 | walk_state); | |
789 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
790 | goto cleanup; |
791 | } | |
792 | break; | |
793 | ||
4be44fcd | 794 | case AML_DEREF_OF_OP: /* deref_of (obj_reference | String) */ |
1da177e4 LT |
795 | |
796 | /* Check for a method local or argument, or standalone String */ | |
797 | ||
52fc0b02 | 798 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) == |
4be44fcd | 799 | ACPI_DESC_TYPE_NAMED) { |
52fc0b02 BM |
800 | temp_desc = |
801 | acpi_ns_get_attached_object((struct | |
802 | acpi_namespace_node *) | |
803 | operand[0]); | |
804 | if (temp_desc | |
3371c19c BM |
805 | && ((temp_desc->common.type == ACPI_TYPE_STRING) |
806 | || (temp_desc->common.type == | |
807 | ACPI_TYPE_LOCAL_REFERENCE))) { | |
52fc0b02 BM |
808 | operand[0] = temp_desc; |
809 | acpi_ut_add_reference(temp_desc); | |
810 | } else { | |
811 | status = AE_AML_OPERAND_TYPE; | |
812 | goto cleanup; | |
813 | } | |
814 | } else { | |
3371c19c | 815 | switch ((operand[0])->common.type) { |
1da177e4 LT |
816 | case ACPI_TYPE_LOCAL_REFERENCE: |
817 | /* | |
818 | * This is a deref_of (local_x | arg_x) | |
819 | * | |
820 | * Must resolve/dereference the local/arg reference first | |
821 | */ | |
1044f1f6 BM |
822 | switch (operand[0]->reference.class) { |
823 | case ACPI_REFCLASS_LOCAL: | |
824 | case ACPI_REFCLASS_ARG: | |
1da177e4 LT |
825 | |
826 | /* Set Operand[0] to the value of the local/arg */ | |
827 | ||
4be44fcd LB |
828 | status = |
829 | acpi_ds_method_data_get_value | |
1044f1f6 BM |
830 | (operand[0]->reference.class, |
831 | operand[0]->reference.value, | |
4be44fcd LB |
832 | walk_state, &temp_desc); |
833 | if (ACPI_FAILURE(status)) { | |
1da177e4 LT |
834 | goto cleanup; |
835 | } | |
836 | ||
837 | /* | |
838 | * Delete our reference to the input object and | |
839 | * point to the object just retrieved | |
840 | */ | |
4be44fcd | 841 | acpi_ut_remove_reference(operand[0]); |
1da177e4 LT |
842 | operand[0] = temp_desc; |
843 | break; | |
844 | ||
1044f1f6 | 845 | case ACPI_REFCLASS_REFOF: |
1da177e4 LT |
846 | |
847 | /* Get the object to which the reference refers */ | |
848 | ||
4be44fcd LB |
849 | temp_desc = |
850 | operand[0]->reference.object; | |
851 | acpi_ut_remove_reference(operand[0]); | |
1da177e4 LT |
852 | operand[0] = temp_desc; |
853 | break; | |
854 | ||
855 | default: | |
856 | ||
857 | /* Must be an Index op - handled below */ | |
858 | break; | |
859 | } | |
860 | break; | |
861 | ||
1da177e4 | 862 | case ACPI_TYPE_STRING: |
52fc0b02 | 863 | break; |
1da177e4 | 864 | |
52fc0b02 BM |
865 | default: |
866 | status = AE_AML_OPERAND_TYPE; | |
867 | goto cleanup; | |
868 | } | |
869 | } | |
870 | ||
871 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) != | |
872 | ACPI_DESC_TYPE_NAMED) { | |
3371c19c | 873 | if ((operand[0])->common.type == ACPI_TYPE_STRING) { |
1da177e4 | 874 | /* |
44f6c012 RM |
875 | * This is a deref_of (String). The string is a reference |
876 | * to a named ACPI object. | |
1da177e4 LT |
877 | * |
878 | * 1) Find the owning Node | |
52fc0b02 | 879 | * 2) Dereference the node to an actual object. Could be a |
44f6c012 | 880 | * Field, so we need to resolve the node to a value. |
1da177e4 | 881 | */ |
4be44fcd | 882 | status = |
4119532c BM |
883 | acpi_ns_get_node(walk_state->scope_info-> |
884 | scope.node, | |
885 | operand[0]->string.pointer, | |
886 | ACPI_NS_SEARCH_PARENT, | |
887 | ACPI_CAST_INDIRECT_PTR | |
888 | (struct | |
889 | acpi_namespace_node, | |
890 | &return_desc)); | |
4be44fcd | 891 | if (ACPI_FAILURE(status)) { |
1da177e4 LT |
892 | goto cleanup; |
893 | } | |
894 | ||
4be44fcd LB |
895 | status = |
896 | acpi_ex_resolve_node_to_value | |
897 | (ACPI_CAST_INDIRECT_PTR | |
898 | (struct acpi_namespace_node, &return_desc), | |
899 | walk_state); | |
1da177e4 | 900 | goto cleanup; |
1da177e4 LT |
901 | } |
902 | } | |
903 | ||
904 | /* Operand[0] may have changed from the code above */ | |
905 | ||
4be44fcd LB |
906 | if (ACPI_GET_DESCRIPTOR_TYPE(operand[0]) == |
907 | ACPI_DESC_TYPE_NAMED) { | |
1da177e4 LT |
908 | /* |
909 | * This is a deref_of (object_reference) | |
910 | * Get the actual object from the Node (This is the dereference). | |
44f6c012 RM |
911 | * This case may only happen when a local_x or arg_x is |
912 | * dereferenced above. | |
1da177e4 | 913 | */ |
4be44fcd LB |
914 | return_desc = acpi_ns_get_attached_object((struct |
915 | acpi_namespace_node | |
916 | *) | |
917 | operand[0]); | |
918 | acpi_ut_add_reference(return_desc); | |
919 | } else { | |
1da177e4 | 920 | /* |
44f6c012 RM |
921 | * This must be a reference object produced by either the |
922 | * Index() or ref_of() operator | |
1da177e4 | 923 | */ |
1044f1f6 BM |
924 | switch (operand[0]->reference.class) { |
925 | case ACPI_REFCLASS_INDEX: | |
1da177e4 LT |
926 | |
927 | /* | |
928 | * The target type for the Index operator must be | |
929 | * either a Buffer or a Package | |
930 | */ | |
931 | switch (operand[0]->reference.target_type) { | |
932 | case ACPI_TYPE_BUFFER_FIELD: | |
933 | ||
4be44fcd LB |
934 | temp_desc = |
935 | operand[0]->reference.object; | |
1da177e4 LT |
936 | |
937 | /* | |
938 | * Create a new object that contains one element of the | |
939 | * buffer -- the element pointed to by the index. | |
940 | * | |
941 | * NOTE: index into a buffer is NOT a pointer to a | |
942 | * sub-buffer of the main buffer, it is only a pointer to a | |
943 | * single element (byte) of the buffer! | |
dc95a270 BM |
944 | * |
945 | * Since we are returning the value of the buffer at the | |
946 | * indexed location, we don't need to add an additional | |
947 | * reference to the buffer itself. | |
1da177e4 | 948 | */ |
4be44fcd | 949 | return_desc = |
dc95a270 | 950 | acpi_ut_create_integer_object((u64) |
3e8214e5 | 951 | temp_desc->buffer.pointer[operand[0]->reference.value]); |
1da177e4 LT |
952 | if (!return_desc) { |
953 | status = AE_NO_MEMORY; | |
954 | goto cleanup; | |
955 | } | |
1da177e4 LT |
956 | break; |
957 | ||
1da177e4 LT |
958 | case ACPI_TYPE_PACKAGE: |
959 | ||
960 | /* | |
73a3090a | 961 | * Return the referenced element of the package. We must |
44f6c012 | 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 | 969 | } |
1da177e4 LT |
970 | break; |
971 | ||
1da177e4 LT |
972 | default: |
973 | ||
b8e4d893 | 974 | ACPI_ERROR((AE_INFO, |
f6a22b0b | 975 | "Unknown Index TargetType 0x%X in reference object %p", |
b8e4d893 BM |
976 | operand[0]->reference. |
977 | target_type, operand[0])); | |
1da177e4 LT |
978 | status = AE_AML_OPERAND_TYPE; |
979 | goto cleanup; | |
980 | } | |
981 | break; | |
982 | ||
1044f1f6 | 983 | case ACPI_REFCLASS_REFOF: |
1da177e4 LT |
984 | |
985 | return_desc = operand[0]->reference.object; | |
986 | ||
4be44fcd LB |
987 | if (ACPI_GET_DESCRIPTOR_TYPE(return_desc) == |
988 | ACPI_DESC_TYPE_NAMED) { | |
4be44fcd LB |
989 | return_desc = |
990 | acpi_ns_get_attached_object((struct | |
991 | acpi_namespace_node | |
992 | *) | |
993 | return_desc); | |
1da177e4 LT |
994 | } |
995 | ||
996 | /* Add another reference to the object! */ | |
997 | ||
4be44fcd | 998 | acpi_ut_add_reference(return_desc); |
1da177e4 LT |
999 | break; |
1000 | ||
1da177e4 | 1001 | default: |
b8e4d893 | 1002 | ACPI_ERROR((AE_INFO, |
f6a22b0b | 1003 | "Unknown class in reference(%p) - 0x%2.2X", |
b8e4d893 | 1004 | operand[0], |
1044f1f6 | 1005 | operand[0]->reference.class)); |
1da177e4 LT |
1006 | |
1007 | status = AE_TYPE; | |
1008 | goto cleanup; | |
1009 | } | |
1010 | } | |
1011 | break; | |
1012 | ||
1da177e4 LT |
1013 | default: |
1014 | ||
f6a22b0b | 1015 | ACPI_ERROR((AE_INFO, "Unknown AML opcode 0x%X", |
b8e4d893 | 1016 | walk_state->opcode)); |
1da177e4 LT |
1017 | status = AE_AML_BAD_OPCODE; |
1018 | goto cleanup; | |
1019 | } | |
1020 | ||
4be44fcd | 1021 | cleanup: |
1da177e4 LT |
1022 | |
1023 | /* Delete return object on error */ | |
1024 | ||
4be44fcd LB |
1025 | if (ACPI_FAILURE(status)) { |
1026 | acpi_ut_remove_reference(return_desc); | |
1da177e4 LT |
1027 | } |
1028 | ||
8313524a BM |
1029 | /* Save return object on success */ |
1030 | ||
1031 | else { | |
1032 | walk_state->result_obj = return_desc; | |
1033 | } | |
1034 | ||
4be44fcd | 1035 | return_ACPI_STATUS(status); |
1da177e4 | 1036 | } |