From 92ccd189e7cb55c1e5d34a6d8a337e9889f628b3 Mon Sep 17 00:00:00 2001 From: kamkow1 Date: Sun, 17 Aug 2025 18:37:57 +0200 Subject: [PATCH] Integrate uACPI --- kernel/Makefile | 13 +- kernel/arch/x86_64/x86_64.mk | 2 +- kernel/compiler/builtins.h | 6 + kernel/hal/hal.h | 1 + kernel/hal/x86_64/acpi.c | 32 + kernel/hal/x86_64/acpi.h | 6 + kernel/hal/x86_64/hal.c | 6 +- kernel/hal/x86_64/io.S | 13 - kernel/hal/x86_64/io.c | 28 + kernel/hal/x86_64/io.h | 12 +- kernel/hal/x86_64/port-uACPI/port-uACPI.c | 45 + kernel/hal/x86_64/serial.c | 30 +- .../x86_64/uACPI/.github/workflows/main.yml | 81 + kernel/hal/x86_64/uACPI/.gitignore | 9 + kernel/hal/x86_64/uACPI/LICENSE | 21 + kernel/hal/x86_64/uACPI/README.md | 399 ++ kernel/hal/x86_64/uACPI/include/uacpi/acpi.h | 1430 ++++ .../hal/x86_64/uACPI/include/uacpi/context.h | 53 + kernel/hal/x86_64/uACPI/include/uacpi/event.h | 286 + .../hal/x86_64/uACPI/include/uacpi/helpers.h | 12 + .../uACPI/include/uacpi/internal/compiler.h | 3 + .../uACPI/include/uacpi/internal/context.h | 155 + .../include/uacpi/internal/dynamic_array.h | 185 + .../uACPI/include/uacpi/internal/event.h | 25 + .../uACPI/include/uacpi/internal/helpers.h | 7 + .../include/uacpi/internal/interpreter.h | 24 + .../x86_64/uACPI/include/uacpi/internal/io.h | 77 + .../x86_64/uACPI/include/uacpi/internal/log.h | 23 + .../uACPI/include/uacpi/internal/mutex.h | 82 + .../uACPI/include/uacpi/internal/namespace.h | 123 + .../uACPI/include/uacpi/internal/notify.h | 13 + .../uACPI/include/uacpi/internal/opcodes.h | 1390 ++++ .../uACPI/include/uacpi/internal/opregion.h | 49 + .../x86_64/uACPI/include/uacpi/internal/osi.h | 8 + .../uACPI/include/uacpi/internal/registers.h | 7 + .../uACPI/include/uacpi/internal/resources.h | 327 + .../uACPI/include/uacpi/internal/shareable.h | 21 + .../uACPI/include/uacpi/internal/stdlib.h | 128 + .../uACPI/include/uacpi/internal/tables.h | 70 + .../uACPI/include/uacpi/internal/types.h | 310 + .../uACPI/include/uacpi/internal/utilities.h | 45 + kernel/hal/x86_64/uACPI/include/uacpi/io.h | 36 + .../x86_64/uACPI/include/uacpi/kernel_api.h | 375 + kernel/hal/x86_64/uACPI/include/uacpi/log.h | 40 + .../x86_64/uACPI/include/uacpi/namespace.h | 186 + .../hal/x86_64/uACPI/include/uacpi/notify.h | 30 + .../hal/x86_64/uACPI/include/uacpi/opregion.h | 47 + kernel/hal/x86_64/uACPI/include/uacpi/osi.h | 125 + .../include/uacpi/platform/arch_helpers.h | 38 + .../uACPI/include/uacpi/platform/atomic.h | 347 + .../uACPI/include/uacpi/platform/compiler.h | 125 + .../uACPI/include/uacpi/platform/config.h | 162 + .../uACPI/include/uacpi/platform/libc.h | 28 + .../uACPI/include/uacpi/platform/types.h | 64 + .../x86_64/uACPI/include/uacpi/registers.h | 105 + .../x86_64/uACPI/include/uacpi/resources.h | 759 ++ kernel/hal/x86_64/uACPI/include/uacpi/sleep.h | 67 + .../hal/x86_64/uACPI/include/uacpi/status.h | 57 + .../hal/x86_64/uACPI/include/uacpi/tables.h | 141 + kernel/hal/x86_64/uACPI/include/uacpi/types.h | 544 ++ kernel/hal/x86_64/uACPI/include/uacpi/uacpi.h | 269 + .../x86_64/uACPI/include/uacpi/utilities.h | 192 + kernel/hal/x86_64/uACPI/meson.build | 25 + .../x86_64/uACPI/source/default_handlers.c | 336 + kernel/hal/x86_64/uACPI/source/event.c | 2449 +++++++ kernel/hal/x86_64/uACPI/source/files.cmake | 21 + kernel/hal/x86_64/uACPI/source/interpreter.c | 6098 +++++++++++++++++ kernel/hal/x86_64/uACPI/source/io.c | 1116 +++ kernel/hal/x86_64/uACPI/source/mutex.c | 396 ++ kernel/hal/x86_64/uACPI/source/namespace.c | 1081 +++ kernel/hal/x86_64/uACPI/source/notify.c | 255 + kernel/hal/x86_64/uACPI/source/opcodes.c | 265 + kernel/hal/x86_64/uACPI/source/opregion.c | 1056 +++ kernel/hal/x86_64/uACPI/source/osi.c | 388 ++ kernel/hal/x86_64/uACPI/source/registers.c | 572 ++ kernel/hal/x86_64/uACPI/source/resources.c | 2569 +++++++ kernel/hal/x86_64/uACPI/source/shareable.c | 71 + kernel/hal/x86_64/uACPI/source/sleep.c | 616 ++ kernel/hal/x86_64/uACPI/source/stdlib.c | 728 ++ kernel/hal/x86_64/uACPI/source/tables.c | 1400 ++++ kernel/hal/x86_64/uACPI/source/types.c | 1489 ++++ kernel/hal/x86_64/uACPI/source/uacpi.c | 998 +++ kernel/hal/x86_64/uACPI/source/utilities.c | 1156 ++++ .../tests/generated_test_cases/__init__.py | 0 .../generated_test_cases/buffer_field.py | 255 + kernel/hal/x86_64/uACPI/tests/run_tests.py | 476 ++ .../hal/x86_64/uACPI/tests/runner/.gitignore | 1 + .../x86_64/uACPI/tests/runner/CMakeLists.txt | 168 + .../hal/x86_64/uACPI/tests/runner/api_tests.c | 475 ++ .../hal/x86_64/uACPI/tests/runner/argparser.h | 219 + .../uACPI/tests/runner/barebones_runner.c | 170 + .../hal/x86_64/uACPI/tests/runner/helpers.c | 237 + .../hal/x86_64/uACPI/tests/runner/helpers.h | 294 + .../uACPI/tests/runner/interface_impl.c | 605 ++ kernel/hal/x86_64/uACPI/tests/runner/os.h | 290 + .../uACPI/tests/runner/resource_tests.c | 2476 +++++++ .../x86_64/uACPI/tests/runner/test_runner.c | 570 ++ .../tests/test-cases/address-spaces-work.asl | 415 ++ .../tests/test-cases/complex-package.asl | 71 + .../uACPI/tests/test-cases/concat-res.asl | 127 + .../uACPI/tests/test-cases/copy-a-method.asl | 34 + .../tests/test-cases/copy-object-opregion.asl | 70 + .../tests/test-cases/copy-object-self.asl | 27 + .../test-cases/copy-object-to-predefined.asl | 31 + .../tests/test-cases/duplicate-named.asl | 84 + .../uACPI/tests/test-cases/empty-objects.asl | 21 + .../eval-supports-plain-objects.asl | 7 + .../x86_64/uACPI/tests/test-cases/event.asl | 31 + .../uACPI/tests/test-cases/global-lock.asl | 48 + .../uACPI/tests/test-cases/hanging-while.asl | 24 + .../tests/test-cases/increment-fields.asl | 60 + .../uACPI/tests/test-cases/indices-0.asl | 39 + .../uACPI/tests/test-cases/indices-1.asl | 52 + .../uACPI/tests/test-cases/indices-2.asl | 50 + .../tests/test-cases/infinite-recursion.asl | 22 + .../x86_64/uACPI/tests/test-cases/local0.asl | 12 + .../uACPI/tests/test-cases/local0_string.asl | 11 + .../uACPI/tests/test-cases/method-calls.asl | 61 + .../uACPI/tests/test-cases/multilevel_ref.asl | 34 + .../x86_64/uACPI/tests/test-cases/mutex-1.asl | 55 + .../x86_64/uACPI/tests/test-cases/mutex-2.asl | 64 + .../x86_64/uACPI/tests/test-cases/mutex-3.asl | 37 + .../test-cases/notifications-and-requests.asl | 25 + .../tests/test-cases/object-api-works.asl | 80 + .../hal/x86_64/uACPI/tests/test-cases/osi.asl | 81 + .../test-cases/read-from-deleted-field.asl | 40 + .../tests/test-cases/ref_modify_indirect.asl | 14 + .../test-cases/ref_modify_via_method_call.asl | 19 + .../uACPI/tests/test-cases/references-0.asl | 17 + .../uACPI/tests/test-cases/references-1.asl | 17 + .../uACPI/tests/test-cases/references-10.asl | 24 + .../uACPI/tests/test-cases/references-3.asl | 23 + .../uACPI/tests/test-cases/references-4.asl | 18 + .../uACPI/tests/test-cases/references-5.asl | 21 + .../uACPI/tests/test-cases/references-6.asl | 18 + .../uACPI/tests/test-cases/references-7.asl | 25 + .../uACPI/tests/test-cases/references-8.asl | 18 + .../uACPI/tests/test-cases/references-9.asl | 18 + .../uACPI/tests/test-cases/reg-devices.asl | 147 + .../tests/test-cases/return0_indirect.asl | 15 + .../tests/test-cases/return1_using_ifs.asl | 32 + .../return_0xdead_double_indirect.asl | 20 + .../uACPI/tests/test-cases/return_byte.asl | 10 + .../uACPI/tests/test-cases/return_dword.asl | 10 + .../uACPI/tests/test-cases/return_qword.asl | 10 + .../uACPI/tests/test-cases/return_word.asl | 10 + .../x86_64/uACPI/tests/test-cases/scope.asl | 32 + .../x86_64/uACPI/tests/test-cases/sleep.asl | 50 + .../tests/test-cases/store-copies-buffer.asl | 26 + .../tests/test-cases/table-loading-0.asl | 61 + .../tests/test-cases/table-loading-1.asl | 76 + .../tests/test-cases/table-loading-2.asl | 113 + .../tests/test-cases/table-loading-3.asl | 106 + .../tests/test-cases/table-loading-4.asl | 124 + .../tests/test-cases/table-loading-5.asl | 64 + .../tests/test-cases/table-overrides.asl | 70 + .../uACPI/tests/test-cases/to-integer.asl | 113 + .../x86_64/uACPI/tests/test-cases/to-x.asl | 99 + .../tests/test-cases/unresolved-paths.asl | 30 + .../uACPI/tests/test-cases/while-break.asl | 24 + .../uACPI/tests/test-cases/while-continue.asl | 25 + .../uACPI/tests/test-cases/while-dec-inc.asl | 20 + .../x86_64/uACPI/tests/utilities/__init__.py | 0 .../hal/x86_64/uACPI/tests/utilities/asl.py | 217 + kernel/hal/x86_64/uACPI/uacpi.cmake | 34 + kernel/kmain.c | 39 + 166 files changed, 42104 insertions(+), 33 deletions(-) create mode 100644 kernel/compiler/builtins.h create mode 100644 kernel/hal/x86_64/acpi.c create mode 100644 kernel/hal/x86_64/acpi.h delete mode 100644 kernel/hal/x86_64/io.S create mode 100644 kernel/hal/x86_64/io.c create mode 100644 kernel/hal/x86_64/port-uACPI/port-uACPI.c create mode 100644 kernel/hal/x86_64/uACPI/.github/workflows/main.yml create mode 100644 kernel/hal/x86_64/uACPI/.gitignore create mode 100644 kernel/hal/x86_64/uACPI/LICENSE create mode 100644 kernel/hal/x86_64/uACPI/README.md create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/acpi.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/context.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/event.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/helpers.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/compiler.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/context.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/dynamic_array.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/event.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/helpers.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/interpreter.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/io.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/log.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/mutex.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/namespace.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/notify.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/opcodes.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/opregion.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/osi.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/registers.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/resources.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/shareable.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/stdlib.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/tables.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/types.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/internal/utilities.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/io.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/kernel_api.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/log.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/namespace.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/notify.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/opregion.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/osi.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/platform/arch_helpers.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/platform/atomic.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/platform/compiler.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/platform/config.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/platform/libc.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/platform/types.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/registers.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/resources.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/sleep.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/status.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/tables.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/types.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/uacpi.h create mode 100644 kernel/hal/x86_64/uACPI/include/uacpi/utilities.h create mode 100644 kernel/hal/x86_64/uACPI/meson.build create mode 100644 kernel/hal/x86_64/uACPI/source/default_handlers.c create mode 100644 kernel/hal/x86_64/uACPI/source/event.c create mode 100644 kernel/hal/x86_64/uACPI/source/files.cmake create mode 100644 kernel/hal/x86_64/uACPI/source/interpreter.c create mode 100644 kernel/hal/x86_64/uACPI/source/io.c create mode 100644 kernel/hal/x86_64/uACPI/source/mutex.c create mode 100644 kernel/hal/x86_64/uACPI/source/namespace.c create mode 100644 kernel/hal/x86_64/uACPI/source/notify.c create mode 100644 kernel/hal/x86_64/uACPI/source/opcodes.c create mode 100644 kernel/hal/x86_64/uACPI/source/opregion.c create mode 100644 kernel/hal/x86_64/uACPI/source/osi.c create mode 100644 kernel/hal/x86_64/uACPI/source/registers.c create mode 100644 kernel/hal/x86_64/uACPI/source/resources.c create mode 100644 kernel/hal/x86_64/uACPI/source/shareable.c create mode 100644 kernel/hal/x86_64/uACPI/source/sleep.c create mode 100644 kernel/hal/x86_64/uACPI/source/stdlib.c create mode 100644 kernel/hal/x86_64/uACPI/source/tables.c create mode 100644 kernel/hal/x86_64/uACPI/source/types.c create mode 100644 kernel/hal/x86_64/uACPI/source/uacpi.c create mode 100644 kernel/hal/x86_64/uACPI/source/utilities.c create mode 100644 kernel/hal/x86_64/uACPI/tests/generated_test_cases/__init__.py create mode 100644 kernel/hal/x86_64/uACPI/tests/generated_test_cases/buffer_field.py create mode 100755 kernel/hal/x86_64/uACPI/tests/run_tests.py create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/.gitignore create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/CMakeLists.txt create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/api_tests.c create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/argparser.h create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/barebones_runner.c create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/helpers.c create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/helpers.h create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/interface_impl.c create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/os.h create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/resource_tests.c create mode 100644 kernel/hal/x86_64/uACPI/tests/runner/test_runner.c create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/address-spaces-work.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/complex-package.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/concat-res.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/copy-a-method.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-opregion.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-self.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-to-predefined.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/duplicate-named.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/empty-objects.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/eval-supports-plain-objects.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/event.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/global-lock.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/hanging-while.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/increment-fields.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/indices-0.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/indices-1.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/indices-2.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/infinite-recursion.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/local0.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/local0_string.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/method-calls.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/multilevel_ref.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/mutex-1.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/mutex-2.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/mutex-3.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/notifications-and-requests.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/object-api-works.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/osi.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/read-from-deleted-field.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_indirect.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_via_method_call.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-0.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-1.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-10.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-3.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-4.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-5.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-6.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-7.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-8.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/references-9.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/reg-devices.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/return0_indirect.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/return1_using_ifs.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/return_0xdead_double_indirect.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/return_byte.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/return_dword.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/return_qword.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/return_word.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/scope.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/sleep.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/store-copies-buffer.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-0.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-1.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-2.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-3.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-4.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-5.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/table-overrides.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/to-integer.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/to-x.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/unresolved-paths.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/while-break.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/while-continue.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/test-cases/while-dec-inc.asl create mode 100644 kernel/hal/x86_64/uACPI/tests/utilities/__init__.py create mode 100644 kernel/hal/x86_64/uACPI/tests/utilities/asl.py create mode 100644 kernel/hal/x86_64/uACPI/uacpi.cmake diff --git a/kernel/Makefile b/kernel/Makefile index 9553835..7bf1df2 100644 --- a/kernel/Makefile +++ b/kernel/Makefile @@ -13,7 +13,12 @@ CFLAGS += -I. \ -DLFS_NO_ASSERT \ -DLFS_NO_DEBUG \ -DLFS_NO_WARN \ - -DLFS_NO_ERROR + -DLFS_NO_ERROR \ + -DUACPI_BAREBONES_MODE + +ifeq ($(ARCH),x86_64) +CFLAGS += -I./hal/x86_64/uACPI/include +endif ifeq ($(PUTCHAR_),fb) CFLAGS += -DPUTCHAR_=PUTCHAR_FB @@ -51,6 +56,12 @@ SRCFILES := $(wildcard *.c) \ $(wildcard std/*.c) \ $(wildcard flanterm/src/*.c) \ $(wildcard flanterm/src/flanterm_backends/*.c) + +ifeq ($(ARCH),x86_64) +SRCFILES += $(wildcard hal/x86_64/uACPI/source/*.c) +SRCFILES += $(wildcard hal/x86_64/port-uACPI/*.c) +endif + CFILES := $(filter %.c,$(SRCFILES)) ASFILES := $(filter %.S,$(SRCFILES)) OBJ := $(patsubst %.c,%.o,$(CFILES)) $(patsubst %.S,%.o,$(ASFILES)) diff --git a/kernel/arch/x86_64/x86_64.mk b/kernel/arch/x86_64/x86_64.mk index a739029..bec49ac 100644 --- a/kernel/arch/x86_64/x86_64.mk +++ b/kernel/arch/x86_64/x86_64.mk @@ -12,7 +12,7 @@ CFLAGS += -m64 \ -mno-red-zone \ -fno-stack-protector \ -fno-stack-check \ - -fno-lto + -Os \ LDFLAGS += -m elf_x86_64 \ -pie \ diff --git a/kernel/compiler/builtins.h b/kernel/compiler/builtins.h new file mode 100644 index 0000000..26a1c4c --- /dev/null +++ b/kernel/compiler/builtins.h @@ -0,0 +1,6 @@ +#ifndef COMPILER_BUILTINS_H_ +#define COMPILER_BUILTINS_H_ + +#define unreachable() __builtin_unreachable() + +#endif // COMPILER_BUILTINS_H_ diff --git a/kernel/hal/hal.h b/kernel/hal/hal.h index 27e46b0..d6b4034 100644 --- a/kernel/hal/hal.h +++ b/kernel/hal/hal.h @@ -18,6 +18,7 @@ size_t hal_strcspn(const char *s, const char *reject); size_t hal_strspn(const char *s, const char *accept); char *hal_strcpy(char *dest, const char *src); char *hal_strchr(const char *s, int c); +void hal_init_withmalloc(void); #if defined(__x86_64__) # define HAL_PAGE_SIZE 0x1000 diff --git a/kernel/hal/x86_64/acpi.c b/kernel/hal/x86_64/acpi.c new file mode 100644 index 0000000..d928f1e --- /dev/null +++ b/kernel/hal/x86_64/acpi.c @@ -0,0 +1,32 @@ +#include +#include +#include "uacpi/uacpi.h" +#include "uacpi/utilities.h" +#include "hal/hal.h" +#include "kprintf.h" +#include "dlmalloc/malloc.h" + +#define PREINIT_BUFFER_SIZE 0x1000 + +void acpi_init(void) { + uacpi_status ret; + + void *preinit_buffer = dlmalloc(PREINIT_BUFFER_SIZE); + ret = uacpi_setup_early_table_access(preinit_buffer, PREINIT_BUFFER_SIZE); + if (uacpi_unlikely_error(ret)) { + ERR("acpi", "init err %s\n", uacpi_status_to_string(ret)); + hal_hang(); + } + + /* if (uacpi_unlikely_error(ret)) { */ + /* ERR("acpi", "init err %s\n", uacpi_status_to_string(ret)); */ + /* hal_hang(); */ + /* } */ + + /* if (uacpi_unlikely_error(ret)) { */ + /* ERR("acpi", "init err %s\n", uacpi_status_to_string(ret)); */ + /* hal_hang(); */ + /* } */ + + LOG("hal", "acpi init\n"); +} diff --git a/kernel/hal/x86_64/acpi.h b/kernel/hal/x86_64/acpi.h new file mode 100644 index 0000000..9e6181c --- /dev/null +++ b/kernel/hal/x86_64/acpi.h @@ -0,0 +1,6 @@ +#ifndef HAL_ACPI_H_ +#define HAL_ACPI_H_ + +void acpi_init(void); + +#endif // HAL_ACPI_H_ diff --git a/kernel/hal/x86_64/hal.c b/kernel/hal/x86_64/hal.c index 483586b..8b550eb 100644 --- a/kernel/hal/x86_64/hal.c +++ b/kernel/hal/x86_64/hal.c @@ -5,6 +5,7 @@ #include "serial.h" #include "gdt.h" #include "idt.h" +#include "acpi.h" void hal_init(void) { if (!serial_init()) { @@ -12,7 +13,6 @@ void hal_init(void) { } LOG("hal", "serial init\n"); gdt_init(); - idt_init(); } __attribute__((noreturn)) void hal_hang(void) { @@ -21,3 +21,7 @@ __attribute__((noreturn)) void hal_hang(void) { } } +void hal_init_withmalloc(void) { + acpi_init(); +} + diff --git a/kernel/hal/x86_64/io.S b/kernel/hal/x86_64/io.S deleted file mode 100644 index bb8e42e..0000000 --- a/kernel/hal/x86_64/io.S +++ /dev/null @@ -1,13 +0,0 @@ -.global io_outb -io_outb: - mov %di, %dx - mov %sil, %al - out %al, %dx - ret - -.global io_inb -io_inb: - mov %di, %dx - in %dx, %al - movzx %al, %rax - ret diff --git a/kernel/hal/x86_64/io.c b/kernel/hal/x86_64/io.c new file mode 100644 index 0000000..212941c --- /dev/null +++ b/kernel/hal/x86_64/io.c @@ -0,0 +1,28 @@ +#include + +uint8_t io_in8(uint16_t port) { + uint8_t r; + asm volatile("inb %1, %0" : "=a"(r) : "dN"(port)); + return r; +} +void io_out8(uint16_t port, uint8_t value) { + asm volatile("outb %1, %0" :: "dN"(port), "a"(value)); +} + +uint16_t io_in16(uint16_t port) { + uint16_t r; + asm volatile("in %%dx, %%ax" : "=a"(r) : "d"(port)); + return r; +} +void io_out16(uint16_t port, uint16_t value) { + asm volatile("out %%ax, %%dx" :: "a"(value), "d"(port)); +} + +uint32_t io_in32(uint16_t port) { + uint32_t r; + asm volatile("inl %%dx, %%eax" : "=a"(r) : "d"(port)); + return r; +} +void io_out32(uint16_t port, uint32_t value) { + asm volatile("outl %%eax, %%dx" :: "d"(port), "a"(value)); +} diff --git a/kernel/hal/x86_64/io.h b/kernel/hal/x86_64/io.h index 29eac71..cb00c11 100644 --- a/kernel/hal/x86_64/io.h +++ b/kernel/hal/x86_64/io.h @@ -1,7 +1,15 @@ #ifndef HAL_IO_H_ #define HAL_IO_H_ -extern uint8_t io_inb(uint16_t port); -extern void io_outb(uint16_t port, uint8_t value); +#include + +uint8_t io_in8(uint16_t port); +void io_out8(uint16_t port, uint8_t value); + +uint16_t io_in16(uint16_t port); +void io_out16(uint16_t port, uint16_t value); + +uint32_t io_in32(uint16_t port); +void io_out32(uint16_t port, uint32_t value); #endif // HAL_IO_H_ diff --git a/kernel/hal/x86_64/port-uACPI/port-uACPI.c b/kernel/hal/x86_64/port-uACPI/port-uACPI.c new file mode 100644 index 0000000..74471a0 --- /dev/null +++ b/kernel/hal/x86_64/port-uACPI/port-uACPI.c @@ -0,0 +1,45 @@ +#include "uacpi/uacpi.h" +#include "dlmalloc/malloc.h" +#include "bootinfo/bootinfo.h" +#include "hal/x86_64/io.h" +#include "kprintf.h" +#include "compiler/builtins.h" + +void *uacpi_kernel_alloc(uacpi_size size) { + return dlmalloc(size); +} + +void uacpi_kernel_free(void *ptr) { + return dlfree(ptr); +} + +void uacpi_kernel_log(uacpi_log_level lvl, const uacpi_char *s) { + char *t; + switch (lvl) { + case UACPI_LOG_DEBUG: t = "Debug"; break; + case UACPI_LOG_TRACE: t = "Trace"; break; + case UACPI_LOG_INFO: t = "Info"; break; + case UACPI_LOG_WARN: t = "Warn"; break; + case UACPI_LOG_ERROR: t = "Error"; break; + default: + unreachable(); + break; + } + LOG("uACPI", "[%s] %s", t, s); +} + +void *uacpi_kernel_map(uacpi_phys_addr addr, uacpi_size len) { + (void)len; + return (void *)(BOOT_INFO.hhdm_off + addr); +} + +void uacpi_kernel_unmap(void *addr, uacpi_size len) { + (void)addr; + (void)len; +} + +uacpi_status uacpi_kernel_get_rsdp(uacpi_phys_addr *out) { + *out = BOOT_INFO.rsdp; + return UACPI_STATUS_OK; +} + diff --git a/kernel/hal/x86_64/serial.c b/kernel/hal/x86_64/serial.c index 8c2bbe9..62a3211 100644 --- a/kernel/hal/x86_64/serial.c +++ b/kernel/hal/x86_64/serial.c @@ -6,40 +6,40 @@ #define SERIAL_PORT 0x3f8 static int serial_received(void) { - return io_inb(SERIAL_PORT + 5) & 1; + return io_in8(SERIAL_PORT + 5) & 1; } static uint8_t serial_read(void) { while (serial_received() == 0); - return io_inb(SERIAL_PORT); + return io_in8(SERIAL_PORT); } static int serial_trans_empty(void) { - return io_inb(SERIAL_PORT + 5) & 0x20; + return io_in8(SERIAL_PORT + 5) & 0x20; } static void serial_write(uint8_t value) { while (!serial_trans_empty()); - io_outb(SERIAL_PORT, value); + io_out8(SERIAL_PORT, value); } // REFERENCE: https://wiki.osdev.org/Serial_Ports bool serial_init(void) { - io_outb(SERIAL_PORT + 1, 0x00); - io_outb(SERIAL_PORT + 3, 0x80); - io_outb(SERIAL_PORT + 0, 0x03); - io_outb(SERIAL_PORT + 1, 0x00); - io_outb(SERIAL_PORT + 3, 0x03); - io_outb(SERIAL_PORT + 2, 0xc7); - io_outb(SERIAL_PORT + 4, 0x0b); - io_outb(SERIAL_PORT + 4, 0x1e); - io_outb(SERIAL_PORT + 0, 0xae); + io_out8(SERIAL_PORT + 1, 0x00); + io_out8(SERIAL_PORT + 3, 0x80); + io_out8(SERIAL_PORT + 0, 0x03); + io_out8(SERIAL_PORT + 1, 0x00); + io_out8(SERIAL_PORT + 3, 0x03); + io_out8(SERIAL_PORT + 2, 0xc7); + io_out8(SERIAL_PORT + 4, 0x0b); + io_out8(SERIAL_PORT + 4, 0x1e); + io_out8(SERIAL_PORT + 0, 0xae); - if (io_inb(SERIAL_PORT + 0) != 0xae) { + if (io_in8(SERIAL_PORT + 0) != 0xae) { return false; } - io_outb(SERIAL_PORT + 4, 0x0f); + io_out8(SERIAL_PORT + 4, 0x0f); return true; } diff --git a/kernel/hal/x86_64/uACPI/.github/workflows/main.yml b/kernel/hal/x86_64/uACPI/.github/workflows/main.yml new file mode 100644 index 0000000..d1448d1 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/.github/workflows/main.yml @@ -0,0 +1,81 @@ +name: CI +on: [push, pull_request] + +jobs: + lint-python-scripts: + runs-on: ubuntu-latest + + strategy: + fail-fast: true + + steps: + - uses: actions/checkout@v3 + + - name: Install flake8 & mypy + run: | + sudo apt update + sudo apt install python3 python3-pip + export PIP_BREAK_SYSTEM_PACKAGES=1 + pip install flake8 mypy + + - name: Run flake8 on the project + run: flake8 --ignore=E743 tests/*.py tests/utilities/*.py tests/generated_test_cases/*.py + + - name: Run mypy on the project + run: mypy --disallow-incomplete-defs --no-implicit-optional tests/*.py tests/utilities/*.py tests/generated_test_cases/*.py + build-and-run-tests: + runs-on: ${{ matrix.os }} + + strategy: + fail-fast: true + matrix: + os: [ubuntu-latest, macos-latest, windows-latest] + steps: + - uses: actions/checkout@v3 + with: + submodules: true + - if: ${{ matrix.os != 'macos-latest' }} + name: Set up OpenWatcom + uses: open-watcom/setup-watcom@v0 + with: + version: '2.0' + - if: ${{ matrix.os == 'ubuntu-latest' }} + name: Install tools & libraries (Ubuntu) + run: | + sudo apt update + sudo apt install python3 python3-pytest acpica-tools cmake gcc-multilib g++-multilib + # https://github.com/actions/runner-images/issues/9491#issuecomment-1989718917 + sudo sysctl vm.mmap_rnd_bits=28 + - if: ${{ matrix.os == 'macos-latest' }} + name: Install tools & libraries (MacOS) + run: | + export PIP_BREAK_SYSTEM_PACKAGES=1 + brew install python3 acpica cmake + python3 -m pip install pytest + - if: ${{ matrix.os == 'windows-latest' }} + name: Install tools & libraries (Windows) + run: | + choco install python3 iasl cmake llvm + python3 -m pip install pytest + + - name: Ensure reduced-hardware/unsized-frees/fmt-logging/no-kernel-init/builtin-string build compiles + run: | + cd ${{ github.workspace}}/tests/runner + mkdir reduced-hw-build && cd reduced-hw-build + cmake .. -DREDUCED_HARDWARE_BUILD=1 -DSIZED_FREES_BUILD=0 -DFORMATTED_LOGGING_BUILD=1 -DNATIVE_ALLOC_ZEROED=1 -DKERNEL_INITIALIZATION=0 -DBUILTIN_STRING=1 + cmake --build . + + - name: Run tests (64-bit) + run: python3 ${{ github.workspace }}/tests/run_tests.py --bitness=64 --large --barebones + + # MacOS doesn't want to compile i386 (at least easily) so just ignore it: + # ld: warning: The i386 architecture is deprecated for macOS + # ld: dynamic executables or dylibs must link with libSystem.dylib for architecture i386 + # clang: error: linker command failed with exit code 1 (use -v to see invocation) + - if: ${{ matrix.os != 'macos-latest' }} + name: Run tests (32-bit) + run: python3 ${{ github.workspace }}/tests/run_tests.py --bitness=32 --large --barebones + + - if: ${{ matrix.os != 'macos-latest' }} + name: Run tests (OpenWatcom) + run: python3 ${{ github.workspace }}/tests/run_tests.py --large --barebones --watcom diff --git a/kernel/hal/x86_64/uACPI/.gitignore b/kernel/hal/x86_64/uACPI/.gitignore new file mode 100644 index 0000000..343bcc8 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/.gitignore @@ -0,0 +1,9 @@ +.DS_Store +*.aml +*.dsl +.idea/ +cmake-build-*/ +build-*/ +tests/bin/ +tests/acpi-dumps/ +__pycache__ \ No newline at end of file diff --git a/kernel/hal/x86_64/uACPI/LICENSE b/kernel/hal/x86_64/uACPI/LICENSE new file mode 100644 index 0000000..f2d8cd0 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/LICENSE @@ -0,0 +1,21 @@ +MIT License + +Copyright (c) 2022-2025 Daniil Tatianin + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. diff --git a/kernel/hal/x86_64/uACPI/README.md b/kernel/hal/x86_64/uACPI/README.md new file mode 100644 index 0000000..1e534ea --- /dev/null +++ b/kernel/hal/x86_64/uACPI/README.md @@ -0,0 +1,399 @@ +# uACPI + +A portable and easy-to-integrate implementation of the Advanced Configuration and Power Interface (ACPI). + +[![CI](https://github.com/UltraOS/uACPI/actions/workflows/main.yml/badge.svg)](https://github.com/UltraOS/uACPI/actions/workflows/main.yml) + +## Features + +- A fast and well-tested AML interpreter optimized to use very little stack space +- NT-compatible on a fundamental level (see [examples](#more-detailed-overview)) +- Very easy to integrate (ships with own overridable standard library implementation) +- Highly flexible and configurable (optional sized frees, reduced-hw-only mode, etc.) +- A fairly advanced event subsystem (GPE/fixed, wake, implicit notify, AML handlers) +- Table management API (search, dynamic installation/loading, overrides, etc.) +- Operation region subsystem (user handlers, support for BufferAcc opregions, builtins for common types) +- Sleep state management (transition to any S state, wake vector programming) +- PCI routing table retrieval & interrupt model API +- Device search API +- Resource subsystem supporting every resource defined by ACPI 6.6 +- Interface & feature management exposed via _OSI +- Client-defined Notify() handlers +- Firmware global lock management (_GL, locked fields, public API) +- GAS read/write API +- Fully thread safe +- Supports both 32-bit and 64-bit platforms +- A special barebones mode with only table API (see [config.h](include/uacpi/platform/config.h#L127)) + +## Why would I use this over ACPICA? + +### 1. Performance + +uACPI shows a consistent speedup of about **3.5x** over ACPICA in synthetic AML tests. + +
More details + +Code that was tested: +```asl +Method (TOMS, 2, NotSerialized) { + Return ((Arg1 - Arg0) / 10000) +} + +Method (ADDM, 1, NotSerialized) { + Local0 = 0 + + While (Arg0) { + Local0 += Arg0 + Arg0 + Arg0-- + } + + Return (Local0) +} + +// Record start time +Local0 = Timer + +// Run 10 million additions +Local1 = ADDM(10000000) + +// Make sure the answer matches expected +If (Local1 != 0x5AF31112D680) { + Printf("Bad test result %o", Local1) + Return (1) +} + +// Record end time +Local2 = Timer + +Printf("10,000,000 additions took %o ms", + ToDecimalString(TOMS(Local0, Local2))) +``` + +Compile options (acpiexec and uACPI's test-runner): `-O3 -flto -march=znver4 -mtune=znver4` +CPU: AMD Ryzen 9 9950X3D +Raw test scores (~average over 10 runs): +- ACPICA: 16661 ms +- uACPI: 4753 ms + +**Raw difference: 3.5053x** + +
+ +Real hardware tests of the same operating system using uACPI vs ACPICA show +at least a **1.75-2x speedup** while measuring the time it takes to load the initial +AML namespace. + +
More details + +OS: [proxima](https://github.com/proxima-os) + +Compile options: `-O3 -flto` + +### Test Subject 1 + +Specs: Gigabyte B550M S2H, AMD Ryzen 5800X, 64GB RAM +Firmware: F19d (10097 AML opcodes) + +Results: +- ACPICA: 3,936,953 ns +- uACPI: 1,902,077 ns + +**Raw difference: 2.0698x** + +### Test Subject 2 + +Specs: Toshiba Portege R30-A, Intel Core i5-4200M, 4GB RAM +Firmware: 4.40 (4962 AML opcodes) + +Results: +- ACPICA: 10,899,233 ns +- uACPI: 6,227,036 ns + +**Raw difference: 1.7503x** + +
+ +### 2. NT-compatible from the ground up + +Over the decades of development, ACPICA has accumulated a lot of workarounds for +AML expecting NT-specific behaviors, and is still missing compatibility in a lot +of critical aspects. + +uACPI, on the other hand, is built to be natively NT-compatible without extra +workarounds. + +Some specific highlights include: +- Reference objects, especially multi-level reference chains +- Implicit cast semantics +- Object mutability +- Named object resolution, especially for named objects inside packages + +### 3. Fundamental safety + +uACPI is built to always assume the worst about the AML byte code it's executing, +and as such, has a more sophisticated object lifetime tracking system, as well +as carefully designed handling for various edge-cases, including race conditions. + +Some of the standard uACPI test cases crash both ACPICA, and the NT AML +interpreters. + +While a permanent fuzzing solution for uACPI is currently WIP, it has already +been fuzzed quite extensively and all known issues have been fixed. + +### 4. No recursion + +Running at kernel level has a lot of very strict limitations, one of which is a +tiny stack size, which can sometimes be only a few pages in length. + +Of course, both ACPICA and uACPI have non-recursive AML interpreters, but there +are still edge cases that cause potentially unbounded recursion. + +One such example are the dynamic table load operators from AML +(`Load`/`LoadTable`): these cause a linear growth in stack usage per call in +ACPICA, whereas in uACPI these are treated as special method calls, +and as such, don't increase stack usage whatsoever. + +### More detailed overview +Expressions within package: +```asl +Method (TEST) { + Local0 = 10 + Local1 = Package { Local0 * 5 } + Return (DerefOf(Local1[0])) +} + +// ACPICA: AE_SUPPORT, Expressions within package elements are not supported +// Windows, uACPI: Local0 = 50 +Local0 = TEST() +``` + +Packages outside of a control method: +```asl +// ACPICA: internal error +// Windows, uACPI: ok +Local0 = Package { 1 } +``` + +Reference rebind semantics: +```asl +Local0 = 123 +Local1 = RefOf(Local0) + +// ACPICA: Local1 = 321, Local0 = 123 +// Windows, uACPI: Local1 = reference->Local0, Local0 = 321 +Local1 = 321 +``` + +Increment/Decrement: +```asl +Local0 = 123 +Local1 = RefOf(Local0) + +// ACPICA: error +// Windows, uACPI: Local0 = 124 +Local1++ +``` + +Multilevel references: +```asl +Local0 = 123 +Local1 = RefOf(Local0) +Local2 = RefOf(Local1) + +// ACPICA: Local3 = reference->Local0 +// Windows, uACPI: Local3 = 123 +Local3 = DerefOf(Local2) +``` + +Implict-cast semantics: +```asl +Name (TEST, "BAR") + +// ACPICA: TEST = "00000000004F4F46" +// Windows, uACPI: TEST = "FOO" +TEST = 0x4F4F46 +``` + +Buffer size mutability: +```asl +Name (TEST, "XXXX") +Name (VAL, "") + +// ACPICA: TEST = "LONGSTRING" +// Windows, UACPI: TEST = "LONG" +TEST = "LONGSTRING" + +// ACPICA: VAL = "FOO" +// Windows, UACPI: VAL = "" +VAL = "FOO" +``` + +Returning a reference to a local object: +```asl +Method (TEST) { + Local0 = 123 + + // Use-after-free in ACPICA, perfectly fine in uACPI + Return (RefOf(Local0)) +} + +Method (FOO) { + Name (TEST, 123) + + // Use-after-free in ACPICA, object lifetime prolonged in uACPI (node is still removed from the namespace) + Return (RefOf(TEST)) +} +``` + +CopyObject into self: +```asl +Method (TEST) { + CopyObject(123, TEST) + Return (1) +} + +// Segfault in ACPICA, prints 1 in uACPI +Debug = TEST() + +// Unreachable in ACPICA, prints 123 in uACPI +Debug = TEST +``` + +There's even more examples, but this should be enough to demonstrate the fundamental differences in designs. + +## Integrating into a kernel + +### 1. Add uACPI sources & include directories into your project + +#### If you're using CMake +Simply add the following lines to your cmake: +```cmake +include(uacpi/uacpi.cmake) + +target_sources( + my-kernel + PRIVATE + ${UACPI_SOURCES} +) + +target_include_directories( + my-kernel + PRIVATE + ${UACPI_INCLUDES} +) +``` + +#### If you're using Meson +Add the following lines to your meson.build: +```meson +uacpi = subproject('uacpi') + +uacpi_sources = uacpi.get_variable('sources') +my_kernel_sources += uacpi_sources + +uacpi_includes = uacpi.get_variable('includes') +my_kernel_includes += uacpi_includes +``` + +#### Any other build system +- Add all .c files from [source](source) into your target sources +- Add [include](include) into your target include directories + +### 2. Implement/override platform-specific headers + +uACPI defines all platform/architecture-specific functionality in a few headers inside [include/uacpi/platform](include/uacpi/platform) + +All of the headers can be "implemented" by your project in a few ways: +- Implement the expected helpers exposed by the headers +- Replace the expected helpers by your own and override uACPI to use them by defining the respective `UACPI_OVERRIDE_X` variable. +In this case, the header becomes a proxy that includes a corresponding `uacpi_x.h` header exported by your project. + +Currently used platform-specific headers are: +- [arch_helpers.h](include/uacpi/platform/arch_helpers.h) - defines architecture/cpu-specific helpers & thread-id-related interfaces +- [compiler.h](include/uacpi/platform/compiler.h) - defines compiler-specific helpers like attributes and intrinsics. +This already works for MSVC, clang & GCC so you most likely won't have to override it. +- [atomic.h](include/uacpi/platform/atomic.h) - defines compiler-specific helpers for dealing with atomic operations. + Same as the header above, this should work out of the box for MSVC, clang & GCC. +- [libc.h](include/uacpi/platform/libc.h) - an empty header by default, but may be overriden by your project +if it implements any of the libc functions used by uACPI (by default uACPI uses its +own implementations to be platform-independent and to make porting easier). The +internal implementation is just the bare minimum and not optimized in any way. +- [types.h](include/uacpi/platform/types.h) - typedefs a bunch of uacpi-specific types using the `stdint.h` header. You don't have to override this +unless you don't provide `stdint.h`. +- [config.h](include/uacpi/platform/config.h) - various compile-time options and settings, preconfigured to reasonable defaults. + +### 3. Implement kernel API + +uACPI relies on kernel-specific API to do things like mapping/unmapping memory, writing/reading to/from IO, PCI config space, and many more things. + +This API is declared in [kernel_api.h](include/uacpi/kernel_api.h) and is implemented by your kernel. + +### 4. Initialize uACPI + +That's it, uACPI is now integrated into your project. + +You should proceed to initialization. +Refer to the [uACPI page](https://wiki.osdev.org/uACPI) on osdev wiki to see a +snippet for basic initialization, as well as some code examples of how you may +want to use certain APIs. + +All of the headers and APIs defined in [uacpi](include/uacpi/) are public and may be utilized by your project. +Anything inside [uacpi/internal](include/uacpi/internal) is considered private/undocumented and unstable API. + +## Developing and contributing + +Most development work is fully doable in userland using the test runner. + +### Setting up an IDE: + +Simply open [tests/runner/CMakeLists.txt](tests/runner/CMakeLists.txt) in your favorite IDE. + +For Visual Studio: +``` +cd tests\runner && mkdir build && cd build && cmake .. +``` + +Then just simply open the .sln file generated by cmake. + +### Running the test suite: +``` +./tests/run_tests.py +``` + +If you want to contribute: +- Commits are expected to be atomic (changing one specific thing, or introducing one feature) with detailed description (if one is warranted for), an S-o-b line is welcome +- Code style is 4-space tabs, 80 cols, the rest can be seen by just looking at the current code + +**All contributions are very welcome!** + +## Notable projects using uACPI & performance leaderboards + +| Project | Description | (qemu w/ Q35 + KVM) ops/s | CPU | +|--- |--- |--- |--- | +| [proxima](https://github.com/proxima-os/) | Unix-like microkernel-based operating system with uACPI running in userspace | 10,454,158 | AMD Ryzen 9 9950X3D | +| [ilobilix](https://github.com/ilobilo/ilobilix) | Yet another monolithic Linux clone wannabe. Currently under a rewrite | 8,703,286 | AMD Ryzen 9 9950X3D | +| [Crescent2](https://github.com/Qwinci/crescent2) | An NT driver compatible kernel and userspace | 6,818,418 | Intel Core i5-13600K | +| [davix](https://github.com/dbstream/davix) | Yet another unix-like by some bored nerd | 6,364,623 | Intel Core i7-13700K | +| [Managarm](https://github.com/managarm/managarm) | Pragmatic microkernel-based OS with fully asynchronous I/O | 5,618,646 | Intel Core i7-14700K | +| [ChronOS](https://github.com/BUGO07/chronos) | Another basic hobby os held together by duct tape, made in rust | 5,416,703 | Intel Core Ultra 7 265KF | +| [pmOS](https://gitlab.com/mishakov/pmos) | Microkernel-based operating system written from scratch with uACPI running in userspace | 5,354,445 | AMD Ryzen 9 5900X | +| [menix](https://github.com/menix-os/menix) | A minimal and expandable Unix-like operating system | 5,239,043 | Intel Core Ultra 7 265KF | +| [Ironclad](https://ironclad.nongnu.org) | Formally verified, hard real-time capable kernel written in SPARK and Ada | 4,802,816 | Intel Core i9-13900KS | +| [Astral](https://github.com/mathewnd/astral) | Operating system written in C which aims be POSIX-compliant | 4,189,189 | Intel Core i5-13600K | +| [Keyronex](https://github.com/Keyronex/Keyronex) | Layered kernel with fundamentally asynchronous I/O and working set model-based memory management | 4,013,691 | AMD Ryzen 5800X | +| [Orange](https://github.com/cppLover0/Orange) | x86_64 Unix-like OS | 2,377,330 | AMD Ryzen 5 3600 | +| [OBOS](https://github.com/OBOS-dev/obos) | Hybrid Kernel with advanced driver loading | 2,141,179 | Intel Core i5-13600K | +| [NyauxKC](https://github.com/rayanmargham/NyauxKC) | Monolithic UNIX-like multi-architecture kernel | 1,966,580 | Intel Core i7-13700K | +| [ElysiumOS](https://github.com/imwux/elysium-os) | Hybrid Unix-like kernel | 1,737,654 | AMD Ryzen 7 5800X3D | +| [imaginarium](https://github.com/Khitiara/imaginarium) | Ziggy osdev experiments inspired by the NT kernel (using the zig general purpose allocator) | 1,504,436 | AMD Ryzen 7 3700X | +| [BadgerOS](https://github.com/badgeteam/BadgerOS) | A monolithic lightweight UNIX clone | 1,018,518 | AMD Ryzen 5 3600 | +| [Hyra](https://github.com/sigsegv7/Hyra) | Monolithic UNIX-like OS by [OSMORA.ORG](https://osmora.org) | 199,873 | Intel Core i3-3220 | + +## License + + + MIT License + + +uACPI is licensed under the **MIT License**. +The full license text is provided in the [LICENSE](LICENSE) file inside the root directory. diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/acpi.h b/kernel/hal/x86_64/uACPI/include/uacpi/acpi.h new file mode 100644 index 0000000..79eb31b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/acpi.h @@ -0,0 +1,1430 @@ +#pragma once + +#include +#include +#include + +/* + * ----------------------------------------------------- + * Common structures provided by the ACPI specification + * ----------------------------------------------------- + */ + +#define ACPI_RSDP_SIGNATURE "RSD PTR " +#define ACPI_RSDT_SIGNATURE "RSDT" +#define ACPI_XSDT_SIGNATURE "XSDT" +#define ACPI_MADT_SIGNATURE "APIC" +#define ACPI_FADT_SIGNATURE "FACP" +#define ACPI_FACS_SIGNATURE "FACS" +#define ACPI_MCFG_SIGNATURE "MCFG" +#define ACPI_HPET_SIGNATURE "HPET" +#define ACPI_SRAT_SIGNATURE "SRAT" +#define ACPI_SLIT_SIGNATURE "SLIT" +#define ACPI_DSDT_SIGNATURE "DSDT" +#define ACPI_SSDT_SIGNATURE "SSDT" +#define ACPI_PSDT_SIGNATURE "PSDT" +#define ACPI_ECDT_SIGNATURE "ECDT" +#define ACPI_RHCT_SIGNATURE "RHCT" + +#define ACPI_AS_ID_SYS_MEM 0x00 +#define ACPI_AS_ID_SYS_IO 0x01 +#define ACPI_AS_ID_PCI_CFG_SPACE 0x02 +#define ACPI_AS_ID_EC 0x03 +#define ACPI_AS_ID_SMBUS 0x04 +#define ACPI_AS_ID_SYS_CMOS 0x05 +#define ACPI_AS_ID_PCI_BAR_TGT 0x06 +#define ACPI_AS_ID_IPMI 0x07 +#define ACPI_AS_ID_GP_IO 0x08 +#define ACPI_AS_ID_GENERIC_SBUS 0x09 +#define ACPI_AS_ID_PCC 0x0A +#define ACPI_AS_ID_FFH 0x7F +#define ACPI_AS_ID_OEM_BASE 0xC0 +#define ACPI_AS_ID_OEM_END 0xFF + +#define ACPI_ACCESS_UD 0 +#define ACPI_ACCESS_BYTE 1 +#define ACPI_ACCESS_WORD 2 +#define ACPI_ACCESS_DWORD 3 +#define ACPI_ACCESS_QWORD 4 + +UACPI_PACKED(struct acpi_gas { + uacpi_u8 address_space_id; + uacpi_u8 register_bit_width; + uacpi_u8 register_bit_offset; + uacpi_u8 access_size; + uacpi_u64 address; +}) +UACPI_EXPECT_SIZEOF(struct acpi_gas, 12); + +UACPI_PACKED(struct acpi_rsdp { + uacpi_char signature[8]; + uacpi_u8 checksum; + uacpi_char oemid[6]; + uacpi_u8 revision; + uacpi_u32 rsdt_addr; + + // vvvv available if .revision >= 2.0 only + uacpi_u32 length; + uacpi_u64 xsdt_addr; + uacpi_u8 extended_checksum; + uacpi_u8 rsvd[3]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_rsdp, 36); + +UACPI_PACKED(struct acpi_sdt_hdr { + uacpi_char signature[4]; + uacpi_u32 length; + uacpi_u8 revision; + uacpi_u8 checksum; + uacpi_char oemid[6]; + uacpi_char oem_table_id[8]; + uacpi_u32 oem_revision; + uacpi_u32 creator_id; + uacpi_u32 creator_revision; +}) +UACPI_EXPECT_SIZEOF(struct acpi_sdt_hdr, 36); + +UACPI_PACKED(struct acpi_rsdt { + struct acpi_sdt_hdr hdr; + uacpi_u32 entries[]; +}) + +UACPI_PACKED(struct acpi_xsdt { + struct acpi_sdt_hdr hdr; + uacpi_u64 entries[]; +}) + +UACPI_PACKED(struct acpi_entry_hdr { + /* + * - acpi_madt_entry_type for the APIC table + * - acpi_srat_entry_type for the SRAT table + */ + uacpi_u8 type; + uacpi_u8 length; +}) + +// acpi_madt->flags +#define ACPI_PCAT_COMPAT (1 << 0) + +enum acpi_madt_entry_type { + ACPI_MADT_ENTRY_TYPE_LAPIC = 0, + ACPI_MADT_ENTRY_TYPE_IOAPIC = 1, + ACPI_MADT_ENTRY_TYPE_INTERRUPT_SOURCE_OVERRIDE = 2, + ACPI_MADT_ENTRY_TYPE_NMI_SOURCE = 3, + ACPI_MADT_ENTRY_TYPE_LAPIC_NMI = 4, + ACPI_MADT_ENTRY_TYPE_LAPIC_ADDRESS_OVERRIDE = 5, + ACPI_MADT_ENTRY_TYPE_IOSAPIC = 6, + ACPI_MADT_ENTRY_TYPE_LSAPIC = 7, + ACPI_MADT_ENTRY_TYPE_PLATFORM_INTERRUPT_SOURCES = 8, + ACPI_MADT_ENTRY_TYPE_LOCAL_X2APIC = 9, + ACPI_MADT_ENTRY_TYPE_LOCAL_X2APIC_NMI = 0xA, + ACPI_MADT_ENTRY_TYPE_GICC = 0xB, + ACPI_MADT_ENTRY_TYPE_GICD = 0xC, + ACPI_MADT_ENTRY_TYPE_GIC_MSI_FRAME = 0xD, + ACPI_MADT_ENTRY_TYPE_GICR = 0xE, + ACPI_MADT_ENTRY_TYPE_GIC_ITS = 0xF, + ACPI_MADT_ENTRY_TYPE_MULTIPROCESSOR_WAKEUP = 0x10, + ACPI_MADT_ENTRY_TYPE_CORE_PIC = 0x11, + ACPI_MADT_ENTRY_TYPE_LIO_PIC = 0x12, + ACPI_MADT_ENTRY_TYPE_HT_PIC = 0x13, + ACPI_MADT_ENTRY_TYPE_EIO_PIC = 0x14, + ACPI_MADT_ENTRY_TYPE_MSI_PIC = 0x15, + ACPI_MADT_ENTRY_TYPE_BIO_PIC = 0x16, + ACPI_MADT_ENTRY_TYPE_LPC_PIC = 0x17, + ACPI_MADT_ENTRY_TYPE_RINTC = 0x18, + ACPI_MADT_ENTRY_TYPE_IMSIC = 0x19, + ACPI_MADT_ENTRY_TYPE_APLIC = 0x1A, + ACPI_MADT_ENTRY_TYPE_PLIC = 0x1B, + ACPI_MADT_ENTRY_TYPE_RESERVED = 0x1C, // 0x1C..0x7F + ACPI_MADT_ENTRY_TYPE_OEM = 0x80, // 0x80..0xFF +}; + +UACPI_PACKED(struct acpi_madt { + struct acpi_sdt_hdr hdr; + uacpi_u32 local_interrupt_controller_address; + uacpi_u32 flags; + struct acpi_entry_hdr entries[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt, 44); + +/* + * - acpi_madt_lapic->flags + * - acpi_madt_lsapic->flags + * - acpi_madt_x2apic->flags + */ +#define ACPI_PIC_ENABLED (1 << 0) +#define ACPI_PIC_ONLINE_CAPABLE (1 << 1) + +UACPI_PACKED(struct acpi_madt_lapic { + struct acpi_entry_hdr hdr; + uacpi_u8 uid; + uacpi_u8 id; + uacpi_u32 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_lapic, 8); + +UACPI_PACKED(struct acpi_madt_ioapic { + struct acpi_entry_hdr hdr; + uacpi_u8 id; + uacpi_u8 rsvd; + uacpi_u32 address; + uacpi_u32 gsi_base; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_ioapic, 12); + +/* + * - acpi_madt_interrupt_source_override->flags + * - acpi_madt_nmi_source->flags + * - acpi_madt_lapic_nmi->flags + * - acpi_madt_platform_interrupt_source->flags + * - acpi_madt_x2apic_nmi->flags + */ +#define ACPI_MADT_POLARITY_MASK 0b11 +#define ACPI_MADT_POLARITY_CONFORMING 0b00 +#define ACPI_MADT_POLARITY_ACTIVE_HIGH 0b01 +#define ACPI_MADT_POLARITY_ACTIVE_LOW 0b11 + +#define ACPI_MADT_TRIGGERING_MASK 0b1100 +#define ACPI_MADT_TRIGGERING_CONFORMING 0b0000 +#define ACPI_MADT_TRIGGERING_EDGE 0b0100 +#define ACPI_MADT_TRIGGERING_LEVEL 0b1100 + +UACPI_PACKED(struct acpi_madt_interrupt_source_override { + struct acpi_entry_hdr hdr; + uacpi_u8 bus; + uacpi_u8 source; + uacpi_u32 gsi; + uacpi_u16 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_interrupt_source_override, 10); + +UACPI_PACKED(struct acpi_madt_nmi_source { + struct acpi_entry_hdr hdr; + uacpi_u16 flags; + uacpi_u32 gsi; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_nmi_source, 8); + +UACPI_PACKED(struct acpi_madt_lapic_nmi { + struct acpi_entry_hdr hdr; + uacpi_u8 uid; + uacpi_u16 flags; + uacpi_u8 lint; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_lapic_nmi, 6); + +UACPI_PACKED(struct acpi_madt_lapic_address_override { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd; + uacpi_u64 address; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_lapic_address_override, 12); + +UACPI_PACKED(struct acpi_madt_iosapic { + struct acpi_entry_hdr hdr; + uacpi_u8 id; + uacpi_u8 rsvd; + uacpi_u32 gsi_base; + uacpi_u64 address; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_iosapic, 16); + +UACPI_PACKED(struct acpi_madt_lsapic { + struct acpi_entry_hdr hdr; + uacpi_u8 acpi_id; + uacpi_u8 id; + uacpi_u8 eid; + uacpi_u8 reserved[3]; + uacpi_u32 flags; + uacpi_u32 uid; + uacpi_char uid_string[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_lsapic, 16); + +// acpi_madt_platform_interrupt_source->platform_flags +#define ACPI_CPEI_PROCESSOR_OVERRIDE (1 << 0) + +UACPI_PACKED(struct acpi_madt_platform_interrupt_source { + struct acpi_entry_hdr hdr; + uacpi_u16 flags; + uacpi_u8 type; + uacpi_u8 processor_id; + uacpi_u8 processor_eid; + uacpi_u8 iosapic_vector; + uacpi_u32 gsi; + uacpi_u32 platform_flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_platform_interrupt_source, 16); + +UACPI_PACKED(struct acpi_madt_x2apic { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd; + uacpi_u32 id; + uacpi_u32 flags; + uacpi_u32 uid; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_x2apic, 16); + +UACPI_PACKED(struct acpi_madt_x2apic_nmi { + struct acpi_entry_hdr hdr; + uacpi_u16 flags; + uacpi_u32 uid; + uacpi_u8 lint; + uacpi_u8 reserved[3]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_x2apic_nmi, 12); + +// acpi_madt_gicc->flags +#define ACPI_GICC_ENABLED (1 << 0) +#define ACPI_GICC_PERF_INTERRUPT_MODE (1 << 1) +#define ACPI_GICC_VGIC_MAINTENANCE_INTERRUPT_MODE (1 << 2) +#define ACPI_GICC_ONLINE_CAPABLE (1 << 3) + +// ACPI_GICC_*_INTERRUPT_MODE +#define ACPI_GICC_TRIGGERING_EDGE 1 +#define ACPI_GICC_TRIGGERING_LEVEL 0 + +UACPI_PACKED(struct acpi_madt_gicc { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd0; + uacpi_u32 interface_number; + uacpi_u32 acpi_id; + uacpi_u32 flags; + uacpi_u32 parking_protocol_version; + uacpi_u32 perf_interrupt_gsiv; + uacpi_u64 parked_address; + uacpi_u64 address; + uacpi_u64 gicv; + uacpi_u64 gich; + uacpi_u32 vgic_maitenante_interrupt; + uacpi_u64 gicr_base_address; + uacpi_u64 mpidr; + uacpi_u8 power_efficiency_class; + uacpi_u8 rsvd1; + uacpi_u16 spe_overflow_interrupt; + uacpi_u16 trbe_interrupt; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_gicc, 82); + +UACPI_PACKED(struct acpi_madt_gicd { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd0; + uacpi_u32 id; + uacpi_u64 address; + uacpi_u32 system_vector_base; + uacpi_u8 gic_version; + uacpi_u8 reserved1[3]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_gicd, 24); + +// acpi_madt_gic_msi_frame->flags +#define ACPI_SPI_SELECT (1 << 0) + +UACPI_PACKED(struct acpi_madt_gic_msi_frame { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd; + uacpi_u32 id; + uacpi_u64 address; + uacpi_u32 flags; + uacpi_u16 spi_count; + uacpi_u16 spi_base; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_gic_msi_frame, 24); + +UACPI_PACKED(struct acpi_madt_gicr { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd; + uacpi_u64 address; + uacpi_u32 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_gicr, 16); + +UACPI_PACKED(struct acpi_madt_gic_its { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd0; + uacpi_u32 id; + uacpi_u64 address; + uacpi_u32 rsvd1; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_gic_its, 20); + +UACPI_PACKED(struct acpi_madt_multiprocessor_wakeup { + struct acpi_entry_hdr hdr; + uacpi_u16 mailbox_version; + uacpi_u32 rsvd; + uacpi_u64 mailbox_address; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_multiprocessor_wakeup, 16); + +#define ACPI_CORE_PIC_ENABLED (1 << 0) + +UACPI_PACKED(struct acpi_madt_core_pic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u32 acpi_id; + uacpi_u32 id; + uacpi_u32 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_core_pic, 15); + +UACPI_PACKED(struct acpi_madt_lio_pic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u64 address; + uacpi_u16 size; + uacpi_u16 cascade_vector; + uacpi_u64 cascade_vector_mapping; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_lio_pic, 23); + +UACPI_PACKED(struct acpi_madt_ht_pic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u64 address; + uacpi_u16 size; + uacpi_u64 cascade_vector; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_ht_pic, 21); + +UACPI_PACKED(struct acpi_madt_eio_pic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u8 cascade_vector; + uacpi_u8 node; + uacpi_u64 node_map; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_eio_pic, 13); + +UACPI_PACKED(struct acpi_madt_msi_pic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u64 address; + uacpi_u32 start; + uacpi_u32 count; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_msi_pic, 19); + +UACPI_PACKED(struct acpi_madt_bio_pic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u64 address; + uacpi_u16 size; + uacpi_u16 hardware_id; + uacpi_u16 gsi_base; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_bio_pic, 17); + +UACPI_PACKED(struct acpi_madt_lpc_pic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u64 address; + uacpi_u16 size; + uacpi_u16 cascade_vector; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_lpc_pic, 15); + +UACPI_PACKED(struct acpi_madt_rintc { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u8 rsvd; + uacpi_u32 flags; + uacpi_u64 hart_id; + uacpi_u32 uid; + uacpi_u32 ext_intc_id; + uacpi_u64 address; + uacpi_u32 size; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_rintc, 36); + +UACPI_PACKED(struct acpi_madt_imsic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u8 rsvd; + uacpi_u32 flags; + uacpi_u16 num_ids; + uacpi_u16 num_guest_ids; + uacpi_u8 guest_index_bits; + uacpi_u8 hart_index_bits; + uacpi_u8 group_index_bits; + uacpi_u8 group_index_shift; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_imsic, 16); + +UACPI_PACKED(struct acpi_madt_aplic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u8 id; + uacpi_u32 flags; + uacpi_u64 hardware_id; + uacpi_u16 idc_count; + uacpi_u16 sources_count; + uacpi_u32 gsi_base; + uacpi_u64 address; + uacpi_u32 size; +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_aplic, 36); + +UACPI_PACKED(struct acpi_madt_plic { + struct acpi_entry_hdr hdr; + uacpi_u8 version; + uacpi_u8 id; + uacpi_u64 hardware_id; + uacpi_u16 sources_count; + uacpi_u16 max_priority; + uacpi_u32 flags; + uacpi_u32 size; + uacpi_u64 address; + uacpi_u32 gsi_base; + +}) +UACPI_EXPECT_SIZEOF(struct acpi_madt_plic, 36); + +enum acpi_srat_entry_type { + ACPI_SRAT_ENTRY_TYPE_PROCESSOR_AFFINITY = 0, + ACPI_SRAT_ENTRY_TYPE_MEMORY_AFFINITY = 1, + ACPI_SRAT_ENTRY_TYPE_X2APIC_AFFINITY = 2, + ACPI_SRAT_ENTRY_TYPE_GICC_AFFINITY = 3, + ACPI_SRAT_ENTRY_TYPE_GIC_ITS_AFFINITY = 4, + ACPI_SRAT_ENTRY_TYPE_GENERIC_INITIATOR_AFFINITY = 5, + ACPI_SRAT_ENTRY_TYPE_GENERIC_PORT_AFFINITY = 6, + ACPI_SRAT_ENTRY_TYPE_RINTC_AFFINITY = 7, +}; + +UACPI_PACKED(struct acpi_srat { + struct acpi_sdt_hdr hdr; + uacpi_u32 rsvd0; + uacpi_u64 rsvd1; + struct acpi_entry_hdr entries[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat, 48); + +/* + * acpi_srat_processor_affinity->flags + * acpi_srat_x2apic_affinity->flags + */ +#define ACPI_SRAT_PROCESSOR_ENABLED (1 << 0) + +UACPI_PACKED(struct acpi_srat_processor_affinity { + struct acpi_entry_hdr hdr; + uacpi_u8 proximity_domain_low; + uacpi_u8 id; + uacpi_u32 flags; + uacpi_u8 eid; + uacpi_u8 proximity_domain_high[3]; + uacpi_u32 clock_domain; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat_processor_affinity, 16); + +// acpi_srat_memory_affinity->flags +#define ACPI_SRAT_MEMORY_ENABLED (1 << 0) +#define ACPI_SRAT_MEMORY_HOTPLUGGABLE (1 << 1) +#define ACPI_SRAT_MEMORY_NON_VOLATILE (1 << 2) + +UACPI_PACKED(struct acpi_srat_memory_affinity { + struct acpi_entry_hdr hdr; + uacpi_u32 proximity_domain; + uacpi_u16 rsvd0; + uacpi_u64 address; + uacpi_u64 length; + uacpi_u32 rsvd1; + uacpi_u32 flags; + uacpi_u64 rsdv2; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat_memory_affinity, 40); + +UACPI_PACKED(struct acpi_srat_x2apic_affinity { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd0; + uacpi_u32 proximity_domain; + uacpi_u32 id; + uacpi_u32 flags; + uacpi_u32 clock_domain; + uacpi_u32 rsvd1; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat_x2apic_affinity, 24); + +// acpi_srat_gicc_affinity->flags +#define ACPI_SRAT_GICC_ENABLED (1 << 0) + +UACPI_PACKED(struct acpi_srat_gicc_affinity { + struct acpi_entry_hdr hdr; + uacpi_u32 proximity_domain; + uacpi_u32 uid; + uacpi_u32 flags; + uacpi_u32 clock_domain; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat_gicc_affinity, 18); + +UACPI_PACKED(struct acpi_srat_gic_its_affinity { + struct acpi_entry_hdr hdr; + uacpi_u32 proximity_domain; + uacpi_u16 rsvd; + uacpi_u32 id; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat_gic_its_affinity, 12); + +// acpi_srat_generic_affinity->flags +#define ACPI_GENERIC_AFFINITY_ENABLED (1 << 0) +#define ACPI_GENERIC_AFFINITY_ARCH_TRANSACTIONS (1 << 1) + +UACPI_PACKED(struct acpi_srat_generic_affinity { + struct acpi_entry_hdr hdr; + uacpi_u8 rsvd0; + uacpi_u8 handle_type; + uacpi_u32 proximity_domain; + uacpi_u8 handle[16]; + uacpi_u32 flags; + uacpi_u32 rsvd1; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat_generic_affinity, 32); + +// acpi_srat_rintc_affinity->flags +#define ACPI_SRAT_RINTC_AFFINITY_ENABLED (1 << 0) + +UACPI_PACKED(struct acpi_srat_rintc_affinity { + struct acpi_entry_hdr hdr; + uacpi_u16 rsvd; + uacpi_u32 proximity_domain; + uacpi_u32 uid; + uacpi_u32 flags; + uacpi_u32 clock_domain; +}) +UACPI_EXPECT_SIZEOF(struct acpi_srat_rintc_affinity, 20); + +UACPI_PACKED(struct acpi_slit { + struct acpi_sdt_hdr hdr; + uacpi_u64 num_localities; + uacpi_u8 matrix[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_slit, 44); + +/* + * acpi_gtdt->el*_flags + * acpi_gtdt_timer_entry->physical_flags + * acpi_gtdt_timer_entry->virtual_flags + * acpi_gtdt_watchdog->flags + */ +#define ACPI_GTDT_TRIGGERING (1 << 0) +#define ACPI_GTDT_TRIGGERING_EDGE 1 +#define ACPI_GTDT_TRIGGERING_LEVEL 0 + +/* + * acpi_gtdt->el*_flags + * acpi_gtdt_timer_entry->physical_flags + * acpi_gtdt_timer_entry->virtual_flags + * acpi_gtdt_watchdog->flags + */ +#define ACPI_GTDT_POLARITY (1 << 1) +#define ACPI_GTDT_POLARITY_ACTIVE_LOW 1 +#define ACPI_GTDT_POLARITY_ACTIVE_HIGH 0 + +// acpi_gtdt->el*_flags +#define ACPI_GTDT_ALWAYS_ON_CAPABLE (1 << 2) + +UACPI_PACKED(struct acpi_gtdt { + struct acpi_sdt_hdr hdr; + uacpi_u64 cnt_control_base; + uacpi_u32 rsvd; + uacpi_u32 el1_secure_gsiv; + uacpi_u32 el1_secure_flags; + uacpi_u32 el1_non_secure_gsiv; + uacpi_u32 el1_non_secure_flags; + uacpi_u32 el1_virtual_gsiv; + uacpi_u32 el1_virtual_flags; + uacpi_u32 el2_gsiv; + uacpi_u32 el2_flags; + uacpi_u64 cnt_read_base; + uacpi_u32 platform_timer_count; + uacpi_u32 platform_timer_offset; + + // revision >= 3 + uacpi_u32 el2_virtual_gsiv; + uacpi_u32 el2_virtual_flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_gtdt, 104); + +enum acpi_gtdt_entry_type { + ACPI_GTDT_ENTRY_TYPE_TIMER = 0, + ACPI_GTDT_ENTRY_TYPE_WATCHDOG = 1, +}; + +UACPI_PACKED(struct acpi_gtdt_entry_hdr { + uacpi_u8 type; + uacpi_u16 length; +}) + +UACPI_PACKED(struct acpi_gtdt_timer { + struct acpi_gtdt_entry_hdr hdr; + uacpi_u8 rsvd; + uacpi_u64 cnt_ctl_base; + uacpi_u32 timer_count; + uacpi_u32 timer_offset; +}) +UACPI_EXPECT_SIZEOF(struct acpi_gtdt_timer, 20); + +// acpi_gtdt_timer_entry->common_flags +#define ACPI_GTDT_TIMER_ENTRY_SECURE (1 << 0) +#define ACPI_GTDT_TIMER_ENTRY_ALWAYS_ON_CAPABLE (1 << 1) + +UACPI_PACKED(struct acpi_gtdt_timer_entry { + uacpi_u8 frame_number; + uacpi_u8 rsvd[3]; + uacpi_u64 cnt_base; + uacpi_u64 el0_cnt_base; + uacpi_u32 physical_gsiv; + uacpi_u32 physical_flags; + uacpi_u32 virtual_gsiv; + uacpi_u32 virtual_flags; + uacpi_u32 common_flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_gtdt_timer_entry, 40); + +// acpi_gtdt_watchdog->flags +#define ACPI_GTDT_WATCHDOG_SECURE (1 << 2) + +UACPI_PACKED(struct acpi_gtdt_watchdog { + struct acpi_gtdt_entry_hdr hdr; + uacpi_u8 rsvd; + uacpi_u64 refresh_frame; + uacpi_u64 control_frame; + uacpi_u32 gsiv; + uacpi_u32 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_gtdt_watchdog, 28); + +// acpi_fdt->iapc_flags +#define ACPI_IA_PC_LEGACY_DEVS (1 << 0) +#define ACPI_IA_PC_8042 (1 << 1) +#define ACPI_IA_PC_NO_VGA (1 << 2) +#define ACPI_IA_PC_NO_MSI (1 << 3) +#define ACPI_IA_PC_NO_PCIE_ASPM (1 << 4) +#define ACPI_IA_PC_NO_CMOS_RTC (1 << 5) + +// acpi_fdt->flags +#define ACPI_WBINVD (1 << 0) +#define ACPI_WBINVD_FLUSH (1 << 1) +#define ACPI_PROC_C1 (1 << 2) +#define ACPI_P_LVL2_UP (1 << 3) +#define ACPI_PWR_BUTTON (1 << 4) +#define ACPI_SLP_BUTTON (1 << 5) +#define ACPI_FIX_RTC (1 << 6) +#define ACPI_RTC_S4 (1 << 7) +#define ACPI_TMR_VAL_EXT (1 << 8) +#define ACPI_DCK_CAP (1 << 9) +#define ACPI_RESET_REG_SUP (1 << 10) +#define ACPI_SEALED_CASE (1 << 11) +#define ACPI_HEADLESS (1 << 12) +#define ACPI_CPU_SW_SLP (1 << 13) +#define ACPI_PCI_EXP_WAK (1 << 14) +#define ACPI_USE_PLATFORM_CLOCK (1 << 15) +#define ACPI_S4_RTC_STS_VALID (1 << 16) +#define ACPI_REMOTE_POWER_ON_CAPABLE (1 << 17) +#define ACPI_FORCE_APIC_CLUSTER_MODEL (1 << 18) +#define ACPI_FORCE_APIC_PHYS_DEST_MODE (1 << 19) +#define ACPI_HW_REDUCED_ACPI (1 << 20) +#define ACPI_LOW_POWER_S0_IDLE_CAPABLE (1 << 21) + +// acpi_fdt->arm_flags +#define ACPI_ARM_PSCI_COMPLIANT (1 << 0) +#define ACPI_ARM_PSCI_USE_HVC (1 << 1) + +UACPI_PACKED(struct acpi_fadt { + struct acpi_sdt_hdr hdr; + uacpi_u32 firmware_ctrl; + uacpi_u32 dsdt; + uacpi_u8 int_model; + uacpi_u8 preferred_pm_profile; + uacpi_u16 sci_int; + uacpi_u32 smi_cmd; + uacpi_u8 acpi_enable; + uacpi_u8 acpi_disable; + uacpi_u8 s4bios_req; + uacpi_u8 pstate_cnt; + uacpi_u32 pm1a_evt_blk; + uacpi_u32 pm1b_evt_blk; + uacpi_u32 pm1a_cnt_blk; + uacpi_u32 pm1b_cnt_blk; + uacpi_u32 pm2_cnt_blk; + uacpi_u32 pm_tmr_blk; + uacpi_u32 gpe0_blk; + uacpi_u32 gpe1_blk; + uacpi_u8 pm1_evt_len; + uacpi_u8 pm1_cnt_len; + uacpi_u8 pm2_cnt_len; + uacpi_u8 pm_tmr_len; + uacpi_u8 gpe0_blk_len; + uacpi_u8 gpe1_blk_len; + uacpi_u8 gpe1_base; + uacpi_u8 cst_cnt; + uacpi_u16 p_lvl2_lat; + uacpi_u16 p_lvl3_lat; + uacpi_u16 flush_size; + uacpi_u16 flush_stride; + uacpi_u8 duty_offset; + uacpi_u8 duty_width; + uacpi_u8 day_alrm; + uacpi_u8 mon_alrm; + uacpi_u8 century; + uacpi_u16 iapc_boot_arch; + uacpi_u8 rsvd; + uacpi_u32 flags; + struct acpi_gas reset_reg; + uacpi_u8 reset_value; + uacpi_u16 arm_boot_arch; + uacpi_u8 fadt_minor_verison; + uacpi_u64 x_firmware_ctrl; + uacpi_u64 x_dsdt; + struct acpi_gas x_pm1a_evt_blk; + struct acpi_gas x_pm1b_evt_blk; + struct acpi_gas x_pm1a_cnt_blk; + struct acpi_gas x_pm1b_cnt_blk; + struct acpi_gas x_pm2_cnt_blk; + struct acpi_gas x_pm_tmr_blk; + struct acpi_gas x_gpe0_blk; + struct acpi_gas x_gpe1_blk; + struct acpi_gas sleep_control_reg; + struct acpi_gas sleep_status_reg; + uacpi_u64 hypervisor_vendor_identity; +}) +UACPI_EXPECT_SIZEOF(struct acpi_fadt, 276); + +// acpi_facs->flags +#define ACPI_S4BIOS_F (1 << 0) +#define ACPI_64BIT_WAKE_SUPPORTED_F (1 << 1) + +// acpi_facs->ospm_flags +#define ACPI_64BIT_WAKE_F (1 << 0) + +struct acpi_facs { + uacpi_char signature[4]; + uacpi_u32 length; + uacpi_u32 hardware_signature; + uacpi_u32 firmware_waking_vector; + uacpi_u32 global_lock; + uacpi_u32 flags; + uacpi_u64 x_firmware_waking_vector; + uacpi_u8 version; + uacpi_char rsvd0[3]; + uacpi_u32 ospm_flags; + uacpi_char rsvd1[24]; +}; +UACPI_EXPECT_SIZEOF(struct acpi_facs, 64); + +UACPI_PACKED(struct acpi_mcfg_allocation { + uacpi_u64 address; + uacpi_u16 segment; + uacpi_u8 start_bus; + uacpi_u8 end_bus; + uacpi_u32 rsvd; +}) +UACPI_EXPECT_SIZEOF(struct acpi_mcfg_allocation, 16); + +UACPI_PACKED(struct acpi_mcfg { + struct acpi_sdt_hdr hdr; + uacpi_u64 rsvd; + struct acpi_mcfg_allocation entries[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_mcfg, 44); + +// acpi_hpet->block_id +#define ACPI_HPET_PCI_VENDOR_ID_SHIFT 16 +#define ACPI_HPET_LEGACY_REPLACEMENT_IRQ_ROUTING_CAPABLE (1 << 15) +#define ACPI_HPET_COUNT_SIZE_CAP (1 << 13) +#define ACPI_HPET_NUMBER_OF_COMPARATORS_SHIFT 8 +#define ACPI_HPET_NUMBER_OF_COMPARATORS_MASK 0b11111 +#define ACPI_HPET_HARDWARE_REV_ID_MASK 0b11111111 + +// acpi_hpet->flags +#define ACPI_HPET_PAGE_PROTECTION_MASK 0b11 +#define ACPI_HPET_PAGE_NO_PROTECTION 0 +#define ACPI_HPET_PAGE_4K_PROTECTED 1 +#define ACPI_HPET_PAGE_64K_PROTECTED 2 + +UACPI_PACKED(struct acpi_hpet { + struct acpi_sdt_hdr hdr; + uacpi_u32 block_id; + struct acpi_gas address; + uacpi_u8 number; + uacpi_u16 min_clock_tick; + uacpi_u8 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_hpet, 56); + +// PM1{a,b}_STS +#define ACPI_PM1_STS_TMR_STS_IDX 0 +#define ACPI_PM1_STS_BM_STS_IDX 4 +#define ACPI_PM1_STS_GBL_STS_IDX 5 +#define ACPI_PM1_STS_PWRBTN_STS_IDX 8 +#define ACPI_PM1_STS_SLPBTN_STS_IDX 9 +#define ACPI_PM1_STS_RTC_STS_IDX 10 +#define ACPI_PM1_STS_IGN0_IDX 11 +#define ACPI_PM1_STS_PCIEXP_WAKE_STS_IDX 14 +#define ACPI_PM1_STS_WAKE_STS_IDX 15 + +#define ACPI_PM1_STS_TMR_STS_MASK (1 << ACPI_PM1_STS_TMR_STS_IDX) +#define ACPI_PM1_STS_BM_STS_MASK (1 << ACPI_PM1_STS_BM_STS_IDX) +#define ACPI_PM1_STS_GBL_STS_MASK (1 << ACPI_PM1_STS_GBL_STS_IDX) +#define ACPI_PM1_STS_PWRBTN_STS_MASK (1 << ACPI_PM1_STS_PWRBTN_STS_IDX) +#define ACPI_PM1_STS_SLPBTN_STS_MASK (1 << ACPI_PM1_STS_SLPBTN_STS_IDX) +#define ACPI_PM1_STS_RTC_STS_MASK (1 << ACPI_PM1_STS_RTC_STS_IDX) +#define ACPI_PM1_STS_IGN0_MASK (1 << ACPI_PM1_STS_IGN0_IDX) +#define ACPI_PM1_STS_PCIEXP_WAKE_STS_MASK (1 << ACPI_PM1_STS_PCIEXP_WAKE_STS_IDX) +#define ACPI_PM1_STS_WAKE_STS_MASK (1 << ACPI_PM1_STS_WAKE_STS_IDX) + +#define ACPI_PM1_STS_CLEAR 1 + +// PM1{a,b}_EN +#define ACPI_PM1_EN_TMR_EN_IDX 0 +#define ACPI_PM1_EN_GBL_EN_IDX 5 +#define ACPI_PM1_EN_PWRBTN_EN_IDX 8 +#define ACPI_PM1_EN_SLPBTN_EN_IDX 9 +#define ACPI_PM1_EN_RTC_EN_IDX 10 +#define ACPI_PM1_EN_PCIEXP_WAKE_DIS_IDX 14 + +#define ACPI_PM1_EN_TMR_EN_MASK (1 << ACPI_PM1_EN_TMR_EN_IDX) +#define ACPI_PM1_EN_GBL_EN_MASK (1 << ACPI_PM1_EN_GBL_EN_IDX) +#define ACPI_PM1_EN_PWRBTN_EN_MASK (1 << ACPI_PM1_EN_PWRBTN_EN_IDX) +#define ACPI_PM1_EN_SLPBTN_EN_MASK (1 << ACPI_PM1_EN_SLPBTN_EN_IDX) +#define ACPI_PM1_EN_RTC_EN_MASK (1 << ACPI_PM1_EN_RTC_EN_IDX) +#define ACPI_PM1_EN_PCIEXP_WAKE_DIS_MASK (1 << ACPI_PM1_EN_PCIEXP_WAKE_DIS_IDX) + +// PM1{a,b}_CNT_BLK +#define ACPI_PM1_CNT_SCI_EN_IDX 0 +#define ACPI_PM1_CNT_BM_RLD_IDX 1 +#define ACPI_PM1_CNT_GBL_RLS_IDX 2 +#define ACPI_PM1_CNT_RSVD0_IDX 3 +#define ACPI_PM1_CNT_RSVD1_IDX 4 +#define ACPI_PM1_CNT_RSVD2_IDX 5 +#define ACPI_PM1_CNT_RSVD3_IDX 6 +#define ACPI_PM1_CNT_RSVD4_IDX 7 +#define ACPI_PM1_CNT_RSVD5_IDX 8 +#define ACPI_PM1_CNT_IGN0_IDX 9 +#define ACPI_PM1_CNT_SLP_TYP_IDX 10 +#define ACPI_PM1_CNT_SLP_EN_IDX 13 +#define ACPI_PM1_CNT_RSVD6_IDX 14 +#define ACPI_PM1_CNT_RSVD7_IDX 15 + +#define ACPI_SLP_TYP_MAX 0x7 + +#define ACPI_PM1_CNT_SCI_EN_MASK (1 << ACPI_PM1_CNT_SCI_EN_IDX) +#define ACPI_PM1_CNT_BM_RLD_MASK (1 << ACPI_PM1_CNT_BM_RLD_IDX) +#define ACPI_PM1_CNT_GBL_RLS_MASK (1 << ACPI_PM1_CNT_GBL_RLS_IDX) +#define ACPI_PM1_CNT_SLP_TYP_MASK (ACPI_SLP_TYP_MAX << ACPI_PM1_CNT_SLP_TYP_IDX) +#define ACPI_PM1_CNT_SLP_EN_MASK (1 << ACPI_PM1_CNT_SLP_EN_IDX) + +/* + * SCI_EN is not in this mask even though the spec says it must be preserved. + * This is because it's known to be bugged on some hardware that relies on + * software writing 1 to it after resume (as indicated by a similar comment in + * ACPICA) + */ +#define ACPI_PM1_CNT_PRESERVE_MASK ( \ + (1 << ACPI_PM1_CNT_RSVD0_IDX) | \ + (1 << ACPI_PM1_CNT_RSVD1_IDX) | \ + (1 << ACPI_PM1_CNT_RSVD2_IDX) | \ + (1 << ACPI_PM1_CNT_RSVD3_IDX) | \ + (1 << ACPI_PM1_CNT_RSVD4_IDX) | \ + (1 << ACPI_PM1_CNT_RSVD5_IDX) | \ + (1 << ACPI_PM1_CNT_IGN0_IDX ) | \ + (1 << ACPI_PM1_CNT_RSVD6_IDX) | \ + (1 << ACPI_PM1_CNT_RSVD7_IDX) \ +) + +// PM2_CNT +#define ACPI_PM2_CNT_ARB_DIS_IDX 0 +#define ACPI_PM2_CNT_ARB_DIS_MASK (1 << ACPI_PM2_CNT_ARB_DIS_IDX) + +// All bits are reserved but this first one +#define ACPI_PM2_CNT_PRESERVE_MASK (~((uacpi_u64)ACPI_PM2_CNT_ARB_DIS_MASK)) + +// SLEEP_CONTROL_REG +#define ACPI_SLP_CNT_RSVD0_IDX 0 +#define ACPI_SLP_CNT_IGN0_IDX 1 +#define ACPI_SLP_CNT_SLP_TYP_IDX 2 +#define ACPI_SLP_CNT_SLP_EN_IDX 5 +#define ACPI_SLP_CNT_RSVD1_IDX 6 +#define ACPI_SLP_CNT_RSVD2_IDX 7 + +#define ACPI_SLP_CNT_SLP_TYP_MASK (ACPI_SLP_TYP_MAX << ACPI_SLP_CNT_SLP_TYP_IDX) +#define ACPI_SLP_CNT_SLP_EN_MASK (1 << ACPI_SLP_CNT_SLP_EN_IDX) + +#define ACPI_SLP_CNT_PRESERVE_MASK ( \ + (1 << ACPI_SLP_CNT_RSVD0_IDX) | \ + (1 << ACPI_SLP_CNT_IGN0_IDX) | \ + (1 << ACPI_SLP_CNT_RSVD1_IDX) | \ + (1 << ACPI_SLP_CNT_RSVD2_IDX) \ +) + +// SLEEP_STATUS_REG +#define ACPI_SLP_STS_WAK_STS_IDX 7 + +#define ACPI_SLP_STS_WAK_STS_MASK (1 << ACPI_SLP_STS_WAK_STS_IDX) + +// All bits are reserved but this last one +#define ACPI_SLP_STS_PRESERVE_MASK (~((uacpi_u64)ACPI_SLP_STS_WAK_STS_MASK)) + +#define ACPI_SLP_STS_CLEAR 1 + +UACPI_PACKED(struct acpi_dsdt { + struct acpi_sdt_hdr hdr; + uacpi_u8 definition_block[]; +}) + +UACPI_PACKED(struct acpi_ssdt { + struct acpi_sdt_hdr hdr; + uacpi_u8 definition_block[]; +}) + +/* + * ACPI 6.5 specification: + * Bit [0] - Set if the device is present. + * Bit [1] - Set if the device is enabled and decoding its resources. + * Bit [2] - Set if the device should be shown in the UI. + * Bit [3] - Set if the device is functioning properly (cleared if device + * failed its diagnostics). + * Bit [4] - Set if the battery is present. + */ +#define ACPI_STA_RESULT_DEVICE_PRESENT (1 << 0) +#define ACPI_STA_RESULT_DEVICE_ENABLED (1 << 1) +#define ACPI_STA_RESULT_DEVICE_SHOWN_IN_UI (1 << 2) +#define ACPI_STA_RESULT_DEVICE_FUNCTIONING (1 << 3) +#define ACPI_STA_RESULT_DEVICE_BATTERY_PRESENT (1 << 4) + +#define ACPI_REG_DISCONNECT 0 +#define ACPI_REG_CONNECT 1 + +UACPI_PACKED(struct acpi_ecdt { + struct acpi_sdt_hdr hdr; + struct acpi_gas ec_control; + struct acpi_gas ec_data; + uacpi_u32 uid; + uacpi_u8 gpe_bit; + uacpi_char ec_id[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_ecdt, 65); + +UACPI_PACKED(struct acpi_rhct_hdr { + uacpi_u16 type; + uacpi_u16 length; + uacpi_u16 revision; +}) +UACPI_EXPECT_SIZEOF(struct acpi_rhct_hdr, 6); + +// acpi_rhct->flags +#define ACPI_TIMER_CANNOT_WAKE_CPU (1 << 0) + +UACPI_PACKED(struct acpi_rhct { + struct acpi_sdt_hdr hdr; + uacpi_u32 flags; + uacpi_u64 timebase_frequency; + uacpi_u32 node_count; + uacpi_u32 nodes_offset; + struct acpi_rhct_hdr entries[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_rhct, 56); + +enum acpi_rhct_entry_type { + ACPI_RHCT_ENTRY_TYPE_ISA_STRING = 0, + ACPI_RHCT_ENTRY_TYPE_CMO = 1, + ACPI_RHCT_ENTRY_TYPE_MMU = 2, + ACPI_RHCT_ENTRY_TYPE_HART_INFO = 65535, +}; + +UACPI_PACKED(struct acpi_rhct_isa_string { + struct acpi_rhct_hdr hdr; + uacpi_u16 length; + uacpi_u8 isa[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_rhct_isa_string, 8); + +UACPI_PACKED(struct acpi_rhct_cmo { + struct acpi_rhct_hdr hdr; + uacpi_u8 rsvd; + uacpi_u8 cbom_size; + uacpi_u8 cbop_size; + uacpi_u8 cboz_size; +}) +UACPI_EXPECT_SIZEOF(struct acpi_rhct_cmo, 10); + +enum acpi_rhct_mmu_type { + ACPI_RHCT_MMU_TYPE_SV39 = 0, + ACPI_RHCT_MMU_TYPE_SV48 = 1, + ACPI_RHCT_MMU_TYPE_SV57 = 2, +}; + +UACPI_PACKED(struct acpi_rhct_mmu { + struct acpi_rhct_hdr hdr; + uacpi_u8 rsvd; + uacpi_u8 type; +}) +UACPI_EXPECT_SIZEOF(struct acpi_rhct_mmu, 8); + +UACPI_PACKED(struct acpi_rhct_hart_info { + struct acpi_rhct_hdr hdr; + uacpi_u16 offset_count; + uacpi_u32 uid; + uacpi_u32 offsets[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_rhct_hart_info, 12); + +#define ACPI_LARGE_ITEM (1 << 7) + +#define ACPI_SMALL_ITEM_NAME_IDX 3 +#define ACPI_SMALL_ITEM_NAME_MASK 0xF +#define ACPI_SMALL_ITEM_LENGTH_MASK 0x7 + +#define ACPI_LARGE_ITEM_NAME_MASK 0x7F + +// Small items +#define ACPI_RESOURCE_IRQ 0x04 +#define ACPI_RESOURCE_DMA 0x05 +#define ACPI_RESOURCE_START_DEPENDENT 0x06 +#define ACPI_RESOURCE_END_DEPENDENT 0x07 +#define ACPI_RESOURCE_IO 0x08 +#define ACPI_RESOURCE_FIXED_IO 0x09 +#define ACPI_RESOURCE_FIXED_DMA 0x0A +#define ACPI_RESOURCE_VENDOR_TYPE0 0x0E +#define ACPI_RESOURCE_END_TAG 0x0F + +// Large items +#define ACPI_RESOURCE_MEMORY24 0x01 +#define ACPI_RESOURCE_GENERIC_REGISTER 0x02 +#define ACPI_RESOURCE_VENDOR_TYPE1 0x04 +#define ACPI_RESOURCE_MEMORY32 0x05 +#define ACPI_RESOURCE_FIXED_MEMORY32 0x06 +#define ACPI_RESOURCE_ADDRESS32 0x07 +#define ACPI_RESOURCE_ADDRESS16 0x08 +#define ACPI_RESOURCE_EXTENDED_IRQ 0x09 +#define ACPI_RESOURCE_ADDRESS64 0x0A +#define ACPI_RESOURCE_ADDRESS64_EXTENDED 0x0B +#define ACPI_RESOURCE_GPIO_CONNECTION 0x0C +#define ACPI_RESOURCE_PIN_FUNCTION 0x0D +#define ACPI_RESOURCE_SERIAL_CONNECTION 0x0E +#define ACPI_RESOURCE_PIN_CONFIGURATION 0x0F +#define ACPI_RESOURCE_PIN_GROUP 0x10 +#define ACPI_RESOURCE_PIN_GROUP_FUNCTION 0x11 +#define ACPI_RESOURCE_PIN_GROUP_CONFIGURATION 0x12 +#define ACPI_RESOURCE_CLOCK_INPUT 0x13 + +/* + * Resources as encoded by the raw AML byte stream. + * For decode API & human usable structures refer to uacpi/resources.h + */ +UACPI_PACKED(struct acpi_small_item { + uacpi_u8 type_and_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_small_item, 1); + +UACPI_PACKED(struct acpi_resource_irq { + struct acpi_small_item common; + uacpi_u16 irq_mask; + uacpi_u8 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_irq, 4); + +UACPI_PACKED(struct acpi_resource_dma { + struct acpi_small_item common; + uacpi_u8 channel_mask; + uacpi_u8 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_dma, 3); + +UACPI_PACKED(struct acpi_resource_start_dependent { + struct acpi_small_item common; + uacpi_u8 flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_start_dependent, 2); + +UACPI_PACKED(struct acpi_resource_end_dependent { + struct acpi_small_item common; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_end_dependent, 1); + +UACPI_PACKED(struct acpi_resource_io { + struct acpi_small_item common; + uacpi_u8 information; + uacpi_u16 minimum; + uacpi_u16 maximum; + uacpi_u8 alignment; + uacpi_u8 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_io, 8); + +UACPI_PACKED(struct acpi_resource_fixed_io { + struct acpi_small_item common; + uacpi_u16 address; + uacpi_u8 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_fixed_io, 4); + +UACPI_PACKED(struct acpi_resource_fixed_dma { + struct acpi_small_item common; + uacpi_u16 request_line; + uacpi_u16 channel; + uacpi_u8 transfer_width; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_fixed_dma, 6); + +UACPI_PACKED(struct acpi_resource_vendor_defined_type0 { + struct acpi_small_item common; + uacpi_u8 byte_data[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_vendor_defined_type0, 1); + +UACPI_PACKED(struct acpi_resource_end_tag { + struct acpi_small_item common; + uacpi_u8 checksum; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_end_tag, 2); + +UACPI_PACKED(struct acpi_large_item { + uacpi_u8 type; + uacpi_u16 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_large_item, 3); + +UACPI_PACKED(struct acpi_resource_memory24 { + struct acpi_large_item common; + uacpi_u8 information; + uacpi_u16 minimum; + uacpi_u16 maximum; + uacpi_u16 alignment; + uacpi_u16 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_memory24, 12); + +UACPI_PACKED(struct acpi_resource_vendor_defined_type1 { + struct acpi_large_item common; + uacpi_u8 byte_data[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_vendor_defined_type1, 3); + +UACPI_PACKED(struct acpi_resource_memory32 { + struct acpi_large_item common; + uacpi_u8 information; + uacpi_u32 minimum; + uacpi_u32 maximum; + uacpi_u32 alignment; + uacpi_u32 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_memory32, 20); + +UACPI_PACKED(struct acpi_resource_fixed_memory32 { + struct acpi_large_item common; + uacpi_u8 information; + uacpi_u32 address; + uacpi_u32 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_fixed_memory32, 12); + +UACPI_PACKED(struct acpi_resource_address { + struct acpi_large_item common; + uacpi_u8 type; + uacpi_u8 flags; + uacpi_u8 type_flags; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_address, 6); + +UACPI_PACKED(struct acpi_resource_address64 { + struct acpi_resource_address common; + uacpi_u64 granularity; + uacpi_u64 minimum; + uacpi_u64 maximum; + uacpi_u64 translation_offset; + uacpi_u64 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_address64, 46); + +UACPI_PACKED(struct acpi_resource_address32 { + struct acpi_resource_address common; + uacpi_u32 granularity; + uacpi_u32 minimum; + uacpi_u32 maximum; + uacpi_u32 translation_offset; + uacpi_u32 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_address32, 26); + +UACPI_PACKED(struct acpi_resource_address16 { + struct acpi_resource_address common; + uacpi_u16 granularity; + uacpi_u16 minimum; + uacpi_u16 maximum; + uacpi_u16 translation_offset; + uacpi_u16 length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_address16, 16); + +UACPI_PACKED(struct acpi_resource_address64_extended { + struct acpi_resource_address common; + uacpi_u8 revision_id; + uacpi_u8 rsvd; + uacpi_u64 granularity; + uacpi_u64 minimum; + uacpi_u64 maximum; + uacpi_u64 translation_offset; + uacpi_u64 length; + uacpi_u64 attributes; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_address64_extended, 56); + +UACPI_PACKED(struct acpi_resource_extended_irq { + struct acpi_large_item common; + uacpi_u8 flags; + uacpi_u8 num_irqs; + uacpi_u32 irqs[]; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_extended_irq, 5); + +UACPI_PACKED(struct acpi_resource_generic_register { + struct acpi_large_item common; + uacpi_u8 address_space_id; + uacpi_u8 bit_width; + uacpi_u8 bit_offset; + uacpi_u8 access_size; + uacpi_u64 address; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_generic_register, 15); + +UACPI_PACKED(struct acpi_resource_gpio_connection { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u8 type; + uacpi_u16 general_flags; + uacpi_u16 connection_flags; + uacpi_u8 pull_configuration; + uacpi_u16 drive_strength; + uacpi_u16 debounce_timeout; + uacpi_u16 pin_table_offset; + uacpi_u8 source_index; + uacpi_u16 source_offset; + uacpi_u16 vendor_data_offset; + uacpi_u16 vendor_data_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_gpio_connection, 23); + +#define ACPI_SERIAL_TYPE_I2C 1 +#define ACPI_SERIAL_TYPE_SPI 2 +#define ACPI_SERIAL_TYPE_UART 3 +#define ACPI_SERIAL_TYPE_CSI2 4 +#define ACPI_SERIAL_TYPE_MAX ACPI_SERIAL_TYPE_CSI2 + +UACPI_PACKED(struct acpi_resource_serial { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u8 source_index; + uacpi_u8 type; + uacpi_u8 flags; + uacpi_u16 type_specific_flags; + uacpi_u8 type_specific_revision_id; + uacpi_u16 type_data_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_serial, 12); + +UACPI_PACKED(struct acpi_resource_serial_i2c { + struct acpi_resource_serial common; + uacpi_u32 connection_speed; + uacpi_u16 slave_address; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_serial_i2c, 18); + +UACPI_PACKED(struct acpi_resource_serial_spi { + struct acpi_resource_serial common; + uacpi_u32 connection_speed; + uacpi_u8 data_bit_length; + uacpi_u8 phase; + uacpi_u8 polarity; + uacpi_u16 device_selection; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_serial_spi, 21); + +UACPI_PACKED(struct acpi_resource_serial_uart { + struct acpi_resource_serial common; + uacpi_u32 baud_rate; + uacpi_u16 rx_fifo; + uacpi_u16 tx_fifo; + uacpi_u8 parity; + uacpi_u8 lines_enabled; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_serial_uart, 22); + +UACPI_PACKED(struct acpi_resource_serial_csi2 { + struct acpi_resource_serial common; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_serial_csi2, 12); + +UACPI_PACKED(struct acpi_resource_pin_function { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u16 flags; + uacpi_u8 pull_configuration; + uacpi_u16 function_number; + uacpi_u16 pin_table_offset; + uacpi_u8 source_index; + uacpi_u16 source_offset; + uacpi_u16 vendor_data_offset; + uacpi_u16 vendor_data_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_pin_function, 18); + +UACPI_PACKED(struct acpi_resource_pin_configuration { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u16 flags; + uacpi_u8 type; + uacpi_u32 value; + uacpi_u16 pin_table_offset; + uacpi_u8 source_index; + uacpi_u16 source_offset; + uacpi_u16 vendor_data_offset; + uacpi_u16 vendor_data_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_pin_configuration, 20); + +UACPI_PACKED(struct acpi_resource_pin_group { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u16 flags; + uacpi_u16 pin_table_offset; + uacpi_u16 source_lable_offset; + uacpi_u16 vendor_data_offset; + uacpi_u16 vendor_data_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_pin_group, 14); + +UACPI_PACKED(struct acpi_resource_pin_group_function { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u16 flags; + uacpi_u16 function; + uacpi_u8 source_index; + uacpi_u16 source_offset; + uacpi_u16 source_lable_offset; + uacpi_u16 vendor_data_offset; + uacpi_u16 vendor_data_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_pin_group_function, 17); + +UACPI_PACKED(struct acpi_resource_pin_group_configuration { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u16 flags; + uacpi_u8 type; + uacpi_u32 value; + uacpi_u8 source_index; + uacpi_u16 source_offset; + uacpi_u16 source_lable_offset; + uacpi_u16 vendor_data_offset; + uacpi_u16 vendor_data_length; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_pin_group_configuration, 20); + +UACPI_PACKED(struct acpi_resource_clock_input { + struct acpi_large_item common; + uacpi_u8 revision_id; + uacpi_u16 flags; + uacpi_u16 divisor; + uacpi_u32 numerator; + uacpi_u8 source_index; +}) +UACPI_EXPECT_SIZEOF(struct acpi_resource_clock_input, 13); diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/context.h b/kernel/hal/x86_64/uACPI/include/uacpi/context.h new file mode 100644 index 0000000..d5a46e5 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/context.h @@ -0,0 +1,53 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Set the minimum log level to be accepted by the logging facilities. Any logs + * below this level are discarded and not passed to uacpi_kernel_log, etc. + * + * 0 is treated as a special value that resets the setting to the default value. + * + * E.g. for a log level of UACPI_LOG_INFO: + * UACPI_LOG_DEBUG -> discarded + * UACPI_LOG_TRACE -> discarded + * UACPI_LOG_INFO -> allowed + * UACPI_LOG_WARN -> allowed + * UACPI_LOG_ERROR -> allowed + */ +void uacpi_context_set_log_level(uacpi_log_level); + +/* + * Enables table checksum validation at installation time instead of first use. + * Note that this makes uACPI map the entire table at once, which not all + * hosts are able to handle at early init. + */ +void uacpi_context_set_proactive_table_checksum(uacpi_bool); + +#ifndef UACPI_BAREBONES_MODE +/* + * Set the maximum number of seconds a While loop is allowed to run for before + * getting timed out. + * + * 0 is treated a special value that resets the setting to the default value. + */ +void uacpi_context_set_loop_timeout(uacpi_u32 seconds); + +/* + * Set the maximum call stack depth AML can reach before getting aborted. + * + * 0 is treated as a special value that resets the setting to the default value. + */ +void uacpi_context_set_max_call_stack_depth(uacpi_u32 depth); + +uacpi_u32 uacpi_context_get_loop_timeout(void); +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/event.h b/kernel/hal/x86_64/uACPI/include/uacpi/event.h new file mode 100644 index 0000000..a21fe6e --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/event.h @@ -0,0 +1,286 @@ +#pragma once + +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +typedef enum uacpi_fixed_event { + UACPI_FIXED_EVENT_TIMER_STATUS = 1, + UACPI_FIXED_EVENT_POWER_BUTTON, + UACPI_FIXED_EVENT_SLEEP_BUTTON, + UACPI_FIXED_EVENT_RTC, + UACPI_FIXED_EVENT_MAX = UACPI_FIXED_EVENT_RTC, +} uacpi_fixed_event; + +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_install_fixed_event_handler( + uacpi_fixed_event event, uacpi_interrupt_handler handler, uacpi_handle user +)) + +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_uninstall_fixed_event_handler( + uacpi_fixed_event event +)) + +/* + * Enable/disable a fixed event. Note that the event is automatically enabled + * upon installing a handler to it. + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_enable_fixed_event(uacpi_fixed_event event) +) +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_disable_fixed_event(uacpi_fixed_event event) +) + +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_clear_fixed_event(uacpi_fixed_event event) +) + +typedef enum uacpi_event_info { + // Event is enabled in software + UACPI_EVENT_INFO_ENABLED = (1 << 0), + + // Event is enabled in software (only for wake) + UACPI_EVENT_INFO_ENABLED_FOR_WAKE = (1 << 1), + + // Event is masked + UACPI_EVENT_INFO_MASKED = (1 << 2), + + // Event has a handler attached + UACPI_EVENT_INFO_HAS_HANDLER = (1 << 3), + + // Hardware enable bit is set + UACPI_EVENT_INFO_HW_ENABLED = (1 << 4), + + // Hardware status bit is set + UACPI_EVENT_INFO_HW_STATUS = (1 << 5), +} uacpi_event_info; + +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_fixed_event_info( + uacpi_fixed_event event, uacpi_event_info *out_info +)) + +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_gpe_info( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_event_info *out_info +)) + +// Set if the handler wishes to reenable the GPE it just handled +#define UACPI_GPE_REENABLE (1 << 7) + +typedef uacpi_interrupt_ret (*uacpi_gpe_handler)( + uacpi_handle ctx, uacpi_namespace_node *gpe_device, uacpi_u16 idx +); + +typedef enum uacpi_gpe_triggering { + UACPI_GPE_TRIGGERING_LEVEL = 0, + UACPI_GPE_TRIGGERING_EDGE = 1, + UACPI_GPE_TRIGGERING_MAX = UACPI_GPE_TRIGGERING_EDGE, +} uacpi_gpe_triggering; + +const uacpi_char *uacpi_gpe_triggering_to_string( + uacpi_gpe_triggering triggering +); + +/* + * Installs a handler to the provided GPE at 'idx' controlled by device + * 'gpe_device'. The GPE is automatically disabled & cleared according to the + * configured triggering upon invoking the handler. The event is optionally + * re-enabled (by returning UACPI_GPE_REENABLE from the handler) + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_install_gpe_handler( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_gpe_triggering triggering, uacpi_gpe_handler handler, uacpi_handle ctx +)) + +/* + * Installs a raw handler to the provided GPE at 'idx' controlled by device + * 'gpe_device'. The handler is dispatched immediately after the event is + * received, status & enable bits are untouched. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_install_gpe_handler_raw( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_gpe_triggering triggering, uacpi_gpe_handler handler, uacpi_handle ctx +)) + +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_uninstall_gpe_handler( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, uacpi_gpe_handler handler +)) + +/* + * Marks the GPE 'idx' managed by 'gpe_device' as wake-capable. 'wake_device' is + * optional and configures the GPE to generate an implicit notification whenever + * an event occurs. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_setup_gpe_for_wake( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_namespace_node *wake_device +)) + +/* + * Mark a GPE managed by 'gpe_device' as enabled/disabled for wake. The GPE must + * have previously been marked by calling uacpi_gpe_setup_for_wake. This + * function only affects the GPE enable register state following the call to + * uacpi_gpe_enable_all_for_wake. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_enable_gpe_for_wake( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_disable_gpe_for_wake( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) + +/* + * Finalize GPE initialization by enabling all GPEs not configured for wake and + * having a matching AML handler detected. + * + * This should be called after the kernel power managment subsystem has + * enumerated all of the devices, executing their _PRW methods etc., and + * marking those it wishes to use for wake by calling uacpi_setup_gpe_for_wake + * or uacpi_mark_gpe_for_wake. + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_finalize_gpe_initialization(void) +) + +/* + * Enable/disable a general purpose event managed by 'gpe_device'. Internally + * this uses reference counting to make sure a GPE is not disabled until all + * possible users of it do so. GPEs not marked for wake are enabled + * automatically so this API is only needed for wake events or those that don't + * have a corresponding AML handler. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_enable_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_disable_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) + +/* + * Clear the status bit of the event 'idx' managed by 'gpe_device'. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_clear_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) + +/* + * Suspend/resume a general purpose event managed by 'gpe_device'. This bypasses + * the reference counting mechanism and unconditionally clears/sets the + * corresponding bit in the enable registers. This is used for switching the GPE + * to poll mode. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_suspend_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_resume_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) + +/* + * Finish handling the GPE managed by 'gpe_device' at 'idx'. This clears the + * status registers if it hasn't been cleared yet and re-enables the event if + * it was enabled before. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_finish_handling_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) + +/* + * Hard mask/umask a general purpose event at 'idx' managed by 'gpe_device'. + * This is used to permanently silence an event so that further calls to + * enable/disable as well as suspend/resume get ignored. This might be necessary + * for GPEs that cause an event storm due to the kernel's inability to properly + * handle them. The only way to enable a masked event is by a call to unmask. + * + * NOTE: 'gpe_device' may be null for GPEs managed by \_GPE + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_mask_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_unmask_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +)) + +/* + * Disable all GPEs currently set up on the system. + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_disable_all_gpes(void) +) + +/* + * Enable all GPEs not marked as wake. This is only needed after the system + * wakes from a shallow sleep state and is called automatically by wake code. + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_enable_all_runtime_gpes(void) +) + +/* + * Enable all GPEs marked as wake. This is only needed before the system goes + * to sleep is called automatically by sleep code. + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_enable_all_wake_gpes(void) +) + +/* + * Install/uninstall a new GPE block, usually defined by a device in the + * namespace with a _HID of ACPI0006. + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_install_gpe_block( + uacpi_namespace_node *gpe_device, uacpi_u64 address, + uacpi_address_space address_space, uacpi_u16 num_registers, + uacpi_u32 irq +)) +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_uninstall_gpe_block( + uacpi_namespace_node *gpe_device +)) + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/helpers.h b/kernel/hal/x86_64/uACPI/include/uacpi/helpers.h new file mode 100644 index 0000000..520359e --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/helpers.h @@ -0,0 +1,12 @@ +#pragma once + +#include + +#define UACPI_BUILD_BUG_ON_WITH_MSG(expr, msg) UACPI_STATIC_ASSERT(!(expr), msg) + +#define UACPI_BUILD_BUG_ON(expr) \ + UACPI_BUILD_BUG_ON_WITH_MSG(expr, "BUILD BUG: " #expr " evaluated to true") + +#define UACPI_EXPECT_SIZEOF(type, size) \ + UACPI_BUILD_BUG_ON_WITH_MSG(sizeof(type) != size, \ + "BUILD BUG: invalid type size") diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/compiler.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/compiler.h new file mode 100644 index 0000000..68033fd --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/compiler.h @@ -0,0 +1,3 @@ +#pragma once + +#include diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/context.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/context.h new file mode 100644 index 0000000..ca587f6 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/context.h @@ -0,0 +1,155 @@ +#pragma once + +#include +#include +#include +#include +#include +#include + +struct uacpi_runtime_context { + /* + * A local copy of FADT that has been verified & converted to most optimal + * format for faster access to the registers. + */ + struct acpi_fadt fadt; + + uacpi_u64 flags; + +#ifndef UACPI_BAREBONES_MODE + /* + * A cached pointer to FACS so that we don't have to look it up in interrupt + * contexts as we can't take mutexes. + */ + struct acpi_facs *facs; + + /* + * pm1{a,b}_evt_blk split into two registers for convenience + */ + struct acpi_gas pm1a_status_blk; + struct acpi_gas pm1b_status_blk; + struct acpi_gas pm1a_enable_blk; + struct acpi_gas pm1b_enable_blk; + +#define UACPI_SLEEP_TYP_INVALID 0xFF + uacpi_u8 last_sleep_typ_a; + uacpi_u8 last_sleep_typ_b; + + uacpi_u8 s0_sleep_typ_a; + uacpi_u8 s0_sleep_typ_b; + + uacpi_bool global_lock_acquired; + +#ifndef UACPI_REDUCED_HARDWARE + uacpi_bool was_in_legacy_mode; + uacpi_bool has_global_lock; + uacpi_bool sci_handle_valid; + uacpi_handle sci_handle; +#endif + uacpi_u64 opcodes_executed; + + uacpi_u32 loop_timeout_seconds; + uacpi_u32 max_call_stack_depth; + + uacpi_u32 global_lock_seq_num; + + /* + * These are stored here to protect against stuff like: + * - CopyObject(JUNK, \) + * - CopyObject(JUNK, \_GL) + */ + uacpi_mutex *global_lock_mutex; + uacpi_object *root_object; + +#ifndef UACPI_REDUCED_HARDWARE + uacpi_handle *global_lock_event; + uacpi_handle *global_lock_spinlock; + uacpi_bool global_lock_pending; +#endif + + uacpi_bool bad_timesource; + uacpi_u8 init_level; +#endif // !UACPI_BAREBONES_MODE + +#ifndef UACPI_REDUCED_HARDWARE + uacpi_bool is_hardware_reduced; +#endif + + /* + * This is a per-table value but we mimic the NT implementation: + * treat all other definition blocks as if they were the same revision + * as DSDT. + */ + uacpi_bool is_rev1; + + uacpi_u8 log_level; +}; + +extern struct uacpi_runtime_context g_uacpi_rt_ctx; + +static inline uacpi_bool uacpi_check_flag(uacpi_u64 flag) +{ + return (g_uacpi_rt_ctx.flags & flag) == flag; +} + +static inline uacpi_bool uacpi_should_log(enum uacpi_log_level lvl) +{ + return lvl <= g_uacpi_rt_ctx.log_level; +} + +static inline uacpi_bool uacpi_is_hardware_reduced(void) +{ +#ifndef UACPI_REDUCED_HARDWARE + return g_uacpi_rt_ctx.is_hardware_reduced; +#else + return UACPI_TRUE; +#endif +} + +#ifndef UACPI_BAREBONES_MODE + +static inline const uacpi_char *uacpi_init_level_to_string(uacpi_u8 lvl) +{ + switch (lvl) { + case UACPI_INIT_LEVEL_EARLY: + return "early"; + case UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED: + return "subsystem initialized"; + case UACPI_INIT_LEVEL_NAMESPACE_LOADED: + return "namespace loaded"; + case UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED: + return "namespace initialized"; + default: + return ""; + } +} + +#define UACPI_ENSURE_INIT_LEVEL_AT_LEAST(lvl) \ + do { \ + if (uacpi_unlikely(g_uacpi_rt_ctx.init_level < lvl)) { \ + uacpi_error( \ + "while evaluating %s: init level %d (%s) is too low, " \ + "expected at least %d (%s)\n", __FUNCTION__, \ + g_uacpi_rt_ctx.init_level, \ + uacpi_init_level_to_string(g_uacpi_rt_ctx.init_level), lvl, \ + uacpi_init_level_to_string(lvl) \ + ); \ + return UACPI_STATUS_INIT_LEVEL_MISMATCH; \ + } \ + } while (0) + +#define UACPI_ENSURE_INIT_LEVEL_IS(lvl) \ + do { \ + if (uacpi_unlikely(g_uacpi_rt_ctx.init_level != lvl)) { \ + uacpi_error( \ + "while evaluating %s: invalid init level %d (%s), " \ + "expected %d (%s)\n", __FUNCTION__, \ + g_uacpi_rt_ctx.init_level, \ + uacpi_init_level_to_string(g_uacpi_rt_ctx.init_level), lvl, \ + uacpi_init_level_to_string(lvl) \ + ); \ + return UACPI_STATUS_INIT_LEVEL_MISMATCH; \ + } \ + } while (0) + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/dynamic_array.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/dynamic_array.h new file mode 100644 index 0000000..4adc00f --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/dynamic_array.h @@ -0,0 +1,185 @@ +#pragma once + +#include +#include +#include + +#define DYNAMIC_ARRAY_WITH_INLINE_STORAGE(name, type, inline_capacity) \ + struct name { \ + type inline_storage[inline_capacity]; \ + type *dynamic_storage; \ + uacpi_size dynamic_capacity; \ + uacpi_size size_including_inline; \ + }; \ + +#define DYNAMIC_ARRAY_SIZE(arr) ((arr)->size_including_inline) + +#define DYNAMIC_ARRAY_WITH_INLINE_STORAGE_EXPORTS(name, type, prefix) \ + prefix uacpi_size name##_inline_capacity(struct name *arr); \ + prefix type *name##_at(struct name *arr, uacpi_size idx); \ + prefix type *name##_alloc(struct name *arr); \ + prefix type *name##_calloc(struct name *arr); \ + prefix void name##_pop(struct name *arr); \ + prefix uacpi_size name##_size(struct name *arr); \ + prefix type *name##_last(struct name *arr) \ + prefix void name##_clear(struct name *arr); + +#ifndef UACPI_BAREBONES_MODE +#define DYNAMIC_ARRAY_ALLOC_FN(name, type, prefix) \ + UACPI_MAYBE_UNUSED \ + prefix type *name##_alloc(struct name *arr) \ + { \ + uacpi_size inline_cap; \ + type *out_ptr; \ + \ + inline_cap = name##_inline_capacity(arr); \ + \ + if (arr->size_including_inline >= inline_cap) { \ + uacpi_size dynamic_size; \ + \ + dynamic_size = arr->size_including_inline - inline_cap; \ + if (dynamic_size == arr->dynamic_capacity) { \ + uacpi_size bytes, type_size; \ + void *new_buf; \ + \ + type_size = sizeof(*arr->dynamic_storage); \ + \ + if (arr->dynamic_capacity == 0) { \ + bytes = type_size * inline_cap; \ + } else { \ + bytes = (arr->dynamic_capacity / 2) * type_size; \ + if (bytes == 0) \ + bytes += type_size; \ + \ + bytes += arr->dynamic_capacity * type_size; \ + } \ + \ + new_buf = uacpi_kernel_alloc(bytes); \ + if (uacpi_unlikely(new_buf == UACPI_NULL)) \ + return UACPI_NULL; \ + \ + arr->dynamic_capacity = bytes / type_size; \ + \ + if (arr->dynamic_storage) { \ + uacpi_memcpy(new_buf, arr->dynamic_storage, \ + dynamic_size * type_size); \ + } \ + uacpi_free(arr->dynamic_storage, dynamic_size * type_size); \ + arr->dynamic_storage = new_buf; \ + } \ + \ + out_ptr = &arr->dynamic_storage[dynamic_size]; \ + goto ret; \ + } \ + out_ptr = &arr->inline_storage[arr->size_including_inline]; \ + ret: \ + arr->size_including_inline++; \ + return out_ptr; \ + } + +#define DYNAMIC_ARRAY_CLEAR_FN(name, type, prefix) \ + prefix void name##_clear(struct name *arr) \ + { \ + uacpi_free( \ + arr->dynamic_storage, \ + arr->dynamic_capacity * sizeof(*arr->dynamic_storage) \ + ); \ + arr->size_including_inline = 0; \ + arr->dynamic_capacity = 0; \ + arr->dynamic_storage = UACPI_NULL; \ + } +#else +#define DYNAMIC_ARRAY_ALLOC_FN(name, type, prefix) \ + UACPI_MAYBE_UNUSED \ + prefix type *name##_alloc(struct name *arr) \ + { \ + uacpi_size inline_cap; \ + type *out_ptr; \ + \ + inline_cap = name##_inline_capacity(arr); \ + \ + if (arr->size_including_inline >= inline_cap) { \ + uacpi_size dynamic_size; \ + \ + dynamic_size = arr->size_including_inline - inline_cap; \ + if (uacpi_unlikely(dynamic_size == arr->dynamic_capacity)) \ + return UACPI_NULL; \ + \ + out_ptr = &arr->dynamic_storage[dynamic_size]; \ + goto ret; \ + } \ + out_ptr = &arr->inline_storage[arr->size_including_inline]; \ + ret: \ + arr->size_including_inline++; \ + return out_ptr; \ + } + +#define DYNAMIC_ARRAY_CLEAR_FN(name, type, prefix) \ + prefix void name##_clear(struct name *arr) \ + { \ + arr->size_including_inline = 0; \ + arr->dynamic_capacity = 0; \ + arr->dynamic_storage = UACPI_NULL; \ + } +#endif + +#define DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL(name, type, prefix) \ + UACPI_MAYBE_UNUSED \ + prefix uacpi_size name##_inline_capacity(struct name *arr) \ + { \ + return sizeof(arr->inline_storage) / sizeof(arr->inline_storage[0]); \ + } \ + \ + UACPI_MAYBE_UNUSED \ + prefix uacpi_size name##_capacity(struct name *arr) \ + { \ + return name##_inline_capacity(arr) + arr->dynamic_capacity; \ + } \ + \ + prefix type *name##_at(struct name *arr, uacpi_size idx) \ + { \ + if (idx >= arr->size_including_inline) \ + return UACPI_NULL; \ + \ + if (idx < name##_inline_capacity(arr)) \ + return &arr->inline_storage[idx]; \ + \ + return &arr->dynamic_storage[idx - name##_inline_capacity(arr)]; \ + } \ + \ + DYNAMIC_ARRAY_ALLOC_FN(name, type, prefix) \ + \ + UACPI_MAYBE_UNUSED \ + prefix type *name##_calloc(struct name *arr) \ + { \ + type *ret; \ + \ + ret = name##_alloc(arr); \ + if (ret) \ + uacpi_memzero(ret, sizeof(*ret)); \ + \ + return ret; \ + } \ + \ + UACPI_MAYBE_UNUSED \ + prefix void name##_pop(struct name *arr) \ + { \ + if (arr->size_including_inline == 0) \ + return; \ + \ + arr->size_including_inline--; \ + } \ + \ + UACPI_MAYBE_UNUSED \ + prefix uacpi_size name##_size(struct name *arr) \ + { \ + return arr->size_including_inline; \ + } \ + \ + UACPI_MAYBE_UNUSED \ + prefix type *name##_last(struct name *arr) \ + { \ + return name##_at(arr, arr->size_including_inline - 1); \ + } \ + \ + DYNAMIC_ARRAY_CLEAR_FN(name, type, prefix) diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/event.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/event.h new file mode 100644 index 0000000..40ced0d --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/event.h @@ -0,0 +1,25 @@ +#pragma once + +#include + +// This fixed event is internal-only, and we don't expose it in the enum +#define UACPI_FIXED_EVENT_GLOBAL_LOCK 0 + +UACPI_ALWAYS_OK_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_initialize_events_early(void) +) + +UACPI_ALWAYS_OK_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_initialize_events(void) +) +UACPI_STUB_IF_REDUCED_HARDWARE( + void uacpi_deinitialize_events(void) +) + +UACPI_STUB_IF_REDUCED_HARDWARE( + void uacpi_events_match_post_dynamic_table_load(void) +) + +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_clear_all_events(void) +) diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/helpers.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/helpers.h new file mode 100644 index 0000000..f02b589 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/helpers.h @@ -0,0 +1,7 @@ +#pragma once + +#include + +#define UACPI_ARRAY_SIZE(arr) (sizeof(arr) / sizeof((arr)[0])) + +#define UACPI_UNUSED(x) (void)(x) diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/interpreter.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/interpreter.h new file mode 100644 index 0000000..410c379 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/interpreter.h @@ -0,0 +1,24 @@ +#pragma once + +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +enum uacpi_table_load_cause { + UACPI_TABLE_LOAD_CAUSE_LOAD_OP, + UACPI_TABLE_LOAD_CAUSE_LOAD_TABLE_OP, + UACPI_TABLE_LOAD_CAUSE_INIT, + UACPI_TABLE_LOAD_CAUSE_HOST, +}; + +uacpi_status uacpi_execute_table(void*, enum uacpi_table_load_cause cause); +uacpi_status uacpi_osi(uacpi_handle handle, uacpi_object *retval); + +uacpi_status uacpi_execute_control_method( + uacpi_namespace_node *scope, uacpi_control_method *method, + const uacpi_object_array *args, uacpi_object **ret +); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/io.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/io.h new file mode 100644 index 0000000..839489a --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/io.h @@ -0,0 +1,77 @@ +#pragma once + +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +typedef struct uacpi_mapped_gas { + uacpi_handle mapping; + uacpi_u8 access_bit_width; + uacpi_u8 total_bit_width; + uacpi_u8 bit_offset; + + uacpi_status (*read)( + uacpi_handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 *out + ); + uacpi_status (*write)( + uacpi_handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 in + ); + + void (*unmap)(uacpi_handle, uacpi_size); +} uacpi_mapped_gas; + +uacpi_status uacpi_map_gas_noalloc( + const struct acpi_gas *gas, uacpi_mapped_gas *out_mapped +); +void uacpi_unmap_gas_nofree(uacpi_mapped_gas *gas); + +uacpi_size uacpi_round_up_bits_to_bytes(uacpi_size bit_length); + +void uacpi_read_buffer_field( + const uacpi_buffer_field *field, void *dst +); +void uacpi_write_buffer_field( + uacpi_buffer_field *field, const void *src, uacpi_size size +); + +uacpi_status uacpi_field_unit_get_read_type( + struct uacpi_field_unit *field, uacpi_object_type *out_type +); + +uacpi_status uacpi_field_unit_get_bit_length( + struct uacpi_field_unit *field, uacpi_size *out_length +); + +uacpi_status uacpi_read_field_unit( + uacpi_field_unit *field, void *dst, uacpi_size size, + uacpi_data_view *wtr_response +); +uacpi_status uacpi_write_field_unit( + uacpi_field_unit *field, const void *src, uacpi_size size, + uacpi_data_view *wtr_response +); + +uacpi_status uacpi_system_memory_read( + void *ptr, uacpi_size offset, uacpi_u8 width, uacpi_u64 *out +); +uacpi_status uacpi_system_memory_write( + void *ptr, uacpi_size offset, uacpi_u8 width, uacpi_u64 in +); + +uacpi_status uacpi_system_io_read( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 *out +); +uacpi_status uacpi_system_io_write( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 in +); + +uacpi_status uacpi_pci_read( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 *out +); +uacpi_status uacpi_pci_write( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 in +); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/log.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/log.h new file mode 100644 index 0000000..e8b0451 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/log.h @@ -0,0 +1,23 @@ +#pragma once + +#include +#include +#include + +#ifdef UACPI_FORMATTED_LOGGING +#define uacpi_log uacpi_kernel_log +#else +UACPI_PRINTF_DECL(2, 3) +void uacpi_log(uacpi_log_level, const uacpi_char*, ...); +#endif + +#define uacpi_log_lvl(lvl, ...) \ + do { if (uacpi_should_log(lvl)) uacpi_log(lvl, __VA_ARGS__); } while (0) + +#define uacpi_debug(...) uacpi_log_lvl(UACPI_LOG_DEBUG, __VA_ARGS__) +#define uacpi_trace(...) uacpi_log_lvl(UACPI_LOG_TRACE, __VA_ARGS__) +#define uacpi_info(...) uacpi_log_lvl(UACPI_LOG_INFO, __VA_ARGS__) +#define uacpi_warn(...) uacpi_log_lvl(UACPI_LOG_WARN, __VA_ARGS__) +#define uacpi_error(...) uacpi_log_lvl(UACPI_LOG_ERROR, __VA_ARGS__) + +void uacpi_logger_initialize(void); diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/mutex.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/mutex.h new file mode 100644 index 0000000..4fa2c9b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/mutex.h @@ -0,0 +1,82 @@ +#pragma once + +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +uacpi_bool uacpi_this_thread_owns_aml_mutex(uacpi_mutex*); + +uacpi_status uacpi_acquire_aml_mutex(uacpi_mutex*, uacpi_u16 timeout); +uacpi_status uacpi_release_aml_mutex(uacpi_mutex*); + +static inline uacpi_status uacpi_acquire_native_mutex(uacpi_handle mtx) +{ + if (uacpi_unlikely(mtx == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + return uacpi_kernel_acquire_mutex(mtx, 0xFFFF); +} + +uacpi_status uacpi_acquire_native_mutex_with_timeout( + uacpi_handle mtx, uacpi_u16 timeout +); + +static inline uacpi_status uacpi_release_native_mutex(uacpi_handle mtx) +{ + if (uacpi_unlikely(mtx == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + uacpi_kernel_release_mutex(mtx); + return UACPI_STATUS_OK; +} + +static inline uacpi_status uacpi_acquire_native_mutex_may_be_null( + uacpi_handle mtx +) +{ + if (mtx == UACPI_NULL) + return UACPI_STATUS_OK; + + return uacpi_kernel_acquire_mutex(mtx, 0xFFFF); +} + +static inline uacpi_status uacpi_release_native_mutex_may_be_null( + uacpi_handle mtx +) +{ + if (mtx == UACPI_NULL) + return UACPI_STATUS_OK; + + uacpi_kernel_release_mutex(mtx); + return UACPI_STATUS_OK; +} + +struct uacpi_recursive_lock { + uacpi_handle mutex; + uacpi_size depth; + uacpi_thread_id owner; +}; + +uacpi_status uacpi_recursive_lock_init(struct uacpi_recursive_lock *lock); +uacpi_status uacpi_recursive_lock_deinit(struct uacpi_recursive_lock *lock); + +uacpi_status uacpi_recursive_lock_acquire(struct uacpi_recursive_lock *lock); +uacpi_status uacpi_recursive_lock_release(struct uacpi_recursive_lock *lock); + +struct uacpi_rw_lock { + uacpi_handle read_mutex; + uacpi_handle write_mutex; + uacpi_size num_readers; +}; + +uacpi_status uacpi_rw_lock_init(struct uacpi_rw_lock *lock); +uacpi_status uacpi_rw_lock_deinit(struct uacpi_rw_lock *lock); + +uacpi_status uacpi_rw_lock_read(struct uacpi_rw_lock *lock); +uacpi_status uacpi_rw_unlock_read(struct uacpi_rw_lock *lock); + +uacpi_status uacpi_rw_lock_write(struct uacpi_rw_lock *lock); +uacpi_status uacpi_rw_unlock_write(struct uacpi_rw_lock *lock); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/namespace.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/namespace.h new file mode 100644 index 0000000..369c5a4 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/namespace.h @@ -0,0 +1,123 @@ +#pragma once + +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +#define UACPI_NAMESPACE_NODE_FLAG_ALIAS (1 << 0) + +/* + * This node has been uninstalled and has no object associated with it. + * + * This is used to handle edge cases where an object needs to reference + * a namespace node, where the node might end up going out of scope before + * the object lifetime ends. + */ +#define UACPI_NAMESPACE_NODE_FLAG_DANGLING (1u << 1) + +/* + * This node is method-local and must not be exposed via public API as its + * lifetime is limited. + */ +#define UACPI_NAMESPACE_NODE_FLAG_TEMPORARY (1u << 2) + +#define UACPI_NAMESPACE_NODE_PREDEFINED (1u << 31) + +typedef struct uacpi_namespace_node { + struct uacpi_shareable shareable; + uacpi_object_name name; + uacpi_u32 flags; + uacpi_object *object; + struct uacpi_namespace_node *parent; + struct uacpi_namespace_node *child; + struct uacpi_namespace_node *next; +} uacpi_namespace_node; + +uacpi_status uacpi_initialize_namespace(void); +void uacpi_deinitialize_namespace(void); + +uacpi_namespace_node *uacpi_namespace_node_alloc(uacpi_object_name name); +void uacpi_namespace_node_unref(uacpi_namespace_node *node); + + +uacpi_status uacpi_namespace_node_type_unlocked( + const uacpi_namespace_node *node, uacpi_object_type *out_type +); +uacpi_status uacpi_namespace_node_is_one_of_unlocked( + const uacpi_namespace_node *node, uacpi_object_type_bits type_mask, + uacpi_bool *out +); + +uacpi_object *uacpi_namespace_node_get_object(const uacpi_namespace_node *node); + +uacpi_object *uacpi_namespace_node_get_object_typed( + const uacpi_namespace_node *node, uacpi_object_type_bits type_mask +); + +uacpi_status uacpi_namespace_node_acquire_object( + const uacpi_namespace_node *node, uacpi_object **out_obj +); +uacpi_status uacpi_namespace_node_acquire_object_typed( + const uacpi_namespace_node *node, uacpi_object_type_bits, + uacpi_object **out_obj +); + +uacpi_status uacpi_namespace_node_reacquire_object( + uacpi_object *obj +); +uacpi_status uacpi_namespace_node_release_object( + uacpi_object *obj +); + +uacpi_status uacpi_namespace_node_install( + uacpi_namespace_node *parent, uacpi_namespace_node *node +); +uacpi_status uacpi_namespace_node_uninstall(uacpi_namespace_node *node); + +uacpi_namespace_node *uacpi_namespace_node_find_sub_node( + uacpi_namespace_node *parent, + uacpi_object_name name +); + +enum uacpi_may_search_above_parent { + UACPI_MAY_SEARCH_ABOVE_PARENT_NO, + UACPI_MAY_SEARCH_ABOVE_PARENT_YES, +}; + +enum uacpi_permanent_only { + UACPI_PERMANENT_ONLY_NO, + UACPI_PERMANENT_ONLY_YES, +}; + +enum uacpi_should_lock { + UACPI_SHOULD_LOCK_NO, + UACPI_SHOULD_LOCK_YES, +}; + +uacpi_status uacpi_namespace_node_resolve( + uacpi_namespace_node *scope, const uacpi_char *path, enum uacpi_should_lock, + enum uacpi_may_search_above_parent, enum uacpi_permanent_only, + uacpi_namespace_node **out_node +); + +uacpi_status uacpi_namespace_do_for_each_child( + uacpi_namespace_node *parent, uacpi_iteration_callback descending_callback, + uacpi_iteration_callback ascending_callback, + uacpi_object_type_bits, uacpi_u32 max_depth, enum uacpi_should_lock, + enum uacpi_permanent_only, void *user +); + +uacpi_bool uacpi_namespace_node_is_dangling(uacpi_namespace_node *node); +uacpi_bool uacpi_namespace_node_is_temporary(uacpi_namespace_node *node); +uacpi_bool uacpi_namespace_node_is_predefined(uacpi_namespace_node *node); + +uacpi_status uacpi_namespace_read_lock(void); +uacpi_status uacpi_namespace_read_unlock(void); + +uacpi_status uacpi_namespace_write_lock(void); +uacpi_status uacpi_namespace_write_unlock(void); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/notify.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/notify.h new file mode 100644 index 0000000..c1fa8bb --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/notify.h @@ -0,0 +1,13 @@ +#pragma once + +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +uacpi_status uacpi_initialize_notify(void); +void uacpi_deinitialize_notify(void); + +uacpi_status uacpi_notify_all(uacpi_namespace_node *node, uacpi_u64 value); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/opcodes.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/opcodes.h new file mode 100644 index 0000000..53ef334 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/opcodes.h @@ -0,0 +1,1390 @@ +#pragma once + +#include + +typedef uacpi_u16 uacpi_aml_op; + +#define UACPI_EXT_PREFIX 0x5B +#define UACPI_EXT_OP(op) ((UACPI_EXT_PREFIX << 8) | (op)) + +#define UACPI_DUAL_NAME_PREFIX 0x2E +#define UACPI_MULTI_NAME_PREFIX 0x2F +#define UACPI_NULL_NAME 0x00 + +/* + * Opcodes that tell the parser VM how to take apart every AML instruction. + * Every AML opcode has a list of these that is executed by the parser. + */ +enum uacpi_parse_op { + UACPI_PARSE_OP_END = 0, + + /* + * End the execution of the current instruction with a warning if the item + * at decode_ops[pc + 1] is NULL. + */ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, + + // Emit a warning as if the current opcode is being skipped + UACPI_PARSE_OP_EMIT_SKIP_WARN, + + // SimpleName := NameString | ArgObj | LocalObj + UACPI_PARSE_OP_SIMPLE_NAME, + + // SuperName := SimpleName | DebugObj | ReferenceTypeOpcode + UACPI_PARSE_OP_SUPERNAME, + // The resulting item will be set to null if name couldn't be resolved + UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED, + + // TermArg := ExpressionOpcode | DataObject | ArgObj | LocalObj + UACPI_PARSE_OP_TERM_ARG, + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, + + /* + * Same as TERM_ARG, but named references are passed as-is. + * This means methods are not invoked, fields are not read, etc. + */ + UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT, + + /* + * Same as UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT but allows unresolved + * name strings. + */ + UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED, + + // Operand := TermArg => Integer + UACPI_PARSE_OP_OPERAND, + + // TermArg => String + UACPI_PARSE_OP_STRING, + + /* + * ComputationalData := ByteConst | WordConst | DWordConst | QWordConst | + * String | ConstObj | RevisionOp | DefBuffer + */ + UACPI_PARSE_OP_COMPUTATIONAL_DATA, + + // Target := SuperName | NullName + UACPI_PARSE_OP_TARGET, + + // Parses a pkglen + UACPI_PARSE_OP_PKGLEN, + + /* + * Parses a pkglen and records it, the end of this pkglen is considered + * the end of the instruction. The PC is always set to the end of this + * package once parser reaches UACPI_PARSE_OP_END. + */ + UACPI_PARSE_OP_TRACKED_PKGLEN, + + /* + * Parse a NameString and create the last nameseg. + * Note that this errors out if last nameseg already exists. + */ + UACPI_PARSE_OP_CREATE_NAMESTRING, + + /* + * same as UACPI_PARSE_OP_CREATE_NAMESTRING, but attempting to create an + * already existing object is not fatal if currently loading a table. + */ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, + + /* + * Parse a NameString and put the node into the ready parts array. + * Note that this errors out if the referenced node doesn't exist. + */ + UACPI_PARSE_OP_EXISTING_NAMESTRING, + + /* + * Same as UACPI_PARSE_OP_EXISTING_NAMESTRING except the op doesn't error + * out if namestring couldn't be resolved. + */ + UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL, + + /* + * Same as UACPI_PARSE_OP_EXISTING_NAMESTRING, but undefined references + * are not fatal if currently loading a table. + */ + UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL_IF_LOAD, + + // Invoke a handler at op_handlers[spec->code] + UACPI_PARSE_OP_INVOKE_HANDLER, + + // Allocate an object an put it at the front of the item list + UACPI_PARSE_OP_OBJECT_ALLOC, + + UACPI_PARSE_OP_EMPTY_OBJECT_ALLOC, + + // Convert last item into a shallow/deep copy of itself + UACPI_PARSE_OP_OBJECT_CONVERT_TO_SHALLOW_COPY, + UACPI_PARSE_OP_OBJECT_CONVERT_TO_DEEP_COPY, + + /* + * Same as UACPI_PARSE_OP_OBJECT_ALLOC except the type of the allocated + * object is specified at decode_ops[pc + 1] + */ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, + + // Record current AML program counter as a QWORD immediate + UACPI_PARSE_OP_RECORD_AML_PC, + + // Load a QWORD immediate located at decode_ops[pc + 1] + UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT, + + // Load a decode_ops[pc + 1] byte imm at decode_ops[pc + 2] + UACPI_PARSE_OP_LOAD_INLINE_IMM, + + // Load a QWORD zero immediate + UACPI_PARSE_OP_LOAD_ZERO_IMM, + + // Load a decode_ops[pc + 1] byte imm from the instructions stream + UACPI_PARSE_OP_LOAD_IMM, + + // Same as UACPI_PARSE_OP_LOAD_IMM, expect the resulting value is an object + UACPI_PARSE_OP_LOAD_IMM_AS_OBJECT, + + // Create & Load an integer constant representing either true or false + UACPI_PARSE_OP_LOAD_FALSE_OBJECT, + UACPI_PARSE_OP_LOAD_TRUE_OBJECT, + + // Truncate the last item in the list if needed + UACPI_PARSE_OP_TRUNCATE_NUMBER, + + // Ensure the type of item is decode_ops[pc + 1] + UACPI_PARSE_OP_TYPECHECK, + + // Install the namespace node specified in items[decode_ops[pc + 1]] + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, + + // Move item to the previous (preempted) op + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, + + /* + * Same as UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, but the object + * is copied instead. (Useful when dealing with multiple targets) + * TODO: optimize this so that we can optionally move the object + * if target was a null target. + */ + UACPI_PARSE_OP_OBJECT_COPY_TO_PREV, + + // Store the last item to the target at items[decode_ops[pc + 1]] + UACPI_PARSE_OP_STORE_TO_TARGET, + + /* + * Store the item at items[decode_ops[pc + 2]] to target + * at items[decode_ops[pc + 1]] + */ + UACPI_PARSE_OP_STORE_TO_TARGET_INDIRECT, + + /* + * Error if reached. Should be used for opcodes that are supposed to be + * converted at op parse time, e.g. invoking a method or referring to + * a named object. + */ + UACPI_PARSE_OP_UNREACHABLE, + + // Invalid opcode, should never be encountered in the stream + UACPI_PARSE_OP_BAD_OPCODE, + + // Decrement the current AML instruction pointer + UACPI_PARSE_OP_AML_PC_DECREMENT, + + // Decrement the immediate at decode_ops[pc + 1] + UACPI_PARSE_OP_IMM_DECREMENT, + + // Remove the last item off the item stack + UACPI_PARSE_OP_ITEM_POP, + + // Dispatch the method call from items[0] and return from current op_exec + UACPI_PARSE_OP_DISPATCH_METHOD_CALL, + + /* + * Dispatch a table load with scope node at items[0] and method at items[1]. + * The last item is expected to be an integer object that is set to 0 in + * case load fails. + */ + UACPI_PARSE_OP_DISPATCH_TABLE_LOAD, + + /* + * Convert the current resolved namestring to either a method call + * or a named object reference. + */ + UACPI_PARSE_OP_CONVERT_NAMESTRING, + + /* + * Execute the next instruction only if currently tracked package still + * has data left, otherwise skip decode_ops[pc + 1] bytes. + */ + UACPI_PARSE_OP_IF_HAS_DATA, + + /* + * Execute the next instruction only if the handle at + * items[decode_ops[pc + 1]] is null. Otherwise skip + * decode_ops[pc + 2] bytes. + */ + UACPI_PARSE_OP_IF_NULL, + + /* + * Execute the next instruction only if the handle at + * items[-1] is null. Otherwise skip decode_ops[pc + 1] bytes. + */ + UACPI_PARSE_OP_IF_LAST_NULL, + + // The inverse of UACPI_PARSE_OP_IF_NULL + UACPI_PARSE_OP_IF_NOT_NULL, + + // The inverse of UACPI_PARSE_OP_IF_LAST_NULL + UACPI_PARSE_OP_IF_LAST_NOT_NULL, + + /* + * Execute the next instruction only if the last immediate is equal to + * decode_ops[pc + 1], otherwise skip decode_ops[pc + 2] bytes. + */ + UACPI_PARSE_OP_IF_LAST_EQUALS, + + /* + * Execute the next instruction only if the last object is a false value + * (has a value of 0), otherwise skip decode_ops[pc + 1] bytes. + */ + UACPI_PARSE_OP_IF_LAST_FALSE, + + // The inverse of UACPI_PARSE_OP_IF_LAST_FALSE + UACPI_PARSE_OP_IF_LAST_TRUE, + + /* + * Switch to opcode at decode_ops[pc + 1] only if the next AML instruction + * in the stream is equal to it. Note that this looks ahead of the tracked + * package if one is active. Switching to the next op also applies the + * currently tracked package. + */ + UACPI_PARSE_OP_SWITCH_TO_NEXT_IF_EQUALS, + + /* + * Execute the next instruction only if this op was switched to from op at + * (decode_ops[pc + 1] | decode_ops[pc + 2] << 8), otherwise skip + * decode_ops[pc + 3] bytes. + */ + UACPI_PARSE_OP_IF_SWITCHED_FROM, + + /* + * pc = decode_ops[pc + 1] + */ + UACPI_PARSE_OP_JMP, + UACPI_PARSE_OP_MAX = UACPI_PARSE_OP_JMP, +}; +const uacpi_char *uacpi_parse_op_to_string(enum uacpi_parse_op op); + +/* + * A few notes about op properties: + * Technically the spec says that RefOfOp is considered a SuperName, but NT + * disagrees about this. For example Store(..., RefOf) fails with + * "Invalid SuperName". MethodInvocation could also technically be considered + * a SuperName, but NT doesn't allow that either: Store(..., MethodInvocation) + * fails with "Invalid Target Method, expected a DataObject" error. + */ + +enum uacpi_op_property { + UACPI_OP_PROPERTY_TERM_ARG = 1, + UACPI_OP_PROPERTY_SUPERNAME = 2, + UACPI_OP_PROPERTY_SIMPLE_NAME = 4, + UACPI_OP_PROPERTY_TARGET = 8, + + // The ops to execute are pointed to by indirect_decode_ops + UACPI_OP_PROPERTY_OUT_OF_LINE = 16, + + // Error if encountered in the AML byte strem + UACPI_OP_PROPERTY_RESERVED = 128, +}; + +struct uacpi_op_spec { + uacpi_char *name; + union { + uacpi_u8 decode_ops[16]; + uacpi_u8 *indirect_decode_ops; + }; + uacpi_u8 properties; + uacpi_aml_op code; +}; + +const struct uacpi_op_spec *uacpi_get_op_spec(uacpi_aml_op); + +#define UACPI_INTERNAL_OP(code) \ + UACPI_OP(Internal_##code, code, 0, { UACPI_PARSE_OP_UNREACHABLE }) + +#define UACPI_BAD_OPCODE(code) \ + UACPI_OP(Reserved_##code, code, 0, { UACPI_PARSE_OP_BAD_OPCODE }) + +#define UACPI_METHOD_CALL_OPCODE(nargs) \ + UACPI_OP( \ + InternalOpMethodCall##nargs##Args, 0xF7 + nargs, \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_RESERVED, \ + { \ + UACPI_PARSE_OP_LOAD_INLINE_IMM, 1, nargs, \ + UACPI_PARSE_OP_IF_NOT_NULL, 1, 6, \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_OBJECT_CONVERT_TO_SHALLOW_COPY, \ + UACPI_PARSE_OP_IMM_DECREMENT, 1, \ + UACPI_PARSE_OP_JMP, 3, \ + UACPI_PARSE_OP_OBJECT_ALLOC, \ + UACPI_PARSE_OP_DISPATCH_METHOD_CALL, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ + ) + +/* + * ------------------------------------------------------------- + * RootChar := ‘\’ + * ParentPrefixChar := ‘^’ + * ‘\’ := 0x5C + * ‘^’ := 0x5E + * MultiNamePrefix := 0x2F + * DualNamePrefix := 0x2E + * ------------------------------------------------------------ + * ‘A’-‘Z’ := 0x41 - 0x5A + * ‘_’ := 0x5F + * LeadNameChar := ‘A’-‘Z’ | ‘_’ + * NameSeg := + * NameString := | + * PrefixPath := Nothing | <’^’ prefixpath> + * DualNamePath := DualNamePrefix NameSeg NameSeg + * MultiNamePath := MultiNamePrefix SegCount NameSeg(SegCount) + */ +#define UACPI_UNRESOLVED_NAME_STRING_OP(character, code) \ + UACPI_OP( \ + UACPI_InternalOpUnresolvedNameString_##character, code, \ + UACPI_OP_PROPERTY_SIMPLE_NAME | \ + UACPI_OP_PROPERTY_SUPERNAME | \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_AML_PC_DECREMENT, \ + UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL, \ + UACPI_PARSE_OP_CONVERT_NAMESTRING, \ + } \ + ) + +#define UACPI_BUILD_LOCAL_OR_ARG_OP(prefix, base, offset) \ +UACPI_OP( \ + prefix##offset##Op, base + offset, \ + UACPI_OP_PROPERTY_SUPERNAME | \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_SIMPLE_NAME, \ + { \ + UACPI_PARSE_OP_EMPTY_OBJECT_ALLOC, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ + +#define UACPI_LOCALX_OP(idx) UACPI_BUILD_LOCAL_OR_ARG_OP(Local, 0x60, idx) +#define UACPI_ARGX_OP(idx) UACPI_BUILD_LOCAL_OR_ARG_OP(Arg, 0x68, idx) + +#define UACPI_BUILD_PACKAGE_OP(name, code, jmp_off, ...) \ +UACPI_OP( \ + name##Op, code, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + ##__VA_ARGS__, \ + UACPI_PARSE_OP_IF_HAS_DATA, 4, \ + UACPI_PARSE_OP_RECORD_AML_PC, \ + UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED, \ + UACPI_PARSE_OP_JMP, jmp_off, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_PACKAGE, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) + +#define UACPI_BUILD_BINARY_MATH_OP(prefix, code) \ +UACPI_OP( \ + prefix##Op, code, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_TRUNCATE_NUMBER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 2, \ + UACPI_PARSE_OP_OBJECT_COPY_TO_PREV, \ + } \ +) + +#define UACPI_BUILD_UNARY_MATH_OP(type, code) \ +UACPI_OP( \ + type##Op, code, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 1, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) + +#define UACPI_DO_BUILD_BUFFER_FIELD_OP(type, code, node_idx, ...) \ +UACPI_OP( \ + type##FieldOp, code, 0, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_TYPECHECK, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_OPERAND, \ + ##__VA_ARGS__, \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, node_idx, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_BUFFER_FIELD, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, node_idx, \ + } \ +) + +#define UACPI_BUILD_BUFFER_FIELD_OP(type, code) \ + UACPI_DO_BUILD_BUFFER_FIELD_OP(Create##type, code, 2) + +#define UACPI_INTEGER_LITERAL_OP(type, code, bytes) \ +UACPI_OP( \ + type##Prefix, code, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_LOAD_IMM_AS_OBJECT, bytes, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ + +#define UACPI_BUILD_BINARY_LOGIC_OP(type, code) \ +UACPI_OP( \ + type##Op, code, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_COMPUTATIONAL_DATA, \ + UACPI_PARSE_OP_COMPUTATIONAL_DATA, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) + +#define UACPI_BUILD_TO_OP(kind, code, dst_type) \ +UACPI_OP( \ + To##kind##Op, code, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_COMPUTATIONAL_DATA, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, dst_type, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 1, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) + +#define UACPI_BUILD_INC_DEC_OP(prefix, code) \ +UACPI_OP( \ + prefix##Op, code, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_TRUNCATE_NUMBER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 0, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ + +#define UACPI_ENUMERATE_OPCODES \ +UACPI_OP( \ + ZeroOp, 0x00, \ + UACPI_OP_PROPERTY_TARGET | \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT, \ + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + OneOp, 0x01, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT, \ + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_BAD_OPCODE(0x02) \ +UACPI_BAD_OPCODE(0x03) \ +UACPI_BAD_OPCODE(0x04) \ +UACPI_BAD_OPCODE(0x05) \ +UACPI_OP( \ + AliasOp, 0x06, 0, \ + { \ + UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 0, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 1, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 1, \ + } \ +) \ +UACPI_BAD_OPCODE(0x07) \ +UACPI_OP( \ + NameOp, 0x08, 0, \ + { \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 0, \ + UACPI_PARSE_OP_OBJECT_CONVERT_TO_DEEP_COPY, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 0, \ + } \ +) \ +UACPI_BAD_OPCODE(0x09) \ +UACPI_INTEGER_LITERAL_OP(Byte, 0x0A, 1) \ +UACPI_INTEGER_LITERAL_OP(Word, 0x0B, 2) \ +UACPI_INTEGER_LITERAL_OP(DWord, 0x0C, 4) \ +UACPI_OP( \ + StringPrefix, 0x0D, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_STRING, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_INTEGER_LITERAL_OP(QWord, 0x0E, 8) \ +UACPI_BAD_OPCODE(0x0F) \ +UACPI_OP( \ + ScopeOp, 0x10, 0, \ + { \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 1, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + BufferOp, 0x11, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_RECORD_AML_PC, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_BUILD_PACKAGE_OP( \ + Package, 0x12, 3, \ + UACPI_PARSE_OP_LOAD_IMM, 1 \ +) \ +UACPI_BUILD_PACKAGE_OP( \ + VarPackage, 0x13, 2, \ + UACPI_PARSE_OP_OPERAND \ +) \ +UACPI_OP( \ + MethodOp, 0x14, 0, \ + { \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 1, \ + UACPI_PARSE_OP_RECORD_AML_PC, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_METHOD, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 1, \ + } \ +) \ +UACPI_OP( \ + ExternalOp, 0x15, 0, \ + { \ + UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + } \ +) \ +UACPI_BAD_OPCODE(0x16) \ +UACPI_BAD_OPCODE(0x17) \ +UACPI_BAD_OPCODE(0x18) \ +UACPI_BAD_OPCODE(0x19) \ +UACPI_BAD_OPCODE(0x1A) \ +UACPI_BAD_OPCODE(0x1B) \ +UACPI_BAD_OPCODE(0x1C) \ +UACPI_BAD_OPCODE(0x1D) \ +UACPI_BAD_OPCODE(0x1E) \ +UACPI_BAD_OPCODE(0x1F) \ +UACPI_BAD_OPCODE(0x20) \ +UACPI_BAD_OPCODE(0x21) \ +UACPI_BAD_OPCODE(0x22) \ +UACPI_BAD_OPCODE(0x23) \ +UACPI_BAD_OPCODE(0x24) \ +UACPI_BAD_OPCODE(0x25) \ +UACPI_BAD_OPCODE(0x26) \ +UACPI_BAD_OPCODE(0x27) \ +UACPI_BAD_OPCODE(0x28) \ +UACPI_BAD_OPCODE(0x29) \ +UACPI_BAD_OPCODE(0x2A) \ +UACPI_BAD_OPCODE(0x2B) \ +UACPI_BAD_OPCODE(0x2C) \ +UACPI_BAD_OPCODE(0x2D) \ +UACPI_UNRESOLVED_NAME_STRING_OP(DualNamePrefix, 0x2E) \ +UACPI_UNRESOLVED_NAME_STRING_OP(MultiNamePrefix, 0x2F) \ +UACPI_INTERNAL_OP(0x30) \ +UACPI_INTERNAL_OP(0x31) \ +UACPI_INTERNAL_OP(0x32) \ +UACPI_INTERNAL_OP(0x33) \ +UACPI_INTERNAL_OP(0x34) \ +UACPI_INTERNAL_OP(0x35) \ +UACPI_INTERNAL_OP(0x36) \ +UACPI_INTERNAL_OP(0x37) \ +UACPI_INTERNAL_OP(0x38) \ +UACPI_INTERNAL_OP(0x39) \ +UACPI_BAD_OPCODE(0x3A) \ +UACPI_BAD_OPCODE(0x3B) \ +UACPI_BAD_OPCODE(0x3C) \ +UACPI_BAD_OPCODE(0x3D) \ +UACPI_BAD_OPCODE(0x3E) \ +UACPI_BAD_OPCODE(0x3F) \ +UACPI_BAD_OPCODE(0x40) \ +UACPI_UNRESOLVED_NAME_STRING_OP(A, 0x41) \ +UACPI_UNRESOLVED_NAME_STRING_OP(B, 0x42) \ +UACPI_UNRESOLVED_NAME_STRING_OP(C, 0x43) \ +UACPI_UNRESOLVED_NAME_STRING_OP(D, 0x44) \ +UACPI_UNRESOLVED_NAME_STRING_OP(E, 0x45) \ +UACPI_UNRESOLVED_NAME_STRING_OP(F, 0x46) \ +UACPI_UNRESOLVED_NAME_STRING_OP(G, 0x47) \ +UACPI_UNRESOLVED_NAME_STRING_OP(H, 0x48) \ +UACPI_UNRESOLVED_NAME_STRING_OP(I, 0x49) \ +UACPI_UNRESOLVED_NAME_STRING_OP(J, 0x4A) \ +UACPI_UNRESOLVED_NAME_STRING_OP(K, 0x4B) \ +UACPI_UNRESOLVED_NAME_STRING_OP(L, 0x4C) \ +UACPI_UNRESOLVED_NAME_STRING_OP(M, 0x4D) \ +UACPI_UNRESOLVED_NAME_STRING_OP(N, 0x4E) \ +UACPI_UNRESOLVED_NAME_STRING_OP(O, 0x4F) \ +UACPI_UNRESOLVED_NAME_STRING_OP(P, 0x50) \ +UACPI_UNRESOLVED_NAME_STRING_OP(Q, 0x51) \ +UACPI_UNRESOLVED_NAME_STRING_OP(R, 0x52) \ +UACPI_UNRESOLVED_NAME_STRING_OP(S, 0x53) \ +UACPI_UNRESOLVED_NAME_STRING_OP(T, 0x54) \ +UACPI_UNRESOLVED_NAME_STRING_OP(U, 0x55) \ +UACPI_UNRESOLVED_NAME_STRING_OP(V, 0x56) \ +UACPI_UNRESOLVED_NAME_STRING_OP(W, 0x57) \ +UACPI_UNRESOLVED_NAME_STRING_OP(X, 0x58) \ +UACPI_UNRESOLVED_NAME_STRING_OP(Y, 0x59) \ +UACPI_UNRESOLVED_NAME_STRING_OP(Z, 0x5A) \ +UACPI_INTERNAL_OP(0x5B) \ +UACPI_UNRESOLVED_NAME_STRING_OP(RootChar, 0x5C) \ +UACPI_BAD_OPCODE(0x5D) \ +UACPI_UNRESOLVED_NAME_STRING_OP(ParentPrefixChar, 0x5E) \ +UACPI_UNRESOLVED_NAME_STRING_OP(Underscore, 0x5F) \ +UACPI_LOCALX_OP(0) \ +UACPI_LOCALX_OP(1) \ +UACPI_LOCALX_OP(2) \ +UACPI_LOCALX_OP(3) \ +UACPI_LOCALX_OP(4) \ +UACPI_LOCALX_OP(5) \ +UACPI_LOCALX_OP(6) \ +UACPI_LOCALX_OP(7) \ +UACPI_ARGX_OP(0) \ +UACPI_ARGX_OP(1) \ +UACPI_ARGX_OP(2) \ +UACPI_ARGX_OP(3) \ +UACPI_ARGX_OP(4) \ +UACPI_ARGX_OP(5) \ +UACPI_ARGX_OP(6) \ +UACPI_BAD_OPCODE(0x6F) \ +UACPI_OP( \ + StoreOp, 0x70, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG, \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_ITEM_POP, \ + UACPI_PARSE_OP_OBJECT_COPY_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + RefOfOp, 0x71, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_OBJECT_ALLOC, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_BUILD_BINARY_MATH_OP(Add, 0x72) \ +UACPI_OP( \ + ConcatOp, 0x73, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_COMPUTATIONAL_DATA, \ + UACPI_PARSE_OP_COMPUTATIONAL_DATA, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 2, \ + UACPI_PARSE_OP_OBJECT_COPY_TO_PREV, \ + } \ +) \ +UACPI_BUILD_BINARY_MATH_OP(Subtract, 0x74) \ +UACPI_BUILD_INC_DEC_OP(Increment, 0x75) \ +UACPI_BUILD_INC_DEC_OP(Decrement, 0x76) \ +UACPI_BUILD_BINARY_MATH_OP(Multiply, 0x77) \ +UACPI_OP( \ + DivideOp, 0x78, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 3, \ + UACPI_PARSE_OP_OBJECT_COPY_TO_PREV, \ + UACPI_PARSE_OP_STORE_TO_TARGET_INDIRECT, 2, 4, \ + } \ +) \ +UACPI_BUILD_BINARY_MATH_OP(ShiftLeft, 0x79) \ +UACPI_BUILD_BINARY_MATH_OP(ShiftRight, 0x7A) \ +UACPI_BUILD_BINARY_MATH_OP(And, 0x7B) \ +UACPI_BUILD_BINARY_MATH_OP(Nand, 0x7C) \ +UACPI_BUILD_BINARY_MATH_OP(Or, 0x7D) \ +UACPI_BUILD_BINARY_MATH_OP(Nor, 0x7E) \ +UACPI_BUILD_BINARY_MATH_OP(Xor, 0x7F) \ +UACPI_BUILD_UNARY_MATH_OP(Not, 0x80) \ +UACPI_BUILD_UNARY_MATH_OP(FindSetLeftBit, 0x81) \ +UACPI_BUILD_UNARY_MATH_OP(FindSetRightBit, 0x82) \ +UACPI_OP( \ + DerefOfOp, 0x83, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_OBJECT_ALLOC, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + ConcatResOp, 0x84, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_TYPECHECK, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_TYPECHECK, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 2, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_BUILD_BINARY_MATH_OP(Mod, 0x85) \ +UACPI_OP( \ + NotifyOp, 0x86, 0, \ + { \ + /* This is technically wrong according to spec but I was */ \ + /* unable to find any examples of anything else after */ \ + /* inspecting about 500 AML dumps. Spec says this is a */ \ + /* SuperName that must evaluate to Device/ThermalZone or */ \ + /* Processor, just ignore for now. */ \ + UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 0, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + SizeOfOp, 0x87, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + IndexOp, 0x88, \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_SUPERNAME | \ + UACPI_OP_PROPERTY_SIMPLE_NAME, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_EMPTY_OBJECT_ALLOC, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 2, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + MatchOp, 0x89, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_TYPECHECK, UACPI_OBJECT_PACKAGE, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_BUILD_BUFFER_FIELD_OP(DWord, 0x8A) \ +UACPI_BUILD_BUFFER_FIELD_OP(Word, 0x8B) \ +UACPI_BUILD_BUFFER_FIELD_OP(Byte, 0x8C) \ +UACPI_BUILD_BUFFER_FIELD_OP(Bit, 0x8D) \ +UACPI_OP( \ + ObjectTypeOp, 0x8E, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_BUILD_BUFFER_FIELD_OP(QWord, 0x8F) \ +UACPI_BUILD_BINARY_LOGIC_OP(Land, 0x90) \ +UACPI_BUILD_BINARY_LOGIC_OP(Lor, 0x91) \ +UACPI_OP( \ + LnotOp, 0x92, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_OBJECT_ALLOC, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_BUILD_BINARY_LOGIC_OP(LEqual, 0x93) \ +UACPI_BUILD_BINARY_LOGIC_OP(LGreater, 0x94) \ +UACPI_BUILD_BINARY_LOGIC_OP(LLess, 0x95) \ +UACPI_BUILD_TO_OP(Buffer, 0x96, UACPI_OBJECT_BUFFER) \ +UACPI_BUILD_TO_OP(DecimalString, 0x97, UACPI_OBJECT_STRING) \ +UACPI_BUILD_TO_OP(HexString, 0x98, UACPI_OBJECT_STRING) \ +UACPI_BUILD_TO_OP(Integer, 0x99, UACPI_OBJECT_INTEGER) \ +UACPI_BAD_OPCODE(0x9A) \ +UACPI_BAD_OPCODE(0x9B) \ +UACPI_OP( \ + ToStringOp, 0x9C, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_TYPECHECK, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_STRING, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 2, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + CopyObjectOp, 0x9D, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG, \ + UACPI_PARSE_OP_OBJECT_COPY_TO_PREV, \ + UACPI_PARSE_OP_SIMPLE_NAME, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + MidOp, 0x9E, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 3, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + ContinueOp, 0x9F, 0, \ + { \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + IfOp, 0xA0, 0, \ + { \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_IF_LAST_NULL, 3, \ + UACPI_PARSE_OP_EMIT_SKIP_WARN, \ + UACPI_PARSE_OP_JMP, 9, \ + UACPI_PARSE_OP_IF_LAST_FALSE, 4, \ + UACPI_PARSE_OP_SWITCH_TO_NEXT_IF_EQUALS, 0xA1, 0x00, \ + UACPI_PARSE_OP_END, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + ElseOp, 0xA1, 0, \ + { \ + UACPI_PARSE_OP_IF_SWITCHED_FROM, 0xA0, 0x00, 10, \ + UACPI_PARSE_OP_IF_LAST_NULL, 3, \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + UACPI_PARSE_OP_EMIT_SKIP_WARN, \ + UACPI_PARSE_OP_END, \ + UACPI_PARSE_OP_ITEM_POP, \ + UACPI_PARSE_OP_ITEM_POP, \ + UACPI_PARSE_OP_PKGLEN, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_END, \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + } \ +) \ +UACPI_OP( \ + WhileOp, 0xA2, 0, \ + { \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 1, \ + UACPI_PARSE_OP_IF_LAST_TRUE, 1, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + NoopOp, 0xA3, 0, \ + { \ + UACPI_PARSE_OP_END, \ + } \ +) \ +UACPI_OP( \ + ReturnOp, 0xA4, 0, \ + { \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + BreakOp, 0xA5, 0, \ + { \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_BAD_OPCODE(0xA6) \ +UACPI_BAD_OPCODE(0xA7) \ +UACPI_BAD_OPCODE(0xA8) \ +UACPI_BAD_OPCODE(0xA9) \ +UACPI_BAD_OPCODE(0xAA) \ +UACPI_BAD_OPCODE(0xAB) \ +UACPI_BAD_OPCODE(0xAC) \ +UACPI_BAD_OPCODE(0xAD) \ +UACPI_BAD_OPCODE(0xAE) \ +UACPI_BAD_OPCODE(0xAF) \ +UACPI_BAD_OPCODE(0xB0) \ +UACPI_BAD_OPCODE(0xB1) \ +UACPI_BAD_OPCODE(0xB2) \ +UACPI_BAD_OPCODE(0xB3) \ +UACPI_BAD_OPCODE(0xB4) \ +UACPI_BAD_OPCODE(0xB5) \ +UACPI_BAD_OPCODE(0xB6) \ +UACPI_BAD_OPCODE(0xB7) \ +UACPI_BAD_OPCODE(0xB8) \ +UACPI_BAD_OPCODE(0xB9) \ +UACPI_BAD_OPCODE(0xBA) \ +UACPI_BAD_OPCODE(0xBB) \ +UACPI_BAD_OPCODE(0xBC) \ +UACPI_BAD_OPCODE(0xBD) \ +UACPI_BAD_OPCODE(0xBE) \ +UACPI_BAD_OPCODE(0xBF) \ +UACPI_BAD_OPCODE(0xC0) \ +UACPI_BAD_OPCODE(0xC1) \ +UACPI_BAD_OPCODE(0xC2) \ +UACPI_BAD_OPCODE(0xC3) \ +UACPI_BAD_OPCODE(0xC4) \ +UACPI_BAD_OPCODE(0xC5) \ +UACPI_BAD_OPCODE(0xC6) \ +UACPI_BAD_OPCODE(0xC7) \ +UACPI_BAD_OPCODE(0xC8) \ +UACPI_BAD_OPCODE(0xC9) \ +UACPI_BAD_OPCODE(0xCA) \ +UACPI_BAD_OPCODE(0xCB) \ +UACPI_OP( \ + BreakPointOp, 0xCC, 0, \ + { \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_BAD_OPCODE(0xCD) \ +UACPI_BAD_OPCODE(0xCE) \ +UACPI_BAD_OPCODE(0xCF) \ +UACPI_BAD_OPCODE(0xD0) \ +UACPI_BAD_OPCODE(0xD1) \ +UACPI_BAD_OPCODE(0xD2) \ +UACPI_BAD_OPCODE(0xD3) \ +UACPI_BAD_OPCODE(0xD4) \ +UACPI_BAD_OPCODE(0xD5) \ +UACPI_BAD_OPCODE(0xD6) \ +UACPI_BAD_OPCODE(0xD7) \ +UACPI_BAD_OPCODE(0xD8) \ +UACPI_BAD_OPCODE(0xD9) \ +UACPI_BAD_OPCODE(0xDA) \ +UACPI_BAD_OPCODE(0xDB) \ +UACPI_BAD_OPCODE(0xDC) \ +UACPI_BAD_OPCODE(0xDD) \ +UACPI_BAD_OPCODE(0xDE) \ +UACPI_BAD_OPCODE(0xDF) \ +UACPI_BAD_OPCODE(0xE0) \ +UACPI_BAD_OPCODE(0xE1) \ +UACPI_BAD_OPCODE(0xE2) \ +UACPI_BAD_OPCODE(0xE3) \ +UACPI_BAD_OPCODE(0xE4) \ +UACPI_BAD_OPCODE(0xE5) \ +UACPI_BAD_OPCODE(0xE6) \ +UACPI_BAD_OPCODE(0xE7) \ +UACPI_BAD_OPCODE(0xE8) \ +UACPI_BAD_OPCODE(0xE9) \ +UACPI_BAD_OPCODE(0xEA) \ +UACPI_BAD_OPCODE(0xEB) \ +UACPI_BAD_OPCODE(0xEC) \ +UACPI_BAD_OPCODE(0xED) \ +UACPI_BAD_OPCODE(0xEE) \ +UACPI_BAD_OPCODE(0xEF) \ +UACPI_BAD_OPCODE(0xF0) \ +UACPI_BAD_OPCODE(0xF1) \ +UACPI_BAD_OPCODE(0xF2) \ +UACPI_BAD_OPCODE(0xF3) \ +UACPI_OP( \ + InternalOpReadFieldAsBuffer, 0xF4, \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_RESERVED, \ + { \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + InternalOpReadFieldAsInteger, 0xF5, \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_RESERVED, \ + { \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + InternalOpNamedObject, 0xF6, \ + UACPI_OP_PROPERTY_SIMPLE_NAME | \ + UACPI_OP_PROPERTY_SUPERNAME | \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_RESERVED, \ + { \ + UACPI_PARSE_OP_EMPTY_OBJECT_ALLOC, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_METHOD_CALL_OPCODE(0) \ +UACPI_METHOD_CALL_OPCODE(1) \ +UACPI_METHOD_CALL_OPCODE(2) \ +UACPI_METHOD_CALL_OPCODE(3) \ +UACPI_METHOD_CALL_OPCODE(4) \ +UACPI_METHOD_CALL_OPCODE(5) \ +UACPI_METHOD_CALL_OPCODE(6) \ +UACPI_METHOD_CALL_OPCODE(7) \ +UACPI_OP( \ + OnesOp, 0xFF, \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT, \ + 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, \ + UACPI_PARSE_OP_TRUNCATE_NUMBER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) + +extern uacpi_u8 uacpi_field_op_decode_ops[]; +extern uacpi_u8 uacpi_index_field_op_decode_ops[]; +extern uacpi_u8 uacpi_bank_field_op_decode_ops[]; +extern uacpi_u8 uacpi_load_op_decode_ops[]; +extern uacpi_u8 uacpi_load_table_op_decode_ops[]; + +#define UACPI_BUILD_NAMED_SCOPE_OBJECT_OP(name, code, type, ...) \ +UACPI_OP( \ + name##Op, UACPI_EXT_OP(code), 0, \ + { \ + UACPI_PARSE_OP_TRACKED_PKGLEN, \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + ##__VA_ARGS__, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 1, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, type, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 1, \ + } \ +) + +#define UACPI_BUILD_TO_FROM_BCD(type, code) \ +UACPI_OP( \ + type##BCDOp, UACPI_EXT_OP(code), \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, \ + UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 1, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) + +#define UACPI_ENUMERATE_EXT_OPCODES \ +UACPI_OP( \ + ReservedExtOp, UACPI_EXT_OP(0x00), 0, \ + { \ + UACPI_PARSE_OP_BAD_OPCODE, \ + } \ +) \ +UACPI_OP( \ + MutexOp, UACPI_EXT_OP(0x01), 0, \ + { \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 0, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, \ + UACPI_OBJECT_MUTEX, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 0, \ + } \ +) \ +UACPI_OP( \ + EventOp, UACPI_EXT_OP(0x02), 0, \ + { \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 0, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, \ + UACPI_OBJECT_EVENT, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 0, \ + } \ +) \ +UACPI_OP( \ + CondRefOfOp, UACPI_EXT_OP(0x12), \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED, \ + UACPI_PARSE_OP_TARGET, \ + UACPI_PARSE_OP_IF_NULL, 0, 3, \ + UACPI_PARSE_OP_LOAD_FALSE_OBJECT, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + UACPI_PARSE_OP_END, \ + UACPI_PARSE_OP_OBJECT_ALLOC, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_STORE_TO_TARGET, 1, \ + UACPI_PARSE_OP_LOAD_TRUE_OBJECT, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_DO_BUILD_BUFFER_FIELD_OP( \ + Create, UACPI_EXT_OP(0x13), 3, \ + UACPI_PARSE_OP_OPERAND \ +) \ +UACPI_OUT_OF_LINE_OP( \ + LoadTableOp, UACPI_EXT_OP(0x1F), \ + uacpi_load_table_op_decode_ops, \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_OUT_OF_LINE \ +) \ +UACPI_OUT_OF_LINE_OP( \ + LoadOp, UACPI_EXT_OP(0x20), \ + uacpi_load_op_decode_ops, \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_OUT_OF_LINE \ +) \ +UACPI_OP( \ + StallOp, UACPI_EXT_OP(0x21), 0, \ + { \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + SleepOp, UACPI_EXT_OP(0x22), 0, \ + { \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + AcquireOp, UACPI_EXT_OP(0x23), \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_LOAD_IMM, 2, \ + UACPI_PARSE_OP_LOAD_TRUE_OBJECT, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + SignalOp, UACPI_EXT_OP(0x24), 0, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + WaitOp, UACPI_EXT_OP(0x25), \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_LOAD_TRUE_OBJECT, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + ResetOp, UACPI_EXT_OP(0x26), 0, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + ReleaseOp, UACPI_EXT_OP(0x27), 0, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_BUILD_TO_FROM_BCD(From, 0x28) \ +UACPI_BUILD_TO_FROM_BCD(To, 0x29) \ +UACPI_OP( \ + UnloadOp, UACPI_EXT_OP(0x2A), 0, \ + { \ + UACPI_PARSE_OP_SUPERNAME, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + RevisionOp, UACPI_EXT_OP(0x30), \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT, \ + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + DebugOp, UACPI_EXT_OP(0x31), \ + UACPI_OP_PROPERTY_TERM_ARG | \ + UACPI_OP_PROPERTY_SUPERNAME | \ + UACPI_OP_PROPERTY_TARGET, \ + { \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, \ + UACPI_OBJECT_DEBUG, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + FatalOp, UACPI_EXT_OP(0x32), 0, \ + { \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_LOAD_IMM, 4, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + } \ +) \ +UACPI_OP( \ + TimerOp, UACPI_EXT_OP(0x33), \ + UACPI_OP_PROPERTY_TERM_ARG, \ + { \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, \ + UACPI_OBJECT_INTEGER, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, \ + } \ +) \ +UACPI_OP( \ + OpRegionOp, UACPI_EXT_OP(0x80), 0, \ + { \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_OPERAND, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 0, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, \ + UACPI_OBJECT_OPERATION_REGION, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 0, \ + } \ +) \ +UACPI_OUT_OF_LINE_OP( \ + FieldOp, UACPI_EXT_OP(0x81), \ + uacpi_field_op_decode_ops, \ + UACPI_OP_PROPERTY_OUT_OF_LINE \ +) \ +UACPI_BUILD_NAMED_SCOPE_OBJECT_OP( \ + Device, 0x82, UACPI_OBJECT_DEVICE \ +) \ +UACPI_BUILD_NAMED_SCOPE_OBJECT_OP( \ + Processor, 0x83, UACPI_OBJECT_PROCESSOR, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_LOAD_IMM, 4, \ + UACPI_PARSE_OP_LOAD_IMM, 1 \ +) \ +UACPI_BUILD_NAMED_SCOPE_OBJECT_OP( \ + PowerRes, 0x84, UACPI_OBJECT_POWER_RESOURCE, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_LOAD_IMM, 2 \ +) \ +UACPI_BUILD_NAMED_SCOPE_OBJECT_OP( \ + ThermalZone, 0x85, UACPI_OBJECT_THERMAL_ZONE \ +) \ +UACPI_OUT_OF_LINE_OP( \ + IndexFieldOp, UACPI_EXT_OP(0x86), \ + uacpi_index_field_op_decode_ops, \ + UACPI_OP_PROPERTY_OUT_OF_LINE \ +) \ +UACPI_OUT_OF_LINE_OP( \ + BankFieldOp, UACPI_EXT_OP(0x87), \ + uacpi_bank_field_op_decode_ops, \ + UACPI_OP_PROPERTY_OUT_OF_LINE \ +) \ +UACPI_OP( \ + DataRegionOp, UACPI_EXT_OP(0x88), 0, \ + { \ + UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD, \ + UACPI_PARSE_OP_STRING, \ + UACPI_PARSE_OP_STRING, \ + UACPI_PARSE_OP_STRING, \ + UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL, 0, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, \ + UACPI_OBJECT_OPERATION_REGION, \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE, 0, \ + } \ +) + +enum uacpi_aml_op { +#define UACPI_OP(name, code, ...) UACPI_AML_OP_##name = code, +#define UACPI_OUT_OF_LINE_OP(name, code, ...) UACPI_AML_OP_##name = code, + UACPI_ENUMERATE_OPCODES + UACPI_ENUMERATE_EXT_OPCODES +#undef UACPI_OP +#undef UACPI_OUT_OF_LINE_OP +}; diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/opregion.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/opregion.h new file mode 100644 index 0000000..a1173f4 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/opregion.h @@ -0,0 +1,49 @@ +#pragma once + +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +uacpi_status uacpi_initialize_opregion(void); +void uacpi_deinitialize_opregion(void); + +void uacpi_trace_region_error( + uacpi_namespace_node *node, uacpi_char *message, uacpi_status ret +); + +uacpi_status uacpi_install_address_space_handler_with_flags( + uacpi_namespace_node *device_node, enum uacpi_address_space space, + uacpi_region_handler handler, uacpi_handle handler_context, + uacpi_u16 flags +); + +void uacpi_opregion_uninstall_handler(uacpi_namespace_node *node); + +uacpi_bool uacpi_address_space_handler_is_default( + uacpi_address_space_handler *handler +); + +uacpi_address_space_handlers *uacpi_node_get_address_space_handlers( + uacpi_namespace_node *node +); + +uacpi_status uacpi_initialize_opregion_node(uacpi_namespace_node *node); + +uacpi_status uacpi_opregion_attach(uacpi_namespace_node *node); + +void uacpi_install_default_address_space_handlers(void); + +uacpi_bool uacpi_is_buffer_access_address_space(uacpi_address_space space); + +union uacpi_opregion_io_data { + uacpi_u64 *integer; + uacpi_data_view buffer; +}; + +uacpi_status uacpi_dispatch_opregion_io( + uacpi_field_unit *field, uacpi_u32 offset, + uacpi_region_op op, union uacpi_opregion_io_data data +); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/osi.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/osi.h new file mode 100644 index 0000000..6d7b0db --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/osi.h @@ -0,0 +1,8 @@ +#pragma once + +#include + +uacpi_status uacpi_initialize_interfaces(void); +void uacpi_deinitialize_interfaces(void); + +uacpi_status uacpi_handle_osi(const uacpi_char *string, uacpi_bool *out_value); diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/registers.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/registers.h new file mode 100644 index 0000000..84694ac --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/registers.h @@ -0,0 +1,7 @@ +#pragma once + +#include +#include + +uacpi_status uacpi_initialize_registers(void); +void uacpi_deinitialize_registers(void); diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/resources.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/resources.h new file mode 100644 index 0000000..4c4a1ff --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/resources.h @@ -0,0 +1,327 @@ +#pragma once + +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +enum uacpi_aml_resource { + UACPI_AML_RESOURCE_TYPE_INVALID = 0, + + // Small resources + UACPI_AML_RESOURCE_IRQ, + UACPI_AML_RESOURCE_DMA, + UACPI_AML_RESOURCE_START_DEPENDENT, + UACPI_AML_RESOURCE_END_DEPENDENT, + UACPI_AML_RESOURCE_IO, + UACPI_AML_RESOURCE_FIXED_IO, + UACPI_AML_RESOURCE_FIXED_DMA, + UACPI_AML_RESOURCE_VENDOR_TYPE0, + UACPI_AML_RESOURCE_END_TAG, + + // Large resources + UACPI_AML_RESOURCE_MEMORY24, + UACPI_AML_RESOURCE_GENERIC_REGISTER, + UACPI_AML_RESOURCE_VENDOR_TYPE1, + UACPI_AML_RESOURCE_MEMORY32, + UACPI_AML_RESOURCE_FIXED_MEMORY32, + UACPI_AML_RESOURCE_ADDRESS32, + UACPI_AML_RESOURCE_ADDRESS16, + UACPI_AML_RESOURCE_EXTENDED_IRQ, + UACPI_AML_RESOURCE_ADDRESS64, + UACPI_AML_RESOURCE_ADDRESS64_EXTENDED, + UACPI_AML_RESOURCE_GPIO_CONNECTION, + UACPI_AML_RESOURCE_PIN_FUNCTION, + UACPI_AML_RESOURCE_SERIAL_CONNECTION, + UACPI_AML_RESOURCE_PIN_CONFIGURATION, + UACPI_AML_RESOURCE_PIN_GROUP, + UACPI_AML_RESOURCE_PIN_GROUP_FUNCTION, + UACPI_AML_RESOURCE_PIN_GROUP_CONFIGURATION, + UACPI_AML_RESOURCE_CLOCK_INPUT, + UACPI_AML_RESOURCE_MAX = UACPI_AML_RESOURCE_CLOCK_INPUT, +}; + +enum uacpi_aml_resource_size_kind { + UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + UACPI_AML_RESOURCE_SIZE_KIND_FIXED_OR_ONE_LESS, + UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, +}; + +enum uacpi_aml_resource_kind { + UACPI_AML_RESOURCE_KIND_SMALL = 0, + UACPI_AML_RESOURCE_KIND_LARGE, +}; + +enum uacpi_resource_convert_opcode { + UACPI_RESOURCE_CONVERT_OPCODE_END = 0, + + /* + * AML -> native: + * Take the mask at 'aml_offset' and convert to an array of uacpi_u8 + * at 'native_offset' with the value corresponding to the bit index. + * The array size is written to the byte at offset 'arg2'. + * + * native -> AML: + * Walk each element of the array at 'native_offset' and set the + * corresponding bit in the mask at 'aml_offset' to 1. The array size is + * read from the byte at offset 'arg2'. + */ + UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_8, + UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_16, + + /* + * AML -> native: + * Grab the bits at the byte at 'aml_offset' + 'bit_index', and copy its + * value into the byte at 'native_offset'. + * + * native -> AML: + * Grab first N bits at 'native_offset' and copy to 'aml_offset' starting + * at the 'bit_index'. + * + * NOTE: + * These must be contiguous in this order. + */ + UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_1, + UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_2, + UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_3, + UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_6 = + UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_3 + 3, + + /* + * AML -> native: + * Copy N bytes at 'aml_offset' to 'native_offset'. + * + * native -> AML: + * Copy N bytes at 'native_offset' to 'aml_offset'. + * + * 'imm' is added to the accumulator. + * + * NOTE: These are affected by the current value in the accumulator. If it's + * set to 0 at the time of evalution, this is executed once, N times + * otherwise. 0xFF is considered a special value, which resets the + * accumulator to 0 unconditionally. + */ + UACPI_RESOURCE_CONVERT_OPCODE_FIELD_8, + UACPI_RESOURCE_CONVERT_OPCODE_FIELD_16, + UACPI_RESOURCE_CONVERT_OPCODE_FIELD_32, + UACPI_RESOURCE_CONVERT_OPCODE_FIELD_64, + + /* + * If the length of the current resource is less than 'arg0', then skip + * 'imm' instructions. + */ + UACPI_RESOURCE_CONVERT_OPCODE_SKIP_IF_AML_SIZE_LESS_THAN, + + /* + * Skip 'imm' instructions if 'arg0' is not equal to the value in the + * accumulator. + */ + UACPI_RESOURCE_CONVERT_OPCODE_SKIP_IF_NOT_EQUALS, + + /* + * AML -> native: + * Set the byte at 'native_offset' to 'imm'. + * + * native -> AML: + * Set the byte at 'aml_offset' to 'imm'. + */ + UACPI_RESOURCE_CONVERT_OPCODE_SET_TO_IMM, + + /* + * AML -> native: + * Load the AML resoruce length into the accumulator as well as the field at + * 'native_offset' of width N. + * + * native -> AML: + * Load the resource length into the accumulator. + */ + UACPI_RESOURCE_CONVERT_OPCODE_LOAD_AML_SIZE_32, + + /* + * AML -> native: + * Load the 8 bit field at 'aml_offset' into the accumulator and store at + * 'native_offset'. + * + * native -> AML: + * Load the 8 bit field at 'native_offset' into the accumulator and store + * at 'aml_offset'. + * + * The accumulator is multiplied by 'imm' unless it's set to zero. + */ + UACPI_RESOURCE_CONVERT_OPCODE_LOAD_8_STORE, + + /* + * Load the N bit field at 'native_offset' into the accumulator + */ + UACPI_RESOURCE_CONVERT_OPCODE_LOAD_8_NATIVE, + UACPI_RESOURCE_CONVERT_OPCODE_LOAD_16_NATIVE, + + /* + * Load 'imm' into the accumulator. + */ + UACPI_RESOURCE_CONVERT_OPCODE_LOAD_IMM, + + /* + * AML -> native: + * Load the resource source at offset = aml size + accumulator into the + * uacpi_resource_source struct at 'native_offset'. The string bytes are + * written to the offset at resource size + accumulator. The presence is + * detected by comparing the length of the resource to the offset, + * 'arg2' optionally specifies the offset to the upper bound of the string. + * + * native -> AML: + * Load the resource source from the uacpi_resource_source struct at + * 'native_offset' to aml_size + accumulator. aml_size + accumulator is + * optionally written to 'aml_offset' if it's specified. + */ + UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE, + UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE_NO_INDEX, + UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_LABEL, + + /* + * AML -> native: + * Load the pin table with upper bound specified at 'aml_offset'. + * The table length is calculated by subtracting the upper bound from + * aml_size and is written into the accumulator. + * + * native -> AML: + * Load the pin table length from 'native_offset' and multiply by 2, store + * the result in the accumulator. + */ + UACPI_RESOURCE_CONVERT_OPCODE_LOAD_PIN_TABLE_LENGTH, + + /* + * AML -> native: + * Store the accumulator divided by 2 at 'native_offset'. + * The table is copied to the offset at resource size from offset at + * aml_size with the pointer written to the offset at 'arg2'. + * + * native -> AML: + * Read the pin table from resource size offset, write aml_size to + * 'aml_offset'. Copy accumulator bytes to the offset at aml_size. + */ + UACPI_RESOURCE_CONVERT_OPCODE_PIN_TABLE, + + /* + * AML -> native: + * Load vendor data with offset stored at 'aml_offset'. The length is + * calculated as aml_size - aml_offset and is written to 'native_offset'. + * The data is written to offset - aml_size with the pointer written back + * to the offset at 'arg2'. + * + * native -> AML: + * Read vendor data from the pointer at offset 'arg2' and size at + * 'native_offset', the offset to write to is calculated as the difference + * between the data pointer and the native resource end pointer. + * offset + aml_size is written to 'aml_offset' and the data is copied + * there as well. + */ + UACPI_RESOURCE_CONVERT_OPCODE_VENDOR_DATA, + + /* + * AML -> native: + * Read the serial type from the byte at 'aml_offset' and write it to the + * type field of the uacpi_resource_serial_bus_common structure. Convert + * the serial type to native and set the resource type to it. Copy the + * vendor data to the offset at native size, the length is calculated + * as type_data_length - extra-type-specific-size, and is written to + * vendor_data_length, as well as the accumulator. The data pointer is + * written to vendor_data. + * + * native -> AML: + * Set the serial type at 'aml_offset' to the value stored at + * 'native_offset'. Load the vendor data to the offset at aml_size, + * the length is read from 'vendor_data_length', and the data is copied from + * 'vendor_data'. + */ + UACPI_RESOURCE_CONVERT_OPCODE_SERIAL_TYPE_SPECIFIC, + + /* + * Produces an error if encountered in the instruction stream. + * Used to trap invalid/unexpected code flow. + */ + UACPI_RESOURCE_CONVERT_OPCODE_UNREACHABLE, +}; + +struct uacpi_resource_convert_instruction { + uacpi_u8 code; + + union { + uacpi_u8 aml_offset; + uacpi_u8 arg0; + } f1; + + union { + uacpi_u8 native_offset; + uacpi_u8 arg1; + } f2; + + union { + uacpi_u8 imm; + uacpi_u8 bit_index; + uacpi_u8 arg2; + } f3; +}; + +struct uacpi_resource_spec { + uacpi_u8 type : 5; + uacpi_u8 native_type : 5; + uacpi_u8 resource_kind : 1; + uacpi_u8 size_kind : 2; + + /* + * Size of the resource as appears in the AML byte stream, for variable + * length resources this is the minimum. + */ + uacpi_u16 aml_size; + + /* + * Size of the native human-readable uacpi resource, for variable length + * resources this is the minimum. The final length is this field plus the + * result of extra_size_for_native(). + */ + uacpi_u16 native_size; + + /* + * Calculate the amount of extra bytes that must be allocated for a specific + * native resource given the AML counterpart. This being NULL means no extra + * bytes are needed, aka native resources is always the same size. + */ + uacpi_size (*extra_size_for_native)( + const struct uacpi_resource_spec*, void*, uacpi_size + ); + + /* + * Calculate the number of bytes needed to represent a native resource as + * AML. The 'aml_size' field is used if this is NULL. + */ + uacpi_size (*size_for_aml)( + const struct uacpi_resource_spec*, uacpi_resource* + ); + + const struct uacpi_resource_convert_instruction *to_native; + const struct uacpi_resource_convert_instruction *to_aml; +}; + +typedef uacpi_iteration_decision (*uacpi_aml_resource_iteration_callback)( + void*, uacpi_u8 *data, uacpi_u16 resource_size, + const struct uacpi_resource_spec* +); + +uacpi_status uacpi_for_each_aml_resource( + uacpi_data_view, uacpi_aml_resource_iteration_callback cb, void *user +); + +uacpi_status uacpi_find_aml_resource_end_tag( + uacpi_data_view, uacpi_size *out_offset +); + +uacpi_status uacpi_native_resources_from_aml( + uacpi_data_view, uacpi_resources **out_resources +); + +uacpi_status uacpi_native_resources_to_aml( + uacpi_resources *resources, uacpi_object **out_template +); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/shareable.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/shareable.h new file mode 100644 index 0000000..e00d850 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/shareable.h @@ -0,0 +1,21 @@ +#pragma once + +#include + +struct uacpi_shareable { + uacpi_u32 reference_count; +}; + +void uacpi_shareable_init(uacpi_handle); + +uacpi_bool uacpi_bugged_shareable(uacpi_handle); +void uacpi_make_shareable_bugged(uacpi_handle); + +uacpi_u32 uacpi_shareable_ref(uacpi_handle); +uacpi_u32 uacpi_shareable_unref(uacpi_handle); + +void uacpi_shareable_unref_and_delete_if_last( + uacpi_handle, void (*do_free)(uacpi_handle) +); + +uacpi_u32 uacpi_shareable_refcount(uacpi_handle); diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/stdlib.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/stdlib.h new file mode 100644 index 0000000..30eb2e4 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/stdlib.h @@ -0,0 +1,128 @@ +#pragma once + +#include +#include +#include +#include +#include + +#ifdef UACPI_USE_BUILTIN_STRING + +#ifndef uacpi_memcpy +void *uacpi_memcpy(void *dest, const void *src, uacpi_size count); +#endif + +#ifndef uacpi_memmove +void *uacpi_memmove(void *dest, const void *src, uacpi_size count); +#endif + +#ifndef uacpi_memset +void *uacpi_memset(void *dest, uacpi_i32 ch, uacpi_size count); +#endif + +#ifndef uacpi_memcmp +uacpi_i32 uacpi_memcmp(const void *lhs, const void *rhs, uacpi_size count); +#endif + +#else + +#ifndef uacpi_memcpy + #ifdef UACPI_COMPILER_HAS_BUILTIN_MEMCPY + #define uacpi_memcpy __builtin_memcpy + #else + extern void *memcpy(void *dest, const void *src, uacpi_size count); + #define uacpi_memcpy memcpy + #endif +#endif + +#ifndef uacpi_memmove + #ifdef UACPI_COMPILER_HAS_BUILTIN_MEMMOVE + #define uacpi_memmove __builtin_memmove + #else + extern void *memmove(void *dest, const void *src, uacpi_size count); + #define uacpi_memmove memmove + #endif +#endif + +#ifndef uacpi_memset + #ifdef UACPI_COMPILER_HAS_BUILTIN_MEMSET + #define uacpi_memset __builtin_memset + #else + extern void *memset(void *dest, int ch, uacpi_size count); + #define uacpi_memset memset + #endif +#endif + +#ifndef uacpi_memcmp + #ifdef UACPI_COMPILER_HAS_BUILTIN_MEMCMP + #define uacpi_memcmp __builtin_memcmp + #else + extern int memcmp(const void *lhs, const void *rhs, uacpi_size count); + #define uacpi_memcmp memcmp + #endif +#endif + +#endif + +#ifndef uacpi_strlen +uacpi_size uacpi_strlen(const uacpi_char *str); +#endif + +#ifndef uacpi_strnlen +uacpi_size uacpi_strnlen(const uacpi_char *str, uacpi_size max); +#endif + +#ifndef uacpi_strcmp +uacpi_i32 uacpi_strcmp(const uacpi_char *lhs, const uacpi_char *rhs); +#endif + +#ifndef uacpi_snprintf +UACPI_PRINTF_DECL(3, 4) +uacpi_i32 uacpi_snprintf( + uacpi_char *buffer, uacpi_size capacity, const uacpi_char *fmt, ... +); +#endif + +#ifndef uacpi_vsnprintf +uacpi_i32 uacpi_vsnprintf( + uacpi_char *buffer, uacpi_size capacity, const uacpi_char *fmt, + uacpi_va_list vlist +); +#endif + +#ifdef UACPI_SIZED_FREES +#define uacpi_free(mem, size) uacpi_kernel_free(mem, size) +#else +#define uacpi_free(mem, _) uacpi_kernel_free(mem) +#endif + +#define uacpi_memzero(ptr, size) uacpi_memset(ptr, 0, size) + +#define UACPI_COMPARE(x, y, op) ((x) op (y) ? (x) : (y)) +#define UACPI_MIN(x, y) UACPI_COMPARE(x, y, <) +#define UACPI_MAX(x, y) UACPI_COMPARE(x, y, >) + +#define UACPI_ALIGN_UP_MASK(x, mask) (((x) + (mask)) & ~(mask)) +#define UACPI_ALIGN_UP(x, val, type) UACPI_ALIGN_UP_MASK(x, (type)(val) - 1) + +#define UACPI_ALIGN_DOWN_MASK(x, mask) ((x) & ~(mask)) +#define UACPI_ALIGN_DOWN(x, val, type) UACPI_ALIGN_DOWN_MASK(x, (type)(val) - 1) + +#define UACPI_IS_ALIGNED_MASK(x, mask) (((x) & (mask)) == 0) +#define UACPI_IS_ALIGNED(x, val, type) UACPI_IS_ALIGNED_MASK(x, (type)(val) - 1) + +#define UACPI_IS_POWER_OF_TWO(x, type) UACPI_IS_ALIGNED(x, x, type) + +void uacpi_memcpy_zerout(void *dst, const void *src, + uacpi_size dst_size, uacpi_size src_size); + +// Returns the one-based bit location of LSb or 0 +uacpi_u8 uacpi_bit_scan_forward(uacpi_u64); + +// Returns the one-based bit location of MSb or 0 +uacpi_u8 uacpi_bit_scan_backward(uacpi_u64); + +#ifndef UACPI_NATIVE_ALLOC_ZEROED +void *uacpi_builtin_alloc_zeroed(uacpi_size size); +#define uacpi_kernel_alloc_zeroed uacpi_builtin_alloc_zeroed +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/tables.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/tables.h new file mode 100644 index 0000000..8a5345f --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/tables.h @@ -0,0 +1,70 @@ +#pragma once + +#include +#include +#include +#include +#include + +enum uacpi_table_origin { +#ifndef UACPI_BAREBONES_MODE + UACPI_TABLE_ORIGIN_FIRMWARE_VIRTUAL = 0, +#endif + UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL = 1, + + UACPI_TABLE_ORIGIN_HOST_VIRTUAL, + UACPI_TABLE_ORIGIN_HOST_PHYSICAL, +}; + +struct uacpi_installed_table { + uacpi_phys_addr phys_addr; + struct acpi_sdt_hdr hdr; + void *ptr; + + uacpi_u16 reference_count; + +#define UACPI_TABLE_LOADED (1 << 0) +#define UACPI_TABLE_CSUM_VERIFIED (1 << 1) +#define UACPI_TABLE_INVALID (1 << 2) + uacpi_u8 flags; + uacpi_u8 origin; +}; + +uacpi_status uacpi_initialize_tables(void); +void uacpi_deinitialize_tables(void); + +uacpi_bool uacpi_signatures_match(const void *const lhs, const void *const rhs); +uacpi_status uacpi_check_table_signature(void *table, const uacpi_char *expect); +uacpi_status uacpi_verify_table_checksum(void *table, uacpi_size size); + +uacpi_status uacpi_table_install_physical_with_origin( + uacpi_phys_addr phys, enum uacpi_table_origin origin, uacpi_table *out_table +); +uacpi_status uacpi_table_install_with_origin( + void *virt, enum uacpi_table_origin origin, uacpi_table *out_table +); + +#ifndef UACPI_BAREBONES_MODE +void uacpi_table_mark_as_loaded(uacpi_size idx); + +uacpi_status uacpi_table_load_with_cause( + uacpi_size idx, enum uacpi_table_load_cause cause +); +#endif // !UACPI_BAREBONES_MODE + +typedef uacpi_iteration_decision (*uacpi_table_iteration_callback) + (void *user, struct uacpi_installed_table *tbl, uacpi_size idx); + +uacpi_status uacpi_for_each_table( + uacpi_size base_idx, uacpi_table_iteration_callback, void *user +); + +typedef uacpi_bool (*uacpi_table_match_callback) + (struct uacpi_installed_table *tbl); + +uacpi_status uacpi_table_match( + uacpi_size base_idx, uacpi_table_match_callback, uacpi_table *out_table +); + +#define UACPI_PRI_TBL_HDR "'%.4s' (OEM ID '%.6s' OEM Table ID '%.8s')" +#define UACPI_FMT_TBL_HDR(hdr) (hdr)->signature, (hdr)->oemid, (hdr)->oem_table_id diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/types.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/types.h new file mode 100644 index 0000000..b994a27 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/types.h @@ -0,0 +1,310 @@ +#pragma once + +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +// object->flags field if object->type == UACPI_OBJECT_REFERENCE +enum uacpi_reference_kind { + UACPI_REFERENCE_KIND_REFOF = 0, + UACPI_REFERENCE_KIND_LOCAL = 1, + UACPI_REFERENCE_KIND_ARG = 2, + UACPI_REFERENCE_KIND_NAMED = 3, + UACPI_REFERENCE_KIND_PKG_INDEX = 4, +}; + +// object->flags field if object->type == UACPI_OBJECT_STRING +enum uacpi_string_kind { + UACPI_STRING_KIND_NORMAL = 0, + UACPI_STRING_KIND_PATH, +}; + +typedef struct uacpi_buffer { + struct uacpi_shareable shareable; + union { + void *data; + uacpi_u8 *byte_data; + uacpi_char *text; + }; + uacpi_size size; +} uacpi_buffer; + +typedef struct uacpi_package { + struct uacpi_shareable shareable; + uacpi_object **objects; + uacpi_size count; +} uacpi_package; + +typedef struct uacpi_buffer_field { + uacpi_buffer *backing; + uacpi_size bit_index; + uacpi_u32 bit_length; + uacpi_bool force_buffer; +} uacpi_buffer_field; + +typedef struct uacpi_buffer_index { + uacpi_size idx; + uacpi_buffer *buffer; +} uacpi_buffer_index; + +typedef struct uacpi_mutex { + struct uacpi_shareable shareable; + uacpi_handle handle; + uacpi_thread_id owner; + uacpi_u16 depth; + uacpi_u8 sync_level; +} uacpi_mutex; + +typedef struct uacpi_event { + struct uacpi_shareable shareable; + uacpi_handle handle; +} uacpi_event; + +typedef struct uacpi_address_space_handler { + struct uacpi_shareable shareable; + uacpi_region_handler callback; + uacpi_handle user_context; + struct uacpi_address_space_handler *next; + struct uacpi_operation_region *regions; + uacpi_u16 space; + +#define UACPI_ADDRESS_SPACE_HANDLER_DEFAULT (1 << 0) + uacpi_u16 flags; +} uacpi_address_space_handler; + +/* + * NOTE: These are common object headers. + * Any changes to these structs must be propagated to all objects. + * ============================================================== + * Common for the following objects: + * - UACPI_OBJECT_OPERATION_REGION + * - UACPI_OBJECT_PROCESSOR + * - UACPI_OBJECT_DEVICE + * - UACPI_OBJECT_THERMAL_ZONE + */ +typedef struct uacpi_address_space_handlers { + struct uacpi_shareable shareable; + uacpi_address_space_handler *head; +} uacpi_address_space_handlers; + +typedef struct uacpi_device_notify_handler { + uacpi_notify_handler callback; + uacpi_handle user_context; + struct uacpi_device_notify_handler *next; +} uacpi_device_notify_handler; + +/* + * Common for the following objects: + * - UACPI_OBJECT_PROCESSOR + * - UACPI_OBJECT_DEVICE + * - UACPI_OBJECT_THERMAL_ZONE + */ +typedef struct uacpi_handlers { + struct uacpi_shareable shareable; + uacpi_address_space_handler *address_space_head; + uacpi_device_notify_handler *notify_head; +} uacpi_handlers; + +// This region has a corresponding _REG method that was succesfully executed +#define UACPI_OP_REGION_STATE_REG_EXECUTED (1 << 0) + +// This region was successfully attached to a handler +#define UACPI_OP_REGION_STATE_ATTACHED (1 << 1) + +typedef struct uacpi_operation_region { + struct uacpi_shareable shareable; + uacpi_address_space_handler *handler; + uacpi_handle user_context; + uacpi_u16 space; + uacpi_u8 state_flags; + uacpi_u64 offset; + uacpi_u64 length; + + union { + // If space == TABLE_DATA + uacpi_u64 table_idx; + + // If space == PCC + uacpi_u8 *internal_buffer; + }; + + // Used to link regions sharing the same handler + struct uacpi_operation_region *next; +} uacpi_operation_region; + +typedef struct uacpi_device { + struct uacpi_shareable shareable; + uacpi_address_space_handler *address_space_handlers; + uacpi_device_notify_handler *notify_handlers; +} uacpi_device; + +typedef struct uacpi_processor { + struct uacpi_shareable shareable; + uacpi_address_space_handler *address_space_handlers; + uacpi_device_notify_handler *notify_handlers; + uacpi_u8 id; + uacpi_u32 block_address; + uacpi_u8 block_length; +} uacpi_processor; + +typedef struct uacpi_thermal_zone { + struct uacpi_shareable shareable; + uacpi_address_space_handler *address_space_handlers; + uacpi_device_notify_handler *notify_handlers; +} uacpi_thermal_zone; + +typedef struct uacpi_power_resource { + uacpi_u8 system_level; + uacpi_u16 resource_order; +} uacpi_power_resource; + +typedef uacpi_status (*uacpi_native_call_handler)( + uacpi_handle ctx, uacpi_object *retval +); + +typedef struct uacpi_control_method { + struct uacpi_shareable shareable; + union { + uacpi_u8 *code; + uacpi_native_call_handler handler; + }; + uacpi_mutex *mutex; + uacpi_u32 size; + uacpi_u8 sync_level : 4; + uacpi_u8 args : 3; + uacpi_u8 is_serialized : 1; + uacpi_u8 named_objects_persist: 1; + uacpi_u8 native_call : 1; + uacpi_u8 owns_code : 1; +} uacpi_control_method; + +typedef enum uacpi_access_type { + UACPI_ACCESS_TYPE_ANY = 0, + UACPI_ACCESS_TYPE_BYTE = 1, + UACPI_ACCESS_TYPE_WORD = 2, + UACPI_ACCESS_TYPE_DWORD = 3, + UACPI_ACCESS_TYPE_QWORD = 4, + UACPI_ACCESS_TYPE_BUFFER = 5, +} uacpi_access_type; + +typedef enum uacpi_lock_rule { + UACPI_LOCK_RULE_NO_LOCK = 0, + UACPI_LOCK_RULE_LOCK = 1, +} uacpi_lock_rule; + +typedef enum uacpi_update_rule { + UACPI_UPDATE_RULE_PRESERVE = 0, + UACPI_UPDATE_RULE_WRITE_AS_ONES = 1, + UACPI_UPDATE_RULE_WRITE_AS_ZEROES = 2, +} uacpi_update_rule; + +typedef enum uacpi_field_unit_kind { + UACPI_FIELD_UNIT_KIND_NORMAL = 0, + UACPI_FIELD_UNIT_KIND_INDEX = 1, + UACPI_FIELD_UNIT_KIND_BANK = 2, +} uacpi_field_unit_kind; + +typedef struct uacpi_field_unit { + struct uacpi_shareable shareable; + + union { + // UACPI_FIELD_UNIT_KIND_NORMAL + struct { + uacpi_namespace_node *region; + }; + + // UACPI_FIELD_UNIT_KIND_INDEX + struct { + struct uacpi_field_unit *index; + struct uacpi_field_unit *data; + }; + + // UACPI_FIELD_UNIT_KIND_BANK + struct { + uacpi_namespace_node *bank_region; + struct uacpi_field_unit *bank_selection; + uacpi_u64 bank_value; + }; + }; + + uacpi_object *connection; + + uacpi_u32 byte_offset; + uacpi_u32 bit_length; + uacpi_u32 pin_offset; + uacpi_u8 bit_offset_within_first_byte; + uacpi_u8 access_width_bytes; + uacpi_u8 access_length; + + uacpi_u8 attributes : 4; + uacpi_u8 update_rule : 2; + uacpi_u8 kind : 2; + uacpi_u8 lock_rule : 1; +} uacpi_field_unit; + +typedef struct uacpi_object { + struct uacpi_shareable shareable; + uacpi_u8 type; + uacpi_u8 flags; + + union { + uacpi_u64 integer; + uacpi_package *package; + uacpi_buffer_field buffer_field; + uacpi_object *inner_object; + uacpi_control_method *method; + uacpi_buffer *buffer; + uacpi_mutex *mutex; + uacpi_event *event; + uacpi_buffer_index buffer_index; + uacpi_operation_region *op_region; + uacpi_device *device; + uacpi_processor *processor; + uacpi_thermal_zone *thermal_zone; + uacpi_address_space_handlers *address_space_handlers; + uacpi_handlers *handlers; + uacpi_power_resource power_resource; + uacpi_field_unit *field_unit; + }; +} uacpi_object; + +uacpi_object *uacpi_create_object(uacpi_object_type type); + +enum uacpi_assign_behavior { + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY, + UACPI_ASSIGN_BEHAVIOR_SHALLOW_COPY, +}; + +uacpi_status uacpi_object_assign(uacpi_object *dst, uacpi_object *src, + enum uacpi_assign_behavior); + +void uacpi_object_attach_child(uacpi_object *parent, uacpi_object *child); +void uacpi_object_detach_child(uacpi_object *parent); + +struct uacpi_object *uacpi_create_internal_reference( + enum uacpi_reference_kind kind, uacpi_object *child +); +uacpi_object *uacpi_unwrap_internal_reference(uacpi_object *object); + +enum uacpi_prealloc_objects { + UACPI_PREALLOC_OBJECTS_NO, + UACPI_PREALLOC_OBJECTS_YES, +}; + +uacpi_bool uacpi_package_fill( + uacpi_package *pkg, uacpi_size num_elements, + enum uacpi_prealloc_objects prealloc_objects +); + +uacpi_mutex *uacpi_create_mutex(void); +void uacpi_mutex_unref(uacpi_mutex*); + +void uacpi_method_unref(uacpi_control_method*); + +void uacpi_address_space_handler_unref(uacpi_address_space_handler *handler); + +void uacpi_buffer_to_view(uacpi_buffer*, uacpi_data_view*); + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/internal/utilities.h b/kernel/hal/x86_64/uACPI/include/uacpi/internal/utilities.h new file mode 100644 index 0000000..606ec92 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/internal/utilities.h @@ -0,0 +1,45 @@ +#pragma once + +#include +#include +#include +#include + +static inline uacpi_phys_addr uacpi_truncate_phys_addr_with_warn(uacpi_u64 large_addr) +{ + if (sizeof(uacpi_phys_addr) < 8 && large_addr > 0xFFFFFFFF) { + uacpi_warn( + "truncating a physical address 0x%"UACPI_PRIX64 + " outside of address space\n", UACPI_FMT64(large_addr) + ); + } + + return (uacpi_phys_addr)large_addr; +} + +#define UACPI_PTR_TO_VIRT_ADDR(ptr) ((uacpi_virt_addr)(ptr)) +#define UACPI_VIRT_ADDR_TO_PTR(vaddr) ((void*)(vaddr)) + +#define UACPI_PTR_ADD(ptr, value) ((void*)(((uacpi_u8*)(ptr)) + value)) + +/* + * Target buffer must have a length of at least 8 bytes. + */ +void uacpi_eisa_id_to_string(uacpi_u32, uacpi_char *out_string); + +enum uacpi_base { + UACPI_BASE_AUTO, + UACPI_BASE_OCT = 8, + UACPI_BASE_DEC = 10, + UACPI_BASE_HEX = 16, +}; +uacpi_status uacpi_string_to_integer( + const uacpi_char *str, uacpi_size max_chars, enum uacpi_base base, + uacpi_u64 *out_value +); + +uacpi_bool uacpi_is_valid_nameseg(uacpi_u8 *nameseg); + +void uacpi_free_dynamic_string(const uacpi_char *str); + +#define UACPI_NANOSECONDS_PER_SEC (1000ull * 1000ull * 1000ull) diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/io.h b/kernel/hal/x86_64/uACPI/include/uacpi/io.h new file mode 100644 index 0000000..6535a06 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/io.h @@ -0,0 +1,36 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +uacpi_status uacpi_gas_read(const struct acpi_gas *gas, uacpi_u64 *value); +uacpi_status uacpi_gas_write(const struct acpi_gas *gas, uacpi_u64 value); + +typedef struct uacpi_mapped_gas uacpi_mapped_gas; + +/* + * Map a GAS for faster access in the future. The handle returned via + * 'out_mapped' must be freed & unmapped using uacpi_unmap_gas() when + * no longer needed. + */ +uacpi_status uacpi_map_gas(const struct acpi_gas *gas, uacpi_mapped_gas **out_mapped); +void uacpi_unmap_gas(uacpi_mapped_gas*); + +/* + * Same as uacpi_gas_{read,write} but operates on a pre-mapped handle for faster + * access and/or ability to use in critical sections/irq contexts. + */ +uacpi_status uacpi_gas_read_mapped(const uacpi_mapped_gas *gas, uacpi_u64 *value); +uacpi_status uacpi_gas_write_mapped(const uacpi_mapped_gas *gas, uacpi_u64 value); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/kernel_api.h b/kernel/hal/x86_64/uACPI/include/uacpi/kernel_api.h new file mode 100644 index 0000000..2a370de --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/kernel_api.h @@ -0,0 +1,375 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +// Returns the PHYSICAL address of the RSDP structure via *out_rsdp_address. +uacpi_status uacpi_kernel_get_rsdp(uacpi_phys_addr *out_rsdp_address); + +/* + * Map a physical memory range starting at 'addr' with length 'len', and return + * a virtual address that can be used to access it. + * + * NOTE: 'addr' may be misaligned, in this case the host is expected to round it + * down to the nearest page-aligned boundary and map that, while making + * sure that at least 'len' bytes are still mapped starting at 'addr'. The + * return value preserves the misaligned offset. + * + * Example for uacpi_kernel_map(0x1ABC, 0xF00): + * 1. Round down the 'addr' we got to the nearest page boundary. + * Considering a PAGE_SIZE of 4096 (or 0x1000), 0x1ABC rounded down + * is 0x1000, offset within the page is 0x1ABC - 0x1000 => 0xABC + * 2. Requested 'len' is 0xF00 bytes, but we just rounded the address + * down by 0xABC bytes, so add those on top. 0xF00 + 0xABC => 0x19BC + * 3. Round up the final 'len' to the nearest PAGE_SIZE boundary, in + * this case 0x19BC is 0x2000 bytes (2 pages if PAGE_SIZE is 4096) + * 4. Call the VMM to map the aligned address 0x1000 (from step 1) + * with length 0x2000 (from step 3). Let's assume the returned + * virtual address for the mapping is 0xF000. + * 5. Add the original offset within page 0xABC (from step 1) to the + * resulting virtual address 0xF000 + 0xABC => 0xFABC. Return it + * to uACPI. + */ +void *uacpi_kernel_map(uacpi_phys_addr addr, uacpi_size len); + +/* + * Unmap a virtual memory range at 'addr' with a length of 'len' bytes. + * + * NOTE: 'addr' may be misaligned, see the comment above 'uacpi_kernel_map'. + * Similar steps to uacpi_kernel_map can be taken to retrieve the + * virtual address originally returned by the VMM for this mapping + * as well as its true length. + */ +void uacpi_kernel_unmap(void *addr, uacpi_size len); + +#ifndef UACPI_FORMATTED_LOGGING +void uacpi_kernel_log(uacpi_log_level, const uacpi_char*); +#else +UACPI_PRINTF_DECL(2, 3) +void uacpi_kernel_log(uacpi_log_level, const uacpi_char*, ...); +void uacpi_kernel_vlog(uacpi_log_level, const uacpi_char*, uacpi_va_list); +#endif + +/* + * Only the above ^^^ API may be used by early table access and + * UACPI_BAREBONES_MODE. + */ +#ifndef UACPI_BAREBONES_MODE + +/* + * Convenience initialization/deinitialization hooks that will be called by + * uACPI automatically when appropriate if compiled-in. + */ +#ifdef UACPI_KERNEL_INITIALIZATION +/* + * This API is invoked for each initialization level so that appropriate parts + * of the host kernel and/or glue code can be initialized at different stages. + * + * uACPI API that triggers calls to uacpi_kernel_initialize and the respective + * 'current_init_lvl' passed to the hook at that stage: + * 1. uacpi_initialize() -> UACPI_INIT_LEVEL_EARLY + * 2. uacpi_namespace_load() -> UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED + * 3. (start of) uacpi_namespace_initialize() -> UACPI_INIT_LEVEL_NAMESPACE_LOADED + * 4. (end of) uacpi_namespace_initialize() -> UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED + */ +uacpi_status uacpi_kernel_initialize(uacpi_init_level current_init_lvl); +void uacpi_kernel_deinitialize(void); +#endif + +/* + * Open a PCI device at 'address' for reading & writing. + * + * Note that this must be able to open any arbitrary PCI device, not just those + * detected during kernel PCI enumeration, since the following pattern is + * relatively common in AML firmware: + * Device (THC0) + * { + * // Device at 00:10.06 + * Name (_ADR, 0x00100006) // _ADR: Address + * + * OperationRegion (THCR, PCI_Config, Zero, 0x0100) + * Field (THCR, ByteAcc, NoLock, Preserve) + * { + * // Vendor ID field in the PCI configuration space + * VDID, 32 + * } + * + * // Check if the device at 00:10.06 actually exists, that is reading + * // from its configuration space returns something other than 0xFFs. + * If ((VDID != 0xFFFFFFFF)) + * { + * // Actually create the rest of the device's body if it's present + * // in the system, otherwise skip it. + * } + * } + * + * The handle returned via 'out_handle' is used to perform IO on the + * configuration space of the device. + */ +uacpi_status uacpi_kernel_pci_device_open( + uacpi_pci_address address, uacpi_handle *out_handle +); +void uacpi_kernel_pci_device_close(uacpi_handle); + +/* + * Read & write the configuration space of a previously open PCI device. + */ +uacpi_status uacpi_kernel_pci_read8( + uacpi_handle device, uacpi_size offset, uacpi_u8 *value +); +uacpi_status uacpi_kernel_pci_read16( + uacpi_handle device, uacpi_size offset, uacpi_u16 *value +); +uacpi_status uacpi_kernel_pci_read32( + uacpi_handle device, uacpi_size offset, uacpi_u32 *value +); + +uacpi_status uacpi_kernel_pci_write8( + uacpi_handle device, uacpi_size offset, uacpi_u8 value +); +uacpi_status uacpi_kernel_pci_write16( + uacpi_handle device, uacpi_size offset, uacpi_u16 value +); +uacpi_status uacpi_kernel_pci_write32( + uacpi_handle device, uacpi_size offset, uacpi_u32 value +); + +/* + * Map a SystemIO address at [base, base + len) and return a kernel-implemented + * handle that can be used for reading and writing the IO range. + * + * NOTE: The x86 architecture uses the in/out family of instructions + * to access the SystemIO address space. + */ +uacpi_status uacpi_kernel_io_map( + uacpi_io_addr base, uacpi_size len, uacpi_handle *out_handle +); +void uacpi_kernel_io_unmap(uacpi_handle handle); + +/* + * Read/Write the IO range mapped via uacpi_kernel_io_map + * at a 0-based 'offset' within the range. + * + * NOTE: + * The x86 architecture uses the in/out family of instructions + * to access the SystemIO address space. + * + * You are NOT allowed to break e.g. a 4-byte access into four 1-byte accesses. + * Hardware ALWAYS expects accesses to be of the exact width. + */ +uacpi_status uacpi_kernel_io_read8( + uacpi_handle, uacpi_size offset, uacpi_u8 *out_value +); +uacpi_status uacpi_kernel_io_read16( + uacpi_handle, uacpi_size offset, uacpi_u16 *out_value +); +uacpi_status uacpi_kernel_io_read32( + uacpi_handle, uacpi_size offset, uacpi_u32 *out_value +); + +uacpi_status uacpi_kernel_io_write8( + uacpi_handle, uacpi_size offset, uacpi_u8 in_value +); +uacpi_status uacpi_kernel_io_write16( + uacpi_handle, uacpi_size offset, uacpi_u16 in_value +); +uacpi_status uacpi_kernel_io_write32( + uacpi_handle, uacpi_size offset, uacpi_u32 in_value +); + +/* + * Allocate a block of memory of 'size' bytes. + * The contents of the allocated memory are unspecified. + */ +void *uacpi_kernel_alloc(uacpi_size size); + +#ifdef UACPI_NATIVE_ALLOC_ZEROED +/* + * Allocate a block of memory of 'size' bytes. + * The returned memory block is expected to be zero-filled. + */ +void *uacpi_kernel_alloc_zeroed(uacpi_size size); +#endif + +/* + * Free a previously allocated memory block. + * + * 'mem' might be a NULL pointer. In this case, the call is assumed to be a + * no-op. + * + * An optionally enabled 'size_hint' parameter contains the size of the original + * allocation. Note that in some scenarios this incurs additional cost to + * calculate the object size. + */ +#ifndef UACPI_SIZED_FREES +void uacpi_kernel_free(void *mem); +#else +void uacpi_kernel_free(void *mem, uacpi_size size_hint); +#endif + +/* + * Returns the number of nanosecond ticks elapsed since boot, + * strictly monotonic. + */ +uacpi_u64 uacpi_kernel_get_nanoseconds_since_boot(void); + +/* + * Spin for N microseconds. + */ +void uacpi_kernel_stall(uacpi_u8 usec); + +/* + * Sleep for N milliseconds. + */ +void uacpi_kernel_sleep(uacpi_u64 msec); + +/* + * Create/free an opaque non-recursive kernel mutex object. + */ +uacpi_handle uacpi_kernel_create_mutex(void); +void uacpi_kernel_free_mutex(uacpi_handle); + +/* + * Create/free an opaque kernel (semaphore-like) event object. + */ +uacpi_handle uacpi_kernel_create_event(void); +void uacpi_kernel_free_event(uacpi_handle); + +/* + * Returns a unique identifier of the currently executing thread. + * + * The returned thread id cannot be UACPI_THREAD_ID_NONE. + */ +uacpi_thread_id uacpi_kernel_get_thread_id(void); + +/* + * Try to acquire the mutex with a millisecond timeout. + * + * The timeout value has the following meanings: + * 0x0000 - Attempt to acquire the mutex once, in a non-blocking manner + * 0x0001...0xFFFE - Attempt to acquire the mutex for at least 'timeout' + * milliseconds + * 0xFFFF - Infinite wait, block until the mutex is acquired + * + * The following are possible return values: + * 1. UACPI_STATUS_OK - successful acquire operation + * 2. UACPI_STATUS_TIMEOUT - timeout reached while attempting to acquire (or the + * single attempt to acquire was not successful for + * calls with timeout=0) + * 3. Any other value - signifies a host internal error and is treated as such + */ +uacpi_status uacpi_kernel_acquire_mutex(uacpi_handle, uacpi_u16); +void uacpi_kernel_release_mutex(uacpi_handle); + +/* + * Try to wait for an event (counter > 0) with a millisecond timeout. + * A timeout value of 0xFFFF implies infinite wait. + * + * The internal counter is decremented by 1 if wait was successful. + * + * A successful wait is indicated by returning UACPI_TRUE. + */ +uacpi_bool uacpi_kernel_wait_for_event(uacpi_handle, uacpi_u16); + +/* + * Signal the event object by incrementing its internal counter by 1. + * + * This function may be used in interrupt contexts. + */ +void uacpi_kernel_signal_event(uacpi_handle); + +/* + * Reset the event counter to 0. + */ +void uacpi_kernel_reset_event(uacpi_handle); + +/* + * Handle a firmware request. + * + * Currently either a Breakpoint or Fatal operators. + */ +uacpi_status uacpi_kernel_handle_firmware_request(uacpi_firmware_request*); + +/* + * Install an interrupt handler at 'irq', 'ctx' is passed to the provided + * handler for every invocation. + * + * 'out_irq_handle' is set to a kernel-implemented value that can be used to + * refer to this handler from other API. + */ +uacpi_status uacpi_kernel_install_interrupt_handler( + uacpi_u32 irq, uacpi_interrupt_handler, uacpi_handle ctx, + uacpi_handle *out_irq_handle +); + +/* + * Uninstall an interrupt handler. 'irq_handle' is the value returned via + * 'out_irq_handle' during installation. + */ +uacpi_status uacpi_kernel_uninstall_interrupt_handler( + uacpi_interrupt_handler, uacpi_handle irq_handle +); + +/* + * Create/free a kernel spinlock object. + * + * Unlike other types of locks, spinlocks may be used in interrupt contexts. + */ +uacpi_handle uacpi_kernel_create_spinlock(void); +void uacpi_kernel_free_spinlock(uacpi_handle); + +/* + * Lock/unlock helpers for spinlocks. + * + * These are expected to disable interrupts, returning the previous state of cpu + * flags, that can be used to possibly re-enable interrupts if they were enabled + * before. + * + * Note that lock is infalliable. + */ +uacpi_cpu_flags uacpi_kernel_lock_spinlock(uacpi_handle); +void uacpi_kernel_unlock_spinlock(uacpi_handle, uacpi_cpu_flags); + +typedef enum uacpi_work_type { + /* + * Schedule a GPE handler method for execution. + * This should be scheduled to run on CPU0 to avoid potential SMI-related + * firmware bugs. + */ + UACPI_WORK_GPE_EXECUTION, + + /* + * Schedule a Notify(device) firmware request for execution. + * This can run on any CPU. + */ + UACPI_WORK_NOTIFICATION, +} uacpi_work_type; + +typedef void (*uacpi_work_handler)(uacpi_handle); + +/* + * Schedules deferred work for execution. + * Might be invoked from an interrupt context. + */ +uacpi_status uacpi_kernel_schedule_work( + uacpi_work_type, uacpi_work_handler, uacpi_handle ctx +); + +/* + * Waits for two types of work to finish: + * 1. All in-flight interrupts installed via uacpi_kernel_install_interrupt_handler + * 2. All work scheduled via uacpi_kernel_schedule_work + * + * Note that the waits must be done in this order specifically. + */ +uacpi_status uacpi_kernel_wait_for_work_completion(void); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/log.h b/kernel/hal/x86_64/uACPI/include/uacpi/log.h new file mode 100644 index 0000000..4fb5457 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/log.h @@ -0,0 +1,40 @@ +#pragma once + +#ifdef __cplusplus +extern "C" { +#endif + +typedef enum uacpi_log_level { + /* + * Super verbose logging, every op & uop being processed is logged. + * Mostly useful for tracking down hangs/lockups. + */ + UACPI_LOG_DEBUG = 5, + + /* + * A little verbose, every operation region access is traced with a bit of + * extra information on top. + */ + UACPI_LOG_TRACE = 4, + + /* + * Only logs the bare minimum information about state changes and/or + * initialization progress. + */ + UACPI_LOG_INFO = 3, + + /* + * Logs recoverable errors and/or non-important aborts. + */ + UACPI_LOG_WARN = 2, + + /* + * Logs only critical errors that might affect the ability to initialize or + * prevent stable runtime. + */ + UACPI_LOG_ERROR = 1, +} uacpi_log_level; + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/namespace.h b/kernel/hal/x86_64/uACPI/include/uacpi/namespace.h new file mode 100644 index 0000000..5ef23af --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/namespace.h @@ -0,0 +1,186 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +typedef struct uacpi_namespace_node uacpi_namespace_node; + +uacpi_namespace_node *uacpi_namespace_root(void); + +typedef enum uacpi_predefined_namespace { + UACPI_PREDEFINED_NAMESPACE_ROOT = 0, + UACPI_PREDEFINED_NAMESPACE_GPE, + UACPI_PREDEFINED_NAMESPACE_PR, + UACPI_PREDEFINED_NAMESPACE_SB, + UACPI_PREDEFINED_NAMESPACE_SI, + UACPI_PREDEFINED_NAMESPACE_TZ, + UACPI_PREDEFINED_NAMESPACE_GL, + UACPI_PREDEFINED_NAMESPACE_OS, + UACPI_PREDEFINED_NAMESPACE_OSI, + UACPI_PREDEFINED_NAMESPACE_REV, + UACPI_PREDEFINED_NAMESPACE_MAX = UACPI_PREDEFINED_NAMESPACE_REV, +} uacpi_predefined_namespace; +uacpi_namespace_node *uacpi_namespace_get_predefined( + uacpi_predefined_namespace +); + +/* + * Returns UACPI_TRUE if the provided 'node' is an alias. + */ +uacpi_bool uacpi_namespace_node_is_alias(uacpi_namespace_node *node); + +uacpi_object_name uacpi_namespace_node_name(const uacpi_namespace_node *node); + +/* + * Returns the type of object stored at the namespace node. + * + * NOTE: due to the existance of the CopyObject operator in AML, the + * return value of this function is subject to TOCTOU bugs. + */ +uacpi_status uacpi_namespace_node_type( + const uacpi_namespace_node *node, uacpi_object_type *out_type +); + +/* + * Returns UACPI_TRUE via 'out' if the type of the object stored at the + * namespace node matches the provided value, UACPI_FALSE otherwise. + * + * NOTE: due to the existance of the CopyObject operator in AML, the + * return value of this function is subject to TOCTOU bugs. + */ +uacpi_status uacpi_namespace_node_is( + const uacpi_namespace_node *node, uacpi_object_type type, uacpi_bool *out +); + +/* + * Returns UACPI_TRUE via 'out' if the type of the object stored at the + * namespace node matches any of the type bits in the provided value, + * UACPI_FALSE otherwise. + * + * NOTE: due to the existance of the CopyObject operator in AML, the + * return value of this function is subject to TOCTOU bugs. + */ +uacpi_status uacpi_namespace_node_is_one_of( + const uacpi_namespace_node *node, uacpi_object_type_bits type_mask, + uacpi_bool *out +); + +uacpi_size uacpi_namespace_node_depth(const uacpi_namespace_node *node); + +uacpi_namespace_node *uacpi_namespace_node_parent( + uacpi_namespace_node *node +); + +uacpi_status uacpi_namespace_node_find( + uacpi_namespace_node *parent, + const uacpi_char *path, + uacpi_namespace_node **out_node +); + +/* + * Same as uacpi_namespace_node_find, except the search recurses upwards when + * the namepath consists of only a single nameseg. Usually, this behavior is + * only desired if resolving a namepath specified in an aml-provided object, + * such as a package element. + */ +uacpi_status uacpi_namespace_node_resolve_from_aml_namepath( + uacpi_namespace_node *scope, + const uacpi_char *path, + uacpi_namespace_node **out_node +); + +typedef uacpi_iteration_decision (*uacpi_iteration_callback) ( + void *user, uacpi_namespace_node *node, uacpi_u32 node_depth +); + +#define UACPI_MAX_DEPTH_ANY 0xFFFFFFFF + +/* + * Depth-first iterate the namespace starting at the first child of 'parent'. + */ +uacpi_status uacpi_namespace_for_each_child_simple( + uacpi_namespace_node *parent, uacpi_iteration_callback callback, void *user +); + +/* + * Depth-first iterate the namespace starting at the first child of 'parent'. + * + * 'descending_callback' is invoked the first time a node is visited when + * walking down. 'ascending_callback' is invoked the second time a node is + * visited after we reach the leaf node without children and start walking up. + * Either of the callbacks may be NULL, but not both at the same time. + * + * Only nodes matching 'type_mask' are passed to the callbacks. + * + * 'max_depth' is used to limit the maximum reachable depth from 'parent', + * where 1 is only direct children of 'parent', 2 is children of first-level + * children etc. Use UACPI_MAX_DEPTH_ANY or -1 to specify infinite depth. + */ +uacpi_status uacpi_namespace_for_each_child( + uacpi_namespace_node *parent, uacpi_iteration_callback descending_callback, + uacpi_iteration_callback ascending_callback, + uacpi_object_type_bits type_mask, uacpi_u32 max_depth, void *user +); + +/* + * Retrieve the next peer namespace node of '*iter', or, if '*iter' is + * UACPI_NULL, retrieve the first child of 'parent' instead. The resulting + * namespace node is stored at '*iter'. + * + * This API can be used to implement an "iterator" version of the + * for_each_child helpers. + * + * Example usage: + * void recurse(uacpi_namespace_node *parent) { + * uacpi_namespace_node *iter = UACPI_NULL; + * + * while (uacpi_namespace_node_next(parent, &iter) == UACPI_STATUS_OK) { + * // Do something with iter... + * descending_callback(iter); + * + * // Recurse down to walk over the children of iter + * recurse(iter); + * } + * } + * + * Prefer the for_each_child family of helpers if possible instead of this API + * as they avoid recursion and/or the need to use dynamic data structures + * entirely. + */ +uacpi_status uacpi_namespace_node_next( + uacpi_namespace_node *parent, uacpi_namespace_node **iter +); + +/* + * Retrieve the next peer namespace node of '*iter', or, if '*iter' is + * UACPI_NULL, retrieve the first child of 'parent' instead. The resulting + * namespace node is stored at '*iter'. Only nodes which type matches one + * of the types set in 'type_mask' are returned. + * + * See comment above 'uacpi_namespace_node_next' for usage examples. + * + * Prefer the for_each_child family of helpers if possible instead of this API + * as they avoid recursion and/or the need to use dynamic data structures + * entirely. + */ +uacpi_status uacpi_namespace_node_next_typed( + uacpi_namespace_node *parent, uacpi_namespace_node **iter, + uacpi_object_type_bits type_mask +); + +const uacpi_char *uacpi_namespace_node_generate_absolute_path( + const uacpi_namespace_node *node +); +void uacpi_free_absolute_path(const uacpi_char *path); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/notify.h b/kernel/hal/x86_64/uACPI/include/uacpi/notify.h new file mode 100644 index 0000000..3b66757 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/notify.h @@ -0,0 +1,30 @@ +#pragma once + +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +/* + * Install a Notify() handler to a device node. + * A handler installed to the root node will receive all notifications, even if + * a device already has a dedicated Notify handler. + * 'handler_context' is passed to the handler on every invocation. + */ +uacpi_status uacpi_install_notify_handler( + uacpi_namespace_node *node, uacpi_notify_handler handler, + uacpi_handle handler_context +); + +uacpi_status uacpi_uninstall_notify_handler( + uacpi_namespace_node *node, uacpi_notify_handler handler +); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/opregion.h b/kernel/hal/x86_64/uACPI/include/uacpi/opregion.h new file mode 100644 index 0000000..1eee4f0 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/opregion.h @@ -0,0 +1,47 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +/* + * Install an address space handler to a device node. + * The handler is recursively connected to all of the operation regions of + * type 'space' underneath 'device_node'. Note that this recursion stops as + * soon as another device node that already has an address space handler of + * this type installed is encountered. + */ +uacpi_status uacpi_install_address_space_handler( + uacpi_namespace_node *device_node, enum uacpi_address_space space, + uacpi_region_handler handler, uacpi_handle handler_context +); + +/* + * Uninstall the handler of type 'space' from a given device node. + */ +uacpi_status uacpi_uninstall_address_space_handler( + uacpi_namespace_node *device_node, + enum uacpi_address_space space +); + +/* + * Execute _REG(space, ACPI_REG_CONNECT) for all of the opregions with this + * address space underneath this device. This should only be called manually + * if you want to register an early handler that must be available before the + * call to uacpi_namespace_initialize(). + */ +uacpi_status uacpi_reg_all_opregions( + uacpi_namespace_node *device_node, + enum uacpi_address_space space +); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/osi.h b/kernel/hal/x86_64/uACPI/include/uacpi/osi.h new file mode 100644 index 0000000..5330138 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/osi.h @@ -0,0 +1,125 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +typedef enum uacpi_vendor_interface { + UACPI_VENDOR_INTERFACE_NONE = 0, + UACPI_VENDOR_INTERFACE_WINDOWS_2000, + UACPI_VENDOR_INTERFACE_WINDOWS_XP, + UACPI_VENDOR_INTERFACE_WINDOWS_XP_SP1, + UACPI_VENDOR_INTERFACE_WINDOWS_SERVER_2003, + UACPI_VENDOR_INTERFACE_WINDOWS_XP_SP2, + UACPI_VENDOR_INTERFACE_WINDOWS_SERVER_2003_SP1, + UACPI_VENDOR_INTERFACE_WINDOWS_VISTA, + UACPI_VENDOR_INTERFACE_WINDOWS_SERVER_2008, + UACPI_VENDOR_INTERFACE_WINDOWS_VISTA_SP1, + UACPI_VENDOR_INTERFACE_WINDOWS_VISTA_SP2, + UACPI_VENDOR_INTERFACE_WINDOWS_7, + UACPI_VENDOR_INTERFACE_WINDOWS_8, + UACPI_VENDOR_INTERFACE_WINDOWS_8_1, + UACPI_VENDOR_INTERFACE_WINDOWS_10, + UACPI_VENDOR_INTERFACE_WINDOWS_10_RS1, + UACPI_VENDOR_INTERFACE_WINDOWS_10_RS2, + UACPI_VENDOR_INTERFACE_WINDOWS_10_RS3, + UACPI_VENDOR_INTERFACE_WINDOWS_10_RS4, + UACPI_VENDOR_INTERFACE_WINDOWS_10_RS5, + UACPI_VENDOR_INTERFACE_WINDOWS_10_19H1, + UACPI_VENDOR_INTERFACE_WINDOWS_10_20H1, + UACPI_VENDOR_INTERFACE_WINDOWS_11, + UACPI_VENDOR_INTERFACE_WINDOWS_11_22H2, +} uacpi_vendor_interface; + +/* + * Returns the "latest" AML-queried _OSI vendor interface. + * + * E.g. for the following AML code: + * _OSI("Windows 2021") + * _OSI("Windows 2000") + * + * This function will return UACPI_VENDOR_INTERFACE_WINDOWS_11, since this is + * the latest version of the interface the code queried, even though the + * "Windows 2000" query came after "Windows 2021". + */ +uacpi_vendor_interface uacpi_latest_queried_vendor_interface(void); + +typedef enum uacpi_interface_kind { + UACPI_INTERFACE_KIND_VENDOR = (1 << 0), + UACPI_INTERFACE_KIND_FEATURE = (1 << 1), + UACPI_INTERFACE_KIND_ALL = UACPI_INTERFACE_KIND_VENDOR | + UACPI_INTERFACE_KIND_FEATURE, +} uacpi_interface_kind; + +/* + * Install or uninstall an interface. + * + * The interface kind is used for matching during interface enumeration in + * uacpi_bulk_configure_interfaces(). + * + * After installing an interface, all _OSI queries report it as supported. + */ +uacpi_status uacpi_install_interface( + const uacpi_char *name, uacpi_interface_kind +); +uacpi_status uacpi_uninstall_interface(const uacpi_char *name); + +typedef enum uacpi_host_interface { + UACPI_HOST_INTERFACE_MODULE_DEVICE = 1, + UACPI_HOST_INTERFACE_PROCESSOR_DEVICE, + UACPI_HOST_INTERFACE_3_0_THERMAL_MODEL, + UACPI_HOST_INTERFACE_3_0_SCP_EXTENSIONS, + UACPI_HOST_INTERFACE_PROCESSOR_AGGREGATOR_DEVICE, +} uacpi_host_interface; + +/* + * Same as install/uninstall interface, but comes with an enum of known + * interfaces defined by the ACPI specification. These are disabled by default + * as they depend on the host kernel support. + */ +uacpi_status uacpi_enable_host_interface(uacpi_host_interface); +uacpi_status uacpi_disable_host_interface(uacpi_host_interface); + +typedef uacpi_bool (*uacpi_interface_handler) + (const uacpi_char *name, uacpi_bool supported); + +/* + * Set a custom interface query (_OSI) handler. + * + * This callback will be invoked for each _OSI query with the value + * passed in the _OSI, as well as whether the interface was detected as + * supported. The callback is able to override the return value dynamically + * or leave it untouched if desired (e.g. if it simply wants to log something or + * do internal bookkeeping of some kind). + */ +uacpi_status uacpi_set_interface_query_handler(uacpi_interface_handler); + +typedef enum uacpi_interface_action { + UACPI_INTERFACE_ACTION_DISABLE = 0, + UACPI_INTERFACE_ACTION_ENABLE, +} uacpi_interface_action; + +/* + * Bulk interface configuration, used to disable or enable all interfaces that + * match 'kind'. + * + * This is generally only needed to work around buggy hardware, for example if + * requested from the kernel command line. + * + * By default, all vendor strings (like "Windows 2000") are enabled, and all + * host features (like "3.0 Thermal Model") are disabled. + */ +uacpi_status uacpi_bulk_configure_interfaces( + uacpi_interface_action action, uacpi_interface_kind kind +); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/platform/arch_helpers.h b/kernel/hal/x86_64/uACPI/include/uacpi/platform/arch_helpers.h new file mode 100644 index 0000000..2e566c4 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/platform/arch_helpers.h @@ -0,0 +1,38 @@ +#pragma once + +#ifdef UACPI_OVERRIDE_ARCH_HELPERS +#include "uacpi_arch_helpers.h" +#else + +#include + +#ifndef UACPI_ARCH_FLUSH_CPU_CACHE +#define UACPI_ARCH_FLUSH_CPU_CACHE() do {} while (0) +#endif + +typedef unsigned long uacpi_cpu_flags; + +typedef void *uacpi_thread_id; + +/* + * Replace as needed depending on your platform's way to represent thread ids. + * uACPI offers a few more helpers like uacpi_atomic_{load,store}{8,16,32,64,ptr} + * (or you could provide your own helpers) + */ +#ifndef UACPI_ATOMIC_LOAD_THREAD_ID +#define UACPI_ATOMIC_LOAD_THREAD_ID(ptr) ((uacpi_thread_id)uacpi_atomic_load_ptr(ptr)) +#endif + +#ifndef UACPI_ATOMIC_STORE_THREAD_ID +#define UACPI_ATOMIC_STORE_THREAD_ID(ptr, value) uacpi_atomic_store_ptr(ptr, value) +#endif + +/* + * A sentinel value that the kernel promises to NEVER return from + * uacpi_kernel_get_current_thread_id or this will break + */ +#ifndef UACPI_THREAD_ID_NONE +#define UACPI_THREAD_ID_NONE ((uacpi_thread_id)-1) +#endif + +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/platform/atomic.h b/kernel/hal/x86_64/uACPI/include/uacpi/platform/atomic.h new file mode 100644 index 0000000..1d1b570 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/platform/atomic.h @@ -0,0 +1,347 @@ +#pragma once + +/* + * Most of this header is a giant workaround for MSVC to make atomics into a + * somewhat unified interface with how GCC and Clang handle them. + * + * We don't use the absolutely disgusting C11 stdatomic.h header because it is + * unable to operate on non _Atomic types, which enforce implicit sequential + * consistency and alter the behavior of the standard C binary/unary operators. + * + * The strictness of the atomic helpers defined here is assumed to be at least + * acquire for loads and release for stores. Cmpxchg uses the standard acq/rel + * for success, acq for failure, and is assumed to be strong. + */ + +#ifdef UACPI_OVERRIDE_ATOMIC +#include "uacpi_atomic.h" +#else + +#include + +#if defined(_MSC_VER) && !defined(__clang__) + +#include + +// mimic __atomic_compare_exchange_n that doesn't exist on MSVC +#define UACPI_MAKE_MSVC_CMPXCHG(width, type, suffix) \ + static inline int uacpi_do_atomic_cmpxchg##width( \ + type volatile *ptr, type volatile *expected, type desired \ + ) \ + { \ + type current; \ + \ + current = _InterlockedCompareExchange##suffix(ptr, *expected, desired); \ + if (current != *expected) { \ + *expected = current; \ + return 0; \ + } \ + return 1; \ + } + +#define UACPI_MSVC_CMPXCHG_INVOKE(ptr, expected, desired, width, type) \ + uacpi_do_atomic_cmpxchg##width( \ + (type volatile*)ptr, (type volatile*)expected, desired \ + ) + +#define UACPI_MSVC_ATOMIC_STORE(ptr, value, type, width) \ + _InterlockedExchange##width((type volatile*)(ptr), (type)(value)) + +#define UACPI_MSVC_ATOMIC_LOAD(ptr, type, width) \ + _InterlockedOr##width((type volatile*)(ptr), 0) + +#define UACPI_MSVC_ATOMIC_INC(ptr, type, width) \ + _InterlockedIncrement##width((type volatile*)(ptr)) + +#define UACPI_MSVC_ATOMIC_DEC(ptr, type, width) \ + _InterlockedDecrement##width((type volatile*)(ptr)) + +UACPI_MAKE_MSVC_CMPXCHG(64, __int64, 64) +UACPI_MAKE_MSVC_CMPXCHG(32, long,) +UACPI_MAKE_MSVC_CMPXCHG(16, short, 16) + +#define uacpi_atomic_cmpxchg16(ptr, expected, desired) \ + UACPI_MSVC_CMPXCHG_INVOKE(ptr, expected, desired, 16, short) + +#define uacpi_atomic_cmpxchg32(ptr, expected, desired) \ + UACPI_MSVC_CMPXCHG_INVOKE(ptr, expected, desired, 32, long) + +#define uacpi_atomic_cmpxchg64(ptr, expected, desired) \ + UACPI_MSVC_CMPXCHG_INVOKE(ptr, expected, desired, 64, __int64) + +#define uacpi_atomic_load8(ptr) UACPI_MSVC_ATOMIC_LOAD(ptr, char, 8) +#define uacpi_atomic_load16(ptr) UACPI_MSVC_ATOMIC_LOAD(ptr, short, 16) +#define uacpi_atomic_load32(ptr) UACPI_MSVC_ATOMIC_LOAD(ptr, long,) +#define uacpi_atomic_load64(ptr) UACPI_MSVC_ATOMIC_LOAD(ptr, __int64, 64) + +#define uacpi_atomic_store8(ptr, value) UACPI_MSVC_ATOMIC_STORE(ptr, value, char, 8) +#define uacpi_atomic_store16(ptr, value) UACPI_MSVC_ATOMIC_STORE(ptr, value, short, 16) +#define uacpi_atomic_store32(ptr, value) UACPI_MSVC_ATOMIC_STORE(ptr, value, long,) +#define uacpi_atomic_store64(ptr, value) UACPI_MSVC_ATOMIC_STORE(ptr, value, __int64, 64) + +#define uacpi_atomic_inc16(ptr) UACPI_MSVC_ATOMIC_INC(ptr, short, 16) +#define uacpi_atomic_inc32(ptr) UACPI_MSVC_ATOMIC_INC(ptr, long,) +#define uacpi_atomic_inc64(ptr) UACPI_MSVC_ATOMIC_INC(ptr, __int64, 64) + +#define uacpi_atomic_dec16(ptr) UACPI_MSVC_ATOMIC_DEC(ptr, short, 16) +#define uacpi_atomic_dec32(ptr) UACPI_MSVC_ATOMIC_DEC(ptr, long,) +#define uacpi_atomic_dec64(ptr) UACPI_MSVC_ATOMIC_DEC(ptr, __int64, 64) +#elif defined(__WATCOMC__) + +#include + +static int uacpi_do_atomic_cmpxchg16(volatile uint16_t *ptr, volatile uint16_t *expected, uint16_t desired); +#pragma aux uacpi_do_atomic_cmpxchg16 = \ + ".486" \ + "mov ax, [esi]" \ + "lock cmpxchg [edi], bx" \ + "mov [esi], ax" \ + "setz al" \ + "movzx eax, al" \ + parm [ edi ] [ esi ] [ ebx ] \ + value [ eax ] + +static int uacpi_do_atomic_cmpxchg32(volatile uint32_t *ptr, volatile uint32_t *expected, uint32_t desired); +#pragma aux uacpi_do_atomic_cmpxchg32 = \ + ".486" \ + "mov eax, [esi]" \ + "lock cmpxchg [edi], ebx" \ + "mov [esi], eax" \ + "setz al" \ + "movzx eax, al" \ + parm [ edi ] [ esi ] [ ebx ] \ + value [ eax ] + +static int uacpi_do_atomic_cmpxchg64_asm(volatile uint64_t *ptr, volatile uint64_t *expected, uint32_t low, uint32_t high); +#pragma aux uacpi_do_atomic_cmpxchg64_asm = \ + ".586" \ + "mov eax, [esi]" \ + "mov edx, [esi + 4]" \ + "lock cmpxchg8b [edi]" \ + "mov [esi], eax" \ + "mov [esi + 4], edx" \ + "setz al" \ + "movzx eax, al" \ + modify [ edx ] \ + parm [ edi ] [ esi ] [ ebx ] [ ecx ] \ + value [ eax ] + +static inline int uacpi_do_atomic_cmpxchg64(volatile uint64_t *ptr, volatile uint64_t *expected, uint64_t desired) { + return uacpi_do_atomic_cmpxchg64_asm(ptr, expected, desired, desired >> 32); +} + +#define uacpi_atomic_cmpxchg16(ptr, expected, desired) \ + uacpi_do_atomic_cmpxchg16((volatile uint16_t*)ptr, (volatile uint16_t*)expected, (uint16_t)desired) +#define uacpi_atomic_cmpxchg32(ptr, expected, desired) \ + uacpi_do_atomic_cmpxchg32((volatile uint32_t*)ptr, (volatile uint32_t*)expected, (uint32_t)desired) +#define uacpi_atomic_cmpxchg64(ptr, expected, desired) \ + uacpi_do_atomic_cmpxchg64((volatile uint64_t*)ptr, (volatile uint64_t*)expected, (uint64_t)desired) + +static uint8_t uacpi_do_atomic_load8(volatile uint8_t *ptr); +#pragma aux uacpi_do_atomic_load8 = \ + "mov al, [esi]" \ + parm [ esi ] \ + value [ al ] + +static uint16_t uacpi_do_atomic_load16(volatile uint16_t *ptr); +#pragma aux uacpi_do_atomic_load16 = \ + "mov ax, [esi]" \ + parm [ esi ] \ + value [ ax ] + +static uint32_t uacpi_do_atomic_load32(volatile uint32_t *ptr); +#pragma aux uacpi_do_atomic_load32 = \ + "mov eax, [esi]" \ + parm [ esi ] \ + value [ eax ] + +static void uacpi_do_atomic_load64_asm(volatile uint64_t *ptr, uint64_t *out); +#pragma aux uacpi_do_atomic_load64_asm = \ + ".586" \ + "xor eax, eax" \ + "xor ebx, ebx" \ + "xor ecx, ecx" \ + "xor edx, edx" \ + "lock cmpxchg8b [esi]" \ + "mov [edi], eax" \ + "mov [edi + 4], edx" \ + modify [ eax ebx ecx edx ] \ + parm [ esi ] [ edi ] + +static inline uint64_t uacpi_do_atomic_load64(volatile uint64_t *ptr) { + uint64_t value; + uacpi_do_atomic_load64_asm(ptr, &value); + return value; +} + +#define uacpi_atomic_load8(ptr) uacpi_do_atomic_load8((volatile uint8_t*)ptr) +#define uacpi_atomic_load16(ptr) uacpi_do_atomic_load16((volatile uint16_t*)ptr) +#define uacpi_atomic_load32(ptr) uacpi_do_atomic_load32((volatile uint32_t*)ptr) +#define uacpi_atomic_load64(ptr) uacpi_do_atomic_load64((volatile uint64_t*)ptr) + +static void uacpi_do_atomic_store8(volatile uint8_t *ptr, uint8_t value); +#pragma aux uacpi_do_atomic_store8 = \ + "mov [edi], al" \ + parm [ edi ] [ eax ] + +static void uacpi_do_atomic_store16(volatile uint16_t *ptr, uint16_t value); +#pragma aux uacpi_do_atomic_store16 = \ + "mov [edi], ax" \ + parm [ edi ] [ eax ] + +static void uacpi_do_atomic_store32(volatile uint32_t *ptr, uint32_t value); +#pragma aux uacpi_do_atomic_store32 = \ + "mov [edi], eax" \ + parm [ edi ] [ eax ] + +static void uacpi_do_atomic_store64_asm(volatile uint64_t *ptr, uint32_t low, uint32_t high); +#pragma aux uacpi_do_atomic_store64_asm = \ + ".586" \ + "xor eax, eax" \ + "xor edx, edx" \ + "retry: lock cmpxchg8b [edi]" \ + "jnz retry" \ + modify [ eax edx ] \ + parm [ edi ] [ ebx ] [ ecx ] + +static inline void uacpi_do_atomic_store64(volatile uint64_t *ptr, uint64_t value) { + uacpi_do_atomic_store64_asm(ptr, value, value >> 32); +} + +#define uacpi_atomic_store8(ptr, value) uacpi_do_atomic_store8((volatile uint8_t*)ptr, (uint8_t)value) +#define uacpi_atomic_store16(ptr, value) uacpi_do_atomic_store16((volatile uint16_t*)ptr, (uint16_t)value) +#define uacpi_atomic_store32(ptr, value) uacpi_do_atomic_store32((volatile uint32_t*)ptr, (uint32_t)value) +#define uacpi_atomic_store64(ptr, value) uacpi_do_atomic_store64((volatile uint64_t*)ptr, (uint64_t)value) + +static uint16_t uacpi_do_atomic_inc16(volatile uint16_t *ptr); +#pragma aux uacpi_do_atomic_inc16 = \ + ".486" \ + "mov ax, 1" \ + "lock xadd [edi], ax" \ + "add ax, 1" \ + parm [ edi ] \ + value [ ax ] + +static uint32_t uacpi_do_atomic_inc32(volatile uint32_t *ptr); +#pragma aux uacpi_do_atomic_inc32 = \ + ".486" \ + "mov eax, 1" \ + "lock xadd [edi], eax" \ + "add eax, 1" \ + parm [ edi ] \ + value [ eax ] + +static void uacpi_do_atomic_inc64_asm(volatile uint64_t *ptr, uint64_t *out); +#pragma aux uacpi_do_atomic_inc64_asm = \ + ".586" \ + "xor eax, eax" \ + "xor edx, edx" \ + "mov ebx, 1" \ + "mov ecx, 1" \ + "retry: lock cmpxchg8b [esi]" \ + "mov ebx, eax" \ + "mov ecx, edx" \ + "add ebx, 1" \ + "adc ecx, 0" \ + "jnz retry" \ + "mov [edi], ebx" \ + "mov [edi + 4], ecx" \ + modify [ eax ebx ecx edx ] \ + parm [ esi ] [ edi ] + +static inline uint64_t uacpi_do_atomic_inc64(volatile uint64_t *ptr) { + uint64_t value; + uacpi_do_atomic_inc64_asm(ptr, &value); + return value; +} + +#define uacpi_atomic_inc16(ptr) uacpi_do_atomic_inc16((volatile uint16_t*)ptr) +#define uacpi_atomic_inc32(ptr) uacpi_do_atomic_inc32((volatile uint32_t*)ptr) +#define uacpi_atomic_inc64(ptr) uacpi_do_atomic_inc64((volatile uint64_t*)ptr) + +static uint16_t uacpi_do_atomic_dec16(volatile uint16_t *ptr); +#pragma aux uacpi_do_atomic_dec16 = \ + ".486" \ + "mov ax, -1" \ + "lock xadd [edi], ax" \ + "add ax, -1" \ + parm [ edi ] \ + value [ ax ] + +static uint32_t uacpi_do_atomic_dec32(volatile uint32_t *ptr); +#pragma aux uacpi_do_atomic_dec32 = \ + ".486" \ + "mov eax, -1" \ + "lock xadd [edi], eax" \ + "add eax, -1" \ + parm [ edi ] \ + value [ eax ] + +static void uacpi_do_atomic_dec64_asm(volatile uint64_t *ptr, uint64_t *out); +#pragma aux uacpi_do_atomic_dec64_asm = \ + ".586" \ + "xor eax, eax" \ + "xor edx, edx" \ + "mov ebx, -1" \ + "mov ecx, -1" \ + "retry: lock cmpxchg8b [esi]" \ + "mov ebx, eax" \ + "mov ecx, edx" \ + "sub ebx, 1" \ + "sbb ecx, 0" \ + "jnz retry" \ + "mov [edi], ebx" \ + "mov [edi + 4], ecx" \ + modify [ eax ebx ecx edx ] \ + parm [ esi ] [ edi ] + +static inline uint64_t uacpi_do_atomic_dec64(volatile uint64_t *ptr) { + uint64_t value; + uacpi_do_atomic_dec64_asm(ptr, &value); + return value; +} + +#define uacpi_atomic_dec16(ptr) uacpi_do_atomic_dec16((volatile uint16_t*)ptr) +#define uacpi_atomic_dec32(ptr) uacpi_do_atomic_dec32((volatile uint32_t*)ptr) +#define uacpi_atomic_dec64(ptr) uacpi_do_atomic_dec64((volatile uint64_t*)ptr) +#else + +#define UACPI_DO_CMPXCHG(ptr, expected, desired) \ + __atomic_compare_exchange_n(ptr, expected, desired, 0, \ + __ATOMIC_ACQ_REL, __ATOMIC_ACQUIRE) + +#define uacpi_atomic_cmpxchg16(ptr, expected, desired) \ + UACPI_DO_CMPXCHG(ptr, expected, desired) +#define uacpi_atomic_cmpxchg32(ptr, expected, desired) \ + UACPI_DO_CMPXCHG(ptr, expected, desired) +#define uacpi_atomic_cmpxchg64(ptr, expected, desired) \ + UACPI_DO_CMPXCHG(ptr, expected, desired) + +#define uacpi_atomic_load8(ptr) __atomic_load_n(ptr, __ATOMIC_ACQUIRE) +#define uacpi_atomic_load16(ptr) __atomic_load_n(ptr, __ATOMIC_ACQUIRE) +#define uacpi_atomic_load32(ptr) __atomic_load_n(ptr, __ATOMIC_ACQUIRE) +#define uacpi_atomic_load64(ptr) __atomic_load_n(ptr, __ATOMIC_ACQUIRE) + +#define uacpi_atomic_store8(ptr, value) __atomic_store_n(ptr, value, __ATOMIC_RELEASE) +#define uacpi_atomic_store16(ptr, value) __atomic_store_n(ptr, value, __ATOMIC_RELEASE) +#define uacpi_atomic_store32(ptr, value) __atomic_store_n(ptr, value, __ATOMIC_RELEASE) +#define uacpi_atomic_store64(ptr, value) __atomic_store_n(ptr, value, __ATOMIC_RELEASE) + +#define uacpi_atomic_inc16(ptr) __atomic_add_fetch(ptr, 1, __ATOMIC_ACQ_REL) +#define uacpi_atomic_inc32(ptr) __atomic_add_fetch(ptr, 1, __ATOMIC_ACQ_REL) +#define uacpi_atomic_inc64(ptr) __atomic_add_fetch(ptr, 1, __ATOMIC_ACQ_REL) + +#define uacpi_atomic_dec16(ptr) __atomic_sub_fetch(ptr, 1, __ATOMIC_ACQ_REL) +#define uacpi_atomic_dec32(ptr) __atomic_sub_fetch(ptr, 1, __ATOMIC_ACQ_REL) +#define uacpi_atomic_dec64(ptr) __atomic_sub_fetch(ptr, 1, __ATOMIC_ACQ_REL) +#endif + +#if UACPI_POINTER_SIZE == 4 +#define uacpi_atomic_load_ptr(ptr_to_ptr) uacpi_atomic_load32(ptr_to_ptr) +#define uacpi_atomic_store_ptr(ptr_to_ptr, value) uacpi_atomic_store32(ptr_to_ptr, value) +#else +#define uacpi_atomic_load_ptr(ptr_to_ptr) uacpi_atomic_load64(ptr_to_ptr) +#define uacpi_atomic_store_ptr(ptr_to_ptr, value) uacpi_atomic_store64(ptr_to_ptr, value) +#endif + +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/platform/compiler.h b/kernel/hal/x86_64/uACPI/include/uacpi/platform/compiler.h new file mode 100644 index 0000000..563a1c5 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/platform/compiler.h @@ -0,0 +1,125 @@ +#pragma once + +/* + * Compiler-specific attributes/macros go here. This is the default placeholder + * that should work for MSVC/GCC/clang. + */ + +#ifdef UACPI_OVERRIDE_COMPILER +#include "uacpi_compiler.h" +#else + +#define UACPI_ALIGN(x) __declspec(align(x)) + +#if defined(__WATCOMC__) +#define UACPI_STATIC_ASSERT(expr, msg) +#elif defined(__cplusplus) +#define UACPI_STATIC_ASSERT static_assert +#else +#define UACPI_STATIC_ASSERT _Static_assert +#endif + +#ifdef _MSC_VER + #include + + #define UACPI_ALWAYS_INLINE __forceinline + + #define UACPI_PACKED(decl) \ + __pragma(pack(push, 1)) \ + decl; \ + __pragma(pack(pop)) +#elif defined(__WATCOMC__) + #define UACPI_ALWAYS_INLINE inline + #define UACPI_PACKED(decl) _Packed decl; +#else + #define UACPI_ALWAYS_INLINE inline __attribute__((always_inline)) + #define UACPI_PACKED(decl) decl __attribute__((packed)); +#endif + +#if defined(__GNUC__) || defined(__clang__) + #define uacpi_unlikely(expr) __builtin_expect(!!(expr), 0) + #define uacpi_likely(expr) __builtin_expect(!!(expr), 1) + + #ifdef __has_attribute + #if __has_attribute(__fallthrough__) + #define UACPI_FALLTHROUGH __attribute__((__fallthrough__)) + #endif + #endif + + #define UACPI_MAYBE_UNUSED __attribute__ ((unused)) + + #define UACPI_NO_UNUSED_PARAMETER_WARNINGS_BEGIN \ + _Pragma("GCC diagnostic push") \ + _Pragma("GCC diagnostic ignored \"-Wunused-parameter\"") + + #define UACPI_NO_UNUSED_PARAMETER_WARNINGS_END \ + _Pragma("GCC diagnostic pop") + + #ifdef __clang__ + #define UACPI_PRINTF_DECL(fmt_idx, args_idx) \ + __attribute__((format(printf, fmt_idx, args_idx))) + #else + #define UACPI_PRINTF_DECL(fmt_idx, args_idx) \ + __attribute__((format(gnu_printf, fmt_idx, args_idx))) + #endif + + #define UACPI_COMPILER_HAS_BUILTIN_MEMCPY + #define UACPI_COMPILER_HAS_BUILTIN_MEMMOVE + #define UACPI_COMPILER_HAS_BUILTIN_MEMSET + #define UACPI_COMPILER_HAS_BUILTIN_MEMCMP +#elif defined(__WATCOMC__) + #define uacpi_unlikely(expr) expr + #define uacpi_likely(expr) expr + + /* + * The OpenWatcom documentation suggests this should be done using + * _Pragma("off (unreferenced)") and _Pragma("pop (unreferenced)"), + * but these pragmas appear to be no-ops. Use inline as the next best thing. + * Note that OpenWatcom accepts redundant modifiers without a warning, + * so UACPI_MAYBE_UNUSED inline still works. + */ + #define UACPI_MAYBE_UNUSED inline + + #define UACPI_NO_UNUSED_PARAMETER_WARNINGS_BEGIN + #define UACPI_NO_UNUSED_PARAMETER_WARNINGS_END + + #define UACPI_PRINTF_DECL(fmt_idx, args_idx) +#else + #define uacpi_unlikely(expr) expr + #define uacpi_likely(expr) expr + + #define UACPI_MAYBE_UNUSED + + #define UACPI_NO_UNUSED_PARAMETER_WARNINGS_BEGIN + #define UACPI_NO_UNUSED_PARAMETER_WARNINGS_END + + #define UACPI_PRINTF_DECL(fmt_idx, args_idx) +#endif + +#ifndef UACPI_FALLTHROUGH + #define UACPI_FALLTHROUGH do {} while (0) +#endif + +#ifndef UACPI_POINTER_SIZE + #ifdef _WIN32 + #ifdef _WIN64 + #define UACPI_POINTER_SIZE 8 + #else + #define UACPI_POINTER_SIZE 4 + #endif + #elif defined(__GNUC__) + #define UACPI_POINTER_SIZE __SIZEOF_POINTER__ + #elif defined(__WATCOMC__) + #ifdef __386__ + #define UACPI_POINTER_SIZE 4 + #elif defined(__I86__) + #error uACPI does not support 16-bit mode compilation + #else + #error Unknown target architecture + #endif + #else + #error Failed to detect pointer size + #endif +#endif + +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/platform/config.h b/kernel/hal/x86_64/uACPI/include/uacpi/platform/config.h new file mode 100644 index 0000000..dff043f --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/platform/config.h @@ -0,0 +1,162 @@ +#pragma once + +#ifdef UACPI_OVERRIDE_CONFIG +#include "uacpi_config.h" +#else + +#include +#include + +/* + * ======================= + * Context-related options + * ======================= + */ +#ifndef UACPI_DEFAULT_LOG_LEVEL + #define UACPI_DEFAULT_LOG_LEVEL UACPI_LOG_INFO +#endif + +UACPI_BUILD_BUG_ON_WITH_MSG( + UACPI_DEFAULT_LOG_LEVEL < UACPI_LOG_ERROR || + UACPI_DEFAULT_LOG_LEVEL > UACPI_LOG_DEBUG, + "configured default log level is invalid" +); + +#ifndef UACPI_DEFAULT_LOOP_TIMEOUT_SECONDS + #define UACPI_DEFAULT_LOOP_TIMEOUT_SECONDS 30 +#endif + +UACPI_BUILD_BUG_ON_WITH_MSG( + UACPI_DEFAULT_LOOP_TIMEOUT_SECONDS < 1, + "configured default loop timeout is invalid (expecting at least 1 second)" +); + +#ifndef UACPI_DEFAULT_MAX_CALL_STACK_DEPTH + #define UACPI_DEFAULT_MAX_CALL_STACK_DEPTH 256 +#endif + +UACPI_BUILD_BUG_ON_WITH_MSG( + UACPI_DEFAULT_MAX_CALL_STACK_DEPTH < 4, + "configured default max call stack depth is invalid " + "(expecting at least 4 frames)" +); + +/* + * =================== + * Kernel-api options + * =================== + */ + +/* + * Convenience initialization/deinitialization hooks that will be called by + * uACPI automatically when appropriate if compiled-in. + */ +// #define UACPI_KERNEL_INITIALIZATION + +/* + * Makes kernel api logging callbacks work with unformatted printf-style + * strings and va_args instead of a pre-formatted string. Can be useful if + * your native logging is implemented in terms of this format as well. + */ +// #define UACPI_FORMATTED_LOGGING + +/* + * Makes uacpi_kernel_free take in an additional 'size_hint' parameter, which + * contains the size of the original allocation. Note that this comes with a + * performance penalty in some cases. + */ +// #define UACPI_SIZED_FREES + + +/* + * Makes uacpi_kernel_alloc_zeroed mandatory to implement by the host, uACPI + * will not provide a default implementation if this is enabled. + */ +// #define UACPI_NATIVE_ALLOC_ZEROED + +/* + * ========================= + * Platform-specific options + * ========================= + */ + +/* + * Makes uACPI use the internal versions of mem{cpy,move,set,cmp} instead of + * relying on the host to provide them. Note that compilers like clang and GCC + * rely on these being available by default, even in freestanding mode, so + * compiling uACPI may theoretically generate implicit dependencies on them + * even if this option is defined. + */ +// #define UACPI_USE_BUILTIN_STRING + +/* + * Turns uacpi_phys_addr and uacpi_io_addr into a 32-bit type, and adds extra + * code for address truncation. Needed for e.g. i686 platforms without PAE + * support. + */ +// #define UACPI_PHYS_ADDR_IS_32BITS + +/* + * Switches uACPI into reduced-hardware-only mode. Strips all full-hardware + * ACPI support code at compile-time, including the event subsystem, the global + * lock, and other full-hardware features. + */ +// #define UACPI_REDUCED_HARDWARE + +/* + * Switches uACPI into tables-subsystem-only mode and strips all other code. + * This means only the table API will be usable, no other subsystems are + * compiled in. In this mode, uACPI only depends on the following kernel APIs: + * - uacpi_kernel_get_rsdp + * - uacpi_kernel_{map,unmap} + * - uacpi_kernel_log + * + * Use uacpi_setup_early_table_access to initialize, uacpi_state_reset to + * deinitialize. + * + * This mode is primarily designed for these three use-cases: + * - Bootloader/pre-kernel environments that need to parse ACPI tables, but + * don't actually need a fully-featured AML interpreter, and everything else + * that a full APCI implementation entails. + * - A micro-kernel that has the full AML interpreter running in userspace, but + * still needs to parse ACPI tables to bootstrap allocators, timers, SMP etc. + * - A WIP kernel that needs to parse ACPI tables for bootrapping SMP/timers, + * ECAM, etc., but doesn't yet have enough subsystems implemented in order + * to run a fully-featured AML interpreter. + */ +// #define UACPI_BAREBONES_MODE + +/* + * ============= + * Misc. options + * ============= + */ + +/* + * If UACPI_FORMATTED_LOGGING is not enabled, this is the maximum length of the + * pre-formatted message that is passed to the logging callback. + */ +#ifndef UACPI_PLAIN_LOG_BUFFER_SIZE + #define UACPI_PLAIN_LOG_BUFFER_SIZE 128 +#endif + +UACPI_BUILD_BUG_ON_WITH_MSG( + UACPI_PLAIN_LOG_BUFFER_SIZE < 16, + "configured log buffer size is too small (expecting at least 16 bytes)" +); + +/* + * The size of the table descriptor inline storage. All table descriptors past + * this length will be stored in a dynamically allocated heap array. The size + * of one table descriptor is approximately 56 bytes. + */ +#ifndef UACPI_STATIC_TABLE_ARRAY_LEN + #define UACPI_STATIC_TABLE_ARRAY_LEN 16 +#endif + +UACPI_BUILD_BUG_ON_WITH_MSG( + UACPI_STATIC_TABLE_ARRAY_LEN < 1, + "configured static table array length is too small (expecting at least 1)" +); + +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/platform/libc.h b/kernel/hal/x86_64/uACPI/include/uacpi/platform/libc.h new file mode 100644 index 0000000..44c9013 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/platform/libc.h @@ -0,0 +1,28 @@ +#pragma once + +#ifdef UACPI_OVERRIDE_LIBC +#include "uacpi_libc.h" +#else +/* + * The following libc functions are used internally by uACPI and have a default + * (sub-optimal) implementation: + * - strcmp + * - strnlen + * - strlen + * - snprintf + * - vsnprintf + * + * The following use a builtin implementation only if UACPI_USE_BUILTIN_STRING + * is defined (more information can be found in the config.h header): + * - memcpy + * - memmove + * - memset + * - memcmp + * + * In case your platform happens to implement optimized verisons of the helpers + * above, you are able to make uACPI use those instead by overriding them like so: + * + * #define uacpi_memcpy my_fast_memcpy + * #define uacpi_snprintf my_fast_snprintf + */ +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/platform/types.h b/kernel/hal/x86_64/uACPI/include/uacpi/platform/types.h new file mode 100644 index 0000000..f4a7cf9 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/platform/types.h @@ -0,0 +1,64 @@ +#pragma once + +/* + * Platform-specific types go here. This is the default placeholder using + * types from the standard headers. + */ + +#ifdef UACPI_OVERRIDE_TYPES +#include "uacpi_types.h" +#else + +#include +#include +#include +#include + +#include + +typedef uint8_t uacpi_u8; +typedef uint16_t uacpi_u16; +typedef uint32_t uacpi_u32; +typedef uint64_t uacpi_u64; + +typedef int8_t uacpi_i8; +typedef int16_t uacpi_i16; +typedef int32_t uacpi_i32; +typedef int64_t uacpi_i64; + +#define UACPI_TRUE true +#define UACPI_FALSE false +typedef bool uacpi_bool; + +#define UACPI_NULL NULL + +typedef uintptr_t uacpi_uintptr; +typedef uacpi_uintptr uacpi_virt_addr; +typedef size_t uacpi_size; + +typedef va_list uacpi_va_list; +#define uacpi_va_start va_start +#define uacpi_va_end va_end +#define uacpi_va_arg va_arg + +typedef char uacpi_char; + +#define uacpi_offsetof offsetof + +/* + * We use unsignd long long for 64-bit number formatting because 64-bit types + * don't have a standard way to format them. The inttypes.h header is not + * freestanding therefore it's not practical to force the user to define the + * corresponding PRI macros. Moreover, unsignd long long is required to be + * at least 64-bits as per C99. + */ +UACPI_BUILD_BUG_ON_WITH_MSG( + sizeof(unsigned long long) < 8, + "unsigned long long must be at least 64 bits large as per C99" +); +#define UACPI_PRIu64 "llu" +#define UACPI_PRIx64 "llx" +#define UACPI_PRIX64 "llX" +#define UACPI_FMT64(val) ((unsigned long long)(val)) + +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/registers.h b/kernel/hal/x86_64/uACPI/include/uacpi/registers.h new file mode 100644 index 0000000..cdffb97 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/registers.h @@ -0,0 +1,105 @@ +#include + +/* + * BEFORE YOU USE THIS API: + * uACPI manages FADT registers on its own entirely, you should only use this + * API directly if there's absolutely no other way for your use case, e.g. + * implementing a CPU idle state driver that does C state switching or similar. + */ + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +typedef enum uacpi_register { + UACPI_REGISTER_PM1_STS = 0, + UACPI_REGISTER_PM1_EN, + UACPI_REGISTER_PM1_CNT, + UACPI_REGISTER_PM_TMR, + UACPI_REGISTER_PM2_CNT, + UACPI_REGISTER_SLP_CNT, + UACPI_REGISTER_SLP_STS, + UACPI_REGISTER_RESET, + UACPI_REGISTER_SMI_CMD, + UACPI_REGISTER_MAX = UACPI_REGISTER_SMI_CMD, +} uacpi_register; + +/* + * Read a register from FADT + * + * NOTE: write-only bits (if any) are cleared automatically + */ +uacpi_status uacpi_read_register(uacpi_register, uacpi_u64*); + +/* + * Write a register from FADT + * + * NOTE: + * - Preserved bits (if any) are preserved automatically + * - If a register is made up of two (e.g. PM1a and PM1b) parts, the input + * is written to both at the same time + */ +uacpi_status uacpi_write_register(uacpi_register, uacpi_u64); + +/* + * Write a register from FADT + * + * NOTE: + * - Preserved bits (if any) are preserved automatically + * - For registers that are made up of two (e.g. PM1a and PM1b) parts, the + * provided values are written to their respective physical register + */ +uacpi_status uacpi_write_registers(uacpi_register, uacpi_u64, uacpi_u64); + +typedef enum uacpi_register_field { + UACPI_REGISTER_FIELD_TMR_STS = 0, + UACPI_REGISTER_FIELD_BM_STS, + UACPI_REGISTER_FIELD_GBL_STS, + UACPI_REGISTER_FIELD_PWRBTN_STS, + UACPI_REGISTER_FIELD_SLPBTN_STS, + UACPI_REGISTER_FIELD_RTC_STS, + UACPI_REGISTER_FIELD_PCIEX_WAKE_STS, + UACPI_REGISTER_FIELD_HWR_WAK_STS, + UACPI_REGISTER_FIELD_WAK_STS, + UACPI_REGISTER_FIELD_TMR_EN, + UACPI_REGISTER_FIELD_GBL_EN, + UACPI_REGISTER_FIELD_PWRBTN_EN, + UACPI_REGISTER_FIELD_SLPBTN_EN, + UACPI_REGISTER_FIELD_RTC_EN, + UACPI_REGISTER_FIELD_PCIEXP_WAKE_DIS, + UACPI_REGISTER_FIELD_SCI_EN, + UACPI_REGISTER_FIELD_BM_RLD, + UACPI_REGISTER_FIELD_GBL_RLS, + UACPI_REGISTER_FIELD_SLP_TYP, + UACPI_REGISTER_FIELD_HWR_SLP_TYP, + UACPI_REGISTER_FIELD_SLP_EN, + UACPI_REGISTER_FIELD_HWR_SLP_EN, + UACPI_REGISTER_FIELD_ARB_DIS, + UACPI_REGISTER_FIELD_MAX = UACPI_REGISTER_FIELD_ARB_DIS, +} uacpi_register_field; + +/* + * Read a field from a FADT register + * + * NOTE: The value is automatically masked and shifted down as appropriate, + * the client code doesn't have to do any bit manipulation. E.g. for + * a field at 0b???XX??? the returned value will contain just the 0bXX + */ +uacpi_status uacpi_read_register_field(uacpi_register_field, uacpi_u64*); + +/* + * Write to a field of a FADT register + * + * NOTE: The value is automatically masked and shifted up as appropriate, + * the client code doesn't have to do any bit manipulation. E.g. for + * a field at 0b???XX??? the passed value should be just 0bXX + */ +uacpi_status uacpi_write_register_field(uacpi_register_field, uacpi_u64); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/resources.h b/kernel/hal/x86_64/uACPI/include/uacpi/resources.h new file mode 100644 index 0000000..8081626 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/resources.h @@ -0,0 +1,759 @@ +#pragma once + +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +typedef enum uacpi_resource_type { + UACPI_RESOURCE_TYPE_IRQ, + UACPI_RESOURCE_TYPE_EXTENDED_IRQ, + + UACPI_RESOURCE_TYPE_DMA, + UACPI_RESOURCE_TYPE_FIXED_DMA, + + UACPI_RESOURCE_TYPE_IO, + UACPI_RESOURCE_TYPE_FIXED_IO, + + UACPI_RESOURCE_TYPE_ADDRESS16, + UACPI_RESOURCE_TYPE_ADDRESS32, + UACPI_RESOURCE_TYPE_ADDRESS64, + UACPI_RESOURCE_TYPE_ADDRESS64_EXTENDED, + + UACPI_RESOURCE_TYPE_MEMORY24, + UACPI_RESOURCE_TYPE_MEMORY32, + UACPI_RESOURCE_TYPE_FIXED_MEMORY32, + + UACPI_RESOURCE_TYPE_START_DEPENDENT, + UACPI_RESOURCE_TYPE_END_DEPENDENT, + + // Up to 7 bytes + UACPI_RESOURCE_TYPE_VENDOR_SMALL, + + // Up to 2^16 - 1 bytes + UACPI_RESOURCE_TYPE_VENDOR_LARGE, + + UACPI_RESOURCE_TYPE_GENERIC_REGISTER, + UACPI_RESOURCE_TYPE_GPIO_CONNECTION, + + // These must always be contiguous in this order + UACPI_RESOURCE_TYPE_SERIAL_I2C_CONNECTION, + UACPI_RESOURCE_TYPE_SERIAL_SPI_CONNECTION, + UACPI_RESOURCE_TYPE_SERIAL_UART_CONNECTION, + UACPI_RESOURCE_TYPE_SERIAL_CSI2_CONNECTION, + + UACPI_RESOURCE_TYPE_PIN_FUNCTION, + UACPI_RESOURCE_TYPE_PIN_CONFIGURATION, + UACPI_RESOURCE_TYPE_PIN_GROUP, + UACPI_RESOURCE_TYPE_PIN_GROUP_FUNCTION, + UACPI_RESOURCE_TYPE_PIN_GROUP_CONFIGURATION, + + UACPI_RESOURCE_TYPE_CLOCK_INPUT, + + UACPI_RESOURCE_TYPE_END_TAG, + UACPI_RESOURCE_TYPE_MAX = UACPI_RESOURCE_TYPE_END_TAG, +} uacpi_resource_type; + +typedef struct uacpi_resource_source { + uacpi_u8 index; + uacpi_bool index_present; + uacpi_u16 length; + uacpi_char *string; +} uacpi_resource_source; + +/* + * This applies to IRQ & StartDependent resources only. The DONT_CARE value is + * used for deserialization into the AML format to signify that the serializer + * is allowed to optimize the length down if possible. Note that this is + * generally not allowed unless the resource is generated by the caller: + * + * -- ACPI 6.5 ------------------------------------------------------------ + * The resource descriptors in the byte stream argument must be specified + * exactly as listed in the _CRS byte stream - meaning that the identical + * resource descriptors must appear in the identical order, resulting in a + * buffer of exactly the same length. Optimizations such as changing an + * IRQ descriptor to an IRQNoFlags descriptor (or vice-versa) must not be + * performed. Similarly, changing StartDependentFn to StartDependentFnNoPri + * is not allowed. + * ------------------------------------------------------------------------ + */ +enum uacpi_resource_length_kind { + UACPI_RESOURCE_LENGTH_KIND_DONT_CARE = 0, + UACPI_RESOURCE_LENGTH_KIND_ONE_LESS, + UACPI_RESOURCE_LENGTH_KIND_FULL, +}; + +// triggering fields +#define UACPI_TRIGGERING_EDGE 1 +#define UACPI_TRIGGERING_LEVEL 0 + +// polarity +#define UACPI_POLARITY_ACTIVE_HIGH 0 +#define UACPI_POLARITY_ACTIVE_LOW 1 +#define UACPI_POLARITY_ACTIVE_BOTH 2 + +// sharing +#define UACPI_EXCLUSIVE 0 +#define UACPI_SHARED 1 + +// wake_capability +#define UACPI_WAKE_CAPABLE 1 +#define UACPI_NOT_WAKE_CAPABLE 0 + +typedef struct uacpi_resource_irq { + uacpi_u8 length_kind; + uacpi_u8 triggering; + uacpi_u8 polarity; + uacpi_u8 sharing; + uacpi_u8 wake_capability; + uacpi_u8 num_irqs; + uacpi_u8 irqs[]; +} uacpi_resource_irq; + +typedef struct uacpi_resource_extended_irq { + uacpi_u8 direction; + uacpi_u8 triggering; + uacpi_u8 polarity; + uacpi_u8 sharing; + uacpi_u8 wake_capability; + uacpi_u8 num_irqs; + uacpi_resource_source source; + uacpi_u32 irqs[]; +} uacpi_resource_extended_irq; + +// transfer_type +#define UACPI_TRANSFER_TYPE_8_BIT 0b00 +#define UACPI_TRANSFER_TYPE_8_AND_16_BIT 0b01 +#define UACPI_TRANSFER_TYPE_16_BIT 0b10 + +// bus_master_status +#define UACPI_BUS_MASTER 0b1 + +// channel_speed +#define UACPI_DMA_COMPATIBILITY 0b00 +#define UACPI_DMA_TYPE_A 0b01 +#define UACPI_DMA_TYPE_B 0b10 +#define UACPI_DMA_TYPE_F 0b11 + +// transfer_width +#define UACPI_TRANSFER_WIDTH_8 0x00 +#define UACPI_TRANSFER_WIDTH_16 0x01 +#define UACPI_TRANSFER_WIDTH_32 0x02 +#define UACPI_TRANSFER_WIDTH_64 0x03 +#define UACPI_TRANSFER_WIDTH_128 0x04 +#define UACPI_TRANSFER_WIDTH_256 0x05 + +typedef struct uacpi_resource_dma { + uacpi_u8 transfer_type; + uacpi_u8 bus_master_status; + uacpi_u8 channel_speed; + uacpi_u8 num_channels; + uacpi_u8 channels[]; +} uacpi_resource_dma; + +typedef struct uacpi_resource_fixed_dma { + uacpi_u16 request_line; + uacpi_u16 channel; + uacpi_u8 transfer_width; +} uacpi_resource_fixed_dma; + +// decode_type +#define UACPI_DECODE_16 0b1 +#define UACPI_DECODE_10 0b0 + +typedef struct uacpi_resource_io { + uacpi_u8 decode_type; + uacpi_u16 minimum; + uacpi_u16 maximum; + uacpi_u8 alignment; + uacpi_u8 length; +} uacpi_resource_io; + +typedef struct uacpi_resource_fixed_io { + uacpi_u16 address; + uacpi_u8 length; +} uacpi_resource_fixed_io; + +// write_status +#define UACPI_NON_WRITABLE 0 +#define UACPI_WRITABLE 1 + +// caching +#define UACPI_NON_CACHEABLE 0 +#define UACPI_CACHEABLE 1 +#define UACPI_CACHEABLE_WRITE_COMBINING 2 +#define UACPI_PREFETCHABLE 3 + +// range_type +#define UACPI_RANGE_TYPE_MEMORY 0 +#define UACPI_RANGE_TYPE_RESERVED 1 +#define UACPI_RANGE_TYPE_ACPI 2 +#define UACPI_RANGE_TYPE_NVS 3 + +// address_common->type +#define UACPI_RANGE_MEMORY 0 +#define UACPI_RANGE_IO 1 +#define UACPI_RANGE_BUS 2 + +// translation +#define UACPI_IO_MEM_TRANSLATION 1 +#define UACPI_IO_MEM_STATIC 0 + +// translation_type +#define UACPI_TRANSLATION_DENSE 0 +#define UACPI_TRANSLATION_SPARSE 1 + +// direction +#define UACPI_PRODUCER 0 +#define UACPI_CONSUMER 1 + +// decode_type +#define UACPI_POSITIVE_DECODE 0 +#define UACPI_SUBTRACTIVE_DECODE 1 + +// fixed_min_address & fixed_max_address +#define UACPI_ADDRESS_NOT_FIXED 0 +#define UACPI_ADDRESS_FIXED 1 + +typedef struct uacpi_memory_attribute { + uacpi_u8 write_status; + uacpi_u8 caching; + uacpi_u8 range_type; + uacpi_u8 translation; +} uacpi_memory_attribute; + +typedef struct uacpi_io_attribute { + uacpi_u8 range_type; + uacpi_u8 translation; + uacpi_u8 translation_type; +} uacpi_io_attribute; + +typedef union uacpi_address_attribute { + uacpi_memory_attribute memory; + uacpi_io_attribute io; + uacpi_u8 type_specific; +} uacpi_address_attribute; + +typedef struct uacpi_resource_address_common { + uacpi_address_attribute attribute; + uacpi_u8 type; + uacpi_u8 direction; + uacpi_u8 decode_type; + uacpi_u8 fixed_min_address; + uacpi_u8 fixed_max_address; +} uacpi_resource_address_common; + +typedef struct uacpi_resource_address16 { + uacpi_resource_address_common common; + uacpi_u16 granularity; + uacpi_u16 minimum; + uacpi_u16 maximum; + uacpi_u16 translation_offset; + uacpi_u16 address_length; + uacpi_resource_source source; +} uacpi_resource_address16; + +typedef struct uacpi_resource_address32 { + uacpi_resource_address_common common; + uacpi_u32 granularity; + uacpi_u32 minimum; + uacpi_u32 maximum; + uacpi_u32 translation_offset; + uacpi_u32 address_length; + uacpi_resource_source source; +} uacpi_resource_address32; + +typedef struct uacpi_resource_address64 { + uacpi_resource_address_common common; + uacpi_u64 granularity; + uacpi_u64 minimum; + uacpi_u64 maximum; + uacpi_u64 translation_offset; + uacpi_u64 address_length; + uacpi_resource_source source; +} uacpi_resource_address64; + +typedef struct uacpi_resource_address64_extended { + uacpi_resource_address_common common; + uacpi_u8 revision_id; + uacpi_u64 granularity; + uacpi_u64 minimum; + uacpi_u64 maximum; + uacpi_u64 translation_offset; + uacpi_u64 address_length; + uacpi_u64 attributes; +} uacpi_resource_address64_extended; + +typedef struct uacpi_resource_memory24 { + uacpi_u8 write_status; + uacpi_u16 minimum; + uacpi_u16 maximum; + uacpi_u16 alignment; + uacpi_u16 length; +} uacpi_resource_memory24; + +typedef struct uacpi_resource_memory32 { + uacpi_u8 write_status; + uacpi_u32 minimum; + uacpi_u32 maximum; + uacpi_u32 alignment; + uacpi_u32 length; +} uacpi_resource_memory32; + +typedef struct uacpi_resource_fixed_memory32 { + uacpi_u8 write_status; + uacpi_u32 address; + uacpi_u32 length; +} uacpi_resource_fixed_memory32; + +// compatibility & performance +#define UACPI_GOOD 0 +#define UACPI_ACCEPTABLE 1 +#define UACPI_SUB_OPTIMAL 2 + +typedef struct uacpi_resource_start_dependent { + uacpi_u8 length_kind; + uacpi_u8 compatibility; + uacpi_u8 performance; +} uacpi_resource_start_dependent; + +typedef struct uacpi_resource_vendor_defined { + uacpi_u8 length; + uacpi_u8 data[]; +} uacpi_resource_vendor; + +typedef struct uacpi_resource_vendor_typed { + uacpi_u16 length; + uacpi_u8 sub_type; + uacpi_u8 uuid[16]; + uacpi_u8 data[]; +} uacpi_resource_vendor_typed; + +typedef struct uacpi_resource_generic_register { + uacpi_u8 address_space_id; + uacpi_u8 bit_width; + uacpi_u8 bit_offset; + uacpi_u8 access_size; + uacpi_u64 address; +} uacpi_resource_generic_register; + +// type +#define UACPI_GPIO_CONNECTION_INTERRUPT 0x00 +#define UACPI_GPIO_CONNECTION_IO 0x01 + +typedef struct uacpi_interrupt_connection_flags { + uacpi_u8 triggering; + uacpi_u8 polarity; + uacpi_u8 sharing; + uacpi_u8 wake_capability; +} uacpi_interrupt_connection_flags; + +// restriction +#define UACPI_IO_RESTRICTION_NONE 0x0 +#define UACPI_IO_RESTRICTION_INPUT 0x1 +#define UACPI_IO_RESTRICTION_OUTPUT 0x2 +#define UACPI_IO_RESTRICTION_NONE_PRESERVE 0x3 + +typedef struct uacpi_io_connection_flags { + uacpi_u8 restriction; + uacpi_u8 sharing; +} uacpi_io_connection_flags; + +// pull_configuration +#define UACPI_PIN_CONFIG_DEFAULT 0x00 +#define UACPI_PIN_CONFIG_PULL_UP 0x01 +#define UACPI_PIN_CONFIG_PULL_DOWN 0x02 +#define UACPI_PIN_CONFIG_NO_PULL 0x03 + +typedef struct uacpi_resource_gpio_connection { + uacpi_u8 revision_id; + uacpi_u8 type; + uacpi_u8 direction; + + union { + uacpi_interrupt_connection_flags intr; + uacpi_io_connection_flags io; + uacpi_u16 type_specific; + }; + + uacpi_u8 pull_configuration; + uacpi_u16 drive_strength; + uacpi_u16 debounce_timeout; + uacpi_u16 vendor_data_length; + uacpi_u16 pin_table_length; + uacpi_resource_source source; + uacpi_u16 *pin_table; + uacpi_u8 *vendor_data; +} uacpi_resource_gpio_connection; + +// mode +#define UACPI_MODE_CONTROLLER_INITIATED 0x0 +#define UACPI_MODE_DEVICE_INITIATED 0x1 + +typedef struct uacpi_resource_serial_bus_common { + uacpi_u8 revision_id; + uacpi_u8 type; + uacpi_u8 mode; + uacpi_u8 direction; + uacpi_u8 sharing; + uacpi_u8 type_revision_id; + uacpi_u16 type_data_length; + uacpi_u16 vendor_data_length; + uacpi_resource_source source; + uacpi_u8 *vendor_data; +} uacpi_resource_serial_bus_common; + +// addressing_mode +#define UACPI_I2C_7BIT 0x0 +#define UACPI_I2C_10BIT 0x1 + +typedef struct uacpi_resource_i2c_connection { + uacpi_resource_serial_bus_common common; + uacpi_u8 addressing_mode; + uacpi_u16 slave_address; + uacpi_u32 connection_speed; +} uacpi_resource_i2c_connection; + +// wire_mode +#define UACPI_SPI_4_WIRES 0 +#define UACPI_SPI_3_WIRES 1 + +// device_polarity +#define UACPI_SPI_ACTIVE_LOW 0 +#define UACPI_SPI_ACTIVE_HIGH 1 + +// phase +#define UACPI_SPI_PHASE_FIRST 0 +#define UACPI_SPI_PHASE_SECOND 1 + +// polarity +#define UACPI_SPI_START_LOW 0 +#define UACPI_SPI_START_HIGH 1 + +typedef struct uacpi_resource_spi_connection { + uacpi_resource_serial_bus_common common; + uacpi_u8 wire_mode; + uacpi_u8 device_polarity; + uacpi_u8 data_bit_length; + uacpi_u8 phase; + uacpi_u8 polarity; + uacpi_u16 device_selection; + uacpi_u32 connection_speed; +} uacpi_resource_spi_connection; + +// stop_bits +#define UACPI_UART_STOP_BITS_NONE 0b00 +#define UACPI_UART_STOP_BITS_1 0b01 +#define UACPI_UART_STOP_BITS_1_5 0b10 +#define UACPI_UART_STOP_BITS_2 0b11 + +// data_bits +#define UACPI_UART_DATA_5BITS 0b000 +#define UACPI_UART_DATA_6BITS 0b001 +#define UACPI_UART_DATA_7BITS 0b010 +#define UACPI_UART_DATA_8BITS 0b011 +#define UACPI_UART_DATA_9BITS 0b100 + +// endianness +#define UACPI_UART_LITTLE_ENDIAN 0 +#define UACPI_UART_BIG_ENDIAN 1 + +// parity +#define UACPI_UART_PARITY_NONE 0x00 +#define UACPI_UART_PARITY_EVEN 0x01 +#define UACPI_UART_PARITY_ODD 0x02 +#define UACPI_UART_PARITY_MARK 0x03 +#define UACPI_UART_PARITY_SPACE 0x04 + +// lines_enabled +#define UACPI_UART_DATA_CARRIER_DETECT (1 << 2) +#define UACPI_UART_RING_INDICATOR (1 << 3) +#define UACPI_UART_DATA_SET_READY (1 << 4) +#define UACPI_UART_DATA_TERMINAL_READY (1 << 5) +#define UACPI_UART_CLEAR_TO_SEND (1 << 6) +#define UACPI_UART_REQUEST_TO_SEND (1 << 7) + +// flow_control +#define UACPI_UART_FLOW_CONTROL_NONE 0b00 +#define UACPI_UART_FLOW_CONTROL_HW 0b01 +#define UACPI_UART_FLOW_CONTROL_XON_XOFF 0b10 + +typedef struct uacpi_resource_uart_connection { + uacpi_resource_serial_bus_common common; + uacpi_u8 stop_bits; + uacpi_u8 data_bits; + uacpi_u8 endianness; + uacpi_u8 parity; + uacpi_u8 lines_enabled; + uacpi_u8 flow_control; + uacpi_u32 baud_rate; + uacpi_u16 rx_fifo; + uacpi_u16 tx_fifo; +} uacpi_resource_uart_connection; + +// phy_type +#define UACPI_CSI2_PHY_C 0b00 +#define UACPI_CSI2_PHY_D 0b01 + +typedef struct uacpi_resource_csi2_connection { + uacpi_resource_serial_bus_common common; + uacpi_u8 phy_type; + uacpi_u8 local_port; +} uacpi_resource_csi2_connection; + +typedef struct uacpi_resource_pin_function { + uacpi_u8 revision_id; + uacpi_u8 sharing; + uacpi_u8 pull_configuration; + uacpi_u16 function_number; + uacpi_u16 pin_table_length; + uacpi_u16 vendor_data_length; + uacpi_resource_source source; + uacpi_u16 *pin_table; + uacpi_u8 *vendor_data; +} uacpi_resource_pin_function; + +// type +#define UACPI_PIN_CONFIG_DEFAULT 0x00 +#define UACPI_PIN_CONFIG_BIAS_PULL_UP 0x01 +#define UACPI_PIN_CONFIG_BIAS_PULL_DOWN 0x02 +#define UACPI_PIN_CONFIG_BIAS_DEFAULT 0x03 +#define UACPI_PIN_CONFIG_BIAS_DISABLE 0x04 +#define UACPI_PIN_CONFIG_BIAS_HIGH_IMPEDANCE 0x05 +#define UACPI_PIN_CONFIG_BIAS_BUS_HOLD 0x06 +#define UACPI_PIN_CONFIG_DRIVE_OPEN_DRAIN 0x07 +#define UACPI_PIN_CONFIG_DRIVE_OPEN_SOURCE 0x08 +#define UACPI_PIN_CONFIG_DRIVE_PUSH_PULL 0x09 +#define UACPI_PIN_CONFIG_DRIVE_STRENGTH 0x0A +#define UACPI_PIN_CONFIG_SLEW_RATE 0x0B +#define UACPI_PIN_CONFIG_INPUT_DEBOUNCE 0x0C +#define UACPI_PIN_CONFIG_INPUT_SCHMITT_TRIGGER 0x0D + +typedef struct uacpi_resource_pin_configuration { + uacpi_u8 revision_id; + uacpi_u8 sharing; + uacpi_u8 direction; + uacpi_u8 type; + uacpi_u32 value; + uacpi_u16 pin_table_length; + uacpi_u16 vendor_data_length; + uacpi_resource_source source; + uacpi_u16 *pin_table; + uacpi_u8 *vendor_data; +} uacpi_resource_pin_configuration; + +typedef struct uacpi_resource_label { + uacpi_u16 length; + const uacpi_char *string; +} uacpi_resource_label; + +typedef struct uacpi_resource_pin_group { + uacpi_u8 revision_id; + uacpi_u8 direction; + uacpi_u16 pin_table_length; + uacpi_u16 vendor_data_length; + uacpi_resource_label label; + uacpi_u16 *pin_table; + uacpi_u8 *vendor_data; +} uacpi_resource_pin_group; + +typedef struct uacpi_resource_pin_group_function { + uacpi_u8 revision_id; + uacpi_u8 sharing; + uacpi_u8 direction; + uacpi_u16 function; + uacpi_u16 vendor_data_length; + uacpi_resource_source source; + uacpi_resource_label label; + uacpi_u8 *vendor_data; +} uacpi_resource_pin_group_function; + +typedef struct uacpi_resource_pin_group_configuration { + uacpi_u8 revision_id; + uacpi_u8 sharing; + uacpi_u8 direction; + uacpi_u8 type; + uacpi_u32 value; + uacpi_u16 vendor_data_length; + uacpi_resource_source source; + uacpi_resource_label label; + uacpi_u8 *vendor_data; +} uacpi_resource_pin_group_configuration; + +// scale +#define UACPI_SCALE_HZ 0b00 +#define UACPI_SCALE_KHZ 0b01 +#define UACPI_SCALE_MHZ 0b10 + +// frequency +#define UACPI_FREQUENCY_FIXED 0x0 +#define UACPI_FREQUENCY_VARIABLE 0x1 + +typedef struct uacpi_resource_clock_input { + uacpi_u8 revision_id; + uacpi_u8 frequency; + uacpi_u8 scale; + uacpi_u16 divisor; + uacpi_u32 numerator; + uacpi_resource_source source; +} uacpi_resource_clock_input; + +typedef struct uacpi_resource { + uacpi_u32 type; + uacpi_u32 length; + + union { + uacpi_resource_irq irq; + uacpi_resource_extended_irq extended_irq; + uacpi_resource_dma dma; + uacpi_resource_fixed_dma fixed_dma; + uacpi_resource_io io; + uacpi_resource_fixed_io fixed_io; + uacpi_resource_address16 address16; + uacpi_resource_address32 address32; + uacpi_resource_address64 address64; + uacpi_resource_address64_extended address64_extended; + uacpi_resource_memory24 memory24; + uacpi_resource_memory32 memory32; + uacpi_resource_fixed_memory32 fixed_memory32; + uacpi_resource_start_dependent start_dependent; + uacpi_resource_vendor vendor; + uacpi_resource_vendor_typed vendor_typed; + uacpi_resource_generic_register generic_register; + uacpi_resource_gpio_connection gpio_connection; + uacpi_resource_serial_bus_common serial_bus_common; + uacpi_resource_i2c_connection i2c_connection; + uacpi_resource_spi_connection spi_connection; + uacpi_resource_uart_connection uart_connection; + uacpi_resource_csi2_connection csi2_connection; + uacpi_resource_pin_function pin_function; + uacpi_resource_pin_configuration pin_configuration; + uacpi_resource_pin_group pin_group; + uacpi_resource_pin_group_function pin_group_function; + uacpi_resource_pin_group_configuration pin_group_configuration; + uacpi_resource_clock_input clock_input; + }; +} uacpi_resource; + +#define UACPI_NEXT_RESOURCE(cur) \ + ((uacpi_resource*)((uacpi_u8*)(cur) + (cur)->length)) + +typedef struct uacpi_resources { + /* + * Length of the 'entries' array in BYTES (NOT the count of resources), + * see comment above 'entries' for more information. + */ + uacpi_size length; + + /* + * Resources are variable length! See UACPI_NEXT_RESOURCE to see how to + * retrieve the next resource. You can alternatively use + * uacpi_for_each_resource instead of iterating manually. + * + * Resources are guaranteed to be naturally aligned and are always + * terminated by a resource of type UACPI_RESOURCE_TYPE_END_TAG. + */ + uacpi_resource *entries; +} uacpi_resources; +void uacpi_free_resources(uacpi_resources*); + +typedef uacpi_iteration_decision (*uacpi_resource_iteration_callback) + (void *user, uacpi_resource *resource); + +/* + * Evaluate the _CRS method for a 'device' and get the returned resource list + * via 'out_resources'. + * + * NOTE: the returned buffer must be released via uacpi_free_resources() + * + * If you don't need to keep the resource array for later use you can + * uacpi_for_each_device_resource(device, "_CRS", ...) instead, which takes + * care of iteration & memory management on its own. + */ +uacpi_status uacpi_get_current_resources( + uacpi_namespace_node *device, uacpi_resources **out_resources +); + +/* + * Evaluate the _PRS method for a 'device' and get the returned resource list + * via 'out_resources'. + * + * NOTE: the returned buffer must be released via uacpi_free_resources() + * + * If you don't need to keep the resource array for later use you can + * uacpi_for_each_device_resource(device, "_PRS", ...) instead, which takes + * care of iteration & memory management on its own. + */ +uacpi_status uacpi_get_possible_resources( + uacpi_namespace_node *device, uacpi_resources **out_resources +); + +/* + * Evaluate an arbitrary method that is expected to return an AML resource + * buffer for a 'device' and get the returned resource list via 'out_resources'. + * + * NOTE: the returned buffer must be released via uacpi_free_resources() + * + * If you don't need to keep the resource array for later use you can + * uacpi_for_each_device_resource(device, method, ...) instead, which takes + * care of iteration & memory management on its own. + */ +uacpi_status uacpi_get_device_resources( + uacpi_namespace_node *device, const uacpi_char *method, + uacpi_resources **out_resources +); + +/* + * Set the configuration to be used by the 'device' by calling its _SRS method. + * + * Note that this expects 'resources' in the normal 'uacpi_resources' format, + * and not the raw AML resources bytestream, the conversion to the latter is + * done automatically by this API. If you want to _SRS a raw AML resources + * bytestream, use 'uacpi_execute' or similar API directly. + */ +uacpi_status uacpi_set_resources( + uacpi_namespace_node *device, uacpi_resources *resources +); + +/* + * A convenience helper for iterating over the resource list returned by any + * of the uacpi_get_*_resources functions. + */ +uacpi_status uacpi_for_each_resource( + uacpi_resources *resources, uacpi_resource_iteration_callback cb, void *user +); + +/* + * A shorthand for uacpi_get_device_resources() + uacpi_for_each_resource(). + * + * Use if you don't actually want to save the 'resources' list, but simply want + * to iterate it once to extract the resources you care about and then free it + * right away. + */ +uacpi_status uacpi_for_each_device_resource( + uacpi_namespace_node *device, const uacpi_char *method, + uacpi_resource_iteration_callback cb, void *user +); + +/* + * Convert a single AML-encoded resource to native format. + * + * This should be used for converting Connection() fields (passed during IO on + * GeneralPurposeIO or GenericSerialBus operation regions) or other similar + * buffers with only one resource to native format. + * + * NOTE: the returned buffer must be released via uacpi_free_resource() + */ +uacpi_status uacpi_get_resource_from_buffer( + uacpi_data_view aml_buffer, uacpi_resource **out_resource +); +void uacpi_free_resource(uacpi_resource*); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/sleep.h b/kernel/hal/x86_64/uACPI/include/uacpi/sleep.h new file mode 100644 index 0000000..3fd9bf3 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/sleep.h @@ -0,0 +1,67 @@ +#pragma once + +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +/* + * Set the firmware waking vector in FACS. + * + * 'addr32' is the real mode entry-point address + * 'addr64' is the protected mode entry-point address + */ +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( +uacpi_status uacpi_set_waking_vector( + uacpi_phys_addr addr32, uacpi_phys_addr addr64 +)) + +typedef enum uacpi_sleep_state { + UACPI_SLEEP_STATE_S0 = 0, + UACPI_SLEEP_STATE_S1, + UACPI_SLEEP_STATE_S2, + UACPI_SLEEP_STATE_S3, + UACPI_SLEEP_STATE_S4, + UACPI_SLEEP_STATE_S5, + UACPI_SLEEP_STATE_MAX = UACPI_SLEEP_STATE_S5, +} uacpi_sleep_state; + +/* + * Prepare for a given sleep state. + * Must be caled with interrupts ENABLED. + */ +uacpi_status uacpi_prepare_for_sleep_state(uacpi_sleep_state); + +/* + * Enter the given sleep state after preparation. + * Must be called with interrupts DISABLED. + */ +uacpi_status uacpi_enter_sleep_state(uacpi_sleep_state); + +/* + * Prepare to leave the given sleep state. + * Must be called with interrupts DISABLED. + */ +uacpi_status uacpi_prepare_for_wake_from_sleep_state(uacpi_sleep_state); + +/* + * Wake from the given sleep state. + * Must be called with interrupts ENABLED. + */ +uacpi_status uacpi_wake_from_sleep_state(uacpi_sleep_state); + +/* + * Attempt reset via the FADT reset register. + */ +uacpi_status uacpi_reboot(void); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/status.h b/kernel/hal/x86_64/uACPI/include/uacpi/status.h new file mode 100644 index 0000000..5c09508 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/status.h @@ -0,0 +1,57 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +typedef enum uacpi_status { + UACPI_STATUS_OK = 0, + UACPI_STATUS_MAPPING_FAILED = 1, + UACPI_STATUS_OUT_OF_MEMORY = 2, + UACPI_STATUS_BAD_CHECKSUM = 3, + UACPI_STATUS_INVALID_SIGNATURE = 4, + UACPI_STATUS_INVALID_TABLE_LENGTH = 5, + UACPI_STATUS_NOT_FOUND = 6, + UACPI_STATUS_INVALID_ARGUMENT = 7, + UACPI_STATUS_UNIMPLEMENTED = 8, + UACPI_STATUS_ALREADY_EXISTS = 9, + UACPI_STATUS_INTERNAL_ERROR = 10, + UACPI_STATUS_TYPE_MISMATCH = 11, + UACPI_STATUS_INIT_LEVEL_MISMATCH = 12, + UACPI_STATUS_NAMESPACE_NODE_DANGLING = 13, + UACPI_STATUS_NO_HANDLER = 14, + UACPI_STATUS_NO_RESOURCE_END_TAG = 15, + UACPI_STATUS_COMPILED_OUT = 16, + UACPI_STATUS_HARDWARE_TIMEOUT = 17, + UACPI_STATUS_TIMEOUT = 18, + UACPI_STATUS_OVERRIDDEN = 19, + UACPI_STATUS_DENIED = 20, + + // All errors that have bytecode-related origin should go here + UACPI_STATUS_AML_UNDEFINED_REFERENCE = 0x0EFF0000, + UACPI_STATUS_AML_INVALID_NAMESTRING = 0x0EFF0001, + UACPI_STATUS_AML_OBJECT_ALREADY_EXISTS = 0x0EFF0002, + UACPI_STATUS_AML_INVALID_OPCODE = 0x0EFF0003, + UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE = 0x0EFF0004, + UACPI_STATUS_AML_BAD_ENCODING = 0x0EFF0005, + UACPI_STATUS_AML_OUT_OF_BOUNDS_INDEX = 0x0EFF0006, + UACPI_STATUS_AML_SYNC_LEVEL_TOO_HIGH = 0x0EFF0007, + UACPI_STATUS_AML_INVALID_RESOURCE = 0x0EFF0008, + UACPI_STATUS_AML_LOOP_TIMEOUT = 0x0EFF0009, + UACPI_STATUS_AML_CALL_STACK_DEPTH_LIMIT = 0x0EFF000A, +} uacpi_status; + +const uacpi_char *uacpi_status_to_string(uacpi_status); + +#define uacpi_unlikely_error(expr) uacpi_unlikely((expr) != UACPI_STATUS_OK) +#define uacpi_likely_error(expr) uacpi_likely((expr) != UACPI_STATUS_OK) + +#define uacpi_unlikely_success(expr) uacpi_unlikely((expr) == UACPI_STATUS_OK) +#define uacpi_likely_success(expr) uacpi_likely((expr) == UACPI_STATUS_OK) + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/tables.h b/kernel/hal/x86_64/uACPI/include/uacpi/tables.h new file mode 100644 index 0000000..5fbecee --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/tables.h @@ -0,0 +1,141 @@ +#pragma once + +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +// Forward-declared to avoid including the entire acpi.h here +struct acpi_fadt; + +typedef struct uacpi_table_identifiers { + uacpi_object_name signature; + + // if oemid[0] == 0 this field is ignored + char oemid[6]; + + // if oem_table_id[0] == 0 this field is ignored + char oem_table_id[8]; +} uacpi_table_identifiers; + +typedef struct uacpi_table { + union { + uacpi_virt_addr virt_addr; + void *ptr; + struct acpi_sdt_hdr *hdr; + }; + + // Index number used to identify this table internally + uacpi_size index; +} uacpi_table; + +/* + * Install a table from either a virtual or a physical address. + * The table is simply stored in the internal table array, and not loaded by + * the interpreter (see uacpi_table_load). + * + * The table is optionally returned via 'out_table'. + * + * Manual calls to uacpi_table_install are not subject to filtering via the + * table installation callback (if any). + */ +uacpi_status uacpi_table_install( + void*, uacpi_table *out_table +); +uacpi_status uacpi_table_install_physical( + uacpi_phys_addr, uacpi_table *out_table +); + +#ifndef UACPI_BAREBONES_MODE +/* + * Load a previously installed table by feeding it to the interpreter. + */ +uacpi_status uacpi_table_load(uacpi_size index); +#endif // !UACPI_BAREBONES_MODE + +/* + * Helpers for finding tables. + * + * for find_by_signature: + * 'signature' is an array of 4 characters, a null terminator is not + * necessary and can be omitted (especially useful for non-C language + * bindings) + * + * 'out_table' is a pointer to a caller allocated uacpi_table structure that + * receives the table pointer & its internal index in case the call was + * successful. + * + * NOTE: + * The returned table's reference count is incremented by 1, which keeps its + * mapping alive forever unless uacpi_table_unref() is called for this table + * later on. Calling uacpi_table_find_next_with_same_signature() on a table also + * drops its reference count by 1, so if you want to keep it mapped you must + * manually call uacpi_table_ref() beforehand. + */ +uacpi_status uacpi_table_find_by_signature( + const uacpi_char *signature, uacpi_table *out_table +); +uacpi_status uacpi_table_find_next_with_same_signature( + uacpi_table *in_out_table +); +uacpi_status uacpi_table_find( + const uacpi_table_identifiers *id, uacpi_table *out_table +); + +/* + * Increment/decrement a table's reference count. + * The table is unmapped when the reference count drops to 0. + */ +uacpi_status uacpi_table_ref(uacpi_table*); +uacpi_status uacpi_table_unref(uacpi_table*); + +/* + * Returns the pointer to a sanitized internal version of FADT. + * + * The revision is guaranteed to be correct. All of the registers are converted + * to GAS format. Fields that might contain garbage are cleared. + */ +uacpi_status uacpi_table_fadt(struct acpi_fadt**); + +typedef enum uacpi_table_installation_disposition { + // Allow the table to be installed as-is + UACPI_TABLE_INSTALLATION_DISPOSITON_ALLOW = 0, + + /* + * Deny the table from being installed completely. This is useful for + * debugging various problems, e.g. AML loading bad SSDTs that cause the + * system to hang or enter an undesired state. + */ + UACPI_TABLE_INSTALLATION_DISPOSITON_DENY, + + /* + * Override the table being installed with the table at the virtual address + * returned in 'out_override_address'. + */ + UACPI_TABLE_INSTALLATION_DISPOSITON_VIRTUAL_OVERRIDE, + + /* + * Override the table being installed with the table at the physical address + * returned in 'out_override_address'. + */ + UACPI_TABLE_INSTALLATION_DISPOSITON_PHYSICAL_OVERRIDE, +} uacpi_table_installation_disposition; + +typedef uacpi_table_installation_disposition (*uacpi_table_installation_handler) + (struct acpi_sdt_hdr *hdr, uacpi_u64 *out_override_address); + +/* + * Set a handler that is invoked for each table before it gets installed. + * + * Depending on the return value, the table is either allowed to be installed + * as-is, denied, or overriden with a new one. + */ +uacpi_status uacpi_set_table_installation_handler( + uacpi_table_installation_handler handler +); + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/types.h b/kernel/hal/x86_64/uACPI/include/uacpi/types.h new file mode 100644 index 0000000..81c7a2e --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/types.h @@ -0,0 +1,544 @@ +#pragma once + +#include +#include +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#if UACPI_POINTER_SIZE == 4 && defined(UACPI_PHYS_ADDR_IS_32BITS) +typedef uacpi_u32 uacpi_phys_addr; +typedef uacpi_u32 uacpi_io_addr; +#else +typedef uacpi_u64 uacpi_phys_addr; +typedef uacpi_u64 uacpi_io_addr; +#endif + +typedef void *uacpi_handle; + +typedef union uacpi_object_name { + uacpi_char text[4]; + uacpi_u32 id; +} uacpi_object_name; + +typedef enum uacpi_iteration_decision { + UACPI_ITERATION_DECISION_CONTINUE = 0, + UACPI_ITERATION_DECISION_BREAK, + + // Only applicable for uacpi_namespace_for_each_child + UACPI_ITERATION_DECISION_NEXT_PEER, +} uacpi_iteration_decision; + +typedef enum uacpi_address_space { + UACPI_ADDRESS_SPACE_SYSTEM_MEMORY = 0, + UACPI_ADDRESS_SPACE_SYSTEM_IO = 1, + UACPI_ADDRESS_SPACE_PCI_CONFIG = 2, + UACPI_ADDRESS_SPACE_EMBEDDED_CONTROLLER = 3, + UACPI_ADDRESS_SPACE_SMBUS = 4, + UACPI_ADDRESS_SPACE_SYSTEM_CMOS = 5, + UACPI_ADDRESS_SPACE_PCI_BAR_TARGET = 6, + UACPI_ADDRESS_SPACE_IPMI = 7, + UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO = 8, + UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS = 9, + UACPI_ADDRESS_SPACE_PCC = 0x0A, + UACPI_ADDRESS_SPACE_PRM = 0x0B, + UACPI_ADDRESS_SPACE_FFIXEDHW = 0x7F, + + // Internal type + UACPI_ADDRESS_SPACE_TABLE_DATA = 0xDA1A, +} uacpi_address_space; +const uacpi_char *uacpi_address_space_to_string(uacpi_address_space space); + +#ifndef UACPI_BAREBONES_MODE + +typedef enum uacpi_init_level { + // Reboot state, nothing is available + UACPI_INIT_LEVEL_EARLY = 0, + + /* + * State after a successfull call to uacpi_initialize. Table API and + * other helpers that don't depend on the ACPI namespace may be used. + */ + UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED = 1, + + /* + * State after a successfull call to uacpi_namespace_load. Most API may be + * used, namespace can be iterated, etc. + */ + UACPI_INIT_LEVEL_NAMESPACE_LOADED = 2, + + /* + * The final initialization stage, this is entered after the call to + * uacpi_namespace_initialize. All API is available to use. + */ + UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED = 3, +} uacpi_init_level; + +typedef struct uacpi_pci_address { + uacpi_u16 segment; + uacpi_u8 bus; + uacpi_u8 device; + uacpi_u8 function; +} uacpi_pci_address; + +typedef struct uacpi_data_view { + union { + uacpi_u8 *bytes; + const uacpi_u8 *const_bytes; + + uacpi_char *text; + const uacpi_char *const_text; + + void *data; + const void *const_data; + }; + uacpi_size length; +} uacpi_data_view; + +typedef struct uacpi_namespace_node uacpi_namespace_node; + +typedef enum uacpi_object_type { + UACPI_OBJECT_UNINITIALIZED = 0, + UACPI_OBJECT_INTEGER = 1, + UACPI_OBJECT_STRING = 2, + UACPI_OBJECT_BUFFER = 3, + UACPI_OBJECT_PACKAGE = 4, + UACPI_OBJECT_FIELD_UNIT = 5, + UACPI_OBJECT_DEVICE = 6, + UACPI_OBJECT_EVENT = 7, + UACPI_OBJECT_METHOD = 8, + UACPI_OBJECT_MUTEX = 9, + UACPI_OBJECT_OPERATION_REGION = 10, + UACPI_OBJECT_POWER_RESOURCE = 11, + UACPI_OBJECT_PROCESSOR = 12, + UACPI_OBJECT_THERMAL_ZONE = 13, + UACPI_OBJECT_BUFFER_FIELD = 14, + UACPI_OBJECT_DEBUG = 16, + + UACPI_OBJECT_REFERENCE = 20, + UACPI_OBJECT_BUFFER_INDEX = 21, + UACPI_OBJECT_MAX_TYPE_VALUE = UACPI_OBJECT_BUFFER_INDEX +} uacpi_object_type; + +// Type bits for API requiring a bit mask, e.g. uacpi_eval_typed +typedef enum uacpi_object_type_bits { + UACPI_OBJECT_INTEGER_BIT = (1 << UACPI_OBJECT_INTEGER), + UACPI_OBJECT_STRING_BIT = (1 << UACPI_OBJECT_STRING), + UACPI_OBJECT_BUFFER_BIT = (1 << UACPI_OBJECT_BUFFER), + UACPI_OBJECT_PACKAGE_BIT = (1 << UACPI_OBJECT_PACKAGE), + UACPI_OBJECT_FIELD_UNIT_BIT = (1 << UACPI_OBJECT_FIELD_UNIT), + UACPI_OBJECT_DEVICE_BIT = (1 << UACPI_OBJECT_DEVICE), + UACPI_OBJECT_EVENT_BIT = (1 << UACPI_OBJECT_EVENT), + UACPI_OBJECT_METHOD_BIT = (1 << UACPI_OBJECT_METHOD), + UACPI_OBJECT_MUTEX_BIT = (1 << UACPI_OBJECT_MUTEX), + UACPI_OBJECT_OPERATION_REGION_BIT = (1 << UACPI_OBJECT_OPERATION_REGION), + UACPI_OBJECT_POWER_RESOURCE_BIT = (1 << UACPI_OBJECT_POWER_RESOURCE), + UACPI_OBJECT_PROCESSOR_BIT = (1 << UACPI_OBJECT_PROCESSOR), + UACPI_OBJECT_THERMAL_ZONE_BIT = (1 << UACPI_OBJECT_THERMAL_ZONE), + UACPI_OBJECT_BUFFER_FIELD_BIT = (1 << UACPI_OBJECT_BUFFER_FIELD), + UACPI_OBJECT_DEBUG_BIT = (1 << UACPI_OBJECT_DEBUG), + UACPI_OBJECT_REFERENCE_BIT = (1 << UACPI_OBJECT_REFERENCE), + UACPI_OBJECT_BUFFER_INDEX_BIT = (1 << UACPI_OBJECT_BUFFER_INDEX), + UACPI_OBJECT_ANY_BIT = 0xFFFFFFFF, +} uacpi_object_type_bits; + +typedef struct uacpi_object uacpi_object; + +void uacpi_object_ref(uacpi_object *obj); +void uacpi_object_unref(uacpi_object *obj); + +uacpi_object_type uacpi_object_get_type(uacpi_object*); +uacpi_object_type_bits uacpi_object_get_type_bit(uacpi_object*); + +/* + * Returns UACPI_TRUE if the provided object's type matches this type. + */ +uacpi_bool uacpi_object_is(uacpi_object*, uacpi_object_type); + +/* + * Returns UACPI_TRUE if the provided object's type is one of the values + * specified in the 'type_mask' of UACPI_OBJECT_*_BIT. + */ +uacpi_bool uacpi_object_is_one_of( + uacpi_object*, uacpi_object_type_bits type_mask +); + +const uacpi_char *uacpi_object_type_to_string(uacpi_object_type); + +/* + * Create an uninitialized object. The object can be further overwritten via + * uacpi_object_assign_* to anything. + */ +uacpi_object *uacpi_object_create_uninitialized(void); + +/* + * Create an integer object with the value provided. + */ +uacpi_object *uacpi_object_create_integer(uacpi_u64); + +typedef enum uacpi_overflow_behavior { + UACPI_OVERFLOW_ALLOW = 0, + UACPI_OVERFLOW_TRUNCATE, + UACPI_OVERFLOW_DISALLOW, +} uacpi_overflow_behavior; + +/* + * Same as uacpi_object_create_integer, but introduces additional ways to + * control what happens if the provided integer is larger than 32-bits, and the + * AML code expects 32-bit integers. + * + * - UACPI_OVERFLOW_ALLOW -> do nothing, same as the vanilla helper + * - UACPI_OVERFLOW_TRUNCATE -> truncate the integer to 32-bits if it happens to + * be larger than allowed by the DSDT + * - UACPI_OVERFLOW_DISALLOW -> fail object creation with + * UACPI_STATUS_INVALID_ARGUMENT if the provided + * value happens to be too large + */ +uacpi_status uacpi_object_create_integer_safe( + uacpi_u64, uacpi_overflow_behavior, uacpi_object **out_obj +); + +uacpi_status uacpi_object_assign_integer(uacpi_object*, uacpi_u64 value); +uacpi_status uacpi_object_get_integer(uacpi_object*, uacpi_u64 *out); + +/* + * Create a string/buffer object. Takes in a constant view of the data. + * + * NOTE: The data is copied to a separately allocated buffer and is not taken + * ownership of. + */ +uacpi_object *uacpi_object_create_string(uacpi_data_view); +uacpi_object *uacpi_object_create_cstring(const uacpi_char*); +uacpi_object *uacpi_object_create_buffer(uacpi_data_view); + +/* + * Returns a writable view of the data stored in the string or buffer type + * object. + */ +uacpi_status uacpi_object_get_string_or_buffer( + uacpi_object*, uacpi_data_view *out +); +uacpi_status uacpi_object_get_string(uacpi_object*, uacpi_data_view *out); +uacpi_status uacpi_object_get_buffer(uacpi_object*, uacpi_data_view *out); + +/* + * Returns UACPI_TRUE if the provided string object is actually an AML namepath. + * + * This can only be the case for package elements. If a package element is + * specified as a path to an object in AML, it's not resolved by the interpreter + * right away as it might not have been defined at that point yet, and is + * instead stored as a special string object to be resolved by client code + * when needed. + * + * Example usage: + * uacpi_namespace_node *target_node = UACPI_NULL; + * + * uacpi_object *obj = UACPI_NULL; + * uacpi_eval(scope, path, UACPI_NULL, &obj); + * + * uacpi_object_array arr; + * uacpi_object_get_package(obj, &arr); + * + * if (uacpi_object_is_aml_namepath(arr.objects[0])) { + * uacpi_object_resolve_as_aml_namepath( + * arr.objects[0], scope, &target_node + * ); + * } + */ +uacpi_bool uacpi_object_is_aml_namepath(uacpi_object*); + +/* + * Resolve an AML namepath contained in a string object. + * + * This is only applicable to objects that are package elements. See an + * explanation of how this works in the comment above the declaration of + * uacpi_object_is_aml_namepath. + * + * This is a shorthand for: + * uacpi_data_view view; + * uacpi_object_get_string(object, &view); + * + * target_node = uacpi_namespace_node_resolve_from_aml_namepath( + * scope, view.text + * ); + */ +uacpi_status uacpi_object_resolve_as_aml_namepath( + uacpi_object*, uacpi_namespace_node *scope, uacpi_namespace_node **out_node +); + +/* + * Make the provided object a string/buffer. + * Takes in a constant view of the data to be stored in the object. + * + * NOTE: The data is copied to a separately allocated buffer and is not taken + * ownership of. + */ +uacpi_status uacpi_object_assign_string(uacpi_object*, uacpi_data_view in); +uacpi_status uacpi_object_assign_buffer(uacpi_object*, uacpi_data_view in); + +typedef struct uacpi_object_array { + uacpi_object **objects; + uacpi_size count; +} uacpi_object_array; + +/* + * Create a package object and store all of the objects in the array inside. + * The array is allowed to be empty. + * + * NOTE: the reference count of each object is incremented before being stored + * in the object. Client code must remove all of the locally created + * references at its own discretion. + */ +uacpi_object *uacpi_object_create_package(uacpi_object_array in); + +/* + * Returns the list of objects stored in a package object. + * + * NOTE: the reference count of the objects stored inside is not incremented, + * which means destorying/overwriting the object also potentially destroys + * all of the objects stored inside unless the reference count is + * incremented by the client via uacpi_object_ref. + */ +uacpi_status uacpi_object_get_package(uacpi_object*, uacpi_object_array *out); + +/* + * Make the provided object a package and store all of the objects in the array + * inside. The array is allowed to be empty. + * + * NOTE: the reference count of each object is incremented before being stored + * in the object. Client code must remove all of the locally created + * references at its own discretion. + */ +uacpi_status uacpi_object_assign_package(uacpi_object*, uacpi_object_array in); + +/* + * Create a reference object and make it point to 'child'. + * + * NOTE: child's reference count is incremented by one. Client code must remove + * all of the locally created references at its own discretion. + */ +uacpi_object *uacpi_object_create_reference(uacpi_object *child); + +/* + * Make the provided object a reference and make it point to 'child'. + * + * NOTE: child's reference count is incremented by one. Client code must remove + * all of the locally created references at its own discretion. + */ +uacpi_status uacpi_object_assign_reference(uacpi_object*, uacpi_object *child); + +/* + * Retrieve the object pointed to by a reference object. + * + * NOTE: the reference count of the returned object is incremented by one and + * must be uacpi_object_unref'ed by the client when no longer needed. + */ +uacpi_status uacpi_object_get_dereferenced(uacpi_object*, uacpi_object **out); + +typedef struct uacpi_processor_info { + uacpi_u8 id; + uacpi_u32 block_address; + uacpi_u8 block_length; +} uacpi_processor_info; + +/* + * Returns the information about the provided processor object. + */ +uacpi_status uacpi_object_get_processor_info( + uacpi_object*, uacpi_processor_info *out +); + +typedef struct uacpi_power_resource_info { + uacpi_u8 system_level; + uacpi_u16 resource_order; +} uacpi_power_resource_info; + +/* + * Returns the information about the provided power resource object. + */ +uacpi_status uacpi_object_get_power_resource_info( + uacpi_object*, uacpi_power_resource_info *out +); + +typedef enum uacpi_region_op { + // data => uacpi_region_attach_data + UACPI_REGION_OP_ATTACH = 0, + // data => uacpi_region_detach_data + UACPI_REGION_OP_DETACH, + + // data => uacpi_region_rw_data + UACPI_REGION_OP_READ, + UACPI_REGION_OP_WRITE, + + // data => uacpi_region_pcc_send_data + UACPI_REGION_OP_PCC_SEND, + + // data => uacpi_region_gpio_rw_data + UACPI_REGION_OP_GPIO_READ, + UACPI_REGION_OP_GPIO_WRITE, + + // data => uacpi_region_ipmi_rw_data + UACPI_REGION_OP_IPMI_COMMAND, + + // data => uacpi_region_ffixedhw_rw_data + UACPI_REGION_OP_FFIXEDHW_COMMAND, + + // data => uacpi_region_prm_rw_data + UACPI_REGION_OP_PRM_COMMAND, + + // data => uacpi_region_serial_rw_data + UACPI_REGION_OP_SERIAL_READ, + UACPI_REGION_OP_SERIAL_WRITE, +} uacpi_region_op; + +typedef struct uacpi_generic_region_info { + uacpi_u64 base; + uacpi_u64 length; +} uacpi_generic_region_info; + +typedef struct uacpi_pcc_region_info { + uacpi_data_view buffer; + uacpi_u8 subspace_id; +} uacpi_pcc_region_info; + +typedef struct uacpi_gpio_region_info +{ + uacpi_u64 num_pins; +} uacpi_gpio_region_info; + +typedef struct uacpi_region_attach_data { + void *handler_context; + uacpi_namespace_node *region_node; + union { + uacpi_generic_region_info generic_info; + uacpi_pcc_region_info pcc_info; + uacpi_gpio_region_info gpio_info; + }; + void *out_region_context; +} uacpi_region_attach_data; + +typedef struct uacpi_region_rw_data { + void *handler_context; + void *region_context; + union { + uacpi_phys_addr address; + uacpi_u64 offset; + }; + uacpi_u64 value; + uacpi_u8 byte_width; +} uacpi_region_rw_data; + +typedef struct uacpi_region_pcc_send_data { + void *handler_context; + void *region_context; + uacpi_data_view buffer; +} uacpi_region_pcc_send_data; + +typedef struct uacpi_region_gpio_rw_data +{ + void *handler_context; + void *region_context; + uacpi_data_view connection; + uacpi_u32 pin_offset; + uacpi_u32 num_pins; + uacpi_u64 value; +} uacpi_region_gpio_rw_data; + +typedef struct uacpi_region_ipmi_rw_data +{ + void *handler_context; + void *region_context; + uacpi_data_view in_out_message; + uacpi_u64 command; +} uacpi_region_ipmi_rw_data; + +typedef uacpi_region_ipmi_rw_data uacpi_region_ffixedhw_rw_data; + +typedef struct uacpi_region_prm_rw_data +{ + void *handler_context; + void *region_context; + uacpi_data_view in_out_message; +} uacpi_region_prm_rw_data; + +typedef enum uacpi_access_attribute { + UACPI_ACCESS_ATTRIBUTE_QUICK = 0x02, + UACPI_ACCESS_ATTRIBUTE_SEND_RECEIVE = 0x04, + UACPI_ACCESS_ATTRIBUTE_BYTE = 0x06, + UACPI_ACCESS_ATTRIBUTE_WORD = 0x08, + UACPI_ACCESS_ATTRIBUTE_BLOCK = 0x0A, + UACPI_ACCESS_ATTRIBUTE_BYTES = 0x0B, + UACPI_ACCESS_ATTRIBUTE_PROCESS_CALL = 0x0C, + UACPI_ACCESS_ATTRIBUTE_BLOCK_PROCESS_CALL = 0x0D, + UACPI_ACCESS_ATTRIBUTE_RAW_BYTES = 0x0E, + UACPI_ACCESS_ATTRIBUTE_RAW_PROCESS_BYTES = 0x0F, +} uacpi_access_attribute; + +typedef struct uacpi_region_serial_rw_data { + void *handler_context; + void *region_context; + uacpi_u64 command; + uacpi_data_view connection; + uacpi_data_view in_out_buffer; + uacpi_access_attribute access_attribute; + + /* + * Applicable if access_attribute is one of: + * - UACPI_ACCESS_ATTRIBUTE_BYTES + * - UACPI_ACCESS_ATTRIBUTE_RAW_BYTES + * - UACPI_ACCESS_ATTRIBUTE_RAW_PROCESS_BYTES + */ + uacpi_u8 access_length; +} uacpi_region_serial_rw_data; + +typedef struct uacpi_region_detach_data { + void *handler_context; + void *region_context; + uacpi_namespace_node *region_node; +} uacpi_region_detach_data; + +typedef uacpi_status (*uacpi_region_handler) + (uacpi_region_op op, uacpi_handle op_data); + +typedef uacpi_status (*uacpi_notify_handler) + (uacpi_handle context, uacpi_namespace_node *node, uacpi_u64 value); + +typedef enum uacpi_firmware_request_type { + UACPI_FIRMWARE_REQUEST_TYPE_BREAKPOINT, + UACPI_FIRMWARE_REQUEST_TYPE_FATAL, +} uacpi_firmware_request_type; + +typedef struct uacpi_firmware_request { + uacpi_u8 type; + + union { + // UACPI_FIRMWARE_REQUEST_BREAKPOINT + struct { + // The context of the method currently being executed + uacpi_handle ctx; + } breakpoint; + + // UACPI_FIRMWARE_REQUEST_FATAL + struct { + uacpi_u8 type; + uacpi_u32 code; + uacpi_u64 arg; + } fatal; + }; +} uacpi_firmware_request; + +#define UACPI_INTERRUPT_NOT_HANDLED 0 +#define UACPI_INTERRUPT_HANDLED 1 +typedef uacpi_u32 uacpi_interrupt_ret; + +typedef uacpi_interrupt_ret (*uacpi_interrupt_handler)(uacpi_handle); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/uacpi.h b/kernel/hal/x86_64/uACPI/include/uacpi/uacpi.h new file mode 100644 index 0000000..e0904d5 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/uacpi.h @@ -0,0 +1,269 @@ +#pragma once + +#include +#include +#include +#include + +#define UACPI_MAJOR 3 +#define UACPI_MINOR 0 +#define UACPI_PATCH 0 + +#ifdef UACPI_REDUCED_HARDWARE +#define UACPI_MAKE_STUB_FOR_REDUCED_HARDWARE(fn, ret) \ + UACPI_NO_UNUSED_PARAMETER_WARNINGS_BEGIN \ + static inline fn { return ret; } \ + UACPI_NO_UNUSED_PARAMETER_WARNINGS_END + +#define UACPI_STUB_IF_REDUCED_HARDWARE(fn) \ + UACPI_MAKE_STUB_FOR_REDUCED_HARDWARE(fn,) +#define UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE(fn) \ + UACPI_MAKE_STUB_FOR_REDUCED_HARDWARE(fn, UACPI_STATUS_COMPILED_OUT) +#define UACPI_ALWAYS_OK_FOR_REDUCED_HARDWARE(fn) \ + UACPI_MAKE_STUB_FOR_REDUCED_HARDWARE(fn, UACPI_STATUS_OK) +#else + +#define UACPI_STUB_IF_REDUCED_HARDWARE(fn) fn; +#define UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE(fn) fn; +#define UACPI_ALWAYS_OK_FOR_REDUCED_HARDWARE(fn) fn; +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +/* + * Set up early access to the table subsystem. What this means is: + * - uacpi_table_find() and similar API becomes usable before the call to + * uacpi_initialize(). + * - No kernel API besides logging and map/unmap will be invoked at this stage, + * allowing for heap and scheduling to still be fully offline. + * - The provided 'temporary_buffer' will be used as a temporary storage for the + * internal metadata about the tables (list, reference count, addresses, + * sizes, etc). + * - The 'temporary_buffer' is replaced with a normal heap buffer allocated via + * uacpi_kernel_alloc() after the call to uacpi_initialize() and can therefore + * be reclaimed by the kernel. + * + * The approximate overhead per table is 56 bytes, so a buffer of 4096 bytes + * yields about 73 tables in terms of capacity. uACPI also has an internal + * static buffer for tables, "UACPI_STATIC_TABLE_ARRAY_LEN", which is configured + * as 16 descriptors in length by default. + * + * This function is used to initialize the barebones mode, see + * UACPI_BAREBONES_MODE in config.h for more information. + */ +uacpi_status uacpi_setup_early_table_access( + void *temporary_buffer, uacpi_size buffer_size +); + +/* + * Bad table checksum should be considered a fatal error + * (table load is fully aborted in this case) + */ +#define UACPI_FLAG_BAD_CSUM_FATAL (1ull << 0) + +/* + * Unexpected table signature should be considered a fatal error + * (table load is fully aborted in this case) + */ +#define UACPI_FLAG_BAD_TBL_SIGNATURE_FATAL (1ull << 1) + +/* + * Force uACPI to use RSDT even for later revisions + */ +#define UACPI_FLAG_BAD_XSDT (1ull << 2) + +/* + * If this is set, ACPI mode is not entered during the call to + * uacpi_initialize. The caller is expected to enter it later at their own + * discretion by using uacpi_enter_acpi_mode(). + */ +#define UACPI_FLAG_NO_ACPI_MODE (1ull << 3) + +/* + * Don't create the \_OSI method when building the namespace. + * Only enable this if you're certain that having this method breaks your AML + * blob, a more atomic/granular interface management is available via osi.h + */ +#define UACPI_FLAG_NO_OSI (1ull << 4) + +/* + * Validate table checksums at installation time instead of first use. + * Note that this makes uACPI map the entire table at once, which not all + * hosts are able to handle at early init. + */ +#define UACPI_FLAG_PROACTIVE_TBL_CSUM (1ull << 5) + +#ifndef UACPI_BAREBONES_MODE + +/* + * Initializes the uACPI subsystem, iterates & records all relevant RSDT/XSDT + * tables. Enters ACPI mode. + * + * 'flags' is any combination of UACPI_FLAG_* above + */ +uacpi_status uacpi_initialize(uacpi_u64 flags); + +/* + * Parses & executes all of the DSDT/SSDT tables. + * Initializes the event subsystem. + */ +uacpi_status uacpi_namespace_load(void); + +/* + * Initializes all the necessary objects in the namespaces by calling + * _STA/_INI etc. + */ +uacpi_status uacpi_namespace_initialize(void); + +// Returns the current subsystem initialization level +uacpi_init_level uacpi_get_current_init_level(void); + +/* + * Evaluate an object within the namespace and get back its value. + * Either root or path must be valid. + * A value of NULL for 'parent' implies uacpi_namespace_root() relative + * lookups, unless 'path' is already absolute. + */ +uacpi_status uacpi_eval( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +); +uacpi_status uacpi_eval_simple( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +); + +/* + * Same as uacpi_eval() but without a return value. + */ +uacpi_status uacpi_execute( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args +); +uacpi_status uacpi_execute_simple( + uacpi_namespace_node *parent, const uacpi_char *path +); + +/* + * Same as uacpi_eval, but the return value type is validated against + * the 'ret_mask'. UACPI_STATUS_TYPE_MISMATCH is returned on error. + */ +uacpi_status uacpi_eval_typed( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object_type_bits ret_mask, + uacpi_object **ret +); +uacpi_status uacpi_eval_simple_typed( + uacpi_namespace_node *parent, const uacpi_char *path, + uacpi_object_type_bits ret_mask, uacpi_object **ret +); + +/* + * A shorthand for uacpi_eval_typed with UACPI_OBJECT_INTEGER_BIT. + */ +uacpi_status uacpi_eval_integer( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_u64 *out_value +); +uacpi_status uacpi_eval_simple_integer( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_u64 *out_value +); + +/* + * A shorthand for uacpi_eval_typed with + * UACPI_OBJECT_BUFFER_BIT | UACPI_OBJECT_STRING_BIT + * + * Use uacpi_object_get_string_or_buffer to retrieve the resulting buffer data. + */ +uacpi_status uacpi_eval_buffer_or_string( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +); +uacpi_status uacpi_eval_simple_buffer_or_string( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +); + +/* + * A shorthand for uacpi_eval_typed with UACPI_OBJECT_STRING_BIT. + * + * Use uacpi_object_get_string to retrieve the resulting buffer data. + */ +uacpi_status uacpi_eval_string( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +); +uacpi_status uacpi_eval_simple_string( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +); + +/* + * A shorthand for uacpi_eval_typed with UACPI_OBJECT_BUFFER_BIT. + * + * Use uacpi_object_get_buffer to retrieve the resulting buffer data. + */ +uacpi_status uacpi_eval_buffer( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +); +uacpi_status uacpi_eval_simple_buffer( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +); + +/* + * A shorthand for uacpi_eval_typed with UACPI_OBJECT_PACKAGE_BIT. + * + * Use uacpi_object_get_package to retrieve the resulting object array. + */ +uacpi_status uacpi_eval_package( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +); +uacpi_status uacpi_eval_simple_package( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +); + +/* + * Get the bitness of the currently loaded AML code according to the DSDT. + * + * Returns either 32 or 64. + */ +uacpi_status uacpi_get_aml_bitness(uacpi_u8 *out_bitness); + +/* + * Helpers for entering & leaving ACPI mode. Note that ACPI mode is entered + * automatically during the call to uacpi_initialize(). + */ +UACPI_ALWAYS_OK_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_enter_acpi_mode(void) +) +UACPI_ALWAYS_ERROR_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_leave_acpi_mode(void) +) + +/* + * Attempt to acquire the global lock for 'timeout' milliseconds. + * 0xFFFF implies infinite wait. + * + * On success, 'out_seq' is set to a unique sequence number for the current + * acquire transaction. This number is used for validation during release. + */ +uacpi_status uacpi_acquire_global_lock(uacpi_u16 timeout, uacpi_u32 *out_seq); +uacpi_status uacpi_release_global_lock(uacpi_u32 seq); + +#endif // !UACPI_BAREBONES_MODE + +/* + * Reset the global uACPI state by freeing all internally allocated data + * structures & resetting any global variables. After this call, uACPI must be + * re-initialized from scratch to be used again. + * + * This is called by uACPI automatically if a fatal error occurs during a call + * to uacpi_initialize/uacpi_namespace_load etc. in order to prevent accidental + * use of partially uninitialized subsystems. + */ +void uacpi_state_reset(void); + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/include/uacpi/utilities.h b/kernel/hal/x86_64/uACPI/include/uacpi/utilities.h new file mode 100644 index 0000000..e94fed8 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/include/uacpi/utilities.h @@ -0,0 +1,192 @@ +#pragma once + +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef UACPI_BAREBONES_MODE + +/* + * Checks whether the device at 'node' matches any of the PNP ids provided in + * 'list' (terminated by a UACPI_NULL). This is done by first attempting to + * match the value returned from _HID and then the value(s) from _CID. + * + * Note that the presence of the device (_STA) is not verified here. + */ +uacpi_bool uacpi_device_matches_pnp_id( + uacpi_namespace_node *node, + const uacpi_char *const *list +); + +/* + * Find all the devices in the namespace starting at 'parent' matching the + * specified 'hids' (terminated by a UACPI_NULL) against any value from _HID or + * _CID. Only devices reported as present via _STA are checked. Any matching + * devices are then passed to the 'cb'. + */ +uacpi_status uacpi_find_devices_at( + uacpi_namespace_node *parent, + const uacpi_char *const *hids, + uacpi_iteration_callback cb, + void *user +); + +/* + * Same as uacpi_find_devices_at, except this starts at the root and only + * matches one hid. + */ +uacpi_status uacpi_find_devices( + const uacpi_char *hid, + uacpi_iteration_callback cb, + void *user +); + +typedef enum uacpi_interrupt_model { + UACPI_INTERRUPT_MODEL_PIC = 0, + UACPI_INTERRUPT_MODEL_IOAPIC, + UACPI_INTERRUPT_MODEL_IOSAPIC, + UACPI_INTERRUPT_MODEL_PLATFORM_SPECIFIC, + UACPI_INTERRUPT_MODEL_GIC, + UACPI_INTERRUPT_MODEL_LPIC, + UACPI_INTERRUPT_MODEL_RINTC, +} uacpi_interrupt_model; + +uacpi_status uacpi_set_interrupt_model(uacpi_interrupt_model); + +typedef struct uacpi_pci_routing_table_entry { + uacpi_u32 address; + uacpi_u32 index; + uacpi_namespace_node *source; + uacpi_u8 pin; +} uacpi_pci_routing_table_entry; + +typedef struct uacpi_pci_routing_table { + uacpi_size num_entries; + uacpi_pci_routing_table_entry entries[]; +} uacpi_pci_routing_table; +void uacpi_free_pci_routing_table(uacpi_pci_routing_table*); + +uacpi_status uacpi_get_pci_routing_table( + uacpi_namespace_node *parent, uacpi_pci_routing_table **out_table +); + +typedef struct uacpi_id_string { + // size of the string including the null byte + uacpi_u32 size; + uacpi_char *value; +} uacpi_id_string; +void uacpi_free_id_string(uacpi_id_string *id); + +/* + * Evaluate a device's _HID method and get its value. + * The returned struture must be freed using uacpi_free_id_string. + */ +uacpi_status uacpi_eval_hid(uacpi_namespace_node*, uacpi_id_string **out_id); + +typedef struct uacpi_pnp_id_list { + // number of 'ids' in the list + uacpi_u32 num_ids; + + // size of the 'ids' list including the string lengths + uacpi_u32 size; + + // list of PNP ids + uacpi_id_string ids[]; +} uacpi_pnp_id_list; +void uacpi_free_pnp_id_list(uacpi_pnp_id_list *list); + +/* + * Evaluate a device's _CID method and get its value. + * The returned structure must be freed using uacpi_free_pnp_id_list. + */ +uacpi_status uacpi_eval_cid(uacpi_namespace_node*, uacpi_pnp_id_list **out_list); + +/* + * Evaluate a device's _STA method and get its value. + * If this method is not found, the value of 'flags' is set to all ones. + */ +uacpi_status uacpi_eval_sta(uacpi_namespace_node*, uacpi_u32 *flags); + +/* + * Evaluate a device's _ADR method and get its value. + */ +uacpi_status uacpi_eval_adr(uacpi_namespace_node*, uacpi_u64 *out); + +/* + * Evaluate a device's _CLS method and get its value. + * The format of returned string is BBSSPP where: + * BB => Base Class (e.g. 01 => Mass Storage) + * SS => Sub-Class (e.g. 06 => SATA) + * PP => Programming Interface (e.g. 01 => AHCI) + * The returned struture must be freed using uacpi_free_id_string. + */ +uacpi_status uacpi_eval_cls(uacpi_namespace_node*, uacpi_id_string **out_id); + +/* + * Evaluate a device's _UID method and get its value. + * The returned struture must be freed using uacpi_free_id_string. + */ +uacpi_status uacpi_eval_uid(uacpi_namespace_node*, uacpi_id_string **out_uid); + + +// uacpi_namespace_node_info->flags +#define UACPI_NS_NODE_INFO_HAS_ADR (1 << 0) +#define UACPI_NS_NODE_INFO_HAS_HID (1 << 1) +#define UACPI_NS_NODE_INFO_HAS_UID (1 << 2) +#define UACPI_NS_NODE_INFO_HAS_CID (1 << 3) +#define UACPI_NS_NODE_INFO_HAS_CLS (1 << 4) +#define UACPI_NS_NODE_INFO_HAS_SXD (1 << 5) +#define UACPI_NS_NODE_INFO_HAS_SXW (1 << 6) + +typedef struct uacpi_namespace_node_info { + // Size of the entire structure + uacpi_u32 size; + + // Object information + uacpi_object_name name; + uacpi_object_type type; + uacpi_u8 num_params; + + // UACPI_NS_NODE_INFO_HAS_* + uacpi_u8 flags; + + /* + * A mapping of [S1..S4] to the shallowest D state supported by the device + * in that S state. + */ + uacpi_u8 sxd[4]; + + /* + * A mapping of [S0..S4] to the deepest D state supported by the device + * in that S state to be able to wake itself. + */ + uacpi_u8 sxw[5]; + + uacpi_u64 adr; + uacpi_id_string hid; + uacpi_id_string uid; + uacpi_id_string cls; + uacpi_pnp_id_list cid; +} uacpi_namespace_node_info; +void uacpi_free_namespace_node_info(uacpi_namespace_node_info*); + +/* + * Retrieve information about a namespace node. This includes the attached + * object's type, name, number of parameters (if it's a method), the result of + * evaluating _ADR, _UID, _CLS, _HID, _CID, as well as _SxD and _SxW. + * + * The returned structure must be freed with uacpi_free_namespace_node_info. + */ +uacpi_status uacpi_get_namespace_node_info( + uacpi_namespace_node *node, uacpi_namespace_node_info **out_info +); + +#endif // !UACPI_BAREBONES_MODE + +#ifdef __cplusplus +} +#endif diff --git a/kernel/hal/x86_64/uACPI/meson.build b/kernel/hal/x86_64/uACPI/meson.build new file mode 100644 index 0000000..22f6414 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/meson.build @@ -0,0 +1,25 @@ +project('uacpi', 'c') + +sources = files( + 'source/tables.c', + 'source/types.c', + 'source/uacpi.c', + 'source/utilities.c', + 'source/interpreter.c', + 'source/opcodes.c', + 'source/namespace.c', + 'source/stdlib.c', + 'source/shareable.c', + 'source/opregion.c', + 'source/default_handlers.c', + 'source/io.c', + 'source/notify.c', + 'source/sleep.c', + 'source/registers.c', + 'source/resources.c', + 'source/event.c', + 'source/mutex.c', + 'source/osi.c', +) + +includes = include_directories('include') diff --git a/kernel/hal/x86_64/uACPI/source/default_handlers.c b/kernel/hal/x86_64/uACPI/source/default_handlers.c new file mode 100644 index 0000000..32259d6 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/default_handlers.c @@ -0,0 +1,336 @@ +#include +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +#define PCI_ROOT_PNP_ID "PNP0A03" +#define PCI_EXPRESS_ROOT_PNP_ID "PNP0A08" + +static uacpi_namespace_node *find_pci_root(uacpi_namespace_node *node) +{ + static const uacpi_char *pci_root_ids[] = { + PCI_ROOT_PNP_ID, + PCI_EXPRESS_ROOT_PNP_ID, + UACPI_NULL + }; + uacpi_namespace_node *parent = node->parent; + + while (parent != uacpi_namespace_root()) { + if (uacpi_device_matches_pnp_id(parent, pci_root_ids)) { + uacpi_trace( + "found a PCI root node %.4s controlling region %.4s\n", + parent->name.text, node->name.text + ); + return parent; + } + + parent = parent->parent; + } + + uacpi_trace_region_error( + node, "unable to find PCI root controlling", + UACPI_STATUS_NOT_FOUND + ); + return node; +} + +static uacpi_status pci_region_attach(uacpi_region_attach_data *data) +{ + uacpi_namespace_node *node, *pci_root, *device; + uacpi_pci_address address = { 0 }; + uacpi_u64 value; + uacpi_status ret; + + node = data->region_node; + pci_root = find_pci_root(node); + + /* + * Find the actual device object that is supposed to be controlling + * this operation region. + */ + device = node; + while (device) { + uacpi_object_type type; + + ret = uacpi_namespace_node_type(device, &type); + if (uacpi_unlikely_error(ret)) + return ret; + + if (type == UACPI_OBJECT_DEVICE) + break; + + device = device->parent; + } + + if (uacpi_unlikely(device == UACPI_NULL)) { + ret = UACPI_STATUS_NOT_FOUND; + uacpi_trace_region_error( + node, "unable to find device responsible for", ret + ); + return ret; + } + + ret = uacpi_eval_simple_integer(device, "_ADR", &value); + if (ret == UACPI_STATUS_OK) { + address.function = (value >> 0) & 0xFF; + address.device = (value >> 16) & 0xFF; + } + + ret = uacpi_eval_simple_integer(pci_root, "_SEG", &value); + if (ret == UACPI_STATUS_OK) + address.segment = value; + + ret = uacpi_eval_simple_integer(pci_root, "_BBN", &value); + if (ret == UACPI_STATUS_OK) + address.bus = value; + + uacpi_trace( + "detected PCI device %.4s@%04X:%02X:%02X:%01X\n", + device->name.text, address.segment, address.bus, + address.device, address.function + ); + + return uacpi_kernel_pci_device_open(address, &data->out_region_context); +} + +static uacpi_status pci_region_detach(uacpi_region_detach_data *data) +{ + uacpi_kernel_pci_device_close(data->region_context); + return UACPI_STATUS_OK; +} + +static uacpi_status pci_region_do_rw( + uacpi_region_op op, uacpi_region_rw_data *data +) +{ + uacpi_handle dev = data->region_context; + uacpi_u8 width; + uacpi_size offset; + + offset = data->offset; + width = data->byte_width; + + return op == UACPI_REGION_OP_READ ? + uacpi_pci_read(dev, offset, width, &data->value) : + uacpi_pci_write(dev, offset, width, data->value); +} + +static uacpi_status handle_pci_region(uacpi_region_op op, uacpi_handle op_data) +{ + switch (op) { + case UACPI_REGION_OP_ATTACH: + return pci_region_attach(op_data); + case UACPI_REGION_OP_DETACH: + return pci_region_detach(op_data); + case UACPI_REGION_OP_READ: + case UACPI_REGION_OP_WRITE: + return pci_region_do_rw(op, op_data); + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } +} + +struct memory_region_ctx { + uacpi_phys_addr phys; + uacpi_u8 *virt; + uacpi_size size; +}; + +static uacpi_status memory_region_attach(uacpi_region_attach_data *data) +{ + struct memory_region_ctx *ctx; + uacpi_status ret = UACPI_STATUS_OK; + + ctx = uacpi_kernel_alloc(sizeof(*ctx)); + if (ctx == UACPI_NULL) + return UACPI_STATUS_OUT_OF_MEMORY; + + ctx->size = data->generic_info.length; + + // FIXME: this really shouldn't try to map everything at once + ctx->phys = data->generic_info.base; + ctx->virt = uacpi_kernel_map(ctx->phys, ctx->size); + + if (uacpi_unlikely(ctx->virt == UACPI_NULL)) { + ret = UACPI_STATUS_MAPPING_FAILED; + uacpi_trace_region_error(data->region_node, "unable to map", ret); + uacpi_free(ctx, sizeof(*ctx)); + goto out; + } + + data->out_region_context = ctx; +out: + return ret; +} + +static uacpi_status memory_region_detach(uacpi_region_detach_data *data) +{ + struct memory_region_ctx *ctx = data->region_context; + + uacpi_kernel_unmap(ctx->virt, ctx->size); + uacpi_free(ctx, sizeof(*ctx)); + return UACPI_STATUS_OK; +} + +struct io_region_ctx { + uacpi_io_addr base; + uacpi_handle handle; +}; + +static uacpi_status io_region_attach(uacpi_region_attach_data *data) +{ + struct io_region_ctx *ctx; + uacpi_generic_region_info *info = &data->generic_info; + uacpi_status ret; + + ctx = uacpi_kernel_alloc(sizeof(*ctx)); + if (ctx == UACPI_NULL) + return UACPI_STATUS_OUT_OF_MEMORY; + + ctx->base = info->base; + + ret = uacpi_kernel_io_map(ctx->base, info->length, &ctx->handle); + if (uacpi_unlikely_error(ret)) { + uacpi_trace_region_error( + data->region_node, "unable to map an IO", ret + ); + uacpi_free(ctx, sizeof(*ctx)); + return ret; + } + + data->out_region_context = ctx; + return ret; +} + +static uacpi_status io_region_detach(uacpi_region_detach_data *data) +{ + struct io_region_ctx *ctx = data->region_context; + + uacpi_kernel_io_unmap(ctx->handle); + uacpi_free(ctx, sizeof(*ctx)); + return UACPI_STATUS_OK; +} + +static uacpi_status memory_region_do_rw( + uacpi_region_op op, uacpi_region_rw_data *data +) +{ + struct memory_region_ctx *ctx = data->region_context; + uacpi_size offset; + + offset = data->address - ctx->phys; + + return op == UACPI_REGION_OP_READ ? + uacpi_system_memory_read(ctx->virt, offset, data->byte_width, &data->value) : + uacpi_system_memory_write(ctx->virt, offset, data->byte_width, data->value); +} + +static uacpi_status handle_memory_region(uacpi_region_op op, uacpi_handle op_data) +{ + switch (op) { + case UACPI_REGION_OP_ATTACH: + return memory_region_attach(op_data); + case UACPI_REGION_OP_DETACH: + return memory_region_detach(op_data); + case UACPI_REGION_OP_READ: + case UACPI_REGION_OP_WRITE: + return memory_region_do_rw(op, op_data); + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } +} + +static uacpi_status table_data_region_do_rw( + uacpi_region_op op, uacpi_region_rw_data *data +) +{ + void *addr = UACPI_VIRT_ADDR_TO_PTR((uacpi_virt_addr)data->offset); + + return op == UACPI_REGION_OP_READ ? + uacpi_system_memory_read(addr, 0, data->byte_width, &data->value) : + uacpi_system_memory_write(addr, 0, data->byte_width, data->value); +} + +static uacpi_status handle_table_data_region(uacpi_region_op op, uacpi_handle op_data) +{ + switch (op) { + case UACPI_REGION_OP_ATTACH: + case UACPI_REGION_OP_DETACH: + return UACPI_STATUS_OK; + case UACPI_REGION_OP_READ: + case UACPI_REGION_OP_WRITE: + return table_data_region_do_rw(op, op_data); + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } +} + +static uacpi_status io_region_do_rw( + uacpi_region_op op, uacpi_region_rw_data *data +) +{ + struct io_region_ctx *ctx = data->region_context; + uacpi_u8 width; + uacpi_size offset; + + offset = data->offset - ctx->base; + width = data->byte_width; + + return op == UACPI_REGION_OP_READ ? + uacpi_system_io_read(ctx->handle, offset, width, &data->value) : + uacpi_system_io_write(ctx->handle, offset, width, data->value); +} + +static uacpi_status handle_io_region(uacpi_region_op op, uacpi_handle op_data) +{ + switch (op) { + case UACPI_REGION_OP_ATTACH: + return io_region_attach(op_data); + case UACPI_REGION_OP_DETACH: + return io_region_detach(op_data); + case UACPI_REGION_OP_READ: + case UACPI_REGION_OP_WRITE: + return io_region_do_rw(op, op_data); + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } +} + +void uacpi_install_default_address_space_handlers(void) +{ + uacpi_namespace_node *root; + + root = uacpi_namespace_root(); + + uacpi_install_address_space_handler_with_flags( + root, UACPI_ADDRESS_SPACE_SYSTEM_MEMORY, + handle_memory_region, UACPI_NULL, + UACPI_ADDRESS_SPACE_HANDLER_DEFAULT + ); + + uacpi_install_address_space_handler_with_flags( + root, UACPI_ADDRESS_SPACE_SYSTEM_IO, + handle_io_region, UACPI_NULL, + UACPI_ADDRESS_SPACE_HANDLER_DEFAULT + ); + + uacpi_install_address_space_handler_with_flags( + root, UACPI_ADDRESS_SPACE_PCI_CONFIG, + handle_pci_region, UACPI_NULL, + UACPI_ADDRESS_SPACE_HANDLER_DEFAULT + ); + + uacpi_install_address_space_handler_with_flags( + root, UACPI_ADDRESS_SPACE_TABLE_DATA, + handle_table_data_region, UACPI_NULL, + UACPI_ADDRESS_SPACE_HANDLER_DEFAULT + ); +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/event.c b/kernel/hal/x86_64/uACPI/source/event.c new file mode 100644 index 0000000..0c58372 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/event.c @@ -0,0 +1,2449 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define UACPI_EVENT_DISABLED 0 +#define UACPI_EVENT_ENABLED 1 + +#if !defined(UACPI_REDUCED_HARDWARE) && !defined(UACPI_BAREBONES_MODE) + +static uacpi_handle g_gpe_state_slock; +static struct uacpi_recursive_lock g_event_lock; +static uacpi_bool g_gpes_finalized; + +struct fixed_event { + uacpi_u8 enable_field; + uacpi_u8 status_field; + uacpi_u16 enable_mask; + uacpi_u16 status_mask; +}; + +struct fixed_event_handler { + uacpi_interrupt_handler handler; + uacpi_handle ctx; +}; + +static const struct fixed_event fixed_events[UACPI_FIXED_EVENT_MAX + 1] = { + [UACPI_FIXED_EVENT_GLOBAL_LOCK] = { + .status_field = UACPI_REGISTER_FIELD_GBL_STS, + .enable_field = UACPI_REGISTER_FIELD_GBL_EN, + .enable_mask = ACPI_PM1_EN_GBL_EN_MASK, + .status_mask = ACPI_PM1_STS_GBL_STS_MASK, + }, + [UACPI_FIXED_EVENT_TIMER_STATUS] = { + .status_field = UACPI_REGISTER_FIELD_TMR_STS, + .enable_field = UACPI_REGISTER_FIELD_TMR_EN, + .enable_mask = ACPI_PM1_EN_TMR_EN_MASK, + .status_mask = ACPI_PM1_STS_TMR_STS_MASK, + }, + [UACPI_FIXED_EVENT_POWER_BUTTON] = { + .status_field = UACPI_REGISTER_FIELD_PWRBTN_STS, + .enable_field = UACPI_REGISTER_FIELD_PWRBTN_EN, + .enable_mask = ACPI_PM1_EN_PWRBTN_EN_MASK, + .status_mask = ACPI_PM1_STS_PWRBTN_STS_MASK, + }, + [UACPI_FIXED_EVENT_SLEEP_BUTTON] = { + .status_field = UACPI_REGISTER_FIELD_SLPBTN_STS, + .enable_field = UACPI_REGISTER_FIELD_SLPBTN_EN, + .enable_mask = ACPI_PM1_EN_SLPBTN_EN_MASK, + .status_mask = ACPI_PM1_STS_SLPBTN_STS_MASK, + }, + [UACPI_FIXED_EVENT_RTC] = { + .status_field = UACPI_REGISTER_FIELD_RTC_STS, + .enable_field = UACPI_REGISTER_FIELD_RTC_EN, + .enable_mask = ACPI_PM1_EN_RTC_EN_MASK, + .status_mask = ACPI_PM1_STS_RTC_STS_MASK, + }, +}; + +static struct fixed_event_handler +fixed_event_handlers[UACPI_FIXED_EVENT_MAX + 1]; + +static uacpi_status initialize_fixed_events(void) +{ + uacpi_size i; + + for (i = 0; i < UACPI_FIXED_EVENT_MAX; ++i) { + uacpi_write_register_field( + fixed_events[i].enable_field, UACPI_EVENT_DISABLED + ); + } + + return UACPI_STATUS_OK; +} + +static uacpi_status set_event(uacpi_u8 event, uacpi_u8 value) +{ + uacpi_status ret; + uacpi_u64 raw_value; + const struct fixed_event *ev = &fixed_events[event]; + + ret = uacpi_write_register_field(ev->enable_field, value); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_read_register_field(ev->enable_field, &raw_value); + if (uacpi_unlikely_error(ret)) + return ret; + + if (raw_value != value) { + uacpi_error("failed to %sable fixed event %d\n", + value ? "en" : "dis", event); + return UACPI_STATUS_HARDWARE_TIMEOUT; + } + + uacpi_trace("fixed event %d %sabled successfully\n", + event, value ? "en" : "dis"); + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_enable_fixed_event(uacpi_fixed_event event) +{ + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(event < 0 || event > UACPI_FIXED_EVENT_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + /* + * Attempting to enable an event that doesn't have a handler is most likely + * an error, don't allow it. + */ + if (uacpi_unlikely(fixed_event_handlers[event].handler == UACPI_NULL)) { + ret = UACPI_STATUS_NO_HANDLER; + goto out; + } + + ret = set_event(event, UACPI_EVENT_ENABLED); + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_disable_fixed_event(uacpi_fixed_event event) +{ + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(event < 0 || event > UACPI_FIXED_EVENT_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = set_event(event, UACPI_EVENT_DISABLED); + + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_clear_fixed_event(uacpi_fixed_event event) +{ + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(event < 0 || event > UACPI_FIXED_EVENT_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + return uacpi_write_register_field( + fixed_events[event].status_field, ACPI_PM1_STS_CLEAR + ); +} + +static uacpi_interrupt_ret dispatch_fixed_event( + const struct fixed_event *ev, uacpi_fixed_event event +) +{ + uacpi_status ret; + struct fixed_event_handler *evh = &fixed_event_handlers[event]; + + ret = uacpi_write_register_field(ev->status_field, ACPI_PM1_STS_CLEAR); + if (uacpi_unlikely_error(ret)) + return UACPI_INTERRUPT_NOT_HANDLED; + + if (uacpi_unlikely(evh->handler == UACPI_NULL)) { + uacpi_warn( + "fixed event %d fired but no handler installed, disabling...\n", + event + ); + uacpi_write_register_field(ev->enable_field, UACPI_EVENT_DISABLED); + return UACPI_INTERRUPT_NOT_HANDLED; + } + + return evh->handler(evh->ctx); +} + +static uacpi_interrupt_ret handle_fixed_events(void) +{ + uacpi_interrupt_ret int_ret = UACPI_INTERRUPT_NOT_HANDLED; + uacpi_status ret; + uacpi_u64 enable_mask, status_mask; + uacpi_size i; + + ret = uacpi_read_register(UACPI_REGISTER_PM1_STS, &status_mask); + if (uacpi_unlikely_error(ret)) + return int_ret; + + ret = uacpi_read_register(UACPI_REGISTER_PM1_EN, &enable_mask); + if (uacpi_unlikely_error(ret)) + return int_ret; + + for (i = 0; i < UACPI_FIXED_EVENT_MAX; ++i) + { + const struct fixed_event *ev = &fixed_events[i]; + + if (!(status_mask & ev->status_mask) || + !(enable_mask & ev->enable_mask)) + continue; + + int_ret |= dispatch_fixed_event(ev, i); + } + + return int_ret; +} + +struct gpe_native_handler { + uacpi_gpe_handler cb; + uacpi_handle ctx; + + /* + * Preserved values to be used for state restoration if this handler is + * removed at any point. + */ + uacpi_handle previous_handler; + uacpi_u8 previous_triggering : 1; + uacpi_u8 previous_handler_type : 3; + uacpi_u8 previously_enabled : 1; +}; + +struct gpe_implicit_notify_handler { + struct gpe_implicit_notify_handler *next; + uacpi_namespace_node *device; +}; + +#define EVENTS_PER_GPE_REGISTER 8 + +/* + * NOTE: + * This API and handler types are inspired by ACPICA, let's not reinvent the + * wheel and follow a similar path that people ended up finding useful after + * years of dealing with ACPI. Obviously credit goes to them for inventing + * "implicit notify" and other neat API. + */ +enum gpe_handler_type { + GPE_HANDLER_TYPE_NONE = 0, + GPE_HANDLER_TYPE_AML_HANDLER = 1, + GPE_HANDLER_TYPE_NATIVE_HANDLER = 2, + GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW = 3, + GPE_HANDLER_TYPE_IMPLICIT_NOTIFY = 4, +}; + +struct gp_event { + union { + struct gpe_native_handler *native_handler; + struct gpe_implicit_notify_handler *implicit_handler; + uacpi_namespace_node *aml_handler; + uacpi_handle *any_handler; + }; + + struct gpe_register *reg; + uacpi_u16 idx; + + // "reference count" of the number of times this event has been enabled + uacpi_u8 num_users; + + uacpi_u8 handler_type : 3; + uacpi_u8 triggering : 1; + uacpi_u8 wake : 1; + uacpi_u8 block_interrupts : 1; +}; + +struct gpe_register { + uacpi_mapped_gas status; + uacpi_mapped_gas enable; + + uacpi_u8 runtime_mask; + uacpi_u8 wake_mask; + uacpi_u8 masked_mask; + uacpi_u8 current_mask; + + uacpi_u16 base_idx; +}; + +struct gpe_block { + struct gpe_block *prev, *next; + + /* + * Technically this can only refer to \_GPE, but there's also apparently a + * "GPE Block Device" with id "ACPI0006", which is not used by anyone. We + * still keep it as a possibility that someone might eventually use it, so + * it is supported here. + */ + uacpi_namespace_node *device_node; + + struct gpe_register *registers; + struct gp_event *events; + struct gpe_interrupt_ctx *irq_ctx; + + uacpi_u16 num_registers; + uacpi_u16 num_events; + uacpi_u16 base_idx; +}; + +struct gpe_interrupt_ctx { + struct gpe_interrupt_ctx *prev, *next; + + struct gpe_block *gpe_head; + uacpi_handle irq_handle; + uacpi_u32 irq; +}; +static struct gpe_interrupt_ctx *g_gpe_interrupt_head; + +static uacpi_u8 gpe_get_mask(struct gp_event *event) +{ + return 1 << (event->idx - event->reg->base_idx); +} + +enum gpe_state { + GPE_STATE_ENABLED, + GPE_STATE_ENABLED_CONDITIONALLY, + GPE_STATE_DISABLED, +}; + +static uacpi_status set_gpe_state(struct gp_event *event, enum gpe_state state) +{ + uacpi_status ret; + struct gpe_register *reg = event->reg; + uacpi_u64 enable_mask; + uacpi_u8 event_bit; + uacpi_cpu_flags flags; + + event_bit = gpe_get_mask(event); + if (state != GPE_STATE_DISABLED && (reg->masked_mask & event_bit)) + return UACPI_STATUS_OK; + + if (state == GPE_STATE_ENABLED_CONDITIONALLY) { + if (!(reg->current_mask & event_bit)) + return UACPI_STATUS_OK; + + state = GPE_STATE_ENABLED; + } + + flags = uacpi_kernel_lock_spinlock(g_gpe_state_slock); + + ret = uacpi_gas_read_mapped(®->enable, &enable_mask); + if (uacpi_unlikely_error(ret)) + goto out; + + switch (state) { + case GPE_STATE_ENABLED: + enable_mask |= event_bit; + break; + case GPE_STATE_DISABLED: + enable_mask &= ~event_bit; + break; + default: + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + ret = uacpi_gas_write_mapped(®->enable, enable_mask); +out: + uacpi_kernel_unlock_spinlock(g_gpe_state_slock, flags); + return ret; +} + +static uacpi_status clear_gpe(struct gp_event *event) +{ + struct gpe_register *reg = event->reg; + + return uacpi_gas_write_mapped(®->status, gpe_get_mask(event)); +} + +static uacpi_status restore_gpe(struct gp_event *event) +{ + uacpi_status ret; + + if (event->triggering == UACPI_GPE_TRIGGERING_LEVEL) { + ret = clear_gpe(event); + if (uacpi_unlikely_error(ret)) + return ret; + } + + ret = set_gpe_state(event, GPE_STATE_ENABLED_CONDITIONALLY); + event->block_interrupts = UACPI_FALSE; + + return ret; +} + +static void async_restore_gpe(uacpi_handle opaque) +{ + uacpi_status ret; + struct gp_event *event = opaque; + + ret = restore_gpe(event); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to restore GPE(%02X): %s\n", + event->idx, uacpi_status_to_string(ret)); + } +} + +static void async_run_gpe_handler(uacpi_handle opaque) +{ + uacpi_status ret; + struct gp_event *event = opaque; + + ret = uacpi_namespace_write_lock(); + if (uacpi_unlikely_error(ret)) + goto out_no_unlock; + + switch (event->handler_type) { + case GPE_HANDLER_TYPE_AML_HANDLER: { + uacpi_object *method_obj; + uacpi_object_name name; + + method_obj = uacpi_namespace_node_get_object_typed( + event->aml_handler, UACPI_OBJECT_METHOD_BIT + ); + if (uacpi_unlikely(method_obj == UACPI_NULL)) { + uacpi_error("GPE(%02X) AML handler gone\n", event->idx); + break; + } + + name = uacpi_namespace_node_name(event->aml_handler); + uacpi_trace( + "executing GPE(%02X) handler %.4s\n", + event->idx, name.text + ); + + ret = uacpi_execute_control_method( + event->aml_handler, method_obj->method, UACPI_NULL, UACPI_NULL + ); + if (uacpi_unlikely_error(ret)) { + uacpi_error( + "error while executing GPE(%02X) handler %.4s: %s\n", + event->idx, event->aml_handler->name.text, + uacpi_status_to_string(ret) + ); + } + break; + } + + case GPE_HANDLER_TYPE_IMPLICIT_NOTIFY: { + struct gpe_implicit_notify_handler *handler; + + handler = event->implicit_handler; + while (handler) { + /* + * 2 - Device Wake. Used to notify OSPM that the device has signaled + * its wake event, and that OSPM needs to notify OSPM native device + * driver for the device. + */ + uacpi_notify_all(handler->device, 2); + handler = handler->next; + } + break; + } + + default: + break; + } + + uacpi_namespace_write_unlock(); + +out_no_unlock: + /* + * We schedule the work as NOTIFICATION to make sure all other notifications + * finish before this GPE is re-enabled. + */ + ret = uacpi_kernel_schedule_work( + UACPI_WORK_NOTIFICATION, async_restore_gpe, event + ); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to schedule GPE(%02X) restore: %s\n", + event->idx, uacpi_status_to_string(ret)); + async_restore_gpe(event); + } +} + +static uacpi_interrupt_ret dispatch_gpe( + uacpi_namespace_node *device_node, struct gp_event *event +) +{ + uacpi_status ret; + uacpi_interrupt_ret int_ret = UACPI_INTERRUPT_NOT_HANDLED; + + /* + * For raw handlers we don't do any management whatsoever, we just let the + * handler know a GPE has triggered and let it handle disable/enable as + * well as clearing. + */ + if (event->handler_type == GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW) { + return event->native_handler->cb( + event->native_handler->ctx, device_node, event->idx + ); + } + + ret = set_gpe_state(event, GPE_STATE_DISABLED); + if (uacpi_unlikely_error(ret)) { + uacpi_error("failed to disable GPE(%02X): %s\n", + event->idx, uacpi_status_to_string(ret)); + return int_ret; + } + + event->block_interrupts = UACPI_TRUE; + + if (event->triggering == UACPI_GPE_TRIGGERING_EDGE) { + ret = clear_gpe(event); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to clear GPE(%02X): %s\n", + event->idx, uacpi_status_to_string(ret)); + set_gpe_state(event, GPE_STATE_ENABLED_CONDITIONALLY); + return int_ret; + } + } + + switch (event->handler_type) { + case GPE_HANDLER_TYPE_NATIVE_HANDLER: + int_ret = event->native_handler->cb( + event->native_handler->ctx, device_node, event->idx + ); + if (!(int_ret & UACPI_GPE_REENABLE)) + break; + + ret = restore_gpe(event); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to restore GPE(%02X): %s\n", + event->idx, uacpi_status_to_string(ret)); + } + break; + + case GPE_HANDLER_TYPE_AML_HANDLER: + case GPE_HANDLER_TYPE_IMPLICIT_NOTIFY: + ret = uacpi_kernel_schedule_work( + UACPI_WORK_GPE_EXECUTION, async_run_gpe_handler, event + ); + if (uacpi_unlikely_error(ret)) { + uacpi_warn( + "unable to schedule GPE(%02X) for execution: %s\n", + event->idx, uacpi_status_to_string(ret) + ); + } + break; + + default: + uacpi_warn("GPE(%02X) fired but no handler, keeping disabled\n", + event->idx); + break; + } + + return UACPI_INTERRUPT_HANDLED; +} + +static uacpi_interrupt_ret detect_gpes(struct gpe_block *block) +{ + uacpi_status ret; + uacpi_interrupt_ret int_ret = UACPI_INTERRUPT_NOT_HANDLED; + struct gpe_register *reg; + struct gp_event *event; + uacpi_u64 status, enable; + uacpi_size i, j; + + while (block) { + for (i = 0; i < block->num_registers; ++i) { + reg = &block->registers[i]; + + if (!reg->runtime_mask && !reg->wake_mask) + continue; + + ret = uacpi_gas_read_mapped(®->status, &status); + if (uacpi_unlikely_error(ret)) + return int_ret; + + ret = uacpi_gas_read_mapped(®->enable, &enable); + if (uacpi_unlikely_error(ret)) + return int_ret; + + if (status == 0) + continue; + + for (j = 0; j < EVENTS_PER_GPE_REGISTER; ++j) { + if (!((status & enable) & (1ull << j))) + continue; + + event = &block->events[j + i * EVENTS_PER_GPE_REGISTER]; + int_ret |= dispatch_gpe(block->device_node, event); + } + } + + block = block->next; + } + + return int_ret; +} + +static uacpi_status maybe_dispatch_gpe( + uacpi_namespace_node *gpe_device, struct gp_event *event +) +{ + uacpi_status ret; + struct gpe_register *reg = event->reg; + uacpi_u64 status; + + ret = uacpi_gas_read_mapped(®->status, &status); + if (uacpi_unlikely_error(ret)) + return ret; + + if (!(status & gpe_get_mask(event))) + return ret; + + dispatch_gpe(gpe_device, event); + return ret; +} + +static uacpi_interrupt_ret handle_gpes(uacpi_handle opaque) +{ + struct gpe_interrupt_ctx *ctx = opaque; + + if (uacpi_unlikely(ctx == UACPI_NULL)) + return UACPI_INTERRUPT_NOT_HANDLED; + + return detect_gpes(ctx->gpe_head); +} + +static uacpi_status find_or_create_gpe_interrupt_ctx( + uacpi_u32 irq, struct gpe_interrupt_ctx **out_ctx +) +{ + uacpi_status ret; + struct gpe_interrupt_ctx *entry = g_gpe_interrupt_head; + + while (entry) { + if (entry->irq == irq) { + *out_ctx = entry; + return UACPI_STATUS_OK; + } + + entry = entry->next; + } + + entry = uacpi_kernel_alloc_zeroed(sizeof(*entry)); + if (uacpi_unlikely(entry == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + /* + * SCI interrupt is installed by other code and is responsible for more + * things than just the GPE handling. Don't install it here. + */ + if (irq != g_uacpi_rt_ctx.fadt.sci_int) { + ret = uacpi_kernel_install_interrupt_handler( + irq, handle_gpes, entry, &entry->irq_handle + ); + if (uacpi_unlikely_error(ret)) { + uacpi_free(entry, sizeof(*entry)); + return ret; + } + } + + entry->irq = irq; + entry->next = g_gpe_interrupt_head; + g_gpe_interrupt_head = entry; + + *out_ctx = entry; + return UACPI_STATUS_OK; +} + +static void gpe_release_implicit_notify_handlers(struct gp_event *event) +{ + struct gpe_implicit_notify_handler *handler, *next_handler; + + handler = event->implicit_handler; + while (handler) { + next_handler = handler->next; + uacpi_free(handler, sizeof(*handler)); + handler = next_handler; + } + + event->implicit_handler = UACPI_NULL; +} + +enum gpe_block_action +{ + GPE_BLOCK_ACTION_DISABLE_ALL, + GPE_BLOCK_ACTION_ENABLE_ALL_FOR_RUNTIME, + GPE_BLOCK_ACTION_ENABLE_ALL_FOR_WAKE, + GPE_BLOCK_ACTION_CLEAR_ALL, +}; + +static uacpi_status gpe_block_apply_action( + struct gpe_block *block, enum gpe_block_action action +) +{ + uacpi_status ret; + uacpi_size i; + uacpi_u8 value; + struct gpe_register *reg; + + for (i = 0; i < block->num_registers; ++i) { + reg = &block->registers[i]; + + switch (action) { + case GPE_BLOCK_ACTION_DISABLE_ALL: + value = 0; + break; + case GPE_BLOCK_ACTION_ENABLE_ALL_FOR_RUNTIME: + value = reg->runtime_mask & ~reg->masked_mask; + break; + case GPE_BLOCK_ACTION_ENABLE_ALL_FOR_WAKE: + value = reg->wake_mask; + break; + case GPE_BLOCK_ACTION_CLEAR_ALL: + ret = uacpi_gas_write_mapped(®->status, 0xFF); + if (uacpi_unlikely_error(ret)) + return ret; + continue; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + reg->current_mask = value; + ret = uacpi_gas_write_mapped(®->enable, value); + if (uacpi_unlikely_error(ret)) + return ret; + } + + return UACPI_STATUS_OK; +} + +static void gpe_block_mask_safe(struct gpe_block *block) +{ + uacpi_size i; + struct gpe_register *reg; + + for (i = 0; i < block->num_registers; ++i) { + reg = &block->registers[i]; + + // No need to flush or do anything if it's not currently enabled + if (!reg->current_mask) + continue; + + // 1. Mask the GPEs, this makes sure their state is no longer modifyable + reg->masked_mask = 0xFF; + + /* + * 2. Wait for in-flight work & IRQs to finish, these might already + * be past the respective "if (masked)" check and therefore may + * try to re-enable a masked GPE. + */ + uacpi_kernel_wait_for_work_completion(); + + /* + * 3. Now that this GPE's state is unmodifyable and we know that + * currently in-flight IRQs will see the masked state, we can + * safely disable all events knowing they won't be re-enabled by + * a racing IRQ. + */ + uacpi_gas_write_mapped(®->enable, 0x00); + + /* + * 4. Wait for the last possible IRQ to finish, now that this event is + * disabled. + */ + uacpi_kernel_wait_for_work_completion(); + } +} + +static void uninstall_gpe_block(struct gpe_block *block) +{ + if (block->registers != UACPI_NULL) { + struct gpe_register *reg; + uacpi_size i; + + gpe_block_mask_safe(block); + + for (i = 0; i < block->num_registers; ++i) { + reg = &block->registers[i]; + + if (reg->enable.total_bit_width) + uacpi_unmap_gas_nofree(®->enable); + if (reg->status.total_bit_width) + uacpi_unmap_gas_nofree(®->status); + } + } + + if (block->prev) + block->prev->next = block->next; + + if (block->irq_ctx) { + struct gpe_interrupt_ctx *ctx = block->irq_ctx; + + // Are we the first GPE block? + if (block == ctx->gpe_head) { + ctx->gpe_head = ctx->gpe_head->next; + } else { + struct gpe_block *prev_block = ctx->gpe_head; + + // We're not, do a search + while (prev_block) { + if (prev_block->next == block) { + prev_block->next = block->next; + break; + } + + prev_block = prev_block->next; + } + } + + // This GPE block was the last user of this interrupt context, remove it + if (ctx->gpe_head == UACPI_NULL) { + if (ctx->prev) + ctx->prev->next = ctx->next; + + if (ctx->irq != g_uacpi_rt_ctx.fadt.sci_int) { + uacpi_kernel_uninstall_interrupt_handler( + handle_gpes, ctx->irq_handle + ); + } + + uacpi_free(block->irq_ctx, sizeof(*block->irq_ctx)); + } + } + + if (block->events != UACPI_NULL) { + uacpi_size i; + struct gp_event *event; + + for (i = 0; i < block->num_events; ++i) { + event = &block->events[i]; + + switch (event->handler_type) { + case GPE_HANDLER_TYPE_NONE: + case GPE_HANDLER_TYPE_AML_HANDLER: + break; + + case GPE_HANDLER_TYPE_NATIVE_HANDLER: + case GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW: + uacpi_free(event->native_handler, + sizeof(*event->native_handler)); + break; + + case GPE_HANDLER_TYPE_IMPLICIT_NOTIFY: { + gpe_release_implicit_notify_handlers(event); + break; + } + + default: + break; + } + } + + } + + uacpi_free(block->registers, + sizeof(*block->registers) * block->num_registers); + uacpi_free(block->events, + sizeof(*block->events) * block->num_events); + uacpi_free(block, sizeof(*block)); +} + +static struct gp_event *gpe_from_block(struct gpe_block *block, uacpi_u16 idx) +{ + uacpi_u16 offset; + + if (idx < block->base_idx) + return UACPI_NULL; + + offset = idx - block->base_idx; + if (offset > block->num_events) + return UACPI_NULL; + + return &block->events[offset]; +} + +struct gpe_match_ctx { + struct gpe_block *block; + uacpi_u32 matched_count; + uacpi_bool post_dynamic_table_load; +}; + +static uacpi_iteration_decision do_match_gpe_methods( + uacpi_handle opaque, uacpi_namespace_node *node, uacpi_u32 depth +) +{ + uacpi_status ret; + struct gpe_match_ctx *ctx = opaque; + struct gp_event *event; + uacpi_u8 triggering; + uacpi_u64 idx; + + UACPI_UNUSED(depth); + + if (node->name.text[0] != '_') + return UACPI_ITERATION_DECISION_CONTINUE; + + switch (node->name.text[1]) { + case 'L': + triggering = UACPI_GPE_TRIGGERING_LEVEL; + break; + case 'E': + triggering = UACPI_GPE_TRIGGERING_EDGE; + break; + default: + return UACPI_ITERATION_DECISION_CONTINUE; + } + + ret = uacpi_string_to_integer(&node->name.text[2], 2, UACPI_BASE_HEX, &idx); + if (uacpi_unlikely_error(ret)) { + uacpi_trace("invalid GPE method name %.4s, ignored\n", node->name.text); + return UACPI_ITERATION_DECISION_CONTINUE; + } + + event = gpe_from_block(ctx->block, idx); + if (event == UACPI_NULL) + return UACPI_ITERATION_DECISION_CONTINUE; + + switch (event->handler_type) { + /* + * This had implicit notify configured but this is no longer needed as we + * now have an actual AML handler. Free the implicit notify list and switch + * this handler to AML mode. + */ + case GPE_HANDLER_TYPE_IMPLICIT_NOTIFY: + gpe_release_implicit_notify_handlers(event); + UACPI_FALLTHROUGH; + case GPE_HANDLER_TYPE_NONE: + event->aml_handler = node; + event->handler_type = GPE_HANDLER_TYPE_AML_HANDLER; + break; + + case GPE_HANDLER_TYPE_AML_HANDLER: + // This is okay, since we're re-running the detection code + if (!ctx->post_dynamic_table_load) { + uacpi_warn( + "GPE(%02X) already matched %.4s, skipping %.4s\n", + (uacpi_u32)idx, event->aml_handler->name.text, node->name.text + ); + } + return UACPI_ITERATION_DECISION_CONTINUE; + + case GPE_HANDLER_TYPE_NATIVE_HANDLER: + case GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW: + uacpi_trace( + "not assigning GPE(%02X) to %.4s, override " + "installed by user\n", (uacpi_u32)idx, node->name.text + ); + UACPI_FALLTHROUGH; + default: + return UACPI_ITERATION_DECISION_CONTINUE; + } + + uacpi_trace("assigned GPE(%02X) -> %.4s\n", + (uacpi_u32)idx, node->name.text); + event->triggering = triggering; + ctx->matched_count++; + + return UACPI_ITERATION_DECISION_CONTINUE; +} + +void uacpi_events_match_post_dynamic_table_load(void) +{ + struct gpe_match_ctx match_ctx = { + .post_dynamic_table_load = UACPI_TRUE, + }; + struct gpe_interrupt_ctx *irq_ctx; + + uacpi_namespace_write_unlock(); + + if (uacpi_unlikely_error(uacpi_recursive_lock_acquire(&g_event_lock))) + goto out; + + irq_ctx = g_gpe_interrupt_head; + + while (irq_ctx) { + match_ctx.block = irq_ctx->gpe_head; + + while (match_ctx.block) { + uacpi_namespace_do_for_each_child( + match_ctx.block->device_node, do_match_gpe_methods, UACPI_NULL, + UACPI_OBJECT_METHOD_BIT, UACPI_MAX_DEPTH_ANY, + UACPI_SHOULD_LOCK_YES, UACPI_PERMANENT_ONLY_YES, &match_ctx + ); + match_ctx.block = match_ctx.block->next; + } + + irq_ctx = irq_ctx->next; + } + + if (match_ctx.matched_count) { + uacpi_info("matched %u additional GPEs post dynamic table load\n", + match_ctx.matched_count); + } + +out: + uacpi_recursive_lock_release(&g_event_lock); + uacpi_namespace_write_lock(); +} + +static uacpi_status create_gpe_block( + uacpi_namespace_node *device_node, uacpi_u32 irq, uacpi_u16 base_idx, + uacpi_u64 address, uacpi_u8 address_space_id, uacpi_u16 num_registers +) +{ + uacpi_status ret = UACPI_STATUS_OUT_OF_MEMORY; + struct gpe_match_ctx match_ctx = { 0 }; + struct gpe_block *block; + struct gpe_register *reg; + struct gp_event *event; + struct acpi_gas tmp_gas = { 0 }; + uacpi_size i, j; + + tmp_gas.address_space_id = address_space_id; + tmp_gas.register_bit_width = 8; + + block = uacpi_kernel_alloc_zeroed(sizeof(*block)); + if (uacpi_unlikely(block == UACPI_NULL)) + return ret; + + block->device_node = device_node; + block->base_idx = base_idx; + + block->num_registers = num_registers; + block->registers = uacpi_kernel_alloc_zeroed( + num_registers * sizeof(*block->registers) + ); + if (uacpi_unlikely(block->registers == UACPI_NULL)) + goto error_out; + + block->num_events = num_registers * EVENTS_PER_GPE_REGISTER; + block->events = uacpi_kernel_alloc_zeroed( + block->num_events * sizeof(*block->events) + ); + if (uacpi_unlikely(block->events == UACPI_NULL)) + goto error_out; + + for (reg = block->registers, event = block->events, i = 0; + i < num_registers; ++i, ++reg) { + + /* + * Initialize this register pair as well as all the events within it. + * + * Each register has two sub registers: status & enable, 8 bits each. + * Each bit corresponds to one event that we initialize below. + */ + reg->base_idx = base_idx + (i * EVENTS_PER_GPE_REGISTER); + + + tmp_gas.address = address + i; + ret = uacpi_map_gas_noalloc(&tmp_gas, ®->status); + if (uacpi_unlikely_error(ret)) + goto error_out; + + tmp_gas.address += num_registers; + ret = uacpi_map_gas_noalloc(&tmp_gas, ®->enable); + if (uacpi_unlikely_error(ret)) + goto error_out; + + for (j = 0; j < EVENTS_PER_GPE_REGISTER; ++j, ++event) { + event->idx = reg->base_idx + j; + event->reg = reg; + } + + /* + * Disable all GPEs in this register & clear anything that might be + * pending from earlier. + */ + ret = uacpi_gas_write_mapped(®->enable, 0x00); + if (uacpi_unlikely_error(ret)) + goto error_out; + + ret = uacpi_gas_write_mapped(®->status, 0xFF); + if (uacpi_unlikely_error(ret)) + goto error_out; + } + + ret = find_or_create_gpe_interrupt_ctx(irq, &block->irq_ctx); + if (uacpi_unlikely_error(ret)) + goto error_out; + + block->next = block->irq_ctx->gpe_head; + block->irq_ctx->gpe_head = block; + match_ctx.block = block; + + uacpi_namespace_do_for_each_child( + device_node, do_match_gpe_methods, UACPI_NULL, + UACPI_OBJECT_METHOD_BIT, UACPI_MAX_DEPTH_ANY, + UACPI_SHOULD_LOCK_YES, UACPI_PERMANENT_ONLY_YES, &match_ctx + ); + + uacpi_trace("initialized GPE block %.4s[%d->%d], %d AML handlers (IRQ %d)\n", + device_node->name.text, base_idx, base_idx + block->num_events, + match_ctx.matched_count, irq); + return UACPI_STATUS_OK; + +error_out: + uninstall_gpe_block(block); + return ret; +} + +typedef uacpi_iteration_decision (*gpe_block_iteration_callback) + (struct gpe_block*, uacpi_handle); + +static void for_each_gpe_block( + gpe_block_iteration_callback cb, uacpi_handle handle +) +{ + uacpi_iteration_decision decision; + struct gpe_interrupt_ctx *irq_ctx = g_gpe_interrupt_head; + struct gpe_block *block; + + while (irq_ctx) { + block = irq_ctx->gpe_head; + + while (block) { + decision = cb(block, handle); + if (decision == UACPI_ITERATION_DECISION_BREAK) + return; + + block = block->next; + } + + irq_ctx = irq_ctx->next; + } +} + +struct gpe_search_ctx { + uacpi_namespace_node *gpe_device; + uacpi_u16 idx; + struct gpe_block *out_block; + struct gp_event *out_event; +}; + +static uacpi_iteration_decision do_find_gpe( + struct gpe_block *block, uacpi_handle opaque +) +{ + struct gpe_search_ctx *ctx = opaque; + + if (block->device_node != ctx->gpe_device) + return UACPI_ITERATION_DECISION_CONTINUE; + + ctx->out_block = block; + ctx->out_event = gpe_from_block(block, ctx->idx); + if (ctx->out_event == UACPI_NULL) + return UACPI_ITERATION_DECISION_CONTINUE; + + return UACPI_ITERATION_DECISION_BREAK; +} + +static struct gp_event *get_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + struct gpe_search_ctx ctx = { 0 }; + + ctx.gpe_device = gpe_device; + ctx.idx = idx; + + for_each_gpe_block(do_find_gpe, &ctx); + return ctx.out_event; +} + +static void gp_event_toggle_masks(struct gp_event *event, uacpi_bool set_on) +{ + uacpi_u8 this_mask; + struct gpe_register *reg = event->reg; + + this_mask = gpe_get_mask(event); + + if (set_on) { + reg->runtime_mask |= this_mask; + reg->current_mask = reg->runtime_mask; + return; + } + + reg->runtime_mask &= ~this_mask; + reg->current_mask = reg->runtime_mask; +} + +static uacpi_status gpe_remove_user(struct gp_event *event) +{ + uacpi_status ret = UACPI_STATUS_OK; + + if (uacpi_unlikely(event->num_users == 0)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (--event->num_users == 0) { + gp_event_toggle_masks(event, UACPI_FALSE); + + ret = set_gpe_state(event, GPE_STATE_DISABLED); + if (uacpi_unlikely_error(ret)) { + gp_event_toggle_masks(event, UACPI_TRUE); + event->num_users++; + } + } + + return ret; +} + +enum event_clear_if_first { + EVENT_CLEAR_IF_FIRST_YES, + EVENT_CLEAR_IF_FIRST_NO, +}; + +static uacpi_status gpe_add_user( + struct gp_event *event, enum event_clear_if_first clear_if_first +) +{ + uacpi_status ret = UACPI_STATUS_OK; + + if (uacpi_unlikely(event->num_users == 0xFF)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (++event->num_users == 1) { + if (clear_if_first == EVENT_CLEAR_IF_FIRST_YES) + clear_gpe(event); + + gp_event_toggle_masks(event, UACPI_TRUE); + + ret = set_gpe_state(event, GPE_STATE_ENABLED); + if (uacpi_unlikely_error(ret)) { + gp_event_toggle_masks(event, UACPI_FALSE); + event->num_users--; + } + } + + return ret; +} + +const uacpi_char *uacpi_gpe_triggering_to_string( + uacpi_gpe_triggering triggering +) +{ + switch (triggering) { + case UACPI_GPE_TRIGGERING_EDGE: + return "edge"; + case UACPI_GPE_TRIGGERING_LEVEL: + return "level"; + default: + return "invalid"; + } +} + +static uacpi_bool gpe_needs_polling(struct gp_event *event) +{ + return event->num_users && event->triggering == UACPI_GPE_TRIGGERING_EDGE; +} + +static uacpi_status gpe_mask_unmask( + struct gp_event *event, uacpi_bool should_mask +) +{ + struct gpe_register *reg; + uacpi_u8 mask; + + reg = event->reg; + mask = gpe_get_mask(event); + + if (should_mask) { + if (reg->masked_mask & mask) + return UACPI_STATUS_INVALID_ARGUMENT; + + // 1. Mask the GPE, this makes sure its state is no longer modifyable + reg->masked_mask |= mask; + + /* + * 2. Wait for in-flight work & IRQs to finish, these might already + * be past the respective "if (masked)" check and therefore may + * try to re-enable a masked GPE. + */ + uacpi_kernel_wait_for_work_completion(); + + /* + * 3. Now that this GPE's state is unmodifyable and we know that currently + * in-flight IRQs will see the masked state, we can safely disable this + * event knowing it won't be re-enabled by a racing IRQ. + */ + set_gpe_state(event, GPE_STATE_DISABLED); + + /* + * 4. Wait for the last possible IRQ to finish, now that this event is + * disabled. + */ + uacpi_kernel_wait_for_work_completion(); + + return UACPI_STATUS_OK; + } + + if (!(reg->masked_mask & mask)) + return UACPI_STATUS_INVALID_ARGUMENT; + + reg->masked_mask &= ~mask; + if (!event->block_interrupts && event->num_users) + set_gpe_state(event, GPE_STATE_ENABLED_CONDITIONALLY); + + return UACPI_STATUS_OK; +} + +/* + * Safely mask the event before we modify its handlers. + * + * This makes sure we can't get an IRQ in the middle of modifying this + * event's structures. + */ +static uacpi_bool gpe_mask_safe(struct gp_event *event) +{ + // No need to flush or do anything if it's not currently enabled + if (!(event->reg->current_mask & gpe_get_mask(event))) + return UACPI_FALSE; + + gpe_mask_unmask(event, UACPI_TRUE); + return UACPI_TRUE; +} + +static uacpi_iteration_decision do_initialize_gpe_block( + struct gpe_block *block, uacpi_handle opaque +) +{ + uacpi_status ret; + uacpi_bool *poll_blocks = opaque; + uacpi_size i, j, count_enabled = 0; + struct gp_event *event; + + for (i = 0; i < block->num_registers; ++i) { + for (j = 0; j < EVENTS_PER_GPE_REGISTER; ++j) { + event = &block->events[j + i * EVENTS_PER_GPE_REGISTER]; + + if (event->wake || + event->handler_type != GPE_HANDLER_TYPE_AML_HANDLER) + continue; + + ret = gpe_add_user(event, EVENT_CLEAR_IF_FIRST_NO); + if (uacpi_unlikely_error(ret)) { + uacpi_warn("failed to enable GPE(%02X): %s\n", + event->idx, uacpi_status_to_string(ret)); + continue; + } + + *poll_blocks |= gpe_needs_polling(event); + count_enabled++; + } + } + + if (count_enabled) { + uacpi_info( + "enabled %zu GPEs in block %.4s@[%d->%d]\n", + count_enabled, block->device_node->name.text, + block->base_idx, block->base_idx + block->num_events + ); + } + return UACPI_ITERATION_DECISION_CONTINUE; +} + +uacpi_status uacpi_finalize_gpe_initialization(void) +{ + uacpi_status ret; + uacpi_bool poll_blocks = UACPI_FALSE; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + if (g_gpes_finalized) + goto out; + + g_gpes_finalized = UACPI_TRUE; + + for_each_gpe_block(do_initialize_gpe_block, &poll_blocks); + if (poll_blocks) + detect_gpes(g_gpe_interrupt_head->gpe_head); + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +static uacpi_status sanitize_device_and_find_gpe( + uacpi_namespace_node **gpe_device, uacpi_u16 idx, + struct gp_event **out_event +) +{ + if (*gpe_device == UACPI_NULL) { + *gpe_device = uacpi_namespace_get_predefined( + UACPI_PREDEFINED_NAMESPACE_GPE + ); + } + + *out_event = get_gpe(*gpe_device, idx); + if (*out_event == UACPI_NULL) + return UACPI_STATUS_NOT_FOUND; + + return UACPI_STATUS_OK; +} + +static uacpi_status do_install_gpe_handler( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_gpe_triggering triggering, enum gpe_handler_type type, + uacpi_gpe_handler handler, uacpi_handle ctx +) +{ + uacpi_status ret; + struct gp_event *event; + struct gpe_native_handler *native_handler; + uacpi_bool did_mask; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + if (uacpi_unlikely(triggering > UACPI_GPE_TRIGGERING_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + if (event->handler_type == GPE_HANDLER_TYPE_NATIVE_HANDLER || + event->handler_type == GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW) { + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + + native_handler = uacpi_kernel_alloc(sizeof(*native_handler)); + if (uacpi_unlikely(native_handler == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + + native_handler->cb = handler; + native_handler->ctx = ctx; + native_handler->previous_handler = event->any_handler; + native_handler->previous_handler_type = event->handler_type; + native_handler->previous_triggering = event->triggering; + native_handler->previously_enabled = UACPI_FALSE; + + did_mask = gpe_mask_safe(event); + + if ((event->handler_type == GPE_HANDLER_TYPE_AML_HANDLER || + event->handler_type == GPE_HANDLER_TYPE_IMPLICIT_NOTIFY) && + event->num_users != 0) { + native_handler->previously_enabled = UACPI_TRUE; + gpe_remove_user(event); + + if (uacpi_unlikely(event->triggering != triggering)) { + uacpi_warn( + "GPE(%02X) user handler claims %s triggering, originally " + "configured as %s\n", idx, + uacpi_gpe_triggering_to_string(triggering), + uacpi_gpe_triggering_to_string(event->triggering) + ); + } + } + + event->native_handler = native_handler; + event->handler_type = type; + event->triggering = triggering; + + if (did_mask) + gpe_mask_unmask(event, UACPI_FALSE); +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_install_gpe_handler( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_gpe_triggering triggering, uacpi_gpe_handler handler, + uacpi_handle ctx +) +{ + return do_install_gpe_handler( + gpe_device, idx, triggering, GPE_HANDLER_TYPE_NATIVE_HANDLER, + handler, ctx + ); +} + +uacpi_status uacpi_install_gpe_handler_raw( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_gpe_triggering triggering, uacpi_gpe_handler handler, + uacpi_handle ctx +) +{ + return do_install_gpe_handler( + gpe_device, idx, triggering, GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW, + handler, ctx + ); +} + +uacpi_status uacpi_uninstall_gpe_handler( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_gpe_handler handler +) +{ + uacpi_status ret; + struct gp_event *event; + struct gpe_native_handler *native_handler; + uacpi_bool did_mask; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + if (event->handler_type != GPE_HANDLER_TYPE_NATIVE_HANDLER && + event->handler_type != GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW) { + ret = UACPI_STATUS_NOT_FOUND; + goto out; + } + + native_handler = event->native_handler; + if (uacpi_unlikely(native_handler->cb != handler)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + did_mask = gpe_mask_safe(event); + + event->aml_handler = native_handler->previous_handler; + event->triggering = native_handler->previous_triggering; + event->handler_type = native_handler->previous_handler_type; + + if ((event->handler_type == GPE_HANDLER_TYPE_AML_HANDLER || + event->handler_type == GPE_HANDLER_TYPE_IMPLICIT_NOTIFY) && + native_handler->previously_enabled) { + gpe_add_user(event, EVENT_CLEAR_IF_FIRST_NO); + } + + uacpi_free(native_handler, sizeof(*native_handler)); + + if (did_mask) + gpe_mask_unmask(event, UACPI_FALSE); + + if (gpe_needs_polling(event)) + maybe_dispatch_gpe(gpe_device, event); +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_enable_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + uacpi_status ret; + struct gp_event *event; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + if (uacpi_unlikely(event->handler_type == GPE_HANDLER_TYPE_NONE)) { + ret = UACPI_STATUS_NO_HANDLER; + goto out; + } + + ret = gpe_add_user(event, EVENT_CLEAR_IF_FIRST_YES); + if (uacpi_unlikely_error(ret)) + goto out; + + if (gpe_needs_polling(event)) + maybe_dispatch_gpe(gpe_device, event); + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_disable_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + uacpi_status ret; + struct gp_event *event; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + ret = gpe_remove_user(event); +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_clear_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + uacpi_status ret; + struct gp_event *event; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + ret = clear_gpe(event); +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +static uacpi_status gpe_suspend_resume( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, enum gpe_state state +) +{ + uacpi_status ret; + struct gp_event *event; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + event->block_interrupts = state == GPE_STATE_DISABLED; + ret = set_gpe_state(event, state); +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_suspend_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + return gpe_suspend_resume(gpe_device, idx, GPE_STATE_DISABLED); +} + +uacpi_status uacpi_resume_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + return gpe_suspend_resume(gpe_device, idx, GPE_STATE_ENABLED); +} + +uacpi_status uacpi_finish_handling_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + uacpi_status ret; + struct gp_event *event; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + event = get_gpe(gpe_device, idx); + if (uacpi_unlikely(event == UACPI_NULL)) { + ret = UACPI_STATUS_NOT_FOUND; + goto out; + } + + ret = restore_gpe(event); +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; + +} + +static uacpi_status gpe_get_mask_unmask( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, uacpi_bool should_mask +) +{ + uacpi_status ret; + struct gp_event *event; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + ret = gpe_mask_unmask(event, should_mask); + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_mask_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + return gpe_get_mask_unmask(gpe_device, idx, UACPI_TRUE); +} + +uacpi_status uacpi_unmask_gpe( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + return gpe_get_mask_unmask(gpe_device, idx, UACPI_FALSE); +} + +uacpi_status uacpi_setup_gpe_for_wake( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, + uacpi_namespace_node *wake_device +) +{ + uacpi_status ret; + struct gp_event *event; + uacpi_bool did_mask; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + if (wake_device != UACPI_NULL) { + uacpi_bool is_dev = wake_device == uacpi_namespace_root(); + + if (!is_dev) { + ret = uacpi_namespace_node_is(wake_device, UACPI_OBJECT_DEVICE, &is_dev); + if (uacpi_unlikely_error(ret)) + return ret; + } + + if (!is_dev) + return UACPI_STATUS_INVALID_ARGUMENT; + } + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + did_mask = gpe_mask_safe(event); + + if (wake_device != UACPI_NULL) { + switch (event->handler_type) { + case GPE_HANDLER_TYPE_NONE: + event->handler_type = GPE_HANDLER_TYPE_IMPLICIT_NOTIFY; + event->triggering = UACPI_GPE_TRIGGERING_LEVEL; + break; + + case GPE_HANDLER_TYPE_AML_HANDLER: + /* + * An AML handler already exists, we expect it to call Notify() as + * it sees fit. For now just make sure this event is disabled if it + * had been enabled automatically previously during initialization. + */ + gpe_remove_user(event); + break; + + case GPE_HANDLER_TYPE_NATIVE_HANDLER_RAW: + case GPE_HANDLER_TYPE_NATIVE_HANDLER: + uacpi_warn( + "not configuring implicit notify for GPE(%02X) -> %.4s: " + " a user handler already installed\n", event->idx, + wake_device->name.text + ); + break; + + // We will re-check this below + case GPE_HANDLER_TYPE_IMPLICIT_NOTIFY: + break; + + default: + uacpi_warn("invalid GPE(%02X) handler type: %d\n", + event->idx, event->handler_type); + ret = UACPI_STATUS_INTERNAL_ERROR; + goto out_unmask; + } + + /* + * This GPE has no known AML handler, so we configure it to receive + * implicit notifications for wake devices when we get a corresponding + * GPE triggered. Usually it's the job of a matching AML handler, but + * we didn't find any. + */ + if (event->handler_type == GPE_HANDLER_TYPE_IMPLICIT_NOTIFY) { + struct gpe_implicit_notify_handler *implicit_handler; + + implicit_handler = event->implicit_handler; + while (implicit_handler) { + if (implicit_handler->device == wake_device) { + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out_unmask; + } + + implicit_handler = implicit_handler->next; + } + + implicit_handler = uacpi_kernel_alloc(sizeof(*implicit_handler)); + if (uacpi_likely(implicit_handler != UACPI_NULL)) { + implicit_handler->device = wake_device; + implicit_handler->next = event->implicit_handler; + event->implicit_handler = implicit_handler; + } else { + uacpi_warn( + "unable to configure implicit wake for GPE(%02X) -> %.4s: " + "out of memory\n", event->idx, wake_device->name.text + ); + } + } + } + + event->wake = UACPI_TRUE; + +out_unmask: + if (did_mask) + gpe_mask_unmask(event, UACPI_FALSE); +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +static uacpi_status gpe_enable_disable_for_wake( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, uacpi_bool enabled +) +{ + uacpi_status ret; + struct gp_event *event; + struct gpe_register *reg; + uacpi_u8 mask; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + if (!event->wake) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + reg = event->reg; + mask = gpe_get_mask(event); + + if (enabled) + reg->wake_mask |= mask; + else + reg->wake_mask &= mask; + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_enable_gpe_for_wake( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + return gpe_enable_disable_for_wake(gpe_device, idx, UACPI_TRUE); +} + +uacpi_status uacpi_disable_gpe_for_wake( + uacpi_namespace_node *gpe_device, uacpi_u16 idx +) +{ + return gpe_enable_disable_for_wake(gpe_device, idx, UACPI_FALSE); +} + +struct do_for_all_gpes_ctx { + enum gpe_block_action action; + uacpi_status ret; +}; + +static uacpi_iteration_decision do_for_all_gpes( + struct gpe_block *block, uacpi_handle opaque +) +{ + struct do_for_all_gpes_ctx *ctx = opaque; + + ctx->ret = gpe_block_apply_action(block, ctx->action); + if (uacpi_unlikely_error(ctx->ret)) + return UACPI_ITERATION_DECISION_BREAK; + + return UACPI_ITERATION_DECISION_CONTINUE; +} + +static uacpi_status for_all_gpes_locked(struct do_for_all_gpes_ctx *ctx) +{ + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + for_each_gpe_block(do_for_all_gpes, ctx); + + uacpi_recursive_lock_release(&g_event_lock); + return ctx->ret; +} + +uacpi_status uacpi_disable_all_gpes(void) +{ + struct do_for_all_gpes_ctx ctx = { + .action = GPE_BLOCK_ACTION_DISABLE_ALL, + }; + return for_all_gpes_locked(&ctx); +} + +uacpi_status uacpi_enable_all_runtime_gpes(void) +{ + struct do_for_all_gpes_ctx ctx = { + .action = GPE_BLOCK_ACTION_ENABLE_ALL_FOR_RUNTIME, + }; + return for_all_gpes_locked(&ctx); +} + +uacpi_status uacpi_enable_all_wake_gpes(void) +{ + struct do_for_all_gpes_ctx ctx = { + .action = GPE_BLOCK_ACTION_ENABLE_ALL_FOR_WAKE, + }; + return for_all_gpes_locked(&ctx); +} + +static uacpi_status initialize_gpes(void) +{ + uacpi_status ret; + uacpi_namespace_node *gpe_node; + struct acpi_fadt *fadt = &g_uacpi_rt_ctx.fadt; + uacpi_u8 gpe0_regs = 0, gpe1_regs = 0; + + gpe_node = uacpi_namespace_get_predefined(UACPI_PREDEFINED_NAMESPACE_GPE); + + if (fadt->x_gpe0_blk.address && fadt->gpe0_blk_len) { + gpe0_regs = fadt->gpe0_blk_len / 2; + + ret = create_gpe_block( + gpe_node, fadt->sci_int, 0, fadt->x_gpe0_blk.address, + fadt->x_gpe0_blk.address_space_id, gpe0_regs + ); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to create FADT GPE block 0: %s\n", + uacpi_status_to_string(ret)); + } + } + + if (fadt->x_gpe1_blk.address && fadt->gpe1_blk_len) { + gpe1_regs = fadt->gpe1_blk_len / 2; + + if (uacpi_unlikely((gpe0_regs * EVENTS_PER_GPE_REGISTER) > + fadt->gpe1_base)) { + uacpi_error( + "FADT GPE block 1 [%d->%d] collides with GPE block 0 " + "[%d->%d], ignoring\n", + 0, gpe0_regs * EVENTS_PER_GPE_REGISTER, fadt->gpe1_base, + gpe1_regs * EVENTS_PER_GPE_REGISTER + ); + gpe1_regs = 0; + goto out; + } + + ret = create_gpe_block( + gpe_node, fadt->sci_int, fadt->gpe1_base, fadt->x_gpe1_blk.address, + fadt->x_gpe1_blk.address_space_id, gpe1_regs + ); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to create FADT GPE block 1: %s\n", + uacpi_status_to_string(ret)); + } + } + + if (gpe0_regs == 0 && gpe1_regs == 0) + uacpi_trace("platform has no FADT GPE events\n"); + +out: + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_install_gpe_block( + uacpi_namespace_node *gpe_device, uacpi_u64 address, + uacpi_address_space address_space, uacpi_u16 num_registers, uacpi_u32 irq +) +{ + uacpi_status ret; + uacpi_bool is_dev; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_namespace_node_is(gpe_device, UACPI_OBJECT_DEVICE, &is_dev); + if (uacpi_unlikely_error(ret)) + return ret; + if (!is_dev) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + if (uacpi_unlikely(get_gpe(gpe_device, 0) != UACPI_NULL)) { + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + + ret = create_gpe_block( + gpe_device, irq, 0, address, address_space, num_registers + ); + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_uninstall_gpe_block( + uacpi_namespace_node *gpe_device +) +{ + uacpi_status ret; + uacpi_bool is_dev; + struct gpe_search_ctx search_ctx = { 0 }; + + search_ctx.idx = 0; + search_ctx.gpe_device = gpe_device; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_namespace_node_is(gpe_device, UACPI_OBJECT_DEVICE, &is_dev); + if (uacpi_unlikely_error(ret)) + return ret; + if (!is_dev) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + for_each_gpe_block(do_find_gpe, &search_ctx); + if (search_ctx.out_block == UACPI_NULL) { + ret = UACPI_STATUS_NOT_FOUND; + goto out; + } + + uninstall_gpe_block(search_ctx.out_block); + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +static uacpi_interrupt_ret handle_global_lock(uacpi_handle ctx) +{ + uacpi_cpu_flags flags; + UACPI_UNUSED(ctx); + + if (uacpi_unlikely(!g_uacpi_rt_ctx.has_global_lock)) { + uacpi_warn("platform has no global lock but a release event " + "was fired anyway?\n"); + return UACPI_INTERRUPT_HANDLED; + } + + flags = uacpi_kernel_lock_spinlock(g_uacpi_rt_ctx.global_lock_spinlock); + if (!g_uacpi_rt_ctx.global_lock_pending) { + uacpi_trace("spurious firmware global lock release notification\n"); + goto out; + } + + uacpi_trace("received a firmware global lock release notification\n"); + + uacpi_kernel_signal_event(g_uacpi_rt_ctx.global_lock_event); + g_uacpi_rt_ctx.global_lock_pending = UACPI_FALSE; + +out: + uacpi_kernel_unlock_spinlock(g_uacpi_rt_ctx.global_lock_spinlock, flags); + return UACPI_INTERRUPT_HANDLED; +} + +static uacpi_interrupt_ret handle_sci(uacpi_handle ctx) +{ + uacpi_interrupt_ret int_ret = UACPI_INTERRUPT_NOT_HANDLED; + + int_ret |= handle_fixed_events(); + int_ret |= handle_gpes(ctx); + + return int_ret; +} + +uacpi_status uacpi_initialize_events_early(void) +{ + uacpi_status ret; + + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + g_gpe_state_slock = uacpi_kernel_create_spinlock(); + if (uacpi_unlikely(g_gpe_state_slock == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + ret = uacpi_recursive_lock_init(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = initialize_fixed_events(); + if (uacpi_unlikely_error(ret)) + return ret; + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_initialize_events(void) +{ + uacpi_status ret; + + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + ret = initialize_gpes(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_kernel_install_interrupt_handler( + g_uacpi_rt_ctx.fadt.sci_int, handle_sci, g_gpe_interrupt_head, + &g_uacpi_rt_ctx.sci_handle + ); + if (uacpi_unlikely_error(ret)) { + uacpi_error( + "unable to install SCI interrupt handler: %s\n", + uacpi_status_to_string(ret) + ); + return ret; + } + g_uacpi_rt_ctx.sci_handle_valid = UACPI_TRUE; + + g_uacpi_rt_ctx.global_lock_event = uacpi_kernel_create_event(); + if (uacpi_unlikely(g_uacpi_rt_ctx.global_lock_event == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + g_uacpi_rt_ctx.global_lock_spinlock = uacpi_kernel_create_spinlock(); + if (uacpi_unlikely(g_uacpi_rt_ctx.global_lock_spinlock == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + ret = uacpi_install_fixed_event_handler( + UACPI_FIXED_EVENT_GLOBAL_LOCK, handle_global_lock, UACPI_NULL + ); + if (uacpi_likely_success(ret)) { + if (uacpi_unlikely(g_uacpi_rt_ctx.facs == UACPI_NULL)) { + uacpi_uninstall_fixed_event_handler(UACPI_FIXED_EVENT_GLOBAL_LOCK); + uacpi_warn("platform has global lock but no FACS was provided\n"); + return ret; + } + g_uacpi_rt_ctx.has_global_lock = UACPI_TRUE; + } else if (ret == UACPI_STATUS_HARDWARE_TIMEOUT) { + // has_global_lock remains set to false + uacpi_trace("platform has no global lock\n"); + ret = UACPI_STATUS_OK; + } + + return ret; +} + +void uacpi_deinitialize_events(void) +{ + struct gpe_interrupt_ctx *ctx, *next_ctx = g_gpe_interrupt_head; + uacpi_size i; + + g_gpes_finalized = UACPI_FALSE; + + if (g_uacpi_rt_ctx.sci_handle_valid) { + uacpi_kernel_uninstall_interrupt_handler( + handle_sci, g_uacpi_rt_ctx.sci_handle + ); + g_uacpi_rt_ctx.sci_handle_valid = UACPI_FALSE; + } + + while (next_ctx) { + struct gpe_block *block, *next_block; + + ctx = next_ctx; + next_ctx = ctx->next; + + next_block = ctx->gpe_head; + while (next_block) { + block = next_block; + next_block = block->next; + uninstall_gpe_block(block); + } + } + + for (i = 0; i < UACPI_FIXED_EVENT_MAX; ++i) { + if (fixed_event_handlers[i].handler) + uacpi_uninstall_fixed_event_handler(i); + } + + if (g_gpe_state_slock != UACPI_NULL) { + uacpi_kernel_free_spinlock(g_gpe_state_slock); + g_gpe_state_slock = UACPI_NULL; + } + + uacpi_recursive_lock_deinit(&g_event_lock); + + g_gpe_interrupt_head = UACPI_NULL; +} + +uacpi_status uacpi_install_fixed_event_handler( + uacpi_fixed_event event, uacpi_interrupt_handler handler, + uacpi_handle user +) +{ + uacpi_status ret; + struct fixed_event_handler *ev; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(event < 0 || event > UACPI_FIXED_EVENT_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ev = &fixed_event_handlers[event]; + + if (ev->handler != UACPI_NULL) { + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + + ev->handler = handler; + ev->ctx = user; + + ret = set_event(event, UACPI_EVENT_ENABLED); + if (uacpi_unlikely_error(ret)) { + ev->handler = UACPI_NULL; + ev->ctx = UACPI_NULL; + } + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_uninstall_fixed_event_handler( + uacpi_fixed_event event +) +{ + uacpi_status ret; + struct fixed_event_handler *ev; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(event < 0 || event > UACPI_FIXED_EVENT_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ev = &fixed_event_handlers[event]; + + ret = set_event(event, UACPI_EVENT_DISABLED); + if (uacpi_unlikely_error(ret)) + goto out; + + uacpi_kernel_wait_for_work_completion(); + + ev->handler = UACPI_NULL; + ev->ctx = UACPI_NULL; + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_fixed_event_info( + uacpi_fixed_event event, uacpi_event_info *out_info +) +{ + uacpi_status ret; + const struct fixed_event *ev; + uacpi_u64 raw_value; + uacpi_event_info info = 0; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(event < 0 || event > UACPI_FIXED_EVENT_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_NOT_FOUND; + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + if (fixed_event_handlers[event].handler != UACPI_NULL) + info |= UACPI_EVENT_INFO_HAS_HANDLER; + + ev = &fixed_events[event]; + + ret = uacpi_read_register_field(ev->enable_field, &raw_value); + if (uacpi_unlikely_error(ret)) + goto out; + if (raw_value) + info |= UACPI_EVENT_INFO_ENABLED | UACPI_EVENT_INFO_HW_ENABLED; + + ret = uacpi_read_register_field(ev->status_field, &raw_value); + if (uacpi_unlikely_error(ret)) + goto out; + if (raw_value) + info |= UACPI_EVENT_INFO_HW_STATUS; + + *out_info = info; +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +uacpi_status uacpi_gpe_info( + uacpi_namespace_node *gpe_device, uacpi_u16 idx, uacpi_event_info *out_info +) +{ + uacpi_status ret; + struct gp_event *event; + struct gpe_register *reg; + uacpi_u8 mask; + uacpi_u64 raw_value; + uacpi_event_info info = 0; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = sanitize_device_and_find_gpe(&gpe_device, idx, &event); + if (uacpi_unlikely_error(ret)) + goto out; + + if (event->handler_type != GPE_HANDLER_TYPE_NONE) + info |= UACPI_EVENT_INFO_HAS_HANDLER; + + mask = gpe_get_mask(event); + reg = event->reg; + + if (reg->runtime_mask & mask) + info |= UACPI_EVENT_INFO_ENABLED; + if (reg->masked_mask & mask) + info |= UACPI_EVENT_INFO_MASKED; + if (reg->wake_mask & mask) + info |= UACPI_EVENT_INFO_ENABLED_FOR_WAKE; + + ret = uacpi_gas_read_mapped(®->enable, &raw_value); + if (uacpi_unlikely_error(ret)) + goto out; + if (raw_value & mask) + info |= UACPI_EVENT_INFO_HW_ENABLED; + + ret = uacpi_gas_read_mapped(®->status, &raw_value); + if (uacpi_unlikely_error(ret)) + goto out; + if (raw_value & mask) + info |= UACPI_EVENT_INFO_HW_STATUS; + + *out_info = info; +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +#define PM1_STATUS_BITS ( \ + ACPI_PM1_STS_TMR_STS_MASK | \ + ACPI_PM1_STS_BM_STS_MASK | \ + ACPI_PM1_STS_GBL_STS_MASK | \ + ACPI_PM1_STS_PWRBTN_STS_MASK | \ + ACPI_PM1_STS_SLPBTN_STS_MASK | \ + ACPI_PM1_STS_RTC_STS_MASK | \ + ACPI_PM1_STS_PCIEXP_WAKE_STS_MASK | \ + ACPI_PM1_STS_WAKE_STS_MASK \ +) + +uacpi_status uacpi_clear_all_events(void) +{ + uacpi_status ret; + struct do_for_all_gpes_ctx ctx = { + .action = GPE_BLOCK_ACTION_CLEAR_ALL, + }; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ret = uacpi_recursive_lock_acquire(&g_event_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_write_register(UACPI_REGISTER_PM1_STS, PM1_STATUS_BITS); + if (uacpi_unlikely_error(ret)) + goto out; + + for_each_gpe_block(do_for_all_gpes, &ctx); + ret = ctx.ret; + +out: + uacpi_recursive_lock_release(&g_event_lock); + return ret; +} + +#endif // !UACPI_REDUCED_HARDWARE && !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/files.cmake b/kernel/hal/x86_64/uACPI/source/files.cmake new file mode 100644 index 0000000..32e166a --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/files.cmake @@ -0,0 +1,21 @@ +uacpi_add_sources( + tables.c + types.c + uacpi.c + utilities.c + interpreter.c + opcodes.c + namespace.c + stdlib.c + shareable.c + opregion.c + default_handlers.c + io.c + notify.c + sleep.c + registers.c + resources.c + event.c + mutex.c + osi.c +) diff --git a/kernel/hal/x86_64/uACPI/source/interpreter.c b/kernel/hal/x86_64/uACPI/source/interpreter.c new file mode 100644 index 0000000..5e3abda --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/interpreter.c @@ -0,0 +1,6098 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +enum item_type { + ITEM_NONE = 0, + ITEM_NAMESPACE_NODE, + ITEM_OBJECT, + ITEM_EMPTY_OBJECT, + ITEM_PACKAGE_LENGTH, + ITEM_IMMEDIATE, +}; + +struct package_length { + uacpi_u32 begin; + uacpi_u32 end; +}; + +struct item { + uacpi_u8 type; + union { + uacpi_handle handle; + uacpi_object *obj; + struct uacpi_namespace_node *node; + struct package_length pkg; + uacpi_u64 immediate; + uacpi_u8 immediate_bytes[8]; + }; +}; + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE(item_array, struct item, 8) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL(item_array, struct item, static) + +struct op_context { + uacpi_u8 pc; + uacpi_bool preempted; + + /* + * == 0 -> none + * >= 1 -> item[idx - 1] + */ + uacpi_u8 tracked_pkg_idx; + + uacpi_aml_op switched_from; + + const struct uacpi_op_spec *op; + struct item_array items; +}; + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE(op_context_array, struct op_context, 8) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL( + op_context_array, struct op_context, static +) + +static struct op_context *op_context_array_one_before_last( + struct op_context_array *arr +) +{ + uacpi_size size; + + size = op_context_array_size(arr); + + if (size < 2) + return UACPI_NULL; + + return op_context_array_at(arr, size - 2); +} + +enum code_block_type { + CODE_BLOCK_IF = 1, + CODE_BLOCK_ELSE = 2, + CODE_BLOCK_WHILE = 3, + CODE_BLOCK_SCOPE = 4, +}; + +struct code_block { + enum code_block_type type; + uacpi_u32 begin, end; + union { + struct uacpi_namespace_node *node; + uacpi_u64 expiration_point; + }; +}; + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE(code_block_array, struct code_block, 8) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL( + code_block_array, struct code_block, static +) + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE(held_mutexes_array, uacpi_mutex*, 8) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL( + held_mutexes_array, uacpi_mutex*, static +) + +static uacpi_status held_mutexes_array_push( + struct held_mutexes_array *arr, uacpi_mutex *mutex +) +{ + uacpi_mutex **slot; + + slot = held_mutexes_array_alloc(arr); + if (uacpi_unlikely(slot == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + *slot = mutex; + uacpi_shareable_ref(mutex); + return UACPI_STATUS_OK; +} + +static void held_mutexes_array_remove_idx( + struct held_mutexes_array *arr, uacpi_size i +) +{ + uacpi_size size; + + size = held_mutexes_array_inline_capacity(arr); + + // Only the dynamic array part is affected + if (i >= size) { + i -= size; + size = arr->size_including_inline - size; + size -= i + 1; + + uacpi_memmove( + &arr->dynamic_storage[i], &arr->dynamic_storage[i + 1], + size * sizeof(arr->inline_storage[0]) + ); + + held_mutexes_array_pop(arr); + return; + } + + size = UACPI_MIN(held_mutexes_array_inline_capacity(arr), + arr->size_including_inline); + size -= i + 1; + uacpi_memmove( + &arr->inline_storage[i], &arr->inline_storage[i + 1], + size * sizeof(arr->inline_storage[0]) + ); + + size = held_mutexes_array_size(arr); + i = held_mutexes_array_inline_capacity(arr); + + /* + * This array has dynamic storage as well, now we have to take the first + * dynamic item, move it to the top of inline storage, and then shift all + * dynamic items backward by 1 as well. + */ + if (size > i) { + arr->inline_storage[i - 1] = arr->dynamic_storage[0]; + size -= i + 1; + + uacpi_memmove( + &arr->dynamic_storage[0], &arr->dynamic_storage[1], + size * sizeof(arr->inline_storage[0]) + ); + } + + held_mutexes_array_pop(arr); +} + +enum force_release { + FORCE_RELEASE_NO, + FORCE_RELEASE_YES, +}; + +static uacpi_status held_mutexes_array_remove_and_release( + struct held_mutexes_array *arr, uacpi_mutex *mutex, + enum force_release force +) +{ + uacpi_mutex *item; + uacpi_size i; + + if (uacpi_unlikely(held_mutexes_array_size(arr) == 0)) + return UACPI_STATUS_INVALID_ARGUMENT; + + item = *held_mutexes_array_last(arr); + + if (uacpi_unlikely(item->sync_level != mutex->sync_level && + force != FORCE_RELEASE_YES)) { + uacpi_warn( + "ignoring mutex @%p release due to sync level mismatch: %d vs %d\n", + mutex, mutex->sync_level, item->sync_level + ); + + // We still return OK because we don't want to abort because of this + return UACPI_STATUS_OK; + } + + if (mutex->depth > 1 && force == FORCE_RELEASE_NO) { + uacpi_release_aml_mutex(mutex); + return UACPI_STATUS_OK; + } + + // Fast path for well-behaved AML that releases mutexes in descending order + if (uacpi_likely(item == mutex)) { + held_mutexes_array_pop(arr); + goto do_release; + } + + /* + * The mutex being released is not the last one acquired, although we did + * verify that at least it has the same sync level. Anyway, now we have + * to search for it and then remove it from the array while shifting + * everything backwards. + */ + i = held_mutexes_array_size(arr); + for (;;) { + item = *held_mutexes_array_at(arr, --i); + if (item == mutex) + break; + + if (uacpi_unlikely(i == 0)) + return UACPI_STATUS_INVALID_ARGUMENT; + } + + held_mutexes_array_remove_idx(arr, i); + +do_release: + // This is either a force release, or depth was already 1 to begin with + mutex->depth = 1; + uacpi_release_aml_mutex(mutex); + + uacpi_mutex_unref(mutex); + return UACPI_STATUS_OK; +} + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE( + temp_namespace_node_array, uacpi_namespace_node*, 8) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL( + temp_namespace_node_array, uacpi_namespace_node*, static +) + +static uacpi_status temp_namespace_node_array_push( + struct temp_namespace_node_array *arr, uacpi_namespace_node *node +) +{ + uacpi_namespace_node **slot; + + slot = temp_namespace_node_array_alloc(arr); + if (uacpi_unlikely(slot == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + *slot = node; + return UACPI_STATUS_OK; +} + +struct call_frame { + struct uacpi_control_method *method; + + uacpi_object *args[7]; + uacpi_object *locals[8]; + + struct op_context_array pending_ops; + struct code_block_array code_blocks; + struct temp_namespace_node_array temp_nodes; + struct code_block *last_while; + uacpi_u64 prev_while_expiration; + uacpi_u32 prev_while_code_offset; + + uacpi_u32 code_offset; + + struct uacpi_namespace_node *cur_scope; + + // Only used if the method is serialized + uacpi_u8 prev_sync_level; +}; + +static void *call_frame_cursor(struct call_frame *frame) +{ + return frame->method->code + frame->code_offset; +} + +static uacpi_size call_frame_code_bytes_left(struct call_frame *frame) +{ + return frame->method->size - frame->code_offset; +} + +static uacpi_bool call_frame_has_code(struct call_frame *frame) +{ + return call_frame_code_bytes_left(frame) > 0; +} + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE(call_frame_array, struct call_frame, 4) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL( + call_frame_array, struct call_frame, static +) + +static struct call_frame *call_frame_array_one_before_last( + struct call_frame_array *arr +) +{ + uacpi_size size; + + size = call_frame_array_size(arr); + + if (size < 2) + return UACPI_NULL; + + return call_frame_array_at(arr, size - 2); +} + +// NOTE: Try to keep size under 2 pages +struct execution_context { + uacpi_object *ret; + struct call_frame_array call_stack; + struct held_mutexes_array held_mutexes; + + struct call_frame *cur_frame; + struct code_block *cur_block; + const struct uacpi_op_spec *cur_op; + struct op_context *prev_op_ctx; + struct op_context *cur_op_ctx; + + uacpi_u8 sync_level; +}; + +#define AML_READ(ptr, offset) (*(((uacpi_u8*)(ptr)) + offset)) + +static uacpi_status parse_nameseg(uacpi_u8 *cursor, + uacpi_object_name *out_name) +{ + if (uacpi_unlikely(!uacpi_is_valid_nameseg(cursor))) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + uacpi_memcpy(&out_name->id, cursor, 4); + return UACPI_STATUS_OK; +} + +/* + * ------------------------------------------------------------- + * RootChar := ‘\’ + * ParentPrefixChar := ‘^’ + * ‘\’ := 0x5C + * ‘^’ := 0x5E + * ------------------------------------------------------------ + * NameSeg := + * NameString := | + * PrefixPath := Nothing | <’^’ prefixpath> + * NamePath := NameSeg | DualNamePath | MultiNamePath | NullName + * DualNamePath := DualNamePrefix NameSeg NameSeg + * MultiNamePath := MultiNamePrefix SegCount NameSeg(SegCount) + */ + +static uacpi_status name_string_to_path( + struct call_frame *frame, uacpi_size offset, + uacpi_char **out_string, uacpi_size *out_size +) +{ + uacpi_size bytes_left, prefix_bytes, nameseg_bytes = 0, namesegs; + uacpi_char *base_cursor, *cursor; + uacpi_char prev_char; + + bytes_left = frame->method->size - offset; + cursor = (uacpi_char*)frame->method->code + offset; + base_cursor = cursor; + namesegs = 0; + + prefix_bytes = 0; + for (;;) { + if (uacpi_unlikely(bytes_left == 0)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + prev_char = *cursor; + + switch (prev_char) { + case '^': + case '\\': + prefix_bytes++; + cursor++; + bytes_left--; + break; + default: + break; + } + + if (prev_char != '^') + break; + } + + // At least a NullName byte is expected here + if (uacpi_unlikely(bytes_left == 0)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + namesegs = 0; + bytes_left--; + switch (*cursor++) + { + case UACPI_DUAL_NAME_PREFIX: + namesegs = 2; + break; + case UACPI_MULTI_NAME_PREFIX: + if (uacpi_unlikely(bytes_left == 0)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + namesegs = *(uacpi_u8*)cursor; + if (uacpi_unlikely(namesegs == 0)) { + uacpi_error("MultiNamePrefix but SegCount is 0\n"); + return UACPI_STATUS_AML_INVALID_NAMESTRING; + } + + cursor++; + bytes_left--; + break; + case UACPI_NULL_NAME: + break; + default: + /* + * Might be an invalid byte, but assume single nameseg for now, + * the code below will validate it for us. + */ + cursor--; + bytes_left++; + namesegs = 1; + break; + } + + if (uacpi_unlikely((namesegs * 4) > bytes_left)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + if (namesegs) { + // 4 chars per nameseg + nameseg_bytes = namesegs * 4; + + // dot separator for every nameseg + nameseg_bytes += namesegs - 1; + } + + *out_size = nameseg_bytes + prefix_bytes + 1; + + *out_string = uacpi_kernel_alloc(*out_size); + if (*out_string == UACPI_NULL) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy(*out_string, base_cursor, prefix_bytes); + + base_cursor = *out_string; + base_cursor += prefix_bytes; + + while (namesegs-- > 0) { + uacpi_memcpy(base_cursor, cursor, 4); + cursor += 4; + base_cursor += 4; + + if (namesegs) + *base_cursor++ = '.'; + } + + *base_cursor = '\0'; + return UACPI_STATUS_OK; +} + +enum resolve_behavior { + RESOLVE_CREATE_LAST_NAMESEG_FAIL_IF_EXISTS, + RESOLVE_FAIL_IF_DOESNT_EXIST, +}; + +static uacpi_status resolve_name_string( + struct call_frame *frame, + enum resolve_behavior behavior, + struct uacpi_namespace_node **out_node +) +{ + uacpi_status ret = UACPI_STATUS_OK; + uacpi_u8 *cursor; + uacpi_size bytes_left, namesegs = 0; + struct uacpi_namespace_node *parent, *cur_node = frame->cur_scope; + uacpi_char prev_char = 0; + uacpi_bool just_one_nameseg = UACPI_TRUE; + + bytes_left = call_frame_code_bytes_left(frame); + cursor = call_frame_cursor(frame); + + for (;;) { + if (uacpi_unlikely(bytes_left == 0)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + switch (*cursor) { + case '\\': + if (prev_char == '^') + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + cur_node = uacpi_namespace_root(); + break; + case '^': + // Tried to go behind root + if (uacpi_unlikely(cur_node == uacpi_namespace_root())) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + cur_node = cur_node->parent; + break; + default: + break; + } + + prev_char = *cursor; + + switch (prev_char) { + case '^': + case '\\': + just_one_nameseg = UACPI_FALSE; + cursor++; + bytes_left--; + break; + default: + break; + } + + if (prev_char != '^') + break; + } + + // At least a NullName byte is expected here + if (uacpi_unlikely(bytes_left == 0)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + bytes_left--; + switch (*cursor++) + { + case UACPI_DUAL_NAME_PREFIX: + namesegs = 2; + just_one_nameseg = UACPI_FALSE; + break; + case UACPI_MULTI_NAME_PREFIX: + if (uacpi_unlikely(bytes_left == 0)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + namesegs = *cursor; + if (uacpi_unlikely(namesegs == 0)) { + uacpi_error("MultiNamePrefix but SegCount is 0\n"); + return UACPI_STATUS_AML_INVALID_NAMESTRING; + } + + cursor++; + bytes_left--; + just_one_nameseg = UACPI_FALSE; + break; + case UACPI_NULL_NAME: + if (behavior == RESOLVE_CREATE_LAST_NAMESEG_FAIL_IF_EXISTS || + just_one_nameseg) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + goto out; + default: + /* + * Might be an invalid byte, but assume single nameseg for now, + * the code below will validate it for us. + */ + cursor--; + bytes_left++; + namesegs = 1; + break; + } + + if (uacpi_unlikely((namesegs * 4) > bytes_left)) + return UACPI_STATUS_AML_INVALID_NAMESTRING; + + for (; namesegs; cursor += 4, namesegs--) { + uacpi_object_name name; + + ret = parse_nameseg(cursor, &name); + if (uacpi_unlikely_error(ret)) + return ret; + + parent = cur_node; + cur_node = uacpi_namespace_node_find_sub_node(parent, name); + + switch (behavior) { + case RESOLVE_CREATE_LAST_NAMESEG_FAIL_IF_EXISTS: + if (namesegs == 1) { + if (cur_node) { + cur_node = UACPI_NULL; + ret = UACPI_STATUS_AML_OBJECT_ALREADY_EXISTS; + goto out; + } + + // Create the node and link to parent but don't install YET + cur_node = uacpi_namespace_node_alloc(name); + if (uacpi_unlikely(cur_node == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + + cur_node->parent = parent; + } + break; + case RESOLVE_FAIL_IF_DOESNT_EXIST: + if (just_one_nameseg) { + while (!cur_node && parent != uacpi_namespace_root()) { + cur_node = parent; + parent = cur_node->parent; + + cur_node = uacpi_namespace_node_find_sub_node(parent, name); + } + } + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (cur_node == UACPI_NULL) { + ret = UACPI_STATUS_NOT_FOUND; + break; + } + } + +out: + cursor += namesegs * 4; + frame->code_offset = cursor - frame->method->code; + + if (uacpi_likely_success(ret) && behavior == RESOLVE_FAIL_IF_DOESNT_EXIST) + uacpi_shareable_ref(cur_node); + + *out_node = cur_node; + return ret; +} + +static uacpi_status do_install_node_item(struct call_frame *frame, + struct item *item) +{ + uacpi_status ret; + + ret = uacpi_namespace_node_install(item->node->parent, item->node); + if (uacpi_unlikely_error(ret)) + return ret; + + if (!frame->method->named_objects_persist) + ret = temp_namespace_node_array_push(&frame->temp_nodes, item->node); + + if (uacpi_likely_success(ret)) + item->node = UACPI_NULL; + + return ret; +} + +static uacpi_u8 peek_next_op(struct call_frame *frame, uacpi_aml_op *out_op) +{ + uacpi_aml_op op; + uacpi_size bytes_left; + uacpi_u8 length = 0; + uacpi_u8 *cursor; + struct code_block *block; + + block = code_block_array_last(&frame->code_blocks); + bytes_left = block->end - frame->code_offset; + if (bytes_left == 0) + return 0; + + cursor = call_frame_cursor(frame); + + op = AML_READ(cursor, length++); + if (op == UACPI_EXT_PREFIX) { + if (uacpi_unlikely(bytes_left < 2)) + return 0; + + op <<= 8; + op |= AML_READ(cursor, length++); + } + + *out_op = op; + return length; +} + +static uacpi_status get_op(struct execution_context *ctx) +{ + uacpi_aml_op op; + uacpi_u8 length; + + length = peek_next_op(ctx->cur_frame, &op); + if (uacpi_unlikely(length == 0)) + return UACPI_STATUS_AML_BAD_ENCODING; + + ctx->cur_frame->code_offset += length; + g_uacpi_rt_ctx.opcodes_executed++; + + ctx->cur_op = uacpi_get_op_spec(op); + if (uacpi_unlikely(ctx->cur_op->properties & UACPI_OP_PROPERTY_RESERVED)) { + uacpi_error( + "invalid opcode '%s' encountered in bytestream\n", + ctx->cur_op->name + ); + return UACPI_STATUS_AML_INVALID_OPCODE; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_buffer(struct execution_context *ctx) +{ + struct package_length *pkg; + uacpi_u8 *src; + uacpi_object *dst, *declared_size; + uacpi_u32 buffer_size, init_size, aml_offset; + struct op_context *op_ctx = ctx->cur_op_ctx; + + aml_offset = item_array_at(&op_ctx->items, 2)->immediate; + src = ctx->cur_frame->method->code; + src += aml_offset; + + pkg = &item_array_at(&op_ctx->items, 0)->pkg; + init_size = pkg->end - aml_offset; + + // TODO: do package bounds checking at parse time + if (uacpi_unlikely(pkg->end > ctx->cur_frame->method->size)) + return UACPI_STATUS_AML_BAD_ENCODING; + + declared_size = item_array_at(&op_ctx->items, 1)->obj; + + if (uacpi_unlikely(declared_size->integer > 0xE0000000)) { + uacpi_error( + "buffer is too large (%"UACPI_PRIu64"), assuming corrupted " + "bytestream\n", UACPI_FMT64(declared_size->integer) + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + if (uacpi_unlikely(declared_size->integer == 0)) { + uacpi_error("attempted to create an empty buffer\n"); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + buffer_size = declared_size->integer; + if (uacpi_unlikely(init_size > buffer_size)) { + uacpi_error( + "too many buffer initializers: %u (size is %u)\n", + init_size, buffer_size + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + dst = item_array_at(&op_ctx->items, 3)->obj; + dst->buffer->data = uacpi_kernel_alloc(buffer_size); + if (uacpi_unlikely(dst->buffer->data == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + dst->buffer->size = buffer_size; + + uacpi_memcpy_zerout(dst->buffer->data, src, buffer_size, init_size); + return UACPI_STATUS_OK; +} + +static uacpi_status handle_string(struct execution_context *ctx) +{ + struct call_frame *frame = ctx->cur_frame; + uacpi_object *obj; + + uacpi_char *string; + uacpi_size length, max_bytes; + + obj = item_array_last(&ctx->cur_op_ctx->items)->obj; + string = call_frame_cursor(frame); + + // TODO: sanitize string for valid UTF-8 + max_bytes = call_frame_code_bytes_left(frame); + length = uacpi_strnlen(string, max_bytes); + + if (uacpi_unlikely((length == max_bytes) || (string[length++] != 0x00))) + return UACPI_STATUS_AML_BAD_ENCODING; + + obj->buffer->text = uacpi_kernel_alloc(length); + if (uacpi_unlikely(obj->buffer->text == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy(obj->buffer->text, string, length); + obj->buffer->size = length; + frame->code_offset += length; + return UACPI_STATUS_OK; +} + +static uacpi_status handle_package(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_package *package; + uacpi_u32 num_elements, num_defined_elements, i; + + /* + * Layout of items here: + * [0] -> Package length, not interesting + * [1] -> Immediate or integer object, depending on PackageOp/VarPackageOp + * [2..N-2] -> AML pc+Package element pairs + * [N-1] -> The resulting package object that we're constructing + */ + package = item_array_last(&op_ctx->items)->obj->package; + + // 1. Detect how many elements we have, do sanity checking + if (op_ctx->op->code == UACPI_AML_OP_VarPackageOp) { + uacpi_object *var_num_elements; + + var_num_elements = item_array_at(&op_ctx->items, 1)->obj; + if (uacpi_unlikely(var_num_elements->integer > 0xE0000000)) { + uacpi_error( + "package is too large (%"UACPI_PRIu64"), assuming " + "corrupted bytestream\n", UACPI_FMT64(var_num_elements->integer) + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + num_elements = var_num_elements->integer; + } else { + num_elements = item_array_at(&op_ctx->items, 1)->immediate; + } + + num_defined_elements = (item_array_size(&op_ctx->items) - 3) / 2; + if (uacpi_unlikely(num_defined_elements > num_elements)) { + uacpi_warn( + "too many package initializers: %u, truncating to %u\n", + num_defined_elements, num_elements + ); + + num_defined_elements = num_elements; + } + + // 2. Create every object in the package, start as uninitialized + if (uacpi_unlikely(!uacpi_package_fill(package, num_elements, + UACPI_PREALLOC_OBJECTS_YES))) + return UACPI_STATUS_OUT_OF_MEMORY; + + // 3. Go through every defined object and copy it into the package + for (i = 0; i < num_defined_elements; ++i) { + uacpi_size base_pkg_index; + uacpi_status ret; + struct item *item; + uacpi_object *obj; + + base_pkg_index = (i * 2) + 2; + item = item_array_at(&op_ctx->items, base_pkg_index + 1); + obj = item->obj; + + if (obj != UACPI_NULL && obj->type == UACPI_OBJECT_REFERENCE) { + /* + * For named objects we don't actually need the object itself, but + * simply the path to it. Often times objects referenced by the + * package are not defined until later so it's not possible to + * resolve them. For uniformity and to follow the behavior of NT, + * simply convert the name string to a path string object to be + * resolved later when actually needed. + */ + if (obj->flags == UACPI_REFERENCE_KIND_NAMED) { + uacpi_object_unref(obj); + item->obj = UACPI_NULL; + obj = UACPI_NULL; + } else { + obj = uacpi_unwrap_internal_reference(obj); + } + } + + if (obj == UACPI_NULL) { + uacpi_size length; + uacpi_char *path; + + obj = uacpi_create_object(UACPI_OBJECT_STRING); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + ret = name_string_to_path( + ctx->cur_frame, + item_array_at(&op_ctx->items, base_pkg_index)->immediate, + &path, &length + ); + if (uacpi_unlikely_error(ret)) + return ret; + + obj->flags = UACPI_STRING_KIND_PATH; + obj->buffer->text = path; + obj->buffer->size = length; + + item->obj = obj; + item->type = ITEM_OBJECT; + } + + ret = uacpi_object_assign(package->objects[i], obj, + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY); + if (uacpi_unlikely_error(ret)) + return ret; + } + + return UACPI_STATUS_OK; +} + +static uacpi_size sizeof_int(void) +{ + return g_uacpi_rt_ctx.is_rev1 ? 4 : 8; +} + +static uacpi_status get_object_storage( + uacpi_object *obj, uacpi_data_view *out_buf, uacpi_bool include_null +) +{ + switch (obj->type) { + case UACPI_OBJECT_INTEGER: + out_buf->length = sizeof_int(); + out_buf->data = &obj->integer; + break; + case UACPI_OBJECT_STRING: + out_buf->length = obj->buffer->size; + if (out_buf->length && !include_null) + out_buf->length--; + + out_buf->text = obj->buffer->text; + break; + case UACPI_OBJECT_BUFFER: + if (obj->buffer->size == 0) { + out_buf->bytes = UACPI_NULL; + out_buf->length = 0; + break; + } + + out_buf->length = obj->buffer->size; + out_buf->bytes = obj->buffer->data; + break; + case UACPI_OBJECT_REFERENCE: + return UACPI_STATUS_INVALID_ARGUMENT; + default: + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + return UACPI_STATUS_OK; +} + +static uacpi_u8 *buffer_index_cursor(uacpi_buffer_index *buf_idx) +{ + uacpi_u8 *out_cursor; + + out_cursor = buf_idx->buffer->data; + out_cursor += buf_idx->idx; + + return out_cursor; +} + +static void write_buffer_index(uacpi_buffer_index *buf_idx, + uacpi_data_view *src_buf) +{ + uacpi_memcpy_zerout(buffer_index_cursor(buf_idx), src_buf->bytes, + 1, src_buf->length); +} + +/* + * The word "implicit cast" here is only because it's called that in + * the specification. In reality, we just copy one buffer to another + * because that's what NT does. + */ +static uacpi_status object_assign_with_implicit_cast( + uacpi_object *dst, uacpi_object *src, uacpi_data_view *wtr_response +) +{ + uacpi_status ret; + uacpi_data_view src_buf; + + ret = get_object_storage(src, &src_buf, UACPI_FALSE); + if (uacpi_unlikely_error(ret)) + goto out_bad_cast; + + switch (dst->type) { + case UACPI_OBJECT_INTEGER: + case UACPI_OBJECT_STRING: + case UACPI_OBJECT_BUFFER: { + uacpi_data_view dst_buf; + + ret = get_object_storage(dst, &dst_buf, UACPI_FALSE); + if (uacpi_unlikely_error(ret)) + goto out_bad_cast; + + uacpi_memcpy_zerout( + dst_buf.bytes, src_buf.bytes, dst_buf.length, src_buf.length + ); + break; + } + + case UACPI_OBJECT_BUFFER_FIELD: + uacpi_write_buffer_field( + &dst->buffer_field, src_buf.bytes, src_buf.length + ); + break; + + case UACPI_OBJECT_FIELD_UNIT: + return uacpi_write_field_unit( + dst->field_unit, src_buf.bytes, src_buf.length, + wtr_response + ); + + case UACPI_OBJECT_BUFFER_INDEX: + write_buffer_index(&dst->buffer_index, &src_buf); + break; + + default: + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + goto out_bad_cast; + } + + return ret; + +out_bad_cast: + uacpi_error( + "attempted to perform an invalid implicit cast (%s -> %s)\n", + uacpi_object_type_to_string(src->type), + uacpi_object_type_to_string(dst->type) + ); + return ret; +} + +enum argx_or_localx { + ARGX, + LOCALX, +}; + +static uacpi_status handle_arg_or_local( + struct execution_context *ctx, + uacpi_size idx, enum argx_or_localx type +) +{ + uacpi_object **src; + struct item *dst; + enum uacpi_reference_kind kind; + + if (type == ARGX) { + src = &ctx->cur_frame->args[idx]; + kind = UACPI_REFERENCE_KIND_ARG; + } else { + src = &ctx->cur_frame->locals[idx]; + kind = UACPI_REFERENCE_KIND_LOCAL; + } + + if (*src == UACPI_NULL) { + uacpi_object *default_value; + + default_value = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + if (uacpi_unlikely(default_value == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + *src = uacpi_create_internal_reference(kind, default_value); + if (uacpi_unlikely(*src == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_object_unref(default_value); + } + + dst = item_array_last(&ctx->cur_op_ctx->items); + dst->obj = *src; + dst->type = ITEM_OBJECT; + uacpi_object_ref(dst->obj); + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_local(struct execution_context *ctx) +{ + uacpi_size idx; + struct op_context *op_ctx = ctx->cur_op_ctx; + + idx = op_ctx->op->code - UACPI_AML_OP_Local0Op; + return handle_arg_or_local(ctx, idx, LOCALX); +} + +static uacpi_status handle_arg(struct execution_context *ctx) +{ + uacpi_size idx; + struct op_context *op_ctx = ctx->cur_op_ctx; + + idx = op_ctx->op->code - UACPI_AML_OP_Arg0Op; + return handle_arg_or_local(ctx, idx, ARGX); +} + +static uacpi_status handle_named_object(struct execution_context *ctx) +{ + struct uacpi_namespace_node *src; + struct item *dst; + + src = item_array_at(&ctx->cur_op_ctx->items, 0)->node; + dst = item_array_at(&ctx->cur_op_ctx->items, 1); + + dst->obj = src->object; + dst->type = ITEM_OBJECT; + uacpi_object_ref(dst->obj); + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_create_alias(struct execution_context *ctx) +{ + uacpi_namespace_node *src, *dst; + + src = item_array_at(&ctx->cur_op_ctx->items, 0)->node; + dst = item_array_at(&ctx->cur_op_ctx->items, 1)->node; + + dst->object = src->object; + dst->flags = UACPI_NAMESPACE_NODE_FLAG_ALIAS; + uacpi_object_ref(dst->object); + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_create_op_region(struct execution_context *ctx) +{ + uacpi_namespace_node *node; + uacpi_object *obj; + uacpi_operation_region *op_region; + uacpi_u64 region_end; + + node = item_array_at(&ctx->cur_op_ctx->items, 0)->node; + obj = item_array_at(&ctx->cur_op_ctx->items, 4)->obj; + op_region = obj->op_region; + + op_region->space = item_array_at(&ctx->cur_op_ctx->items, 1)->immediate; + op_region->offset = item_array_at(&ctx->cur_op_ctx->items, 2)->obj->integer; + op_region->length = item_array_at(&ctx->cur_op_ctx->items, 3)->obj->integer; + region_end = op_region->offset + op_region->length; + + if (uacpi_unlikely(op_region->length == 0)) { + // Don't abort here, as long as it's never accessed we don't care + uacpi_warn("unusable/empty operation region %.4s\n", node->name.text); + } else if (uacpi_unlikely(op_region->offset > region_end)) { + uacpi_error( + "invalid operation region %.4s bounds: offset=0x%"UACPI_PRIX64 + " length=0x%"UACPI_PRIX64"\n", node->name.text, + UACPI_FMT64(op_region->offset), UACPI_FMT64(op_region->length) + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + if (op_region->space == UACPI_ADDRESS_SPACE_PCC && op_region->offset > 255) { + uacpi_warn( + "invalid PCC operation region %.4s subspace %"UACPI_PRIX64"\n", + node->name.text, UACPI_FMT64(op_region->offset) + ); + } + + node->object = uacpi_create_internal_reference( + UACPI_REFERENCE_KIND_NAMED, obj + ); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_initialize_opregion_node(node); + return UACPI_STATUS_OK; +} + +static uacpi_status table_id_error( + const uacpi_char *opcode, const uacpi_char *arg, + uacpi_buffer *str +) +{ + uacpi_error("%s: invalid %s '%s'\n", opcode, arg, str->text); + return UACPI_STATUS_AML_BAD_ENCODING; +} + +static void report_table_id_find_error( + const uacpi_char *opcode, struct uacpi_table_identifiers *id, + uacpi_status ret +) +{ + uacpi_error( + "%s: unable to find table '%.4s' (OEM ID '%.6s', " + "OEM Table ID '%.8s'): %s\n", + opcode, id->signature.text, id->oemid, id->oem_table_id, + uacpi_status_to_string(ret) + ); +} + +static uacpi_status build_table_id( + const uacpi_char *opcode, + struct uacpi_table_identifiers *out_id, + uacpi_buffer *signature, uacpi_buffer *oem_id, + uacpi_buffer *oem_table_id +) +{ + if (uacpi_unlikely(signature->size != (sizeof(uacpi_object_name) + 1))) + return table_id_error(opcode, "SignatureString", signature); + + uacpi_memcpy(out_id->signature.text, signature->text, + sizeof(uacpi_object_name)); + + if (uacpi_unlikely(oem_id->size > (sizeof(out_id->oemid) + 1))) + return table_id_error(opcode, "OemIDString", oem_id); + + uacpi_memcpy_zerout( + out_id->oemid, oem_id->text, + sizeof(out_id->oemid), oem_id->size ? oem_id->size - 1 : 0 + ); + + if (uacpi_unlikely(oem_table_id->size > (sizeof(out_id->oem_table_id) + 1))) + return table_id_error(opcode, "OemTableIDString", oem_table_id); + + uacpi_memcpy_zerout( + out_id->oem_table_id, oem_table_id->text, + sizeof(out_id->oem_table_id), + oem_table_id->size ? oem_table_id->size - 1 : 0 + ); + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_create_data_region(struct execution_context *ctx) +{ + uacpi_status ret; + struct item_array *items = &ctx->cur_op_ctx->items; + struct uacpi_table_identifiers table_id; + uacpi_table table; + uacpi_namespace_node *node; + uacpi_object *obj; + uacpi_operation_region *op_region; + + node = item_array_at(items, 0)->node; + + ret = build_table_id( + "DataTableRegion", &table_id, + item_array_at(items, 1)->obj->buffer, + item_array_at(items, 2)->obj->buffer, + item_array_at(items, 3)->obj->buffer + ); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_table_find(&table_id, &table); + if (uacpi_unlikely_error(ret)) { + report_table_id_find_error("DataTableRegion", &table_id, ret); + return ret; + } + + obj = item_array_at(items, 4)->obj; + op_region = obj->op_region; + op_region->space = UACPI_ADDRESS_SPACE_TABLE_DATA; + op_region->offset = table.virt_addr; + op_region->length = table.hdr->length; + op_region->table_idx = table.index; + + node->object = uacpi_create_internal_reference( + UACPI_REFERENCE_KIND_NAMED, obj + ); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_initialize_opregion_node(node); + return UACPI_STATUS_OK; +} + +static uacpi_bool is_dynamic_table_load(enum uacpi_table_load_cause cause) +{ + return cause != UACPI_TABLE_LOAD_CAUSE_INIT; +} + +static uacpi_status prepare_table_load( + void *ptr, enum uacpi_table_load_cause cause, + uacpi_control_method *in_method +) +{ + struct acpi_dsdt *dsdt = ptr; + uacpi_log_level log_level = UACPI_LOG_TRACE; + const uacpi_char *log_prefix = "load of"; + + if (uacpi_unlikely(dsdt->hdr.length < sizeof(dsdt->hdr))) + return UACPI_STATUS_INVALID_TABLE_LENGTH; + + if (is_dynamic_table_load(cause)) { + log_prefix = cause == UACPI_TABLE_LOAD_CAUSE_HOST ? + "host-invoked load of" : "dynamic load of"; + log_level = UACPI_LOG_INFO; + } + + uacpi_log_lvl( + log_level, "%s "UACPI_PRI_TBL_HDR"\n", + log_prefix, UACPI_FMT_TBL_HDR(&dsdt->hdr) + ); + + in_method->code = dsdt->definition_block; + in_method->size = dsdt->hdr.length - sizeof(dsdt->hdr); + in_method->named_objects_persist = UACPI_TRUE; + + return UACPI_STATUS_OK; +} + +static uacpi_status do_load_table( + uacpi_namespace_node *parent, struct acpi_sdt_hdr *tbl, + enum uacpi_table_load_cause cause +) +{ + struct uacpi_control_method method = { 0 }; + uacpi_status ret; + + ret = prepare_table_load(tbl, cause, &method); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_execute_control_method(parent, &method, UACPI_NULL, UACPI_NULL); + if (uacpi_unlikely_error(ret)) + return ret; + + if (is_dynamic_table_load(cause)) + uacpi_events_match_post_dynamic_table_load(); + + return ret; +} + +static uacpi_status handle_load_table(struct execution_context *ctx) +{ + uacpi_status ret; + struct item_array *items = &ctx->cur_op_ctx->items; + struct item *root_node_item; + struct uacpi_table_identifiers table_id; + uacpi_table table; + uacpi_buffer *root_path, *param_path; + uacpi_control_method *method; + uacpi_namespace_node *root_node, *param_node = UACPI_NULL; + + /* + * If we already have the last true/false object loaded, this is a second + * invocation of this handler. For the second invocation we want to detect + * new AML GPE handlers that might've been loaded, as well as potentially + * remove the target. + */ + if (item_array_size(items) == 12) { + uacpi_size idx; + struct uacpi_table tmp_table = { 0 }; + + idx = item_array_at(items, 2)->immediate; + tmp_table.index = idx; + uacpi_table_unref(&tmp_table); + + /* + * If this load failed, remove the target that was provided via + * ParameterPathString so that it doesn't get stored to. + */ + if (uacpi_unlikely(item_array_at(items, 11)->obj->integer == 0)) { + uacpi_object *target; + + target = item_array_at(items, 3)->obj; + if (target != UACPI_NULL) { + uacpi_object_unref(target); + item_array_at(items, 3)->obj = UACPI_NULL; + } + + return UACPI_STATUS_OK; + } + + uacpi_events_match_post_dynamic_table_load(); + return UACPI_STATUS_OK; + } + + ret = build_table_id( + "LoadTable", &table_id, + item_array_at(items, 5)->obj->buffer, + item_array_at(items, 6)->obj->buffer, + item_array_at(items, 7)->obj->buffer + ); + if (uacpi_unlikely_error(ret)) + return ret; + + root_path = item_array_at(items, 8)->obj->buffer; + param_path = item_array_at(items, 9)->obj->buffer; + root_node_item = item_array_at(items, 0); + + if (root_path->size > 1) { + ret = uacpi_namespace_node_resolve( + ctx->cur_frame->cur_scope, root_path->text, UACPI_SHOULD_LOCK_NO, + UACPI_MAY_SEARCH_ABOVE_PARENT_YES, UACPI_PERMANENT_ONLY_NO, + &root_node + ); + if (uacpi_unlikely_error(ret)) { + table_id_error("LoadTable", "RootPathString", root_path); + if (ret == UACPI_STATUS_NOT_FOUND) + ret = UACPI_STATUS_AML_UNDEFINED_REFERENCE; + return ret; + } + } else { + root_node = uacpi_namespace_root(); + } + + if (param_path->size > 1) { + struct item *param_item; + + ret = uacpi_namespace_node_resolve( + root_node, param_path->text, UACPI_SHOULD_LOCK_NO, + UACPI_MAY_SEARCH_ABOVE_PARENT_YES, UACPI_PERMANENT_ONLY_NO, + ¶m_node + ); + if (uacpi_unlikely_error(ret)) { + table_id_error("LoadTable", "ParameterPathString", root_path); + if (ret == UACPI_STATUS_NOT_FOUND) + ret = UACPI_STATUS_AML_UNDEFINED_REFERENCE; + return ret; + } + + param_item = item_array_at(items, 3); + param_item->obj = param_node->object; + uacpi_object_ref(param_item->obj); + param_item->type = ITEM_OBJECT; + } + + ret = uacpi_table_find(&table_id, &table); + if (uacpi_unlikely_error(ret)) { + report_table_id_find_error("LoadTable", &table_id, ret); + return ret; + } + + method = item_array_at(items, 1)->obj->method; + ret = prepare_table_load( + table.hdr, UACPI_TABLE_LOAD_CAUSE_LOAD_TABLE_OP, method + ); + if (uacpi_unlikely_error(ret)) { + uacpi_table_unref(&table); + return ret; + } + + uacpi_table_mark_as_loaded(table.index); + item_array_at(items, 2)->immediate = table.index; + + root_node_item->node = root_node; + root_node_item->type = ITEM_NAMESPACE_NODE; + uacpi_shareable_ref(root_node); + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_load(struct execution_context *ctx) +{ + uacpi_status ret; + struct item_array *items = &ctx->cur_op_ctx->items; + uacpi_table table; + uacpi_control_method *method; + uacpi_object *src; + struct acpi_sdt_hdr *src_table = UACPI_NULL; + void *table_buffer; + uacpi_size declared_size; + uacpi_bool unmap_src = UACPI_FALSE; + + /* + * If we already have the last true/false object loaded, this is a second + * invocation of this handler. For the second invocation we simply want to + * detect new AML GPE handlers that might've been loaded. + * We do this only if table load was successful though. + */ + if (item_array_size(items) == 6) { + uacpi_size idx; + uacpi_table tmp_table = { 0 }; + + idx = item_array_at(items, 2)->immediate; + tmp_table.index = idx; + uacpi_table_unref(&tmp_table); + + if (item_array_at(items, 5)->obj->integer != 0) + uacpi_events_match_post_dynamic_table_load(); + return UACPI_STATUS_OK; + } + + src = item_array_at(items, 3)->obj; + + switch (src->type) { + case UACPI_OBJECT_OPERATION_REGION: { + uacpi_operation_region *op_region; + + op_region = src->op_region; + if (uacpi_unlikely( + op_region->space != UACPI_ADDRESS_SPACE_SYSTEM_MEMORY + )) { + uacpi_error("Load: operation region is not SystemMemory\n"); + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + goto error_out; + } + + if (uacpi_unlikely(op_region->length < sizeof(struct acpi_sdt_hdr))) { + uacpi_error( + "Load: operation region is too small: %"UACPI_PRIu64"\n", + UACPI_FMT64(op_region->length) + ); + ret = UACPI_STATUS_AML_BAD_ENCODING; + goto error_out; + } + + src_table = uacpi_kernel_map(op_region->offset, op_region->length); + if (uacpi_unlikely(src_table == UACPI_NULL)) { + uacpi_error( + "Load: failed to map operation region " + "0x%016"UACPI_PRIX64" -> 0x%016"UACPI_PRIX64"\n", + UACPI_FMT64(op_region->offset), + UACPI_FMT64(op_region->offset + op_region->length) + ); + ret = UACPI_STATUS_MAPPING_FAILED; + goto error_out; + } + + unmap_src = UACPI_TRUE; + declared_size = op_region->length; + break; + } + + case UACPI_OBJECT_BUFFER: { + uacpi_buffer *buffer; + + buffer = src->buffer; + if (buffer->size < sizeof(struct acpi_sdt_hdr)) { + uacpi_error( + "Load: buffer is too small: %zu\n", + buffer->size + ); + + ret = UACPI_STATUS_AML_BAD_ENCODING; + goto error_out; + } + + src_table = buffer->data; + declared_size = buffer->size; + break; + } + + default: + uacpi_error( + "Load: invalid argument '%s', expected " + "Buffer/Field/OperationRegion\n", + uacpi_object_type_to_string(src->type) + ); + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + goto error_out; + } + + if (uacpi_unlikely(src_table->length > declared_size)) { + uacpi_error( + "Load: table size %u is larger than the declared size %zu\n", + src_table->length, declared_size + ); + ret = UACPI_STATUS_AML_BAD_ENCODING; + goto error_out; + } + + if (uacpi_unlikely(src_table->length < sizeof(struct acpi_sdt_hdr))) { + uacpi_error("Load: table size %u is too small\n", src_table->length); + ret = UACPI_STATUS_INVALID_TABLE_LENGTH; + goto error_out; + } + + table_buffer = uacpi_kernel_alloc(src_table->length); + if (uacpi_unlikely(table_buffer == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto error_out; + } + + uacpi_memcpy(table_buffer, src_table, src_table->length); + + if (unmap_src) { + uacpi_kernel_unmap(src_table, declared_size); + unmap_src = UACPI_FALSE; + } + + ret = uacpi_table_install_with_origin( + table_buffer, UACPI_TABLE_ORIGIN_FIRMWARE_VIRTUAL, &table + ); + if (uacpi_unlikely_error(ret)) { + uacpi_free(table_buffer, src_table->length); + + /* + * Treat DENIED as a soft error, that is, fail the Load but don't abort + * the currently running method. We simply return False to the caller + * to signify an error in this case. + */ + if (uacpi_unlikely(ret == UACPI_STATUS_DENIED)) + ret = UACPI_STATUS_OK; + + if (ret != UACPI_STATUS_OVERRIDDEN) + goto error_out; + } + + method = item_array_at(items, 1)->obj->method; + ret = prepare_table_load(table.ptr, UACPI_TABLE_LOAD_CAUSE_LOAD_OP, method); + if (uacpi_unlikely_error(ret)) { + uacpi_table_unref(&table); + goto error_out; + } + + uacpi_table_mark_as_loaded(table.index); + item_array_at(items, 2)->immediate = table.index; + + item_array_at(items, 0)->node = uacpi_namespace_root(); + return UACPI_STATUS_OK; + +error_out: + if (unmap_src && src_table) + uacpi_kernel_unmap(src_table, declared_size); + return ret; +} + +uacpi_status uacpi_execute_table(void *tbl, enum uacpi_table_load_cause cause) +{ + uacpi_status ret; + + ret = uacpi_namespace_write_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = do_load_table(uacpi_namespace_root(), tbl, cause); + + uacpi_namespace_write_unlock(); + return ret; +} + +static uacpi_u32 get_field_length(struct item *item) +{ + struct package_length *pkg = &item->pkg; + return pkg->end - pkg->begin; +} + +struct field_specific_data { + uacpi_namespace_node *region; + struct uacpi_field_unit *field0; + struct uacpi_field_unit *field1; + uacpi_u64 value; +}; + +static uacpi_status ensure_is_a_field_unit(uacpi_namespace_node *node, + uacpi_field_unit **out_field) +{ + uacpi_object *obj; + + obj = uacpi_namespace_node_get_object(node); + if (obj->type != UACPI_OBJECT_FIELD_UNIT) { + uacpi_error( + "invalid argument: '%.4s' is not a field unit (%s)\n", + node->name.text, uacpi_object_type_to_string(obj->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + *out_field = obj->field_unit; + return UACPI_STATUS_OK; +} + +static uacpi_status ensure_is_an_op_region(uacpi_namespace_node *node, + uacpi_namespace_node **out_node) +{ + uacpi_object *obj; + + obj = uacpi_namespace_node_get_object(node); + if (obj->type != UACPI_OBJECT_OPERATION_REGION) { + uacpi_error( + "invalid argument: '%.4s' is not an operation region (%s)\n", + node->name.text, uacpi_object_type_to_string(obj->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + *out_node = node; + return UACPI_STATUS_OK; +} + +static uacpi_status handle_create_field(struct execution_context *ctx) +{ + uacpi_status ret; + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_namespace_node *node; + uacpi_object *obj, *connection_obj = UACPI_NULL; + struct field_specific_data field_data = { 0 }; + uacpi_size i = 1, bit_offset = 0; + uacpi_u32 length, pin_offset = 0; + + uacpi_u8 raw_value, access_type, lock_rule, update_rule; + uacpi_u8 access_attrib = 0, access_length = 0; + + switch (op_ctx->op->code) { + case UACPI_AML_OP_FieldOp: + node = item_array_at(&op_ctx->items, i++)->node; + ret = ensure_is_an_op_region(node, &field_data.region); + if (uacpi_unlikely_error(ret)) + return ret; + break; + + case UACPI_AML_OP_BankFieldOp: + node = item_array_at(&op_ctx->items, i++)->node; + ret = ensure_is_an_op_region(node, &field_data.region); + if (uacpi_unlikely_error(ret)) + return ret; + + node = item_array_at(&op_ctx->items, i++)->node; + ret = ensure_is_a_field_unit(node, &field_data.field0); + if (uacpi_unlikely_error(ret)) + return ret; + + field_data.value = item_array_at(&op_ctx->items, i++)->obj->integer; + break; + + case UACPI_AML_OP_IndexFieldOp: + node = item_array_at(&op_ctx->items, i++)->node; + ret = ensure_is_a_field_unit(node, &field_data.field0); + if (uacpi_unlikely_error(ret)) + return ret; + + node = item_array_at(&op_ctx->items, i++)->node; + ret = ensure_is_a_field_unit(node, &field_data.field1); + if (uacpi_unlikely_error(ret)) + return ret; + break; + + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + /* + * ByteData + * bit 0-3: AccessType + * 0 AnyAcc + * 1 ByteAcc + * 2 WordAcc + * 3 DWordAcc + * 4 QWordAcc + * 5 BufferAcc + * 6 Reserved + * 7-15 Reserved + * bit 4: LockRule + * 0 NoLock + * 1 Lock + * bit 5-6: UpdateRule + * 0 Preserve + * 1 WriteAsOnes + * 2 WriteAsZeros + * bit 7: Reserved (must be 0) + */ + raw_value = item_array_at(&op_ctx->items, i++)->immediate; + access_type = (raw_value >> 0) & 0xF; + lock_rule = (raw_value >> 4) & 0x1; + update_rule = (raw_value >> 5) & 0x3; + + while (i < item_array_size(&op_ctx->items)) { + struct item *item; + item = item_array_at(&op_ctx->items, i++); + + // An actual field object + if (item->type == ITEM_NAMESPACE_NODE) { + uacpi_field_unit *field; + + length = get_field_length(item_array_at(&op_ctx->items, i++)); + node = item->node; + + obj = item_array_at(&op_ctx->items, i++)->obj; + field = obj->field_unit; + + field->update_rule = update_rule; + field->lock_rule = lock_rule; + field->attributes = access_attrib; + field->access_length = access_length; + + /* + * 0 AnyAcc + * 1 ByteAcc + * 2 WordAcc + * 3 DWordAcc + * 4 QWordAcc + * 5 BufferAcc + * 6 Reserved + * 7-15 Reserved + */ + switch (access_type) { + case 0: + // TODO: optimize to calculate best access strategy + UACPI_FALLTHROUGH; + case 1: + case 5: + field->access_width_bytes = 1; + break; + case 2: + field->access_width_bytes = 2; + break; + case 3: + field->access_width_bytes = 4; + break; + case 4: + field->access_width_bytes = 8; + break; + default: + uacpi_error("invalid field '%.4s' access type %d\n", + node->name.text, access_type); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + field->bit_length = length; + field->pin_offset = pin_offset; + + // FIXME: overflow, OOB, etc checks + field->byte_offset = UACPI_ALIGN_DOWN( + bit_offset / 8, + field->access_width_bytes, + uacpi_u32 + ); + + field->bit_offset_within_first_byte = bit_offset; + field->bit_offset_within_first_byte = + bit_offset & ((field->access_width_bytes * 8) - 1); + + switch (op_ctx->op->code) { + case UACPI_AML_OP_FieldOp: + field->region = field_data.region; + uacpi_shareable_ref(field->region); + + field->kind = UACPI_FIELD_UNIT_KIND_NORMAL; + break; + + case UACPI_AML_OP_BankFieldOp: + field->bank_region = field_data.region; + uacpi_shareable_ref(field->bank_region); + + field->bank_selection = field_data.field0; + uacpi_shareable_ref(field->bank_selection); + + field->bank_value = field_data.value; + field->kind = UACPI_FIELD_UNIT_KIND_BANK; + break; + + case UACPI_AML_OP_IndexFieldOp: + field->index = field_data.field0; + uacpi_shareable_ref(field->index); + + field->data = field_data.field1; + uacpi_shareable_ref(field->data); + + field->kind = UACPI_FIELD_UNIT_KIND_INDEX; + break; + + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + field->connection = connection_obj; + if (field->connection) + uacpi_object_ref(field->connection); + + node->object = uacpi_create_internal_reference( + UACPI_REFERENCE_KIND_NAMED, obj + ); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + ret = do_install_node_item(ctx->cur_frame, item); + if (uacpi_unlikely_error(ret)) + return ret; + + bit_offset += length; + pin_offset += length; + continue; + } + + // All other stuff + switch ((int)item->immediate) { + // ReservedField := 0x00 PkgLength + case 0x00: + length = get_field_length(item_array_at(&op_ctx->items, i++)); + bit_offset += length; + pin_offset += length; + break; + + // AccessField := 0x01 AccessType AccessAttrib + // ExtendedAccessField := 0x03 AccessType ExtendedAccessAttrib AccessLength + case 0x01: + case 0x03: + raw_value = item_array_at(&op_ctx->items, i++)->immediate; + + access_type = raw_value & 0xF; + access_attrib = (raw_value >> 6) & 0x3; + + raw_value = item_array_at(&op_ctx->items, i++)->immediate; + + /* + * Bits 7:6 + * 0 = AccessAttrib = Normal Access Attributes + * 1 = AccessAttrib = AttribBytes (x) + * 2 = AccessAttrib = AttribRawBytes (x) + * 3 = AccessAttrib = AttribRawProcessBytes (x) + * x is encoded as bits 0:7 of the AccessAttrib byte. + */ + if (access_attrib) { + switch (access_attrib) { + case 1: + access_attrib = UACPI_ACCESS_ATTRIBUTE_BYTES; + break; + case 2: + access_attrib = UACPI_ACCESS_ATTRIBUTE_RAW_BYTES; + break; + case 3: + access_attrib = UACPI_ACCESS_ATTRIBUTE_RAW_PROCESS_BYTES; + break; + } + + access_length = raw_value; + } else { // Normal access attributes + access_attrib = raw_value; + } + + if (item->immediate == 3) + access_length = item_array_at(&op_ctx->items, i++)->immediate; + break; + + // ConnectField := <0x02 NameString> | <0x02 BufferData> + case 0x02: + connection_obj = item_array_at(&op_ctx->items, i++)->obj; + pin_offset = 0; + break; + + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + } + + return UACPI_STATUS_OK; +} + +static void truncate_number_if_needed(uacpi_object *obj) +{ + if (!g_uacpi_rt_ctx.is_rev1) + return; + + obj->integer &= 0xFFFFFFFF; +} + +static uacpi_u64 ones(void) +{ + return g_uacpi_rt_ctx.is_rev1 ? 0xFFFFFFFF : 0xFFFFFFFFFFFFFFFF; +} + +static uacpi_status method_get_ret_target(struct execution_context *ctx, + uacpi_object **out_operand) +{ + uacpi_size depth; + + // Check if we're targeting the previous call frame + depth = call_frame_array_size(&ctx->call_stack); + if (depth > 1) { + struct op_context *op_ctx; + struct call_frame *frame; + + frame = call_frame_array_at(&ctx->call_stack, depth - 2); + depth = op_context_array_size(&frame->pending_ops); + + // Ok, no one wants the return value at call site. Discard it. + if (!depth) { + *out_operand = UACPI_NULL; + return UACPI_STATUS_OK; + } + + op_ctx = op_context_array_at(&frame->pending_ops, depth - 1); + + /* + * Prevent the table being dynamically loaded from attempting to return + * a value to the caller. This is unlikely to be ever encountered in the + * wild, but we should still guard against the possibility. + */ + if (uacpi_unlikely(op_ctx->op->code == UACPI_AML_OP_LoadOp || + op_ctx->op->code == UACPI_AML_OP_LoadTableOp)) { + *out_operand = UACPI_NULL; + return UACPI_STATUS_OK; + } + + *out_operand = item_array_last(&op_ctx->items)->obj; + return UACPI_STATUS_OK; + } + + return UACPI_STATUS_NOT_FOUND; +} + +static uacpi_status method_get_ret_object(struct execution_context *ctx, + uacpi_object **out_obj) +{ + uacpi_status ret; + + ret = method_get_ret_target(ctx, out_obj); + if (ret == UACPI_STATUS_NOT_FOUND) { + *out_obj = ctx->ret; + return UACPI_STATUS_OK; + } + if (ret != UACPI_STATUS_OK || *out_obj == UACPI_NULL) + return ret; + + *out_obj = uacpi_unwrap_internal_reference(*out_obj); + return UACPI_STATUS_OK; +} + +static struct code_block *find_last_block(struct code_block_array *blocks, + enum code_block_type type) +{ + uacpi_size i; + + i = code_block_array_size(blocks); + while (i-- > 0) { + struct code_block *block; + + block = code_block_array_at(blocks, i); + if (block->type == type) + return block; + } + + return UACPI_NULL; +} + +static void update_scope(struct call_frame *frame) +{ + struct code_block *block; + + block = find_last_block(&frame->code_blocks, CODE_BLOCK_SCOPE); + if (block == UACPI_NULL) { + frame->cur_scope = uacpi_namespace_root(); + return; + } + + frame->cur_scope = block->node; +} + +static uacpi_status begin_block_execution(struct execution_context *ctx) +{ + struct call_frame *cur_frame = ctx->cur_frame; + struct op_context *op_ctx = ctx->cur_op_ctx; + struct package_length *pkg; + struct code_block *block; + + block = code_block_array_alloc(&cur_frame->code_blocks); + if (uacpi_unlikely(block == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + pkg = &item_array_at(&op_ctx->items, 0)->pkg; + + // Disarm the tracked package so that we don't skip the Scope + op_ctx->tracked_pkg_idx = 0; + + switch (op_ctx->op->code) { + case UACPI_AML_OP_IfOp: + block->type = CODE_BLOCK_IF; + break; + case UACPI_AML_OP_ElseOp: + block->type = CODE_BLOCK_ELSE; + break; + case UACPI_AML_OP_WhileOp: + block->type = CODE_BLOCK_WHILE; + + if (pkg->begin == cur_frame->prev_while_code_offset) { + uacpi_u64 cur_ticks; + + cur_ticks = uacpi_kernel_get_nanoseconds_since_boot(); + + if (uacpi_unlikely(cur_ticks > block->expiration_point)) { + uacpi_error("loop time out after running for %u seconds\n", + g_uacpi_rt_ctx.loop_timeout_seconds); + code_block_array_pop(&cur_frame->code_blocks); + return UACPI_STATUS_AML_LOOP_TIMEOUT; + } + + block->expiration_point = cur_frame->prev_while_expiration; + } else { + /* + * Calculate the expiration point for this loop. + * If a loop is executed past this point, it will get aborted. + */ + block->expiration_point = uacpi_kernel_get_nanoseconds_since_boot(); + block->expiration_point += + g_uacpi_rt_ctx.loop_timeout_seconds * UACPI_NANOSECONDS_PER_SEC; + } + break; + case UACPI_AML_OP_ScopeOp: + case UACPI_AML_OP_DeviceOp: + case UACPI_AML_OP_ProcessorOp: + case UACPI_AML_OP_PowerResOp: + case UACPI_AML_OP_ThermalZoneOp: + block->type = CODE_BLOCK_SCOPE; + block->node = item_array_at(&op_ctx->items, 1)->node; + break; + default: + code_block_array_pop(&cur_frame->code_blocks); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + // -1 because we want to re-evaluate at the start of the op next time + block->begin = pkg->begin - 1; + block->end = pkg->end; + ctx->cur_block = block; + + cur_frame->last_while = find_last_block(&cur_frame->code_blocks, + CODE_BLOCK_WHILE); + update_scope(cur_frame); + return UACPI_STATUS_OK; +} + +static void frame_reset_post_end_block(struct execution_context *ctx, + enum code_block_type type) +{ + struct call_frame *frame = ctx->cur_frame; + + if (type == CODE_BLOCK_WHILE) { + struct code_block *block = ctx->cur_block; + + // + 1 here to skip the WhileOp and get to the PkgLength + frame->prev_while_code_offset = block->begin + 1; + frame->prev_while_expiration = block->expiration_point; + } + + code_block_array_pop(&frame->code_blocks); + ctx->cur_block = code_block_array_last(&frame->code_blocks); + + if (type == CODE_BLOCK_WHILE) { + frame->last_while = find_last_block(&frame->code_blocks, type); + } else if (type == CODE_BLOCK_SCOPE) { + update_scope(frame); + } +} + +static void debug_store_no_recurse(const uacpi_char *prefix, uacpi_object *src) +{ + switch (src->type) { + case UACPI_OBJECT_UNINITIALIZED: + uacpi_trace("%s Uninitialized\n", prefix); + break; + case UACPI_OBJECT_STRING: + uacpi_trace("%s String => \"%s\"\n", prefix, src->buffer->text); + break; + case UACPI_OBJECT_INTEGER: + if (g_uacpi_rt_ctx.is_rev1) { + uacpi_trace( + "%s Integer => 0x%08X\n", prefix, (uacpi_u32)src->integer + ); + } else { + uacpi_trace( + "%s Integer => 0x%016"UACPI_PRIX64"\n", prefix, + UACPI_FMT64(src->integer) + ); + } + break; + case UACPI_OBJECT_REFERENCE: + uacpi_trace("%s Reference @%p => %p\n", prefix, src, src->inner_object); + break; + case UACPI_OBJECT_PACKAGE: + uacpi_trace( + "%s Package @%p (%p) (%zu elements)\n", + prefix, src, src->package, src->package->count + ); + break; + case UACPI_OBJECT_BUFFER: + uacpi_trace( + "%s Buffer @%p (%p) (%zu bytes)\n", + prefix, src, src->buffer, src->buffer->size + ); + break; + case UACPI_OBJECT_OPERATION_REGION: + uacpi_trace( + "%s OperationRegion (ASID %d) 0x%016"UACPI_PRIX64 + " -> 0x%016"UACPI_PRIX64"\n", prefix, + src->op_region->space, UACPI_FMT64(src->op_region->offset), + UACPI_FMT64(src->op_region->offset + src->op_region->length) + ); + break; + case UACPI_OBJECT_POWER_RESOURCE: + uacpi_trace( + "%s Power Resource %d %d\n", + prefix, src->power_resource.system_level, + src->power_resource.resource_order + ); + break; + case UACPI_OBJECT_PROCESSOR: + uacpi_trace( + "%s Processor[%d] 0x%08X (%d)\n", + prefix, src->processor->id, src->processor->block_address, + src->processor->block_length + ); + break; + case UACPI_OBJECT_BUFFER_INDEX: + uacpi_trace( + "%s Buffer Index %p[%zu] => 0x%02X\n", + prefix, src->buffer_index.buffer->data, src->buffer_index.idx, + *buffer_index_cursor(&src->buffer_index) + ); + break; + case UACPI_OBJECT_MUTEX: + uacpi_trace( + "%s Mutex @%p (%p => %p) sync level %d\n", + prefix, src, src->mutex, src->mutex->handle, + src->mutex->sync_level + ); + break; + case UACPI_OBJECT_METHOD: + uacpi_trace("%s Method @%p (%p)\n", prefix, src, src->method); + break; + default: + uacpi_trace( + "%s %s @%p\n", + prefix, uacpi_object_type_to_string(src->type), src + ); + } +} + +static uacpi_status debug_store(uacpi_object *src) +{ + /* + * Don't bother running the body if current log level is not set to trace. + * All DebugOp logging is done as TRACE exclusively. + */ + if (!uacpi_should_log(UACPI_LOG_TRACE)) + return UACPI_STATUS_OK; + + src = uacpi_unwrap_internal_reference(src); + + debug_store_no_recurse("[AML DEBUG]", src); + + if (src->type == UACPI_OBJECT_PACKAGE) { + uacpi_package *pkg = src->package; + uacpi_size i; + + for (i = 0; i < pkg->count; ++i) { + uacpi_object *obj = pkg->objects[i]; + if (obj->type == UACPI_OBJECT_REFERENCE && + obj->flags == UACPI_REFERENCE_KIND_PKG_INDEX) + obj = obj->inner_object; + + debug_store_no_recurse("Element:", obj); + } + } + + return UACPI_STATUS_OK; +} + +/* + * NOTE: this function returns the parent object + */ +static uacpi_object *reference_unwind(uacpi_object *obj) +{ + uacpi_object *parent = obj; + + while (obj) { + if (obj->type != UACPI_OBJECT_REFERENCE) + return parent; + + parent = obj; + obj = parent->inner_object; + } + + // This should be unreachable + return UACPI_NULL; +} + +static uacpi_iteration_decision opregion_try_detach_from_parent( + void *user, uacpi_namespace_node *node, uacpi_u32 node_depth +) +{ + uacpi_object *target_object = user; + UACPI_UNUSED(node_depth); + + if (node->object == target_object) { + uacpi_opregion_uninstall_handler(node); + return UACPI_ITERATION_DECISION_BREAK; + } + + return UACPI_ITERATION_DECISION_CONTINUE; +} + +static void object_replace_child(uacpi_object *parent, uacpi_object *new_child) +{ + if (parent->flags == UACPI_REFERENCE_KIND_NAMED && + uacpi_object_is(parent->inner_object, UACPI_OBJECT_OPERATION_REGION)) { + + /* + * We're doing a CopyObject or similar to a namespace node that is an + * operation region. Try to find the parent node and manually detach + * the handler. + */ + opregion_try_detach_from_parent(parent, uacpi_namespace_root(), 0); + uacpi_namespace_do_for_each_child( + uacpi_namespace_root(), opregion_try_detach_from_parent, UACPI_NULL, + UACPI_OBJECT_OPERATION_REGION_BIT, UACPI_MAX_DEPTH_ANY, + UACPI_SHOULD_LOCK_NO, UACPI_PERMANENT_ONLY_NO, parent + ); + } + + uacpi_object_detach_child(parent); + uacpi_object_attach_child(parent, new_child); +} + +/* + * Breakdown of what happens here: + * + * CopyObject(..., Obj) where Obj is: + * 1. LocalX -> Overwrite LocalX. + * 2. NAME -> Overwrite NAME. + * 3. ArgX -> Overwrite ArgX unless ArgX is a reference, in that case + * overwrite the referenced object. + * 4. RefOf -> Not allowed here. + * 5. Index -> Overwrite Object stored at the index. + */ + static uacpi_status copy_object_to_reference(uacpi_object *dst, + uacpi_object *src) +{ + uacpi_status ret; + uacpi_object *src_obj, *new_obj; + + switch (dst->flags) { + case UACPI_REFERENCE_KIND_ARG: { + uacpi_object *referenced_obj; + + referenced_obj = uacpi_unwrap_internal_reference(dst); + if (referenced_obj->type == UACPI_OBJECT_REFERENCE) { + dst = reference_unwind(referenced_obj); + break; + } + + UACPI_FALLTHROUGH; + } + case UACPI_REFERENCE_KIND_LOCAL: + case UACPI_REFERENCE_KIND_PKG_INDEX: + case UACPI_REFERENCE_KIND_NAMED: + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + src_obj = uacpi_unwrap_internal_reference(src); + + new_obj = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + if (uacpi_unlikely(new_obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + ret = uacpi_object_assign(new_obj, src_obj, + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY); + if (uacpi_unlikely_error(ret)) + return ret; + + object_replace_child(dst, new_obj); + uacpi_object_unref(new_obj); + + return UACPI_STATUS_OK; +} + +/* + * if Store(..., Obj) where Obj is: + * 1. LocalX/Index -> OVERWRITE unless the object is a reference, in that + * case store to the referenced object _with_ implicit + * cast. + * 2. ArgX -> OVERWRITE unless the object is a reference, in that + * case OVERWRITE the referenced object. + * 3. NAME -> Store with implicit cast. + * 4. RefOf -> Not allowed here. + */ +static uacpi_status store_to_reference( + uacpi_object *dst, uacpi_object *src, uacpi_data_view *wtr_response +) +{ + uacpi_object *src_obj; + uacpi_bool overwrite = UACPI_FALSE; + + switch (dst->flags) { + case UACPI_REFERENCE_KIND_LOCAL: + case UACPI_REFERENCE_KIND_ARG: + case UACPI_REFERENCE_KIND_PKG_INDEX: { + uacpi_object *referenced_obj; + + if (dst->flags == UACPI_REFERENCE_KIND_PKG_INDEX) + referenced_obj = dst->inner_object; + else + referenced_obj = uacpi_unwrap_internal_reference(dst); + + if (referenced_obj->type == UACPI_OBJECT_REFERENCE) { + overwrite = dst->flags == UACPI_REFERENCE_KIND_ARG; + dst = reference_unwind(referenced_obj); + break; + } + + overwrite = UACPI_TRUE; + break; + } + case UACPI_REFERENCE_KIND_NAMED: + dst = reference_unwind(dst); + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + src_obj = uacpi_unwrap_internal_reference(src); + overwrite |= dst->inner_object->type == UACPI_OBJECT_UNINITIALIZED; + + if (overwrite) { + uacpi_status ret; + uacpi_object *new_obj; + + new_obj = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + if (uacpi_unlikely(new_obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + ret = uacpi_object_assign(new_obj, src_obj, + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY); + if (uacpi_unlikely_error(ret)) { + uacpi_object_unref(new_obj); + return ret; + } + + object_replace_child(dst, new_obj); + uacpi_object_unref(new_obj); + return UACPI_STATUS_OK; + } + + return object_assign_with_implicit_cast( + dst->inner_object, src_obj, wtr_response + ); +} + +static uacpi_status handle_ref_or_deref_of(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *dst, *src; + + src = item_array_at(&op_ctx->items, 0)->obj; + + if (op_ctx->op->code == UACPI_AML_OP_CondRefOfOp) + dst = item_array_at(&op_ctx->items, 2)->obj; + else + dst = item_array_at(&op_ctx->items, 1)->obj; + + if (op_ctx->op->code == UACPI_AML_OP_DerefOfOp) { + uacpi_bool was_a_reference = UACPI_FALSE; + + if (src->type == UACPI_OBJECT_REFERENCE) { + was_a_reference = UACPI_TRUE; + + /* + * Explicit dereferencing [DerefOf] behavior: + * Simply grabs the bottom-most object that is not a reference. + * This mimics the behavior of NT Acpi.sys: any DerfOf fetches + * the bottom-most reference. Note that this is different from + * ACPICA where DerefOf dereferences one level. + */ + src = reference_unwind(src)->inner_object; + } + + if (src->type == UACPI_OBJECT_BUFFER_INDEX) { + uacpi_buffer_index *buf_idx = &src->buffer_index; + + dst->type = UACPI_OBJECT_INTEGER; + uacpi_memcpy_zerout( + &dst->integer, buffer_index_cursor(buf_idx), + sizeof(dst->integer), 1 + ); + return UACPI_STATUS_OK; + } + + if (!was_a_reference) { + uacpi_error( + "invalid DerefOf argument: %s, expected a reference\n", + uacpi_object_type_to_string(src->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + return uacpi_object_assign(dst, src, + UACPI_ASSIGN_BEHAVIOR_SHALLOW_COPY); + } + + dst->type = UACPI_OBJECT_REFERENCE; + dst->inner_object = src; + uacpi_object_ref(src); + return UACPI_STATUS_OK; +} + +static uacpi_status do_binary_math( + uacpi_object *arg0, uacpi_object *arg1, + uacpi_object *tgt0, uacpi_object *tgt1, + uacpi_aml_op op +) +{ + uacpi_u64 lhs, rhs, res; + uacpi_bool should_negate = UACPI_FALSE; + + lhs = arg0->integer; + rhs = arg1->integer; + + switch (op) + { + case UACPI_AML_OP_AddOp: + res = lhs + rhs; + break; + case UACPI_AML_OP_SubtractOp: + res = lhs - rhs; + break; + case UACPI_AML_OP_MultiplyOp: + res = lhs * rhs; + break; + case UACPI_AML_OP_ShiftLeftOp: + case UACPI_AML_OP_ShiftRightOp: + if (rhs <= (g_uacpi_rt_ctx.is_rev1 ? 31 : 63)) { + if (op == UACPI_AML_OP_ShiftLeftOp) + res = lhs << rhs; + else + res = lhs >> rhs; + } else { + res = 0; + } + break; + case UACPI_AML_OP_NandOp: + should_negate = UACPI_TRUE; + UACPI_FALLTHROUGH; + case UACPI_AML_OP_AndOp: + res = rhs & lhs; + break; + case UACPI_AML_OP_NorOp: + should_negate = UACPI_TRUE; + UACPI_FALLTHROUGH; + case UACPI_AML_OP_OrOp: + res = rhs | lhs; + break; + case UACPI_AML_OP_XorOp: + res = rhs ^ lhs; + break; + case UACPI_AML_OP_DivideOp: + if (uacpi_unlikely(rhs == 0)) { + uacpi_error("attempted to divide by zero\n"); + return UACPI_STATUS_AML_BAD_ENCODING; + } + tgt1->integer = lhs / rhs; + res = lhs % rhs; + break; + case UACPI_AML_OP_ModOp: + if (uacpi_unlikely(rhs == 0)) { + uacpi_error("attempted to calculate modulo of zero\n"); + return UACPI_STATUS_AML_BAD_ENCODING; + } + res = lhs % rhs; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (should_negate) + res = ~res; + + tgt0->integer = res; + return UACPI_STATUS_OK; +} + +static uacpi_status handle_binary_math(struct execution_context *ctx) +{ + uacpi_object *arg0, *arg1, *tgt0, *tgt1; + struct item_array *items = &ctx->cur_op_ctx->items; + uacpi_aml_op op = ctx->cur_op_ctx->op->code; + + arg0 = item_array_at(items, 0)->obj; + arg1 = item_array_at(items, 1)->obj; + + if (op == UACPI_AML_OP_DivideOp) { + tgt0 = item_array_at(items, 4)->obj; + tgt1 = item_array_at(items, 5)->obj; + } else { + tgt0 = item_array_at(items, 3)->obj; + tgt1 = UACPI_NULL; + } + + return do_binary_math(arg0, arg1, tgt0, tgt1, op); +} + +static uacpi_status handle_unary_math(struct execution_context *ctx) +{ + uacpi_object *arg, *tgt; + struct item_array *items = &ctx->cur_op_ctx->items; + uacpi_aml_op op = ctx->cur_op_ctx->op->code; + + arg = item_array_at(items, 0)->obj; + tgt = item_array_at(items, 2)->obj; + + switch (op) { + case UACPI_AML_OP_NotOp: + tgt->integer = ~arg->integer; + truncate_number_if_needed(tgt); + break; + case UACPI_AML_OP_FindSetRightBitOp: + tgt->integer = uacpi_bit_scan_forward(arg->integer); + break; + case UACPI_AML_OP_FindSetLeftBitOp: + tgt->integer = uacpi_bit_scan_backward(arg->integer); + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status ensure_valid_idx(uacpi_object *obj, uacpi_size idx, + uacpi_size src_size) +{ + if (uacpi_likely(idx < src_size)) + return UACPI_STATUS_OK; + + uacpi_error( + "invalid index %zu, %s@%p has %zu elements\n", + idx, uacpi_object_type_to_string(obj->type), obj, src_size + ); + return UACPI_STATUS_AML_OUT_OF_BOUNDS_INDEX; +} + +static uacpi_status handle_index(struct execution_context *ctx) +{ + uacpi_status ret; + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *src; + struct item *dst; + uacpi_size idx; + + src = item_array_at(&op_ctx->items, 0)->obj; + idx = item_array_at(&op_ctx->items, 1)->obj->integer; + dst = item_array_at(&op_ctx->items, 3); + + switch (src->type) { + case UACPI_OBJECT_BUFFER: + case UACPI_OBJECT_STRING: { + uacpi_buffer_index *buf_idx; + uacpi_data_view buf; + get_object_storage(src, &buf, UACPI_FALSE); + + ret = ensure_valid_idx(src, idx, buf.length); + if (uacpi_unlikely_error(ret)) + return ret; + + dst->type = ITEM_OBJECT; + dst->obj = uacpi_create_object(UACPI_OBJECT_BUFFER_INDEX); + if (uacpi_unlikely(dst->obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + buf_idx = &dst->obj->buffer_index; + buf_idx->idx = idx; + buf_idx->buffer = src->buffer; + uacpi_shareable_ref(buf_idx->buffer); + + break; + } + case UACPI_OBJECT_PACKAGE: { + uacpi_package *pkg = src->package; + uacpi_object *obj; + + ret = ensure_valid_idx(src, idx, pkg->count); + if (uacpi_unlikely_error(ret)) + return ret; + + /* + * Lazily transform the package element into an internal reference + * to itself of type PKG_INDEX. This is needed to support stuff like + * CopyObject(..., Index(pkg, X)) where the new object must be + * propagated to anyone else with a currently alive index object. + * + * Sidenote: Yes, IndexOp is not a SimpleName, so technically it is + * illegal to CopyObject to it. However, yet again we fall + * victim to the NT ACPI driver implementation, which allows + * it just fine. + */ + obj = pkg->objects[idx]; + if (obj->type != UACPI_OBJECT_REFERENCE || + obj->flags != UACPI_REFERENCE_KIND_PKG_INDEX) { + + obj = uacpi_create_internal_reference( + UACPI_REFERENCE_KIND_PKG_INDEX, obj + ); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + pkg->objects[idx] = obj; + uacpi_object_unref(obj->inner_object); + } + + dst->obj = obj; + dst->type = ITEM_OBJECT; + uacpi_object_ref(dst->obj); + break; + } + default: + uacpi_error( + "invalid argument for Index: %s, " + "expected String/Buffer/Package\n", + uacpi_object_type_to_string(src->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + return UACPI_STATUS_OK; +} + +static uacpi_u64 object_to_integer(const uacpi_object *obj, + uacpi_size max_buffer_bytes) +{ + uacpi_u64 dst; + + switch (obj->type) { + case UACPI_OBJECT_INTEGER: + dst = obj->integer; + break; + case UACPI_OBJECT_BUFFER: { + uacpi_size bytes; + bytes = UACPI_MIN(max_buffer_bytes, obj->buffer->size); + uacpi_memcpy_zerout(&dst, obj->buffer->data, sizeof(dst), bytes); + break; + } + case UACPI_OBJECT_STRING: + uacpi_string_to_integer( + obj->buffer->text, obj->buffer->size, UACPI_BASE_AUTO, &dst + ); + break; + default: + dst = 0; + break; + } + + return dst; +} + +static uacpi_status integer_to_string( + uacpi_u64 integer, uacpi_buffer *str, uacpi_bool is_hex +) +{ + int repr_len; + uacpi_char int_buf[21]; + uacpi_size final_size; + + repr_len = uacpi_snprintf( + int_buf, sizeof(int_buf), + is_hex ? "%"UACPI_PRIX64 : "%"UACPI_PRIu64, + UACPI_FMT64(integer) + ); + if (uacpi_unlikely(repr_len < 0)) + return UACPI_STATUS_INVALID_ARGUMENT; + + // 0x prefix + repr + \0 + final_size = (is_hex ? 2 : 0) + repr_len + 1; + + str->data = uacpi_kernel_alloc(final_size); + if (uacpi_unlikely(str->data == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + if (is_hex) { + str->text[0] = '0'; + str->text[1] = 'x'; + } + uacpi_memcpy(str->text + (is_hex ? 2 : 0), int_buf, repr_len + 1); + str->size = final_size; + + return UACPI_STATUS_OK; +} + +static uacpi_status buffer_to_string( + uacpi_buffer *buf, uacpi_buffer *str, uacpi_bool is_hex +) +{ + int repr_len; + uacpi_char int_buf[5]; + uacpi_size i, final_size; + uacpi_char *cursor; + + if (is_hex) { + final_size = 4 * buf->size; + } else { + final_size = 0; + + for (i = 0; i < buf->size; ++i) { + uacpi_u8 value = ((uacpi_u8*)buf->data)[i]; + + if (value < 10) + final_size += 1; + else if (value < 100) + final_size += 2; + else + final_size += 3; + } + } + + // Comma for every value but one + final_size += buf->size - 1; + + // Null terminator + final_size += 1; + + str->data = uacpi_kernel_alloc(final_size); + if (uacpi_unlikely(str->data == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + cursor = str->data; + + for (i = 0; i < buf->size; ++i) { + repr_len = uacpi_snprintf( + int_buf, sizeof(int_buf), + is_hex ? "0x%02X" : "%d", + ((uacpi_u8*)buf->data)[i] + ); + if (uacpi_unlikely(repr_len < 0)) { + uacpi_free(str->data, final_size); + str->data = UACPI_NULL; + return UACPI_STATUS_INVALID_ARGUMENT; + } + + uacpi_memcpy(cursor, int_buf, repr_len + 1); + cursor += repr_len; + + if (i != buf->size - 1) + *cursor++ = ','; + } + + str->size = final_size; + return UACPI_STATUS_OK; +} + +static uacpi_status do_make_empty_object(uacpi_buffer *buf, + uacpi_bool is_string) +{ + buf->text = uacpi_kernel_alloc_zeroed(sizeof(uacpi_char)); + if (uacpi_unlikely(buf->text == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + if (is_string) + buf->size = sizeof(uacpi_char); + + return UACPI_STATUS_OK; +} + +static uacpi_status make_null_string(uacpi_buffer *buf) +{ + return do_make_empty_object(buf, UACPI_TRUE); +} + +static uacpi_status make_null_buffer(uacpi_buffer *buf) +{ + /* + * Allocate at least 1 byte just to be safe, + * even for empty buffers. We still set the + * size to 0 though. + */ + return do_make_empty_object(buf, UACPI_FALSE); +} + +static uacpi_status handle_to(struct execution_context *ctx) +{ + uacpi_status ret = UACPI_STATUS_OK; + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *src, *dst; + + src = item_array_at(&op_ctx->items, 0)->obj; + dst = item_array_at(&op_ctx->items, 2)->obj; + + switch (op_ctx->op->code) { + case UACPI_AML_OP_ToIntegerOp: + // NT always takes the first 8 bytes, even for revision 1 + dst->integer = object_to_integer(src, 8); + break; + + case UACPI_AML_OP_ToHexStringOp: + case UACPI_AML_OP_ToDecimalStringOp: { + uacpi_bool is_hex = op_ctx->op->code == UACPI_AML_OP_ToHexStringOp; + + if (src->type == UACPI_OBJECT_INTEGER) { + ret = integer_to_string(src->integer, dst->buffer, is_hex); + break; + } else if (src->type == UACPI_OBJECT_BUFFER) { + if (uacpi_unlikely(src->buffer->size == 0)) + return make_null_string(dst->buffer); + + ret = buffer_to_string(src->buffer, dst->buffer, is_hex); + break; + } + UACPI_FALLTHROUGH; + } + case UACPI_AML_OP_ToBufferOp: { + uacpi_data_view buf; + uacpi_u8 *dst_buf; + + ret = get_object_storage(src, &buf, UACPI_TRUE); + if (uacpi_unlikely_error(ret)) + return ret; + + if (uacpi_unlikely(buf.length == 0)) + return make_null_buffer(dst->buffer); + + dst_buf = uacpi_kernel_alloc(buf.length); + if (uacpi_unlikely(dst_buf == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy(dst_buf, buf.bytes, buf.length); + dst->buffer->data = dst_buf; + dst->buffer->size = buf.length; + break; + } + + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return ret; +} + +static uacpi_status handle_to_string(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_buffer *src_buf, *dst_buf; + uacpi_size req_len, len; + + src_buf = item_array_at(&op_ctx->items, 0)->obj->buffer; + req_len = item_array_at(&op_ctx->items, 1)->obj->integer; + dst_buf = item_array_at(&op_ctx->items, 3)->obj->buffer; + + len = UACPI_MIN(req_len, src_buf->size); + if (uacpi_unlikely(len == 0)) + return make_null_string(dst_buf); + + len = uacpi_strnlen(src_buf->text, len); + + dst_buf->text = uacpi_kernel_alloc(len + 1); + if (uacpi_unlikely(dst_buf->text == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy(dst_buf->text, src_buf->data, len); + dst_buf->text[len] = '\0'; + dst_buf->size = len + 1; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_mid(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *src, *dst; + uacpi_data_view src_buf; + uacpi_buffer *dst_buf; + uacpi_size idx, len; + uacpi_bool is_string; + + src = item_array_at(&op_ctx->items, 0)->obj; + if (uacpi_unlikely(src->type != UACPI_OBJECT_STRING && + src->type != UACPI_OBJECT_BUFFER)) { + uacpi_error( + "invalid argument for Mid: %s, expected String/Buffer\n", + uacpi_object_type_to_string(src->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + idx = item_array_at(&op_ctx->items, 1)->obj->integer; + len = item_array_at(&op_ctx->items, 2)->obj->integer; + dst = item_array_at(&op_ctx->items, 4)->obj; + dst_buf = dst->buffer; + + is_string = src->type == UACPI_OBJECT_STRING; + get_object_storage(src, &src_buf, UACPI_FALSE); + + if (uacpi_unlikely(src_buf.length == 0 || idx >= src_buf.length || + len == 0)) { + if (src->type == UACPI_OBJECT_STRING) { + dst->type = UACPI_OBJECT_STRING; + return make_null_string(dst_buf); + } + + return make_null_buffer(dst_buf); + } + + // Guaranteed to be at least 1 here + len = UACPI_MIN(len, src_buf.length - idx); + + dst_buf->data = uacpi_kernel_alloc(len + is_string); + if (uacpi_unlikely(dst_buf->data == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy(dst_buf->data, (uacpi_u8*)src_buf.bytes + idx, len); + dst_buf->size = len; + + if (is_string) { + dst_buf->text[dst_buf->size++] = '\0'; + dst->type = UACPI_OBJECT_STRING; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_concatenate(struct execution_context *ctx) +{ + uacpi_status ret = UACPI_STATUS_OK; + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *arg0, *arg1, *dst; + uacpi_u8 *dst_buf; + uacpi_size buf_size = 0; + + arg0 = item_array_at(&op_ctx->items, 0)->obj; + arg1 = item_array_at(&op_ctx->items, 1)->obj; + dst = item_array_at(&op_ctx->items, 3)->obj; + + switch (arg0->type) { + case UACPI_OBJECT_INTEGER: { + uacpi_u64 arg1_as_int; + uacpi_size int_size; + + int_size = sizeof_int(); + buf_size = int_size * 2; + + dst_buf = uacpi_kernel_alloc(buf_size); + if (uacpi_unlikely(dst_buf == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + arg1_as_int = object_to_integer(arg1, 8); + + uacpi_memcpy(dst_buf, &arg0->integer, int_size); + uacpi_memcpy(dst_buf+ int_size, &arg1_as_int, int_size); + break; + } + case UACPI_OBJECT_BUFFER: { + uacpi_buffer *arg0_buf = arg0->buffer; + uacpi_data_view arg1_buf = { 0 }; + + get_object_storage(arg1, &arg1_buf, UACPI_TRUE); + buf_size = arg0_buf->size + arg1_buf.length; + + dst_buf = uacpi_kernel_alloc(buf_size); + if (uacpi_unlikely(dst_buf == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy(dst_buf, arg0_buf->data, arg0_buf->size); + uacpi_memcpy(dst_buf + arg0_buf->size, arg1_buf.bytes, arg1_buf.length); + break; + } + case UACPI_OBJECT_STRING: { + uacpi_char int_buf[17]; + void *arg1_ptr; + uacpi_size arg0_size, arg1_size; + uacpi_buffer *arg0_buf = arg0->buffer; + + switch (arg1->type) { + case UACPI_OBJECT_INTEGER: { + int size; + size = uacpi_snprintf(int_buf, sizeof(int_buf), "%"UACPI_PRIx64, + UACPI_FMT64(arg1->integer)); + if (size < 0) + return UACPI_STATUS_INVALID_ARGUMENT; + + arg1_ptr = int_buf; + arg1_size = size + 1; + break; + } + case UACPI_OBJECT_STRING: + arg1_ptr = arg1->buffer->data; + arg1_size = arg1->buffer->size; + break; + case UACPI_OBJECT_BUFFER: { + uacpi_buffer tmp_buf; + + ret = buffer_to_string(arg1->buffer, &tmp_buf, UACPI_TRUE); + if (uacpi_unlikely_error(ret)) + return ret; + + arg1_ptr = tmp_buf.data; + arg1_size = tmp_buf.size; + break; + } + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + arg0_size = arg0_buf->size ? arg0_buf->size - 1 : arg0_buf->size; + buf_size = arg0_size + arg1_size; + + dst_buf = uacpi_kernel_alloc(buf_size); + if (uacpi_unlikely(dst_buf == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto cleanup; + } + + uacpi_memcpy(dst_buf, arg0_buf->data, arg0_size); + uacpi_memcpy(dst_buf + arg0_size, arg1_ptr, arg1_size); + dst->type = UACPI_OBJECT_STRING; + + cleanup: + if (arg1->type == UACPI_OBJECT_BUFFER) + uacpi_free(arg1_ptr, arg1_size); + break; + } + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (uacpi_likely_success(ret)) { + dst->buffer->data = dst_buf; + dst->buffer->size = buf_size; + } + return ret; +} + +static uacpi_status handle_concatenate_res(struct execution_context *ctx) +{ + uacpi_status ret; + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_data_view buffer; + uacpi_object *arg0, *arg1, *dst; + uacpi_u8 *dst_buf; + uacpi_size dst_size, arg0_size, arg1_size; + + arg0 = item_array_at(&op_ctx->items, 0)->obj; + arg1 = item_array_at(&op_ctx->items, 1)->obj; + dst = item_array_at(&op_ctx->items, 3)->obj; + + uacpi_buffer_to_view(arg0->buffer, &buffer); + ret = uacpi_find_aml_resource_end_tag(buffer, &arg0_size); + if (uacpi_unlikely_error(ret)) + return ret; + + uacpi_buffer_to_view(arg1->buffer, &buffer); + ret = uacpi_find_aml_resource_end_tag(buffer, &arg1_size); + if (uacpi_unlikely_error(ret)) + return ret; + + dst_size = arg0_size + arg1_size + sizeof(struct acpi_resource_end_tag); + + dst_buf = uacpi_kernel_alloc(dst_size); + if (uacpi_unlikely(dst_buf == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + dst->buffer->data = dst_buf; + dst->buffer->size = dst_size; + + uacpi_memcpy(dst_buf, arg0->buffer->data, arg0_size); + uacpi_memcpy(dst_buf + arg0_size, arg1->buffer->data, arg1_size); + + /* + * Small item (0), End Tag (0x0F), length 1 + * Leave the checksum as 0 + */ + dst_buf[dst_size - 2] = + (ACPI_RESOURCE_END_TAG << ACPI_SMALL_ITEM_NAME_IDX) | + (sizeof(struct acpi_resource_end_tag) - 1); + dst_buf[dst_size - 1] = 0; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_sizeof(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *src, *dst; + + src = item_array_at(&op_ctx->items, 0)->obj; + dst = item_array_at(&op_ctx->items, 1)->obj; + + if (uacpi_likely(src->type == UACPI_OBJECT_REFERENCE)) + src = reference_unwind(src)->inner_object; + + switch (src->type) { + case UACPI_OBJECT_STRING: + case UACPI_OBJECT_BUFFER: { + uacpi_data_view buf; + get_object_storage(src, &buf, UACPI_FALSE); + + dst->integer = buf.length; + break; + } + + case UACPI_OBJECT_PACKAGE: + dst->integer = src->package->count; + break; + + default: + uacpi_error( + "invalid argument for Sizeof: %s, " + "expected String/Buffer/Package\n", + uacpi_object_type_to_string(src->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_object_type(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *src, *dst; + + src = item_array_at(&op_ctx->items, 0)->obj; + dst = item_array_at(&op_ctx->items, 1)->obj; + + if (uacpi_likely(src->type == UACPI_OBJECT_REFERENCE)) + src = reference_unwind(src)->inner_object; + + dst->integer = src->type; + if (dst->integer == UACPI_OBJECT_BUFFER_INDEX) + dst->integer = UACPI_OBJECT_BUFFER_FIELD; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_timer(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *dst; + + dst = item_array_at(&op_ctx->items, 0)->obj; + dst->integer = uacpi_kernel_get_nanoseconds_since_boot() / 100; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_stall_or_sleep(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_u64 time; + + time = item_array_at(&op_ctx->items, 0)->obj->integer; + + if (op_ctx->op->code == UACPI_AML_OP_SleepOp) { + /* + * ACPICA doesn't allow sleeps longer than 2 seconds, + * so we shouldn't either. + */ + if (time > 2000) + time = 2000; + + uacpi_namespace_write_unlock(); + uacpi_kernel_sleep(time); + uacpi_namespace_write_lock(); + } else { + // Spec says this must evaluate to a ByteData + if (time > 0xFF) + time = 0xFF; + uacpi_kernel_stall(time); + } + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_bcd(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_u64 src, dst = 0; + uacpi_size i; + uacpi_object *dst_obj; + + src = item_array_at(&op_ctx->items, 0)->obj->integer; + dst_obj = item_array_at(&op_ctx->items, 2)->obj; + i = 64; + + /* + * NOTE: ACPICA just errors out for invalid BCD, but NT allows it just fine. + * FromBCD matches NT behavior 1:1 even for invalid BCD, but ToBCD + * produces different results when the input is too large. + */ + if (op_ctx->op->code == UACPI_AML_OP_FromBCDOp) { + do { + i -= 4; + dst *= 10; + dst += (src >> i) & 0xF; + } while (i); + } else { + while (src != 0) { + dst >>= 4; + i -= 4; + dst |= (src % 10) << 60; + src /= 10; + } + + dst >>= (i % 64); + } + + dst_obj->integer = dst; + return UACPI_STATUS_OK; +} + +static uacpi_status handle_unload(struct execution_context *ctx) +{ + UACPI_UNUSED(ctx); + + /* + * Technically this doesn't exist in the wild, from the dumps that I have + * the only user of the Unload opcode is the Surface Pro 3, which triggers + * an unload of some I2C-related table as a response to some event. + * + * This op has been long deprecated by the specification exactly because + * it hasn't really been used by anyone and the fact that it introduces + * an enormous layer of complexity, which no driver is really prepared to + * deal with (aka namespace nodes disappearing under its feet). + * + * Just pretend we have actually unloaded whatever the AML asked for, if it + * ever tries to re-load this table that will just skip opcodes that create + * already existing objects, which should be good enough and mostly + * transparent to the AML. + */ + uacpi_warn("refusing to unload a table from AML\n"); + return UACPI_STATUS_OK; +} + +static uacpi_status handle_logical_not(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *src, *dst; + + src = item_array_at(&op_ctx->items, 0)->obj; + dst = item_array_at(&op_ctx->items, 1)->obj; + + dst->type = UACPI_OBJECT_INTEGER; + dst->integer = src->integer ? 0 : ones(); + + return UACPI_STATUS_OK; +} + +static uacpi_bool handle_logical_equality(uacpi_object *lhs, uacpi_object *rhs) +{ + uacpi_bool res = UACPI_FALSE; + + if (lhs->type == UACPI_OBJECT_STRING || lhs->type == UACPI_OBJECT_BUFFER) { + res = lhs->buffer->size == rhs->buffer->size; + + if (res && lhs->buffer->size) { + res = uacpi_memcmp( + lhs->buffer->data, + rhs->buffer->data, + lhs->buffer->size + ) == 0; + } + } else if (lhs->type == UACPI_OBJECT_INTEGER) { + res = lhs->integer == rhs->integer; + } + + return res; +} + +static uacpi_bool handle_logical_less_or_greater( + uacpi_aml_op op, uacpi_object *lhs, uacpi_object *rhs +) +{ + if (lhs->type == UACPI_OBJECT_STRING || lhs->type == UACPI_OBJECT_BUFFER) { + int res; + uacpi_buffer *lhs_buf, *rhs_buf; + + lhs_buf = lhs->buffer; + rhs_buf = rhs->buffer; + + res = uacpi_memcmp(lhs_buf->data, rhs_buf->data, + UACPI_MIN(lhs_buf->size, rhs_buf->size)); + if (res == 0) { + if (lhs_buf->size < rhs_buf->size) + res = -1; + else if (lhs_buf->size > rhs_buf->size) + res = 1; + } + + if (op == UACPI_AML_OP_LLessOp) + return res < 0; + + return res > 0; + } + + if (op == UACPI_AML_OP_LLessOp) + return lhs->integer < rhs->integer; + + return lhs->integer > rhs->integer; +} + +static uacpi_status handle_binary_logic(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_aml_op op = op_ctx->op->code; + uacpi_object *lhs, *rhs, *dst; + uacpi_bool res; + + lhs = item_array_at(&op_ctx->items, 0)->obj; + rhs = item_array_at(&op_ctx->items, 1)->obj; + dst = item_array_at(&op_ctx->items, 2)->obj; + + switch (op) { + case UACPI_AML_OP_LEqualOp: + case UACPI_AML_OP_LLessOp: + case UACPI_AML_OP_LGreaterOp: + // TODO: typecheck at parse time + if (lhs->type != rhs->type) { + uacpi_error( + "don't know how to do a logical comparison of '%s' and '%s'\n", + uacpi_object_type_to_string(lhs->type), + uacpi_object_type_to_string(rhs->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + if (op == UACPI_AML_OP_LEqualOp) + res = handle_logical_equality(lhs, rhs); + else + res = handle_logical_less_or_greater(op, lhs, rhs); + break; + default: { + uacpi_u64 lhs_int, rhs_int; + + // NT only looks at the first 4 bytes of a buffer + lhs_int = object_to_integer(lhs, 4); + rhs_int = object_to_integer(rhs, 4); + + if (op == UACPI_AML_OP_LandOp) + res = lhs_int && rhs_int; + else + res = lhs_int || rhs_int; + break; + } + } + + dst->integer = res ? ones() : 0; + return UACPI_STATUS_OK; +} + +enum match_op { + MTR = 0, + MEQ = 1, + MLE = 2, + MLT = 3, + MGE = 4, + MGT = 5, +}; + +static uacpi_bool match_one(enum match_op op, uacpi_u64 lhs, uacpi_u64 rhs) +{ + switch (op) { + case MTR: + return UACPI_TRUE; + case MEQ: + return lhs == rhs; + case MLE: + return lhs <= rhs; + case MLT: + return lhs < rhs; + case MGE: + return lhs >= rhs; + case MGT: + return lhs > rhs; + default: + return UACPI_FALSE; + } +} + +static uacpi_status handle_match(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_package *pkg; + uacpi_u64 operand0, operand1, start_idx, i; + enum match_op mop0, mop1; + uacpi_object *dst; + + pkg = item_array_at(&op_ctx->items, 0)->obj->package; + mop0 = item_array_at(&op_ctx->items, 1)->immediate; + operand0 = item_array_at(&op_ctx->items, 2)->obj->integer; + mop1 = item_array_at(&op_ctx->items, 3)->immediate; + operand1 = item_array_at(&op_ctx->items, 4)->obj->integer; + start_idx = item_array_at(&op_ctx->items, 5)->obj->integer; + dst = item_array_at(&op_ctx->items, 6)->obj; + + for (i = start_idx; i < pkg->count; ++i) { + uacpi_object *obj = pkg->objects[i]; + + if (obj->type != UACPI_OBJECT_INTEGER) + continue; + + if (match_one(mop0, obj->integer, operand0) && + match_one(mop1, obj->integer, operand1)) + break; + } + + if (i < pkg->count) + dst->integer = i; + else + dst->integer = ones(); + + return UACPI_STATUS_OK; +} + +/* + * PkgLength := + * PkgLeadByte | + * | + * | + * PkgLeadByte := + * + * + * + */ +static uacpi_status parse_package_length(struct call_frame *frame, + struct package_length *out_pkg) +{ + uacpi_u32 left, size; + uacpi_u8 *data, marker_length; + + out_pkg->begin = frame->code_offset; + marker_length = 1; + + left = call_frame_code_bytes_left(frame); + if (uacpi_unlikely(left < 1)) + return UACPI_STATUS_AML_BAD_ENCODING; + + data = call_frame_cursor(frame); + marker_length += *data >> 6; + + if (uacpi_unlikely(left < marker_length)) + return UACPI_STATUS_AML_BAD_ENCODING; + + switch (marker_length) { + case 1: + size = *data & 0x3F; + break; + case 2: + case 3: + case 4: { + uacpi_u32 temp_byte = 0; + + size = *data & 0xF; + uacpi_memcpy(&temp_byte, data + 1, marker_length - 1); + + // marker_length - 1 is at most 3, so this shift is safe + size |= temp_byte << 4; + break; + } + } + + frame->code_offset += marker_length; + + out_pkg->end = out_pkg->begin + size; + if (uacpi_unlikely(out_pkg->end < out_pkg->begin)) { + uacpi_error( + "PkgLength overflow: start=%u, size=%u\n", out_pkg->begin, size + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + return UACPI_STATUS_OK; +} + +/* + * ByteData + * // bit 0-2: ArgCount (0-7) + * // bit 3: SerializeFlag + * // 0 NotSerialized + * // 1 Serialized + * // bit 4-7: SyncLevel (0x00-0x0f) + */ +static void init_method_flags(uacpi_control_method *method, uacpi_u8 flags_byte) +{ + method->args = flags_byte & 0x7; + method->is_serialized = (flags_byte >> 3) & 1; + method->sync_level = flags_byte >> 4; +} + +static uacpi_status handle_create_method(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + struct uacpi_control_method *this_method, *method; + struct package_length *pkg; + struct uacpi_namespace_node *node; + struct uacpi_object *dst; + uacpi_u32 method_begin_offset, method_size; + + this_method = ctx->cur_frame->method; + pkg = &item_array_at(&op_ctx->items, 0)->pkg; + node = item_array_at(&op_ctx->items, 1)->node; + method_begin_offset = item_array_at(&op_ctx->items, 3)->immediate; + + if (uacpi_unlikely(pkg->end < pkg->begin || + pkg->end < method_begin_offset || + pkg->end > this_method->size)) { + uacpi_error( + "invalid method %.4s bounds [%u..%u] (parent size is %u)\n", + node->name.text, method_begin_offset, pkg->end, this_method->size + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + dst = item_array_at(&op_ctx->items, 4)->obj; + + method = dst->method; + method_size = pkg->end - method_begin_offset; + + if (method_size) { + method->code = uacpi_kernel_alloc(method_size); + if (uacpi_unlikely(method->code == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy( + method->code, + ctx->cur_frame->method->code + method_begin_offset, + method_size + ); + method->size = method_size; + method->owns_code = 1; + } + + init_method_flags(method, item_array_at(&op_ctx->items, 2)->immediate); + + node->object = uacpi_create_internal_reference(UACPI_REFERENCE_KIND_NAMED, + dst); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_create_mutex_or_event(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_namespace_node *node; + uacpi_object *dst; + + node = item_array_at(&op_ctx->items, 0)->node; + + if (op_ctx->op->code == UACPI_AML_OP_MutexOp) { + dst = item_array_at(&op_ctx->items, 2)->obj; + + // bits 0-3: SyncLevel (0x00-0x0f), bits 4-7: Reserved (must be 0) + dst->mutex->sync_level = item_array_at(&op_ctx->items, 1)->immediate; + dst->mutex->sync_level &= 0xF; + } else { + dst = item_array_at(&op_ctx->items, 1)->obj; + } + + node->object = uacpi_create_internal_reference( + UACPI_REFERENCE_KIND_NAMED, + dst + ); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_event_ctl(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *obj; + + obj = uacpi_unwrap_internal_reference( + item_array_at(&op_ctx->items, 0)->obj + ); + if (uacpi_unlikely(obj->type != UACPI_OBJECT_EVENT)) { + uacpi_error( + "%s: invalid argument '%s', expected an Event object\n", + op_ctx->op->name, uacpi_object_type_to_string(obj->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + switch (op_ctx->op->code) + { + case UACPI_AML_OP_SignalOp: + uacpi_kernel_signal_event(obj->event->handle); + break; + case UACPI_AML_OP_ResetOp: + uacpi_kernel_reset_event(obj->event->handle); + break; + case UACPI_AML_OP_WaitOp: { + uacpi_u64 timeout; + uacpi_bool ret; + + timeout = item_array_at(&op_ctx->items, 1)->obj->integer; + if (timeout > 0xFFFF) + timeout = 0xFFFF; + + uacpi_namespace_write_unlock(); + ret = uacpi_kernel_wait_for_event(obj->event->handle, timeout); + uacpi_namespace_write_lock(); + + /* + * The return value here is inverted, we return 0 for success and Ones + * for timeout and everything else. + */ + if (ret) + item_array_at(&op_ctx->items, 2)->obj->integer = 0; + break; + } + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_mutex_ctl(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_object *obj; + + obj = uacpi_unwrap_internal_reference( + item_array_at(&op_ctx->items, 0)->obj + ); + if (uacpi_unlikely(obj->type != UACPI_OBJECT_MUTEX)) { + uacpi_error( + "%s: invalid argument '%s', expected a Mutex object\n", + op_ctx->op->name, uacpi_object_type_to_string(obj->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + switch (op_ctx->op->code) + { + case UACPI_AML_OP_AcquireOp: { + uacpi_u64 timeout; + uacpi_u64 *return_value; + uacpi_status ret; + + return_value = &item_array_at(&op_ctx->items, 2)->obj->integer; + + if (uacpi_unlikely(ctx->sync_level > obj->mutex->sync_level)) { + uacpi_warn( + "ignoring attempt to acquire mutex @%p with a lower sync level " + "(%d < %d)\n", obj->mutex, obj->mutex->sync_level, + ctx->sync_level + ); + break; + } + + timeout = item_array_at(&op_ctx->items, 1)->immediate; + if (timeout > 0xFFFF) + timeout = 0xFFFF; + + if (uacpi_this_thread_owns_aml_mutex(obj->mutex)) { + ret = uacpi_acquire_aml_mutex(obj->mutex, timeout); + if (uacpi_likely_success(ret)) + *return_value = 0; + break; + } + + ret = uacpi_acquire_aml_mutex(obj->mutex, timeout); + if (uacpi_unlikely_error(ret)) + break; + + ret = held_mutexes_array_push(&ctx->held_mutexes, obj->mutex); + if (uacpi_unlikely_error(ret)) { + uacpi_release_aml_mutex(obj->mutex); + return ret; + } + + ctx->sync_level = obj->mutex->sync_level; + *return_value = 0; + break; + } + + case UACPI_AML_OP_ReleaseOp: { + uacpi_status ret; + + if (!uacpi_this_thread_owns_aml_mutex(obj->mutex)) { + uacpi_warn( + "attempted to release not-previously-acquired mutex object " + "@%p (%p)\n", obj->mutex, obj->mutex->handle + ); + break; + } + + ret = held_mutexes_array_remove_and_release( + &ctx->held_mutexes, obj->mutex, + FORCE_RELEASE_NO + ); + if (uacpi_likely_success(ret)) { + uacpi_mutex **last_mutex; + + last_mutex = held_mutexes_array_last(&ctx->held_mutexes); + if (last_mutex == UACPI_NULL) { + ctx->sync_level = 0; + break; + } + + ctx->sync_level = (*last_mutex)->sync_level; + } + break; + } + + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_notify(struct execution_context *ctx) +{ + uacpi_status ret; + struct op_context *op_ctx = ctx->cur_op_ctx; + struct uacpi_namespace_node *node; + uacpi_u64 value; + + node = item_array_at(&op_ctx->items, 0)->node; + value = item_array_at(&op_ctx->items, 1)->obj->integer; + + ret = uacpi_notify_all(node, value); + if (uacpi_likely_success(ret)) + return ret; + + if (ret == UACPI_STATUS_NO_HANDLER) { + const uacpi_char *path; + + path = uacpi_namespace_node_generate_absolute_path(node); + uacpi_warn( + "ignoring firmware Notify(%s, 0x%"UACPI_PRIX64") request, " + "no listeners\n", path, UACPI_FMT64(value) + ); + uacpi_free_dynamic_string(path); + + return UACPI_STATUS_OK; + } + + if (ret == UACPI_STATUS_INVALID_ARGUMENT) { + uacpi_error("Notify() called on an invalid object %.4s\n", + node->name.text); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + return ret; +} + +static uacpi_status handle_firmware_request(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_firmware_request req = { 0 }; + + switch (op_ctx->op->code) { + case UACPI_AML_OP_BreakPointOp: + req.type = UACPI_FIRMWARE_REQUEST_TYPE_BREAKPOINT; + req.breakpoint.ctx = ctx; + break; + case UACPI_AML_OP_FatalOp: + req.type = UACPI_FIRMWARE_REQUEST_TYPE_FATAL; + req.fatal.type = item_array_at(&op_ctx->items, 0)->immediate; + req.fatal.code = item_array_at(&op_ctx->items, 1)->immediate; + req.fatal.arg = item_array_at(&op_ctx->items, 2)->obj->integer; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + uacpi_namespace_write_unlock(); + uacpi_kernel_handle_firmware_request(&req); + uacpi_namespace_write_lock(); + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_create_named(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + struct uacpi_namespace_node *node; + uacpi_object *src; + + node = item_array_at(&op_ctx->items, 0)->node; + src = item_array_at(&op_ctx->items, 1)->obj; + + node->object = uacpi_create_internal_reference(UACPI_REFERENCE_KIND_NAMED, + src); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} + +static uacpi_object_type buffer_field_get_read_type( + struct uacpi_buffer_field *field +) +{ + if (field->bit_length > (g_uacpi_rt_ctx.is_rev1 ? 32u : 64u) || + field->force_buffer) + return UACPI_OBJECT_BUFFER; + + return UACPI_OBJECT_INTEGER; +} + +static uacpi_status field_get_read_type( + uacpi_object *obj, uacpi_object_type *out_type +) +{ + if (obj->type == UACPI_OBJECT_BUFFER_FIELD) { + *out_type = buffer_field_get_read_type(&obj->buffer_field); + return UACPI_STATUS_OK; + } + + return uacpi_field_unit_get_read_type(obj->field_unit, out_type); +} + +static uacpi_status field_byte_size( + uacpi_object *obj, uacpi_size *out_size +) +{ + uacpi_size bit_length; + + if (obj->type == UACPI_OBJECT_BUFFER_FIELD) { + bit_length = obj->buffer_field.bit_length; + } else { + uacpi_status ret; + + ret = uacpi_field_unit_get_bit_length(obj->field_unit, &bit_length); + if (uacpi_unlikely_error(ret)) + return ret; + } + + *out_size = uacpi_round_up_bits_to_bytes(bit_length); + return UACPI_STATUS_OK; +} + +static uacpi_status handle_field_read(struct execution_context *ctx) +{ + uacpi_status ret; + struct op_context *op_ctx = ctx->cur_op_ctx; + struct uacpi_namespace_node *node; + uacpi_object *src_obj, *dst_obj; + uacpi_size dst_size; + void *dst = UACPI_NULL; + uacpi_data_view wtr_response = { 0 }; + + node = item_array_at(&op_ctx->items, 0)->node; + src_obj = uacpi_namespace_node_get_object(node); + dst_obj = item_array_at(&op_ctx->items, 1)->obj; + + if (op_ctx->op->code == UACPI_AML_OP_InternalOpReadFieldAsBuffer) { + uacpi_buffer *buf; + + ret = field_byte_size(src_obj, &dst_size); + if (uacpi_unlikely_error(ret)) + return ret; + + if (dst_size != 0) { + buf = dst_obj->buffer; + + dst = uacpi_kernel_alloc_zeroed(dst_size); + if (dst == UACPI_NULL) + return UACPI_STATUS_OUT_OF_MEMORY; + + buf->data = dst; + buf->size = dst_size; + } + } else { + dst = &dst_obj->integer; + dst_size = sizeof(uacpi_u64); + } + + if (src_obj->type == UACPI_OBJECT_BUFFER_FIELD) { + uacpi_read_buffer_field(&src_obj->buffer_field, dst); + return UACPI_STATUS_OK; + } + + ret = uacpi_read_field_unit( + src_obj->field_unit, dst, dst_size, &wtr_response + ); + if (uacpi_unlikely_error(ret)) + return ret; + + if (wtr_response.data != UACPI_NULL) { + uacpi_buffer *buf; + + buf = dst_obj->buffer; + buf->data = wtr_response.data; + buf->size = wtr_response.length; + } + + return ret; +} + +static uacpi_status handle_create_buffer_field(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + struct uacpi_namespace_node *node; + uacpi_buffer *src_buf; + uacpi_object *field_obj; + uacpi_buffer_field *field; + + /* + * Layout of items here: + * [0] -> Type checked source buffer object + * [1] -> Byte/bit index integer object + * [2] ( if CreateField) -> bit length integer object + * [3] (2 if not CreateField) -> the new namespace node + * [4] (3 if not CreateField) -> the buffer field object we're creating here + */ + src_buf = item_array_at(&op_ctx->items, 0)->obj->buffer; + + if (op_ctx->op->code == UACPI_AML_OP_CreateFieldOp) { + uacpi_object *idx_obj, *len_obj; + + idx_obj = item_array_at(&op_ctx->items, 1)->obj; + len_obj = item_array_at(&op_ctx->items, 2)->obj; + node = item_array_at(&op_ctx->items, 3)->node; + field_obj = item_array_at(&op_ctx->items, 4)->obj; + field = &field_obj->buffer_field; + + field->bit_index = idx_obj->integer; + + if (uacpi_unlikely(!len_obj->integer || + len_obj->integer > 0xFFFFFFFF)) { + uacpi_error("invalid bit field length (%u)\n", field->bit_length); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + field->bit_length = len_obj->integer; + field->force_buffer = UACPI_TRUE; + } else { + uacpi_object *idx_obj; + + idx_obj = item_array_at(&op_ctx->items, 1)->obj; + node = item_array_at(&op_ctx->items, 2)->node; + field_obj = item_array_at(&op_ctx->items, 3)->obj; + field = &field_obj->buffer_field; + + field->bit_index = idx_obj->integer; + switch (op_ctx->op->code) { + case UACPI_AML_OP_CreateBitFieldOp: + field->bit_length = 1; + break; + case UACPI_AML_OP_CreateByteFieldOp: + field->bit_length = 8; + break; + case UACPI_AML_OP_CreateWordFieldOp: + field->bit_length = 16; + break; + case UACPI_AML_OP_CreateDWordFieldOp: + field->bit_length = 32; + break; + case UACPI_AML_OP_CreateQWordFieldOp: + field->bit_length = 64; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (op_ctx->op->code != UACPI_AML_OP_CreateBitFieldOp) + field->bit_index *= 8; + } + + if (uacpi_unlikely((field->bit_index + field->bit_length) > + src_buf->size * 8)) { + uacpi_error( + "invalid buffer field: bits [%zu..%zu], buffer size is %zu bytes\n", + field->bit_index, field->bit_index + field->bit_length, + src_buf->size + ); + return UACPI_STATUS_AML_OUT_OF_BOUNDS_INDEX; + } + + field->backing = src_buf; + uacpi_shareable_ref(field->backing); + node->object = uacpi_create_internal_reference(UACPI_REFERENCE_KIND_NAMED, + field_obj); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_control_flow(struct execution_context *ctx) +{ + struct call_frame *frame = ctx->cur_frame; + struct op_context *op_ctx = ctx->cur_op_ctx; + + if (uacpi_unlikely(frame->last_while == UACPI_NULL)) { + uacpi_error( + "attempting to %s outside of a While block\n", + op_ctx->op->code == UACPI_AML_OP_BreakOp ? "Break" : "Continue" + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + for (;;) { + if (ctx->cur_block != frame->last_while) { + frame_reset_post_end_block(ctx, ctx->cur_block->type); + continue; + } + + if (op_ctx->op->code == UACPI_AML_OP_BreakOp) + frame->code_offset = ctx->cur_block->end; + else + frame->code_offset = ctx->cur_block->begin; + frame_reset_post_end_block(ctx, ctx->cur_block->type); + break; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status create_named_scope(struct op_context *op_ctx) +{ + uacpi_namespace_node *node; + uacpi_object *obj; + + node = item_array_at(&op_ctx->items, 1)->node; + obj = item_array_last(&op_ctx->items)->obj; + + switch (op_ctx->op->code) { + case UACPI_AML_OP_ProcessorOp: { + uacpi_processor *proc = obj->processor; + proc->id = item_array_at(&op_ctx->items, 2)->immediate; + proc->block_address = item_array_at(&op_ctx->items, 3)->immediate; + proc->block_length = item_array_at(&op_ctx->items, 4)->immediate; + break; + } + + case UACPI_AML_OP_PowerResOp: { + uacpi_power_resource *power_res = &obj->power_resource; + power_res->system_level = item_array_at(&op_ctx->items, 2)->immediate; + power_res->resource_order = item_array_at(&op_ctx->items, 3)->immediate; + break; + } + + default: + break; + } + + node->object = uacpi_create_internal_reference(UACPI_REFERENCE_KIND_NAMED, + obj); + if (uacpi_unlikely(node->object == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_code_block(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + + switch (op_ctx->op->code) { + case UACPI_AML_OP_ProcessorOp: + case UACPI_AML_OP_PowerResOp: + case UACPI_AML_OP_ThermalZoneOp: + case UACPI_AML_OP_DeviceOp: { + uacpi_status ret; + + ret = create_named_scope(op_ctx); + if (uacpi_unlikely_error(ret)) + return ret; + + UACPI_FALLTHROUGH; + } + case UACPI_AML_OP_ScopeOp: + case UACPI_AML_OP_IfOp: + case UACPI_AML_OP_ElseOp: + case UACPI_AML_OP_WhileOp: { + break; + } + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return begin_block_execution(ctx); +} + +static uacpi_status handle_return(struct execution_context *ctx) +{ + uacpi_status ret; + uacpi_object *dst = UACPI_NULL; + + ctx->cur_frame->code_offset = ctx->cur_frame->method->size; + ret = method_get_ret_object(ctx, &dst); + + if (uacpi_unlikely_error(ret)) + return ret; + if (dst == UACPI_NULL) + return UACPI_STATUS_OK; + + /* + * Should be possible to move here if method returns a literal + * like Return(Buffer { ... }), otherwise we have to copy just to + * be safe. + */ + return uacpi_object_assign( + dst, + item_array_at(&ctx->cur_op_ctx->items, 0)->obj, + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY + ); +} + +static void refresh_ctx_pointers(struct execution_context *ctx) +{ + struct call_frame *frame = ctx->cur_frame; + + if (frame == UACPI_NULL) { + ctx->cur_op_ctx = UACPI_NULL; + ctx->prev_op_ctx = UACPI_NULL; + ctx->cur_block = UACPI_NULL; + return; + } + + ctx->cur_op_ctx = op_context_array_last(&frame->pending_ops); + ctx->prev_op_ctx = op_context_array_one_before_last(&frame->pending_ops); + ctx->cur_block = code_block_array_last(&frame->code_blocks); +} + +static uacpi_bool ctx_has_non_preempted_op(struct execution_context *ctx) +{ + return ctx->cur_op_ctx && !ctx->cur_op_ctx->preempted; +} + +enum op_trace_action_type { + OP_TRACE_ACTION_BEGIN, + OP_TRACE_ACTION_RESUME, + OP_TRACE_ACTION_END, +}; + +static const uacpi_char *const op_trace_action_types[3] = { + [OP_TRACE_ACTION_BEGIN] = "BEGIN", + [OP_TRACE_ACTION_RESUME] = "RESUME", + [OP_TRACE_ACTION_END] = "END", +}; + +static inline void trace_op( + const struct uacpi_op_spec *op, enum op_trace_action_type action +) +{ + uacpi_debug( + "%s OP '%s' (0x%04X)\n", + op_trace_action_types[action], op->name, op->code + ); +} + +static inline void trace_pop(uacpi_u8 pop) +{ + uacpi_debug(" pOP: %s (0x%02X)\n", uacpi_parse_op_to_string(pop), pop); +} + +static uacpi_status frame_push_args(struct call_frame *frame, + struct op_context *op_ctx) +{ + uacpi_size i; + + /* + * MethodCall items: + * items[0] -> method namespace node + * items[1] -> immediate that was used for parsing the arguments + * items[2...nargs-1] -> method arguments + * items[-1] -> return value object + * + * Here we only care about the arguments though. + */ + for (i = 2; i < item_array_size(&op_ctx->items) - 1; i++) { + uacpi_object *src, *dst; + + src = item_array_at(&op_ctx->items, i)->obj; + + dst = uacpi_create_internal_reference(UACPI_REFERENCE_KIND_ARG, src); + if (uacpi_unlikely(dst == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + frame->args[i - 2] = dst; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status frame_setup_base_scope(struct call_frame *frame, + uacpi_namespace_node *scope, + uacpi_control_method *method) +{ + struct code_block *block; + + block = code_block_array_alloc(&frame->code_blocks); + if (uacpi_unlikely(block == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + block->type = CODE_BLOCK_SCOPE; + block->node = scope; + block->begin = 0; + block->end = method->size; + frame->method = method; + frame->cur_scope = scope; + return UACPI_STATUS_OK; +} + +static uacpi_status push_new_frame(struct execution_context *ctx, + struct call_frame **out_frame) +{ + struct call_frame_array *call_stack = &ctx->call_stack; + struct call_frame *prev_frame; + + *out_frame = call_frame_array_calloc(call_stack); + if (uacpi_unlikely(*out_frame == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + /* + * Allocating a new frame might have reallocated the dynamic buffer so our + * execution_context members might now be pointing to freed memory. + * Refresh them here. + */ + prev_frame = call_frame_array_one_before_last(call_stack); + ctx->cur_frame = prev_frame; + refresh_ctx_pointers(ctx); + + return UACPI_STATUS_OK; +} + +static uacpi_bool maybe_end_block(struct execution_context *ctx) +{ + struct code_block *block = ctx->cur_block; + struct call_frame *cur_frame = ctx->cur_frame; + + if (!block) + return UACPI_FALSE; + if (cur_frame->code_offset != block->end) + return UACPI_FALSE; + + if (block->type == CODE_BLOCK_WHILE) + cur_frame->code_offset = block->begin; + + frame_reset_post_end_block(ctx, block->type); + return UACPI_TRUE; +} + +static uacpi_status store_to_target( + uacpi_object *dst, uacpi_object *src, uacpi_data_view *wtr_response +) +{ + uacpi_status ret; + + switch (dst->type) { + case UACPI_OBJECT_DEBUG: + ret = debug_store(src); + break; + case UACPI_OBJECT_REFERENCE: + ret = store_to_reference(dst, src, wtr_response); + break; + + case UACPI_OBJECT_BUFFER_INDEX: + src = uacpi_unwrap_internal_reference(src); + ret = object_assign_with_implicit_cast(dst, src, wtr_response); + break; + + case UACPI_OBJECT_INTEGER: + // NULL target + if (dst->integer == 0) { + ret = UACPI_STATUS_OK; + break; + } + UACPI_FALLTHROUGH; + default: + uacpi_error("attempted to store to an invalid target: %s\n", + uacpi_object_type_to_string(dst->type)); + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + return ret; +} + +static uacpi_status handle_copy_object_or_store(struct execution_context *ctx) +{ + uacpi_object *src, *dst; + struct op_context *op_ctx = ctx->cur_op_ctx; + + src = item_array_at(&op_ctx->items, 0)->obj; + dst = item_array_at(&op_ctx->items, 1)->obj; + + if (op_ctx->op->code == UACPI_AML_OP_StoreOp) { + uacpi_status ret; + uacpi_data_view wtr_response = { 0 }; + + ret = store_to_target(dst, src, &wtr_response); + if (uacpi_unlikely_error(ret)) + return ret; + + /* + * This was a write-then-read field access since we got a response + * buffer back from this store. Now we have to return this buffer + * as a prvalue from the StoreOp so that it can be used by AML to + * retrieve the response. + */ + if (wtr_response.data != UACPI_NULL) { + uacpi_object *wtr_response_obj; + + wtr_response_obj = uacpi_create_object(UACPI_OBJECT_BUFFER); + if (uacpi_unlikely(wtr_response_obj == UACPI_NULL)) { + uacpi_free(wtr_response.data, wtr_response.length); + return UACPI_STATUS_OUT_OF_MEMORY; + } + + wtr_response_obj->buffer->data = wtr_response.data; + wtr_response_obj->buffer->size = wtr_response.length; + + uacpi_object_unref(src); + item_array_at(&op_ctx->items, 0)->obj = wtr_response_obj; + } + + return ret; + } + + if (dst->type != UACPI_OBJECT_REFERENCE) + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + + return copy_object_to_reference(dst, src); +} + +static uacpi_status handle_inc_dec(struct execution_context *ctx) +{ + uacpi_object *src, *dst; + struct op_context *op_ctx = ctx->cur_op_ctx; + uacpi_bool field_allowed = UACPI_FALSE; + uacpi_object_type true_src_type; + uacpi_status ret; + + src = item_array_at(&op_ctx->items, 0)->obj; + dst = item_array_at(&op_ctx->items, 1)->obj; + + if (src->type == UACPI_OBJECT_REFERENCE) { + /* + * Increment/Decrement are the only two operators that modify the value + * in-place, thus we need very specific dereference rules here. + * + * Reading buffer fields & field units is only allowed if we were passed + * a namestring directly as opposed to some nested reference chain + * containing a field at the bottom. + */ + if (src->flags == UACPI_REFERENCE_KIND_NAMED) + field_allowed = src->inner_object->type != UACPI_OBJECT_REFERENCE; + + src = reference_unwind(src)->inner_object; + } // else buffer index + + true_src_type = src->type; + + switch (true_src_type) { + case UACPI_OBJECT_INTEGER: + dst->integer = src->integer; + break; + case UACPI_OBJECT_FIELD_UNIT: + case UACPI_OBJECT_BUFFER_FIELD: + if (uacpi_unlikely(!field_allowed)) + goto out_bad_type; + + ret = field_get_read_type(src, &true_src_type); + if (uacpi_unlikely_error(ret)) + goto out_bad_type; + if (true_src_type != UACPI_OBJECT_INTEGER) + goto out_bad_type; + + if (src->type == UACPI_OBJECT_FIELD_UNIT) { + ret = uacpi_read_field_unit( + src->field_unit, &dst->integer, sizeof_int(), + UACPI_NULL + ); + if (uacpi_unlikely_error(ret)) + return ret; + } else { + uacpi_read_buffer_field(&src->buffer_field, &dst->integer); + } + break; + case UACPI_OBJECT_BUFFER_INDEX: + dst->integer = *buffer_index_cursor(&src->buffer_index); + break; + default: + goto out_bad_type; + } + + if (op_ctx->op->code == UACPI_AML_OP_IncrementOp) + dst->integer++; + else + dst->integer--; + + return UACPI_STATUS_OK; + +out_bad_type: + uacpi_error("Increment/Decrement: invalid object type '%s'\n", + uacpi_object_type_to_string(true_src_type)); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; +} + +static uacpi_status enter_method( + struct execution_context *ctx, struct call_frame *new_frame, + uacpi_control_method *method +) +{ + uacpi_status ret = UACPI_STATUS_OK; + + uacpi_shareable_ref(method); + + if (!method->is_serialized) + return ret; + + if (uacpi_unlikely(ctx->sync_level > method->sync_level)) { + uacpi_error( + "cannot invoke method @%p, sync level %d is too low " + "(current is %d)\n", + method, method->sync_level, ctx->sync_level + ); + return UACPI_STATUS_AML_SYNC_LEVEL_TOO_HIGH; + } + + if (method->mutex == UACPI_NULL) { + method->mutex = uacpi_create_mutex(); + if (uacpi_unlikely(method->mutex == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + method->mutex->sync_level = method->sync_level; + } + + if (!uacpi_this_thread_owns_aml_mutex(method->mutex)) { + ret = uacpi_acquire_aml_mutex(method->mutex, 0xFFFF); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = held_mutexes_array_push(&ctx->held_mutexes, method->mutex); + if (uacpi_unlikely_error(ret)) { + uacpi_release_aml_mutex(method->mutex); + return ret; + } + } + + new_frame->prev_sync_level = ctx->sync_level; + ctx->sync_level = method->sync_level; + return UACPI_STATUS_OK; +} + +static uacpi_status push_op(struct execution_context *ctx) +{ + struct call_frame *frame = ctx->cur_frame; + struct op_context *op_ctx; + + op_ctx = op_context_array_calloc(&frame->pending_ops); + if (op_ctx == UACPI_NULL) + return UACPI_STATUS_OUT_OF_MEMORY; + + op_ctx->op = ctx->cur_op; + refresh_ctx_pointers(ctx); + return UACPI_STATUS_OK; +} + +static uacpi_bool pop_item(struct op_context *op_ctx) +{ + struct item *item; + + if (item_array_size(&op_ctx->items) == 0) + return UACPI_FALSE; + + item = item_array_last(&op_ctx->items); + + if (item->type == ITEM_OBJECT) + uacpi_object_unref(item->obj); + + if (item->type == ITEM_NAMESPACE_NODE) + uacpi_namespace_node_unref(item->node); + + item_array_pop(&op_ctx->items); + return UACPI_TRUE; +} + +static void pop_op(struct execution_context *ctx) +{ + struct call_frame *frame = ctx->cur_frame; + struct op_context *cur_op_ctx = ctx->cur_op_ctx; + + while (pop_item(cur_op_ctx)); + + item_array_clear(&cur_op_ctx->items); + op_context_array_pop(&frame->pending_ops); + refresh_ctx_pointers(ctx); +} + +static void call_frame_clear(struct call_frame *frame) +{ + uacpi_size i; + op_context_array_clear(&frame->pending_ops); + code_block_array_clear(&frame->code_blocks); + + while (temp_namespace_node_array_size(&frame->temp_nodes) != 0) { + uacpi_namespace_node *node; + + node = *temp_namespace_node_array_last(&frame->temp_nodes); + uacpi_namespace_node_uninstall(node); + temp_namespace_node_array_pop(&frame->temp_nodes); + } + temp_namespace_node_array_clear(&frame->temp_nodes); + + for (i = 0; i < 7; ++i) + uacpi_object_unref(frame->args[i]); + for (i = 0; i < 8; ++i) + uacpi_object_unref(frame->locals[i]); + + uacpi_method_unref(frame->method); +} + +static uacpi_u8 parse_op_generates_item[0x100] = { + [UACPI_PARSE_OP_SIMPLE_NAME] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_SUPERNAME] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_TERM_ARG] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_OPERAND] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_STRING] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_COMPUTATIONAL_DATA] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_TARGET] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_PKGLEN] = ITEM_PACKAGE_LENGTH, + [UACPI_PARSE_OP_TRACKED_PKGLEN] = ITEM_PACKAGE_LENGTH, + [UACPI_PARSE_OP_CREATE_NAMESTRING] = ITEM_NAMESPACE_NODE, + [UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD] = ITEM_NAMESPACE_NODE, + [UACPI_PARSE_OP_EXISTING_NAMESTRING] = ITEM_NAMESPACE_NODE, + [UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL] = ITEM_NAMESPACE_NODE, + [UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL_IF_LOAD] = ITEM_NAMESPACE_NODE, + [UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT] = ITEM_OBJECT, + [UACPI_PARSE_OP_LOAD_INLINE_IMM] = ITEM_IMMEDIATE, + [UACPI_PARSE_OP_LOAD_ZERO_IMM] = ITEM_IMMEDIATE, + [UACPI_PARSE_OP_LOAD_IMM] = ITEM_IMMEDIATE, + [UACPI_PARSE_OP_LOAD_IMM_AS_OBJECT] = ITEM_OBJECT, + [UACPI_PARSE_OP_LOAD_FALSE_OBJECT] = ITEM_OBJECT, + [UACPI_PARSE_OP_LOAD_TRUE_OBJECT] = ITEM_OBJECT, + [UACPI_PARSE_OP_OBJECT_ALLOC] = ITEM_OBJECT, + [UACPI_PARSE_OP_OBJECT_ALLOC_TYPED] = ITEM_OBJECT, + [UACPI_PARSE_OP_EMPTY_OBJECT_ALLOC] = ITEM_EMPTY_OBJECT, + [UACPI_PARSE_OP_OBJECT_CONVERT_TO_SHALLOW_COPY] = ITEM_OBJECT, + [UACPI_PARSE_OP_OBJECT_CONVERT_TO_DEEP_COPY] = ITEM_OBJECT, + [UACPI_PARSE_OP_RECORD_AML_PC] = ITEM_IMMEDIATE, +}; + +static const uacpi_u8 *op_decode_cursor(const struct op_context *ctx) +{ + const struct uacpi_op_spec *spec = ctx->op; + + if (spec->properties & UACPI_OP_PROPERTY_OUT_OF_LINE) + return &spec->indirect_decode_ops[ctx->pc]; + + return &spec->decode_ops[ctx->pc]; +} + +static uacpi_u8 op_decode_byte(struct op_context *ctx) +{ + uacpi_u8 byte; + + byte = *op_decode_cursor(ctx); + ctx->pc++; + + return byte; +} + +static uacpi_aml_op op_decode_aml_op(struct op_context *op_ctx) +{ + uacpi_aml_op op = 0; + + op |= op_decode_byte(op_ctx); + op |= op_decode_byte(op_ctx) << 8; + + return op; +} + +// MSVC doesn't support __VA_OPT__ so we do this weirdness +#define EXEC_OP_DO_LVL(lvl, reason, ...) \ + uacpi_##lvl("Op 0x%04X ('%s'): "reason"\n", \ + op_ctx->op->code, op_ctx->op->name __VA_ARGS__) + +#define EXEC_OP_DO_ERR(reason, ...) EXEC_OP_DO_LVL(error, reason, __VA_ARGS__) +#define EXEC_OP_DO_WARN(reason, ...) EXEC_OP_DO_LVL(warn, reason, __VA_ARGS__) + +#define EXEC_OP_ERR_2(reason, arg0, arg1) EXEC_OP_DO_ERR(reason, ,arg0, arg1) +#define EXEC_OP_ERR_1(reason, arg0) EXEC_OP_DO_ERR(reason, ,arg0) +#define EXEC_OP_ERR(reason) EXEC_OP_DO_ERR(reason) + +#define EXEC_OP_WARN(reason) EXEC_OP_DO_WARN(reason) + +#define SPEC_SIMPLE_NAME "SimpleName := NameString | ArgObj | LocalObj" +#define SPEC_SUPER_NAME \ + "SuperName := SimpleName | DebugObj | ReferenceTypeOpcode" +#define SPEC_TERM_ARG \ + "TermArg := ExpressionOpcode | DataObject | ArgObj | LocalObj" +#define SPEC_OPERAND "Operand := TermArg => Integer" +#define SPEC_STRING "String := TermArg => String" +#define SPEC_TARGET "Target := SuperName | NullName" + +#define SPEC_COMPUTATIONAL_DATA \ + "ComputationalData := ByteConst | WordConst | DWordConst | QWordConst " \ + "| String | ConstObj | RevisionOp | DefBuffer" + +static uacpi_bool op_wants_supername(enum uacpi_parse_op op) +{ + switch (op) { + case UACPI_PARSE_OP_SIMPLE_NAME: + case UACPI_PARSE_OP_SUPERNAME: + case UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED: + case UACPI_PARSE_OP_TARGET: + return UACPI_TRUE; + default: + return UACPI_FALSE; + } +} + +static uacpi_bool op_wants_term_arg_or_operand(enum uacpi_parse_op op) +{ + switch (op) { + case UACPI_PARSE_OP_TERM_ARG: + case UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL: + case UACPI_PARSE_OP_OPERAND: + case UACPI_PARSE_OP_STRING: + case UACPI_PARSE_OP_COMPUTATIONAL_DATA: + return UACPI_TRUE; + default: + return UACPI_FALSE; + } +} + +static uacpi_bool op_allows_unresolved(enum uacpi_parse_op op) +{ + switch (op) { + case UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED: + case UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL: + return UACPI_TRUE; + default: + return UACPI_FALSE; + } +} + +static uacpi_bool op_allows_unresolved_if_load(enum uacpi_parse_op op) +{ + switch (op) { + case UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD: + case UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL_IF_LOAD: + return UACPI_TRUE; + default: + return UACPI_FALSE; + } +} + +static uacpi_status op_typecheck(const struct op_context *op_ctx, + const struct op_context *cur_op_ctx) +{ + const uacpi_char *expected_type_str; + uacpi_u8 ok_mask = 0; + uacpi_u8 props = cur_op_ctx->op->properties; + + switch (*op_decode_cursor(op_ctx)) { + // SimpleName := NameString | ArgObj | LocalObj + case UACPI_PARSE_OP_SIMPLE_NAME: + expected_type_str = SPEC_SIMPLE_NAME; + ok_mask |= UACPI_OP_PROPERTY_SIMPLE_NAME; + break; + + // Target := SuperName | NullName + case UACPI_PARSE_OP_TARGET: + expected_type_str = SPEC_TARGET; + ok_mask |= UACPI_OP_PROPERTY_TARGET | UACPI_OP_PROPERTY_SUPERNAME; + break; + + // SuperName := SimpleName | DebugObj | ReferenceTypeOpcode + case UACPI_PARSE_OP_SUPERNAME: + case UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED: + expected_type_str = SPEC_SUPER_NAME; + ok_mask |= UACPI_OP_PROPERTY_SUPERNAME; + break; + + // TermArg := ExpressionOpcode | DataObject | ArgObj | LocalObj + case UACPI_PARSE_OP_TERM_ARG: + case UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED: + case UACPI_PARSE_OP_OPERAND: + case UACPI_PARSE_OP_STRING: + case UACPI_PARSE_OP_COMPUTATIONAL_DATA: + expected_type_str = SPEC_TERM_ARG; + ok_mask |= UACPI_OP_PROPERTY_TERM_ARG; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (!(props & ok_mask)) { + EXEC_OP_ERR_2("invalid argument: '%s', expected a %s", + cur_op_ctx->op->name, expected_type_str); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status typecheck_obj( + const struct op_context *op_ctx, + const uacpi_object *obj, + enum uacpi_object_type expected_type, + const uacpi_char *spec_desc +) +{ + if (uacpi_likely(obj->type == expected_type)) + return UACPI_STATUS_OK; + + EXEC_OP_ERR_2("invalid argument type: %s, expected a %s", + uacpi_object_type_to_string(obj->type), spec_desc); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; +} + +static uacpi_status typecheck_operand( + const struct op_context *op_ctx, + const uacpi_object *obj +) +{ + return typecheck_obj(op_ctx, obj, UACPI_OBJECT_INTEGER, SPEC_OPERAND); +} + +static uacpi_status typecheck_string( + const struct op_context *op_ctx, + const uacpi_object *obj +) +{ + return typecheck_obj(op_ctx, obj, UACPI_OBJECT_STRING, SPEC_STRING); +} + +static uacpi_status typecheck_computational_data( + const struct op_context *op_ctx, + const uacpi_object *obj +) +{ + switch (obj->type) { + case UACPI_OBJECT_STRING: + case UACPI_OBJECT_BUFFER: + case UACPI_OBJECT_INTEGER: + return UACPI_STATUS_OK; + default: + EXEC_OP_ERR_2( + "invalid argument type: %s, expected a %s", + uacpi_object_type_to_string(obj->type), + SPEC_COMPUTATIONAL_DATA + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } +} + +static void emit_op_skip_warn(const struct op_context *op_ctx) +{ + EXEC_OP_WARN("skipping due to previous errors"); +} + +static void trace_named_object_lookup_or_creation_failure( + struct call_frame *frame, uacpi_size offset, enum uacpi_parse_op op, + uacpi_status ret, enum uacpi_log_level level +) +{ + static const uacpi_char *oom_prefix = "<...>"; + static const uacpi_char *empty_string = ""; + static const uacpi_char *unknown_path = ""; + static const uacpi_char *invalid_path = ""; + + uacpi_status conv_ret; + const uacpi_char *action; + const uacpi_char *requested_path_to_print; + const uacpi_char *middle_part = UACPI_NULL; + const uacpi_char *prefix_path = UACPI_NULL; + uacpi_char *requested_path = UACPI_NULL; + uacpi_size length; + uacpi_bool is_create; + + is_create = op == UACPI_PARSE_OP_CREATE_NAMESTRING || + op == UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD; + + if (is_create) + action = "create"; + else + action = "lookup"; + + conv_ret = name_string_to_path( + frame, offset, &requested_path, &length + ); + if (uacpi_unlikely_error(conv_ret)) { + if (conv_ret == UACPI_STATUS_OUT_OF_MEMORY) + requested_path_to_print = unknown_path; + else + requested_path_to_print = invalid_path; + } else { + requested_path_to_print = requested_path; + } + + if (requested_path && requested_path[0] != '\\') { + prefix_path = uacpi_namespace_node_generate_absolute_path( + frame->cur_scope + ); + if (uacpi_unlikely(prefix_path == UACPI_NULL)) + prefix_path = oom_prefix; + + if (prefix_path[1] != '\0') + middle_part = "."; + } else { + prefix_path = empty_string; + } + + if (middle_part == UACPI_NULL) + middle_part = empty_string; + + if (length == 5 && !is_create) { + uacpi_log_lvl( + level, + "unable to %s named object '%s' within (or above) " + "scope '%s': %s\n", action, requested_path_to_print, + prefix_path, uacpi_status_to_string(ret) + ); + } else { + uacpi_log_lvl( + level, + "unable to %s named object '%s%s%s': %s\n", + action, prefix_path, middle_part, + requested_path_to_print, uacpi_status_to_string(ret) + ); + } + + uacpi_free(requested_path, length); + if (prefix_path != oom_prefix && prefix_path != empty_string) + uacpi_free_dynamic_string(prefix_path); +} + +static uacpi_status uninstalled_op_handler(struct execution_context *ctx) +{ + struct op_context *op_ctx = ctx->cur_op_ctx; + + EXEC_OP_ERR("no dedicated handler installed"); + return UACPI_STATUS_UNIMPLEMENTED; +} + +enum op_handler { + OP_HANDLER_UNINSTALLED = 0, + OP_HANDLER_LOCAL, + OP_HANDLER_ARG, + OP_HANDLER_STRING, + OP_HANDLER_BINARY_MATH, + OP_HANDLER_CONTROL_FLOW, + OP_HANDLER_CODE_BLOCK, + OP_HANDLER_RETURN, + OP_HANDLER_CREATE_METHOD, + OP_HANDLER_COPY_OBJECT_OR_STORE, + OP_HANDLER_INC_DEC, + OP_HANDLER_REF_OR_DEREF_OF, + OP_HANDLER_LOGICAL_NOT, + OP_HANDLER_BINARY_LOGIC, + OP_HANDLER_NAMED_OBJECT, + OP_HANDLER_BUFFER, + OP_HANDLER_PACKAGE, + OP_HANDLER_CREATE_NAMED, + OP_HANDLER_CREATE_BUFFER_FIELD, + OP_HANDLER_READ_FIELD, + OP_HANDLER_ALIAS, + OP_HANDLER_CONCATENATE, + OP_HANDLER_CONCATENATE_RES, + OP_HANDLER_SIZEOF, + OP_HANDLER_UNARY_MATH, + OP_HANDLER_INDEX, + OP_HANDLER_OBJECT_TYPE, + OP_HANDLER_CREATE_OP_REGION, + OP_HANDLER_CREATE_DATA_REGION, + OP_HANDLER_CREATE_FIELD, + OP_HANDLER_TO, + OP_HANDLER_TO_STRING, + OP_HANDLER_TIMER, + OP_HANDLER_MID, + OP_HANDLER_MATCH, + OP_HANDLER_CREATE_MUTEX_OR_EVENT, + OP_HANDLER_BCD, + OP_HANDLER_UNLOAD, + OP_HANDLER_LOAD_TABLE, + OP_HANDLER_LOAD, + OP_HANDLER_STALL_OR_SLEEP, + OP_HANDLER_EVENT_CTL, + OP_HANDLER_MUTEX_CTL, + OP_HANDLER_NOTIFY, + OP_HANDLER_FIRMWARE_REQUEST, +}; + +static uacpi_status (*op_handlers[])(struct execution_context *ctx) = { + /* + * All OPs that don't have a handler dispatch to here if + * UACPI_PARSE_OP_INVOKE_HANDLER is reached. + */ + [OP_HANDLER_UNINSTALLED] = uninstalled_op_handler, + [OP_HANDLER_LOCAL] = handle_local, + [OP_HANDLER_ARG] = handle_arg, + [OP_HANDLER_NAMED_OBJECT] = handle_named_object, + [OP_HANDLER_STRING] = handle_string, + [OP_HANDLER_BINARY_MATH] = handle_binary_math, + [OP_HANDLER_CONTROL_FLOW] = handle_control_flow, + [OP_HANDLER_CODE_BLOCK] = handle_code_block, + [OP_HANDLER_RETURN] = handle_return, + [OP_HANDLER_CREATE_METHOD] = handle_create_method, + [OP_HANDLER_CREATE_MUTEX_OR_EVENT] = handle_create_mutex_or_event, + [OP_HANDLER_COPY_OBJECT_OR_STORE] = handle_copy_object_or_store, + [OP_HANDLER_INC_DEC] = handle_inc_dec, + [OP_HANDLER_REF_OR_DEREF_OF] = handle_ref_or_deref_of, + [OP_HANDLER_LOGICAL_NOT] = handle_logical_not, + [OP_HANDLER_BINARY_LOGIC] = handle_binary_logic, + [OP_HANDLER_BUFFER] = handle_buffer, + [OP_HANDLER_PACKAGE] = handle_package, + [OP_HANDLER_CREATE_NAMED] = handle_create_named, + [OP_HANDLER_CREATE_BUFFER_FIELD] = handle_create_buffer_field, + [OP_HANDLER_READ_FIELD] = handle_field_read, + [OP_HANDLER_TO] = handle_to, + [OP_HANDLER_ALIAS] = handle_create_alias, + [OP_HANDLER_CONCATENATE] = handle_concatenate, + [OP_HANDLER_CONCATENATE_RES] = handle_concatenate_res, + [OP_HANDLER_SIZEOF] = handle_sizeof, + [OP_HANDLER_UNARY_MATH] = handle_unary_math, + [OP_HANDLER_INDEX] = handle_index, + [OP_HANDLER_OBJECT_TYPE] = handle_object_type, + [OP_HANDLER_CREATE_OP_REGION] = handle_create_op_region, + [OP_HANDLER_CREATE_DATA_REGION] = handle_create_data_region, + [OP_HANDLER_CREATE_FIELD] = handle_create_field, + [OP_HANDLER_TIMER] = handle_timer, + [OP_HANDLER_TO_STRING] = handle_to_string, + [OP_HANDLER_MID] = handle_mid, + [OP_HANDLER_MATCH] = handle_match, + [OP_HANDLER_BCD] = handle_bcd, + [OP_HANDLER_UNLOAD] = handle_unload, + [OP_HANDLER_LOAD_TABLE] = handle_load_table, + [OP_HANDLER_LOAD] = handle_load, + [OP_HANDLER_STALL_OR_SLEEP] = handle_stall_or_sleep, + [OP_HANDLER_EVENT_CTL] = handle_event_ctl, + [OP_HANDLER_MUTEX_CTL] = handle_mutex_ctl, + [OP_HANDLER_NOTIFY] = handle_notify, + [OP_HANDLER_FIRMWARE_REQUEST] = handle_firmware_request, +}; + +static uacpi_u8 handler_idx_of_op[0x100] = { + [UACPI_AML_OP_Local0Op] = OP_HANDLER_LOCAL, + [UACPI_AML_OP_Local1Op] = OP_HANDLER_LOCAL, + [UACPI_AML_OP_Local2Op] = OP_HANDLER_LOCAL, + [UACPI_AML_OP_Local3Op] = OP_HANDLER_LOCAL, + [UACPI_AML_OP_Local4Op] = OP_HANDLER_LOCAL, + [UACPI_AML_OP_Local5Op] = OP_HANDLER_LOCAL, + [UACPI_AML_OP_Local6Op] = OP_HANDLER_LOCAL, + [UACPI_AML_OP_Local7Op] = OP_HANDLER_LOCAL, + + [UACPI_AML_OP_Arg0Op] = OP_HANDLER_ARG, + [UACPI_AML_OP_Arg1Op] = OP_HANDLER_ARG, + [UACPI_AML_OP_Arg2Op] = OP_HANDLER_ARG, + [UACPI_AML_OP_Arg3Op] = OP_HANDLER_ARG, + [UACPI_AML_OP_Arg4Op] = OP_HANDLER_ARG, + [UACPI_AML_OP_Arg5Op] = OP_HANDLER_ARG, + [UACPI_AML_OP_Arg6Op] = OP_HANDLER_ARG, + + [UACPI_AML_OP_StringPrefix] = OP_HANDLER_STRING, + + [UACPI_AML_OP_AddOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_SubtractOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_MultiplyOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_DivideOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_ShiftLeftOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_ShiftRightOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_AndOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_NandOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_OrOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_NorOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_XorOp] = OP_HANDLER_BINARY_MATH, + [UACPI_AML_OP_ModOp] = OP_HANDLER_BINARY_MATH, + + [UACPI_AML_OP_IfOp] = OP_HANDLER_CODE_BLOCK, + [UACPI_AML_OP_ElseOp] = OP_HANDLER_CODE_BLOCK, + [UACPI_AML_OP_WhileOp] = OP_HANDLER_CODE_BLOCK, + [UACPI_AML_OP_ScopeOp] = OP_HANDLER_CODE_BLOCK, + + [UACPI_AML_OP_ContinueOp] = OP_HANDLER_CONTROL_FLOW, + [UACPI_AML_OP_BreakOp] = OP_HANDLER_CONTROL_FLOW, + + [UACPI_AML_OP_ReturnOp] = OP_HANDLER_RETURN, + + [UACPI_AML_OP_MethodOp] = OP_HANDLER_CREATE_METHOD, + + [UACPI_AML_OP_StoreOp] = OP_HANDLER_COPY_OBJECT_OR_STORE, + [UACPI_AML_OP_CopyObjectOp] = OP_HANDLER_COPY_OBJECT_OR_STORE, + + [UACPI_AML_OP_IncrementOp] = OP_HANDLER_INC_DEC, + [UACPI_AML_OP_DecrementOp] = OP_HANDLER_INC_DEC, + + [UACPI_AML_OP_RefOfOp] = OP_HANDLER_REF_OR_DEREF_OF, + [UACPI_AML_OP_DerefOfOp] = OP_HANDLER_REF_OR_DEREF_OF, + + [UACPI_AML_OP_LnotOp] = OP_HANDLER_LOGICAL_NOT, + + [UACPI_AML_OP_LEqualOp] = OP_HANDLER_BINARY_LOGIC, + [UACPI_AML_OP_LandOp] = OP_HANDLER_BINARY_LOGIC, + [UACPI_AML_OP_LorOp] = OP_HANDLER_BINARY_LOGIC, + [UACPI_AML_OP_LGreaterOp] = OP_HANDLER_BINARY_LOGIC, + [UACPI_AML_OP_LLessOp] = OP_HANDLER_BINARY_LOGIC, + + [UACPI_AML_OP_InternalOpNamedObject] = OP_HANDLER_NAMED_OBJECT, + + [UACPI_AML_OP_BufferOp] = OP_HANDLER_BUFFER, + + [UACPI_AML_OP_PackageOp] = OP_HANDLER_PACKAGE, + [UACPI_AML_OP_VarPackageOp] = OP_HANDLER_PACKAGE, + + [UACPI_AML_OP_NameOp] = OP_HANDLER_CREATE_NAMED, + + [UACPI_AML_OP_CreateBitFieldOp] = OP_HANDLER_CREATE_BUFFER_FIELD, + [UACPI_AML_OP_CreateByteFieldOp] = OP_HANDLER_CREATE_BUFFER_FIELD, + [UACPI_AML_OP_CreateWordFieldOp] = OP_HANDLER_CREATE_BUFFER_FIELD, + [UACPI_AML_OP_CreateDWordFieldOp] = OP_HANDLER_CREATE_BUFFER_FIELD, + [UACPI_AML_OP_CreateQWordFieldOp] = OP_HANDLER_CREATE_BUFFER_FIELD, + + [UACPI_AML_OP_InternalOpReadFieldAsBuffer] = OP_HANDLER_READ_FIELD, + [UACPI_AML_OP_InternalOpReadFieldAsInteger] = OP_HANDLER_READ_FIELD, + + [UACPI_AML_OP_ToIntegerOp] = OP_HANDLER_TO, + [UACPI_AML_OP_ToBufferOp] = OP_HANDLER_TO, + [UACPI_AML_OP_ToDecimalStringOp] = OP_HANDLER_TO, + [UACPI_AML_OP_ToHexStringOp] = OP_HANDLER_TO, + [UACPI_AML_OP_ToStringOp] = OP_HANDLER_TO_STRING, + + [UACPI_AML_OP_AliasOp] = OP_HANDLER_ALIAS, + + [UACPI_AML_OP_ConcatOp] = OP_HANDLER_CONCATENATE, + [UACPI_AML_OP_ConcatResOp] = OP_HANDLER_CONCATENATE_RES, + + [UACPI_AML_OP_SizeOfOp] = OP_HANDLER_SIZEOF, + + [UACPI_AML_OP_NotOp] = OP_HANDLER_UNARY_MATH, + [UACPI_AML_OP_FindSetLeftBitOp] = OP_HANDLER_UNARY_MATH, + [UACPI_AML_OP_FindSetRightBitOp] = OP_HANDLER_UNARY_MATH, + + [UACPI_AML_OP_IndexOp] = OP_HANDLER_INDEX, + + [UACPI_AML_OP_ObjectTypeOp] = OP_HANDLER_OBJECT_TYPE, + + [UACPI_AML_OP_MidOp] = OP_HANDLER_MID, + + [UACPI_AML_OP_MatchOp] = OP_HANDLER_MATCH, + + [UACPI_AML_OP_NotifyOp] = OP_HANDLER_NOTIFY, + + [UACPI_AML_OP_BreakPointOp] = OP_HANDLER_FIRMWARE_REQUEST, +}; + +#define EXT_OP_IDX(op) (op & 0xFF) + +static uacpi_u8 handler_idx_of_ext_op[0x100] = { + [EXT_OP_IDX(UACPI_AML_OP_CreateFieldOp)] = OP_HANDLER_CREATE_BUFFER_FIELD, + [EXT_OP_IDX(UACPI_AML_OP_CondRefOfOp)] = OP_HANDLER_REF_OR_DEREF_OF, + [EXT_OP_IDX(UACPI_AML_OP_OpRegionOp)] = OP_HANDLER_CREATE_OP_REGION, + [EXT_OP_IDX(UACPI_AML_OP_DeviceOp)] = OP_HANDLER_CODE_BLOCK, + [EXT_OP_IDX(UACPI_AML_OP_ProcessorOp)] = OP_HANDLER_CODE_BLOCK, + [EXT_OP_IDX(UACPI_AML_OP_PowerResOp)] = OP_HANDLER_CODE_BLOCK, + [EXT_OP_IDX(UACPI_AML_OP_ThermalZoneOp)] = OP_HANDLER_CODE_BLOCK, + [EXT_OP_IDX(UACPI_AML_OP_TimerOp)] = OP_HANDLER_TIMER, + [EXT_OP_IDX(UACPI_AML_OP_MutexOp)] = OP_HANDLER_CREATE_MUTEX_OR_EVENT, + [EXT_OP_IDX(UACPI_AML_OP_EventOp)] = OP_HANDLER_CREATE_MUTEX_OR_EVENT, + + [EXT_OP_IDX(UACPI_AML_OP_FieldOp)] = OP_HANDLER_CREATE_FIELD, + [EXT_OP_IDX(UACPI_AML_OP_IndexFieldOp)] = OP_HANDLER_CREATE_FIELD, + [EXT_OP_IDX(UACPI_AML_OP_BankFieldOp)] = OP_HANDLER_CREATE_FIELD, + + [EXT_OP_IDX(UACPI_AML_OP_FromBCDOp)] = OP_HANDLER_BCD, + [EXT_OP_IDX(UACPI_AML_OP_ToBCDOp)] = OP_HANDLER_BCD, + + [EXT_OP_IDX(UACPI_AML_OP_DataRegionOp)] = OP_HANDLER_CREATE_DATA_REGION, + + [EXT_OP_IDX(UACPI_AML_OP_LoadTableOp)] = OP_HANDLER_LOAD_TABLE, + [EXT_OP_IDX(UACPI_AML_OP_LoadOp)] = OP_HANDLER_LOAD, + [EXT_OP_IDX(UACPI_AML_OP_UnloadOp)] = OP_HANDLER_UNLOAD, + + [EXT_OP_IDX(UACPI_AML_OP_StallOp)] = OP_HANDLER_STALL_OR_SLEEP, + [EXT_OP_IDX(UACPI_AML_OP_SleepOp)] = OP_HANDLER_STALL_OR_SLEEP, + + [EXT_OP_IDX(UACPI_AML_OP_SignalOp)] = OP_HANDLER_EVENT_CTL, + [EXT_OP_IDX(UACPI_AML_OP_ResetOp)] = OP_HANDLER_EVENT_CTL, + [EXT_OP_IDX(UACPI_AML_OP_WaitOp)] = OP_HANDLER_EVENT_CTL, + + [EXT_OP_IDX(UACPI_AML_OP_AcquireOp)] = OP_HANDLER_MUTEX_CTL, + [EXT_OP_IDX(UACPI_AML_OP_ReleaseOp)] = OP_HANDLER_MUTEX_CTL, + + [EXT_OP_IDX(UACPI_AML_OP_FatalOp)] = OP_HANDLER_FIRMWARE_REQUEST, +}; + +enum method_call_type { + METHOD_CALL_NATIVE, + METHOD_CALL_AML, + METHOD_CALL_TABLE_LOAD, +}; + +static uacpi_status prepare_method_call( + struct execution_context *ctx, uacpi_namespace_node *node, + uacpi_control_method *method, enum method_call_type type, + const uacpi_object_array *args +) +{ + uacpi_status ret; + struct call_frame *frame; + + if (uacpi_unlikely(call_frame_array_size(&ctx->call_stack) >= + g_uacpi_rt_ctx.max_call_stack_depth)) + return UACPI_STATUS_AML_CALL_STACK_DEPTH_LIMIT; + + ret = push_new_frame(ctx, &frame); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = enter_method(ctx, frame, method); + if (uacpi_unlikely_error(ret)) + goto method_dispatch_error; + + if (type == METHOD_CALL_NATIVE) { + uacpi_u8 arg_count; + + arg_count = args ? args->count : 0; + if (uacpi_unlikely(arg_count != method->args)) { + uacpi_error( + "invalid number of arguments %zu to call %.4s, expected %d\n", + args ? args->count : 0, node->name.text, method->args + ); + + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto method_dispatch_error; + } + + if (args != UACPI_NULL) { + uacpi_u8 i; + + for (i = 0; i < method->args; ++i) { + frame->args[i] = args->objects[i]; + uacpi_object_ref(args->objects[i]); + } + } + } else if (type == METHOD_CALL_AML) { + ret = frame_push_args(frame, ctx->cur_op_ctx); + if (uacpi_unlikely_error(ret)) + goto method_dispatch_error; + } + + ret = frame_setup_base_scope(frame, node, method); + if (uacpi_unlikely_error(ret)) + goto method_dispatch_error; + + ctx->cur_frame = frame; + ctx->cur_op_ctx = UACPI_NULL; + ctx->prev_op_ctx = UACPI_NULL; + ctx->cur_block = code_block_array_last(&ctx->cur_frame->code_blocks); + + if (method->native_call) { + uacpi_object *retval; + + ret = method_get_ret_object(ctx, &retval); + if (uacpi_unlikely_error(ret)) + goto method_dispatch_error; + + return method->handler(ctx, retval); + } + + return UACPI_STATUS_OK; + +method_dispatch_error: + call_frame_clear(frame); + call_frame_array_pop(&ctx->call_stack); + return ret; +} + +static void apply_tracked_pkg( + struct call_frame *frame, struct op_context *op_ctx +) +{ + struct item *item; + + if (op_ctx->tracked_pkg_idx == 0) + return; + + item = item_array_at(&op_ctx->items, op_ctx->tracked_pkg_idx - 1); + frame->code_offset = item->pkg.end; +} + +static uacpi_status exec_op(struct execution_context *ctx) +{ + uacpi_status ret = UACPI_STATUS_OK; + struct call_frame *frame = ctx->cur_frame; + struct op_context *op_ctx; + struct item *item = UACPI_NULL; + enum uacpi_parse_op prev_op = 0, op; + + /* + * Allocate a new op context if previous is preempted (looking for a + * dynamic argument), or doesn't exist at all. + */ + if (!ctx_has_non_preempted_op(ctx)) { + ret = push_op(ctx); + if (uacpi_unlikely_error(ret)) + return ret; + } else { + trace_op(ctx->cur_op_ctx->op, OP_TRACE_ACTION_RESUME); + } + + if (ctx->prev_op_ctx) + prev_op = *op_decode_cursor(ctx->prev_op_ctx); + + for (;;) { + if (uacpi_unlikely_error(ret)) + return ret; + + op_ctx = ctx->cur_op_ctx; + frame = ctx->cur_frame; + + if (op_ctx->pc == 0 && ctx->prev_op_ctx) { + /* + * Type check the current arg type against what is expected by the + * preempted op. This check is able to catch most type violations + * with the only exception being Operand as we only know whether + * that evaluates to an integer after the fact. + */ + ret = op_typecheck(ctx->prev_op_ctx, ctx->cur_op_ctx); + if (uacpi_unlikely_error(ret)) + return ret; + } + + op = op_decode_byte(op_ctx); + trace_pop(op); + + if (parse_op_generates_item[op] != ITEM_NONE) { + item = item_array_alloc(&op_ctx->items); + if (uacpi_unlikely(item == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + item->type = parse_op_generates_item[op]; + if (item->type == ITEM_OBJECT) { + enum uacpi_object_type type = UACPI_OBJECT_UNINITIALIZED; + + if (op == UACPI_PARSE_OP_OBJECT_ALLOC_TYPED) + type = op_decode_byte(op_ctx); + + item->obj = uacpi_create_object(type); + if (uacpi_unlikely(item->obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + } else { + uacpi_memzero(&item->immediate, sizeof(item->immediate)); + } + } else if (item == UACPI_NULL) { + item = item_array_last(&op_ctx->items); + } + + switch (op) { + case UACPI_PARSE_OP_END: + case UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL: { + trace_op(ctx->cur_op_ctx->op, OP_TRACE_ACTION_END); + + if (op == UACPI_PARSE_OP_SKIP_WITH_WARN_IF_NULL) { + uacpi_u8 idx; + + idx = op_decode_byte(op_ctx); + if (item_array_at(&op_ctx->items, idx)->handle != UACPI_NULL) + break; + + emit_op_skip_warn(op_ctx); + } + + apply_tracked_pkg(frame, op_ctx); + + pop_op(ctx); + if (ctx->cur_op_ctx) { + ctx->cur_op_ctx->preempted = UACPI_FALSE; + ctx->cur_op_ctx->pc++; + } + + return UACPI_STATUS_OK; + } + + case UACPI_PARSE_OP_EMIT_SKIP_WARN: + emit_op_skip_warn(op_ctx); + break; + + case UACPI_PARSE_OP_SIMPLE_NAME: + case UACPI_PARSE_OP_SUPERNAME: + case UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED: + case UACPI_PARSE_OP_TERM_ARG: + case UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED: + case UACPI_PARSE_OP_OPERAND: + case UACPI_PARSE_OP_STRING: + case UACPI_PARSE_OP_COMPUTATIONAL_DATA: + case UACPI_PARSE_OP_TARGET: + /* + * Preempt this op parsing for now as we wait for the dynamic arg + * to be parsed. + */ + op_ctx->preempted = UACPI_TRUE; + op_ctx->pc--; + return UACPI_STATUS_OK; + + case UACPI_PARSE_OP_TRACKED_PKGLEN: + op_ctx->tracked_pkg_idx = item_array_size(&op_ctx->items); + UACPI_FALLTHROUGH; + case UACPI_PARSE_OP_PKGLEN: + ret = parse_package_length(frame, &item->pkg); + break; + + case UACPI_PARSE_OP_LOAD_INLINE_IMM: + case UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT: { + void *dst; + uacpi_u8 src_width; + + if (op == UACPI_PARSE_OP_LOAD_INLINE_IMM_AS_OBJECT) { + item->obj->type = UACPI_OBJECT_INTEGER; + dst = &item->obj->integer; + src_width = 8; + } else { + dst = &item->immediate; + src_width = op_decode_byte(op_ctx); + } + + uacpi_memcpy_zerout( + dst, op_decode_cursor(op_ctx), + sizeof(uacpi_u64), src_width + ); + op_ctx->pc += src_width; + break; + } + + case UACPI_PARSE_OP_LOAD_ZERO_IMM: + break; + + case UACPI_PARSE_OP_LOAD_IMM: + case UACPI_PARSE_OP_LOAD_IMM_AS_OBJECT: { + uacpi_u8 width; + void *dst; + + width = op_decode_byte(op_ctx); + if (uacpi_unlikely(call_frame_code_bytes_left(frame) < width)) + return UACPI_STATUS_AML_BAD_ENCODING; + + if (op == UACPI_PARSE_OP_LOAD_IMM_AS_OBJECT) { + item->obj->type = UACPI_OBJECT_INTEGER; + item->obj->integer = 0; + dst = &item->obj->integer; + } else { + dst = item->immediate_bytes; + } + + uacpi_memcpy(dst, call_frame_cursor(frame), width); + frame->code_offset += width; + break; + } + + case UACPI_PARSE_OP_LOAD_FALSE_OBJECT: + case UACPI_PARSE_OP_LOAD_TRUE_OBJECT: { + uacpi_object *obj = item->obj; + obj->type = UACPI_OBJECT_INTEGER; + obj->integer = op == UACPI_PARSE_OP_LOAD_FALSE_OBJECT ? 0 : ones(); + break; + } + + case UACPI_PARSE_OP_RECORD_AML_PC: + item->immediate = frame->code_offset; + break; + + case UACPI_PARSE_OP_TRUNCATE_NUMBER: + truncate_number_if_needed(item->obj); + break; + + case UACPI_PARSE_OP_TYPECHECK: { + enum uacpi_object_type expected_type; + + expected_type = op_decode_byte(op_ctx); + + if (uacpi_unlikely(item->obj->type != expected_type)) { + EXEC_OP_ERR_2("bad object type: expected %s, got %s!", + uacpi_object_type_to_string(expected_type), + uacpi_object_type_to_string(item->obj->type)); + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + break; + } + + case UACPI_PARSE_OP_BAD_OPCODE: + case UACPI_PARSE_OP_UNREACHABLE: + EXEC_OP_ERR("invalid/unexpected opcode"); + ret = UACPI_STATUS_AML_INVALID_OPCODE; + break; + + case UACPI_PARSE_OP_AML_PC_DECREMENT: + frame->code_offset--; + break; + + case UACPI_PARSE_OP_IMM_DECREMENT: + item_array_at(&op_ctx->items, op_decode_byte(op_ctx))->immediate--; + break; + + case UACPI_PARSE_OP_ITEM_POP: + pop_item(op_ctx); + item = item_array_last(&op_ctx->items); + break; + + case UACPI_PARSE_OP_IF_HAS_DATA: { + uacpi_size pkg_idx = op_ctx->tracked_pkg_idx - 1; + struct package_length *pkg; + uacpi_u8 bytes_skip; + + bytes_skip = op_decode_byte(op_ctx); + pkg = &item_array_at(&op_ctx->items, pkg_idx)->pkg; + + if (frame->code_offset >= pkg->end) + op_ctx->pc += bytes_skip; + + break; + } + + case UACPI_PARSE_OP_IF_NOT_NULL: + case UACPI_PARSE_OP_IF_NULL: + case UACPI_PARSE_OP_IF_LAST_NULL: + case UACPI_PARSE_OP_IF_LAST_NOT_NULL: { + uacpi_u8 idx, bytes_skip; + uacpi_bool is_null, skip_if_null; + + if (op == UACPI_PARSE_OP_IF_LAST_NULL || + op == UACPI_PARSE_OP_IF_LAST_NOT_NULL) { + is_null = item->handle == UACPI_NULL; + } else { + idx = op_decode_byte(op_ctx); + is_null = item_array_at(&op_ctx->items, idx)->handle == UACPI_NULL; + } + + bytes_skip = op_decode_byte(op_ctx); + skip_if_null = op == UACPI_PARSE_OP_IF_NOT_NULL || + op == UACPI_PARSE_OP_IF_LAST_NOT_NULL; + + if (is_null == skip_if_null) + op_ctx->pc += bytes_skip; + + break; + } + + case UACPI_PARSE_OP_IF_LAST_EQUALS: { + uacpi_u8 value, bytes_skip; + + value = op_decode_byte(op_ctx); + bytes_skip = op_decode_byte(op_ctx); + + if (item->immediate != value) + op_ctx->pc += bytes_skip; + + break; + } + + case UACPI_PARSE_OP_IF_LAST_FALSE: + case UACPI_PARSE_OP_IF_LAST_TRUE: { + uacpi_u8 bytes_skip; + uacpi_bool is_false, skip_if_false; + + bytes_skip = op_decode_byte(op_ctx); + is_false = item->obj->integer == 0; + skip_if_false = op == UACPI_PARSE_OP_IF_LAST_TRUE; + + if (is_false == skip_if_false) + op_ctx->pc += bytes_skip; + + break; + } + + case UACPI_PARSE_OP_JMP: { + op_ctx->pc = op_decode_byte(op_ctx); + break; + } + + case UACPI_PARSE_OP_CREATE_NAMESTRING: + case UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD: + case UACPI_PARSE_OP_EXISTING_NAMESTRING: + case UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL: + case UACPI_PARSE_OP_EXISTING_NAMESTRING_OR_NULL_IF_LOAD: { + uacpi_size offset = frame->code_offset; + enum resolve_behavior behavior; + + if (op == UACPI_PARSE_OP_CREATE_NAMESTRING || + op == UACPI_PARSE_OP_CREATE_NAMESTRING_OR_NULL_IF_LOAD) + behavior = RESOLVE_CREATE_LAST_NAMESEG_FAIL_IF_EXISTS; + else + behavior = RESOLVE_FAIL_IF_DOESNT_EXIST; + + ret = resolve_name_string(frame, behavior, &item->node); + + if (ret == UACPI_STATUS_NOT_FOUND) { + uacpi_bool is_ok; + + if (prev_op) { + is_ok = op_allows_unresolved(prev_op); + is_ok &= op_allows_unresolved(op); + } else { + // This is the only standalone op where we allow unresolved + is_ok = op_ctx->op->code == UACPI_AML_OP_ExternalOp; + } + + if (is_ok) + ret = UACPI_STATUS_OK; + } + + if (uacpi_unlikely_error(ret)) { + enum uacpi_log_level lvl = UACPI_LOG_ERROR; + uacpi_status trace_ret = ret; + uacpi_bool abort_whileif = UACPI_FALSE; + + if (frame->method->named_objects_persist && + (ret == UACPI_STATUS_AML_OBJECT_ALREADY_EXISTS || + ret == UACPI_STATUS_NOT_FOUND)) { + struct op_context *first_ctx; + + first_ctx = op_context_array_at(&frame->pending_ops, 0); + abort_whileif = first_ctx->op->code == UACPI_AML_OP_WhileOp || + first_ctx->op->code == UACPI_AML_OP_IfOp; + + if (op_allows_unresolved_if_load(op) || abort_whileif) { + lvl = UACPI_LOG_WARN; + ret = UACPI_STATUS_OK; + } + } + + trace_named_object_lookup_or_creation_failure( + frame, offset, op, trace_ret, lvl + ); + + if (abort_whileif) { + while (op_context_array_size(&frame->pending_ops) != 1) + pop_op(ctx); + + op_ctx = op_context_array_at(&frame->pending_ops, 0); + op_ctx->pc++; + op_ctx->preempted = UACPI_FALSE; + break; + } + + if (ret == UACPI_STATUS_NOT_FOUND) + ret = UACPI_STATUS_AML_UNDEFINED_REFERENCE; + } + + if (behavior == RESOLVE_CREATE_LAST_NAMESEG_FAIL_IF_EXISTS && + !frame->method->named_objects_persist) + item->node->flags |= UACPI_NAMESPACE_NODE_FLAG_TEMPORARY; + + break; + } + + case UACPI_PARSE_OP_INVOKE_HANDLER: { + uacpi_aml_op code = op_ctx->op->code; + uacpi_u8 idx; + + if (code <= 0xFF) + idx = handler_idx_of_op[code]; + else + idx = handler_idx_of_ext_op[EXT_OP_IDX(code)]; + + ret = op_handlers[idx](ctx); + break; + } + + case UACPI_PARSE_OP_INSTALL_NAMESPACE_NODE: + item = item_array_at(&op_ctx->items, op_decode_byte(op_ctx)); + ret = do_install_node_item(frame, item); + break; + + case UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV: + case UACPI_PARSE_OP_OBJECT_COPY_TO_PREV: { + uacpi_object *src; + struct item *dst; + + if (!ctx->prev_op_ctx) + break; + + switch (prev_op) { + case UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL: + case UACPI_PARSE_OP_COMPUTATIONAL_DATA: + case UACPI_PARSE_OP_OPERAND: + case UACPI_PARSE_OP_STRING: + src = uacpi_unwrap_internal_reference(item->obj); + + if (prev_op == UACPI_PARSE_OP_OPERAND) + ret = typecheck_operand(ctx->prev_op_ctx, src); + else if (prev_op == UACPI_PARSE_OP_STRING) + ret = typecheck_string(ctx->prev_op_ctx, src); + else if (prev_op == UACPI_PARSE_OP_COMPUTATIONAL_DATA) + ret = typecheck_computational_data(ctx->prev_op_ctx, src); + + break; + case UACPI_PARSE_OP_SUPERNAME: + case UACPI_PARSE_OP_SUPERNAME_OR_UNRESOLVED: + src = item->obj; + break; + + case UACPI_PARSE_OP_SIMPLE_NAME: + case UACPI_PARSE_OP_TERM_ARG: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED: + case UACPI_PARSE_OP_TARGET: + src = item->obj; + break; + + default: + EXEC_OP_ERR_1("don't know how to copy/transfer object to %d", + prev_op); + ret = UACPI_STATUS_INVALID_ARGUMENT; + break; + } + + if (uacpi_likely_success(ret)) { + dst = item_array_last(&ctx->prev_op_ctx->items); + dst->type = ITEM_OBJECT; + + if (op == UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV) { + dst->obj = src; + uacpi_object_ref(dst->obj); + } else { + dst->obj = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + if (uacpi_unlikely(dst->obj == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + break; + } + + ret = uacpi_object_assign(dst->obj, src, + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY); + } + } + break; + } + + case UACPI_PARSE_OP_STORE_TO_TARGET: + case UACPI_PARSE_OP_STORE_TO_TARGET_INDIRECT: { + uacpi_object *dst, *src; + + dst = item_array_at(&op_ctx->items, op_decode_byte(op_ctx))->obj; + + if (op == UACPI_PARSE_OP_STORE_TO_TARGET_INDIRECT) { + src = item_array_at(&op_ctx->items, + op_decode_byte(op_ctx))->obj; + } else { + src = item->obj; + } + + ret = store_to_target(dst, src, UACPI_NULL); + break; + } + + // Nothing to do here, object is allocated automatically + case UACPI_PARSE_OP_OBJECT_ALLOC: + case UACPI_PARSE_OP_OBJECT_ALLOC_TYPED: + case UACPI_PARSE_OP_EMPTY_OBJECT_ALLOC: + break; + + case UACPI_PARSE_OP_OBJECT_CONVERT_TO_SHALLOW_COPY: + case UACPI_PARSE_OP_OBJECT_CONVERT_TO_DEEP_COPY: { + uacpi_object *temp = item->obj; + enum uacpi_assign_behavior behavior; + + item_array_pop(&op_ctx->items); + item = item_array_last(&op_ctx->items); + + if (op == UACPI_PARSE_OP_OBJECT_CONVERT_TO_SHALLOW_COPY) + behavior = UACPI_ASSIGN_BEHAVIOR_SHALLOW_COPY; + else + behavior = UACPI_ASSIGN_BEHAVIOR_DEEP_COPY; + + ret = uacpi_object_assign(temp, item->obj, behavior); + if (uacpi_unlikely_error(ret)) + break; + + uacpi_object_unref(item->obj); + item->obj = temp; + break; + } + + case UACPI_PARSE_OP_DISPATCH_METHOD_CALL: { + struct uacpi_namespace_node *node; + struct uacpi_control_method *method; + + node = item_array_at(&op_ctx->items, 0)->node; + method = uacpi_namespace_node_get_object(node)->method; + + ret = prepare_method_call( + ctx, node, method, METHOD_CALL_AML, UACPI_NULL + ); + return ret; + } + + case UACPI_PARSE_OP_DISPATCH_TABLE_LOAD: { + struct uacpi_namespace_node *node; + struct uacpi_control_method *method; + + node = item_array_at(&op_ctx->items, 0)->node; + method = item_array_at(&op_ctx->items, 1)->obj->method; + + ret = prepare_method_call( + ctx, node, method, METHOD_CALL_TABLE_LOAD, UACPI_NULL + ); + return ret; + } + + case UACPI_PARSE_OP_CONVERT_NAMESTRING: { + uacpi_aml_op new_op = UACPI_AML_OP_InternalOpNamedObject; + uacpi_object *obj; + + if (item->node == UACPI_NULL) { + if (!op_allows_unresolved(prev_op)) + ret = UACPI_STATUS_NOT_FOUND; + break; + } + + obj = uacpi_namespace_node_get_object(item->node); + + switch (obj->type) { + case UACPI_OBJECT_METHOD: { + uacpi_bool should_invoke; + + switch (prev_op) { + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT: + case UACPI_PARSE_OP_TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED: + should_invoke = UACPI_FALSE; + break; + default: + should_invoke = !op_wants_supername(prev_op); + } + + if (!should_invoke) + break; + + new_op = UACPI_AML_OP_InternalOpMethodCall0Args; + new_op += obj->method->args; + break; + } + + case UACPI_OBJECT_BUFFER_FIELD: + case UACPI_OBJECT_FIELD_UNIT: { + uacpi_object_type type; + + if (!op_wants_term_arg_or_operand(prev_op)) + break; + + ret = field_get_read_type(obj, &type); + if (uacpi_unlikely_error(ret)) { + const uacpi_char *field_path; + + field_path = uacpi_namespace_node_generate_absolute_path( + item->node + ); + + uacpi_error( + "unable to perform a read from field %s: " + "parent opregion gone\n", field_path + ); + uacpi_free_absolute_path(field_path); + } + + switch (type) { + case UACPI_OBJECT_BUFFER: + new_op = UACPI_AML_OP_InternalOpReadFieldAsBuffer; + break; + case UACPI_OBJECT_INTEGER: + new_op = UACPI_AML_OP_InternalOpReadFieldAsInteger; + break; + default: + ret = UACPI_STATUS_INVALID_ARGUMENT; + continue; + } + break; + } + default: + break; + } + + op_ctx->pc = 0; + op_ctx->op = uacpi_get_op_spec(new_op); + break; + } + + case UACPI_PARSE_OP_SWITCH_TO_NEXT_IF_EQUALS: { + uacpi_aml_op op, target_op; + uacpi_u32 cur_offset; + uacpi_u8 op_length; + + cur_offset = frame->code_offset; + apply_tracked_pkg(frame, op_ctx); + op_length = peek_next_op(frame, &op); + + target_op = op_decode_aml_op(op_ctx); + if (op_length == 0 || op != target_op) { + // Revert tracked package + frame->code_offset = cur_offset; + break; + } + + frame->code_offset += op_length; + op_ctx->switched_from = op_ctx->op->code; + op_ctx->op = uacpi_get_op_spec(target_op); + op_ctx->pc = 0; + break; + } + + case UACPI_PARSE_OP_IF_SWITCHED_FROM: { + uacpi_aml_op target_op; + uacpi_u8 skip_bytes; + + target_op = op_decode_aml_op(op_ctx); + skip_bytes = op_decode_byte(op_ctx); + + if (op_ctx->switched_from != target_op) + op_ctx->pc += skip_bytes; + break; + } + + default: + EXEC_OP_ERR_1("unhandled parser op '%d'", op); + ret = UACPI_STATUS_UNIMPLEMENTED; + break; + } + } +} + +static void ctx_reload_post_ret(struct execution_context *ctx) +{ + uacpi_control_method *method = ctx->cur_frame->method; + + if (method->is_serialized) { + held_mutexes_array_remove_and_release( + &ctx->held_mutexes, method->mutex, FORCE_RELEASE_YES + ); + ctx->sync_level = ctx->cur_frame->prev_sync_level; + } + + call_frame_clear(ctx->cur_frame); + call_frame_array_pop(&ctx->call_stack); + + ctx->cur_frame = call_frame_array_last(&ctx->call_stack); + refresh_ctx_pointers(ctx); +} + +static void trace_method_abort(struct code_block *block, uacpi_size depth) +{ + static const uacpi_char *unknown_path = ""; + uacpi_char oom_absolute_path[9] = "."; + + const uacpi_char *absolute_path; + + if (block != UACPI_NULL && block->type == CODE_BLOCK_SCOPE) { + absolute_path = uacpi_namespace_node_generate_absolute_path(block->node); + if (uacpi_unlikely(absolute_path == UACPI_NULL)) + uacpi_memcpy(oom_absolute_path + 4, block->node->name.text, 4); + } else { + absolute_path = unknown_path; + } + + uacpi_error(" #%zu in %s()\n", depth, absolute_path); + + if (absolute_path != oom_absolute_path && absolute_path != unknown_path) + uacpi_free_dynamic_string(absolute_path); +} + +static void stack_unwind(struct execution_context *ctx) +{ + uacpi_size depth; + uacpi_bool should_stop; + + /* + * Non-empty call stack here means the execution was aborted at some point, + * probably due to a bytecode error. + */ + depth = call_frame_array_size(&ctx->call_stack); + + if (depth != 0) { + uacpi_size idx = 0; + uacpi_bool table_level_code; + + do { + table_level_code = ctx->cur_frame->method->named_objects_persist; + + if (table_level_code && idx != 0) + /* + * This isn't the first frame that we are aborting. + * If this is table-level code, we have just unwound a call + * chain that had triggered an abort. Stop here, no need to + * abort table load because of it. + */ + break; + + while (op_context_array_size(&ctx->cur_frame->pending_ops) != 0) + pop_op(ctx); + + trace_method_abort( + code_block_array_at(&ctx->cur_frame->code_blocks, 0), idx + ); + + should_stop = idx++ == 0 && table_level_code; + ctx_reload_post_ret(ctx); + } while (--depth && !should_stop); + } +} + +static void execution_context_release(struct execution_context *ctx) +{ + if (ctx->ret) + uacpi_object_unref(ctx->ret); + + while (held_mutexes_array_size(&ctx->held_mutexes) != 0) { + held_mutexes_array_remove_and_release( + &ctx->held_mutexes, + *held_mutexes_array_last(&ctx->held_mutexes), + FORCE_RELEASE_YES + ); + } + + call_frame_array_clear(&ctx->call_stack); + held_mutexes_array_clear(&ctx->held_mutexes); + uacpi_free(ctx, sizeof(*ctx)); +} + +uacpi_status uacpi_execute_control_method( + uacpi_namespace_node *scope, uacpi_control_method *method, + const uacpi_object_array *args, uacpi_object **out_obj +) +{ + uacpi_status ret = UACPI_STATUS_OK; + struct execution_context *ctx; + + ctx = uacpi_kernel_alloc_zeroed(sizeof(*ctx)); + if (uacpi_unlikely(ctx == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + if (out_obj != UACPI_NULL) { + ctx->ret = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + if (uacpi_unlikely(ctx->ret == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + } + + ret = prepare_method_call(ctx, scope, method, METHOD_CALL_NATIVE, args); + if (uacpi_unlikely_error(ret)) + goto out; + + for (;;) { + if (!ctx_has_non_preempted_op(ctx)) { + if (ctx->cur_frame == UACPI_NULL) + break; + + if (maybe_end_block(ctx)) + continue; + + if (!call_frame_has_code(ctx->cur_frame)) { + ctx_reload_post_ret(ctx); + continue; + } + + ret = get_op(ctx); + if (uacpi_unlikely_error(ret)) + goto handle_method_abort; + + trace_op(ctx->cur_op, OP_TRACE_ACTION_BEGIN); + } + + ret = exec_op(ctx); + if (uacpi_unlikely_error(ret)) + goto handle_method_abort; + + continue; + + handle_method_abort: + uacpi_error("aborting %s due to previous error: %s\n", + ctx->cur_frame->method->named_objects_persist ? + "table load" : "method invocation", + uacpi_status_to_string(ret)); + stack_unwind(ctx); + + /* + * Having a frame here implies that we just aborted a dynamic table + * load. Signal to the caller that it failed by setting the return + * value to false. + */ + if (ctx->cur_frame) { + struct item *it; + + it = item_array_last(&ctx->cur_op_ctx->items); + if (it != UACPI_NULL && it->obj != UACPI_NULL) + it->obj->integer = 0; + } + } + +out: + if (ctx->ret != UACPI_NULL) { + uacpi_object *ret_obj = UACPI_NULL; + + if (ctx->ret->type != UACPI_OBJECT_UNINITIALIZED) { + ret_obj = ctx->ret; + uacpi_object_ref(ret_obj); + } + + *out_obj = ret_obj; + } + + execution_context_release(ctx); + return ret; +} + +uacpi_status uacpi_osi(uacpi_handle handle, uacpi_object *retval) +{ + struct execution_context *ctx = handle; + uacpi_bool is_supported; + uacpi_status ret; + uacpi_object *arg; + + arg = uacpi_unwrap_internal_reference(ctx->cur_frame->args[0]); + if (arg->type != UACPI_OBJECT_STRING) { + uacpi_error("_OSI: invalid argument type %s, expected a String\n", + uacpi_object_type_to_string(arg->type)); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + if (retval == UACPI_NULL) + return UACPI_STATUS_OK; + + retval->type = UACPI_OBJECT_INTEGER; + + ret = uacpi_handle_osi(arg->buffer->text, &is_supported); + if (uacpi_unlikely_error(ret)) + return ret; + + retval->integer = is_supported ? ones() : 0; + + uacpi_trace("_OSI(%s) => reporting as %ssupported\n", + arg->buffer->text, is_supported ? "" : "un"); + return UACPI_STATUS_OK; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/io.c b/kernel/hal/x86_64/uACPI/source/io.c new file mode 100644 index 0000000..7d10005 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/io.c @@ -0,0 +1,1116 @@ +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +uacpi_size uacpi_round_up_bits_to_bytes(uacpi_size bit_length) +{ + return UACPI_ALIGN_UP(bit_length, 8, uacpi_size) / 8; +} + +static void cut_misaligned_tail( + uacpi_u8 *data, uacpi_size offset, uacpi_u32 bit_length +) +{ + uacpi_u8 remainder = bit_length & 7; + + if (remainder == 0) + return; + + data[offset] &= ((1ull << remainder) - 1); +} + +struct bit_span +{ + union { + uacpi_u8 *data; + const uacpi_u8 *const_data; + }; + uacpi_u64 index; + uacpi_u64 length; +}; + +static uacpi_size bit_span_offset(struct bit_span *span, uacpi_size bits) +{ + uacpi_size delta = UACPI_MIN(span->length, bits); + + span->index += delta; + span->length -= delta; + + return delta; +} + +static void bit_copy(struct bit_span *dst, struct bit_span *src) +{ + uacpi_u8 src_shift, dst_shift, bits = 0; + uacpi_u16 dst_mask; + uacpi_u8 *dst_ptr, *src_ptr; + uacpi_u64 dst_count, src_count; + + dst_ptr = dst->data + (dst->index / 8); + src_ptr = src->data + (src->index / 8); + + dst_count = dst->length; + dst_shift = dst->index & 7; + + src_count = src->length; + src_shift = src->index & 7; + + while (dst_count) + { + bits = 0; + + if (src_count) { + bits = *src_ptr >> src_shift; + + if (src_shift && src_count > (uacpi_u32)(8 - src_shift)) + bits |= *(src_ptr + 1) << (8 - src_shift); + + if (src_count < 8) { + bits &= (1 << src_count) - 1; + src_count = 0; + } else { + src_count -= 8; + src_ptr++; + } + } + + dst_mask = (dst_count < 8 ? (1 << dst_count) - 1 : 0xFF) << dst_shift; + *dst_ptr = (*dst_ptr & ~dst_mask) | ((bits << dst_shift) & dst_mask); + + if (dst_shift && dst_count > (uacpi_u32)(8 - dst_shift)) { + dst_mask >>= 8; + *(dst_ptr + 1) &= ~dst_mask; + *(dst_ptr + 1) |= (bits >> (8 - dst_shift)) & dst_mask; + } + + dst_count = dst_count > 8 ? dst_count - 8 : 0; + ++dst_ptr; + } +} + +static void do_misaligned_buffer_read( + const uacpi_buffer_field *field, uacpi_u8 *dst +) +{ + struct bit_span src_span = { 0 }; + struct bit_span dst_span = { 0 }; + + src_span.index = field->bit_index; + src_span.length = field->bit_length; + src_span.const_data = field->backing->data; + + dst_span.data = dst; + dst_span.length = uacpi_round_up_bits_to_bytes(field->bit_length) * 8; + bit_copy(&dst_span, &src_span); +} + +void uacpi_read_buffer_field( + const uacpi_buffer_field *field, void *dst +) +{ + if (!(field->bit_index & 7)) { + uacpi_u8 *src = field->backing->data; + uacpi_size count; + + count = uacpi_round_up_bits_to_bytes(field->bit_length); + uacpi_memcpy(dst, src + (field->bit_index / 8), count); + cut_misaligned_tail(dst, count - 1, field->bit_length); + return; + } + + do_misaligned_buffer_read(field, dst); +} + +static void do_write_misaligned_buffer_field( + uacpi_buffer_field *field, + const void *src, uacpi_size size +) +{ + struct bit_span src_span = { 0 }; + struct bit_span dst_span = { 0 }; + + src_span.length = size * 8; + src_span.const_data = src; + + dst_span.index = field->bit_index; + dst_span.length = field->bit_length; + dst_span.data = field->backing->data; + + bit_copy(&dst_span, &src_span); +} + +void uacpi_write_buffer_field( + uacpi_buffer_field *field, + const void *src, uacpi_size size +) +{ + if (!(field->bit_index & 7)) { + uacpi_u8 *dst, last_byte, tail_shift; + uacpi_size count; + + dst = field->backing->data; + dst += field->bit_index / 8; + count = uacpi_round_up_bits_to_bytes(field->bit_length); + + last_byte = dst[count - 1]; + tail_shift = field->bit_length & 7; + + uacpi_memcpy_zerout(dst, src, count, size); + if (tail_shift) { + uacpi_u8 last_shift = 8 - tail_shift; + dst[count - 1] = dst[count - 1] << last_shift; + dst[count - 1] >>= last_shift; + dst[count - 1] |= (last_byte >> tail_shift) << tail_shift; + } + + return; + } + + do_write_misaligned_buffer_field(field, src, size); +} + +static uacpi_status access_field_unit( + uacpi_field_unit *field, uacpi_u32 offset, uacpi_region_op op, + union uacpi_opregion_io_data data +) +{ + uacpi_status ret = UACPI_STATUS_OK; + + if (field->lock_rule) { + ret = uacpi_acquire_aml_mutex( + g_uacpi_rt_ctx.global_lock_mutex, 0xFFFF + ); + if (uacpi_unlikely_error(ret)) + return ret; + } + + switch (field->kind) { + case UACPI_FIELD_UNIT_KIND_BANK: + ret = uacpi_write_field_unit( + field->bank_selection, &field->bank_value, sizeof(field->bank_value), + UACPI_NULL + ); + break; + case UACPI_FIELD_UNIT_KIND_NORMAL: + break; + case UACPI_FIELD_UNIT_KIND_INDEX: + ret = uacpi_write_field_unit( + field->index, &offset, sizeof(offset), + UACPI_NULL + ); + if (uacpi_unlikely_error(ret)) + goto out; + + switch (op) { + case UACPI_REGION_OP_READ: + ret = uacpi_read_field_unit( + field->data, data.integer, field->access_width_bytes, + UACPI_NULL + ); + break; + case UACPI_REGION_OP_WRITE: + ret = uacpi_write_field_unit( + field->data, data.integer, field->access_width_bytes, + UACPI_NULL + ); + break; + default: + ret = UACPI_STATUS_INVALID_ARGUMENT; + break; + } + + goto out; + + default: + uacpi_error("invalid field unit kind %d\n", field->kind); + ret = UACPI_STATUS_INVALID_ARGUMENT; + } + + if (uacpi_unlikely_error(ret)) + goto out; + + ret = uacpi_dispatch_opregion_io(field, offset, op, data); + +out: + if (field->lock_rule) + uacpi_release_aml_mutex(g_uacpi_rt_ctx.global_lock_mutex); + return ret; +} + +#define SERIAL_HEADER_SIZE 2 +#define IPMI_DATA_SIZE 64 + +static uacpi_status wtr_buffer_size( + uacpi_field_unit *field, uacpi_address_space space, + uacpi_size *out_size +) +{ + switch (space) { + case UACPI_ADDRESS_SPACE_IPMI: + *out_size = SERIAL_HEADER_SIZE + IPMI_DATA_SIZE; + break; + case UACPI_ADDRESS_SPACE_PRM: + *out_size = 26; + break; + case UACPI_ADDRESS_SPACE_FFIXEDHW: + *out_size = 256; + break; + case UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS: + case UACPI_ADDRESS_SPACE_SMBUS: { + uacpi_size size_for_protocol = SERIAL_HEADER_SIZE; + + switch (field->attributes) { + case UACPI_ACCESS_ATTRIBUTE_QUICK: + break; // + 0 + case UACPI_ACCESS_ATTRIBUTE_SEND_RECEIVE: + case UACPI_ACCESS_ATTRIBUTE_BYTE: + size_for_protocol += 1; + break; + + case UACPI_ACCESS_ATTRIBUTE_WORD: + case UACPI_ACCESS_ATTRIBUTE_PROCESS_CALL: + size_for_protocol += 2; + break; + + case UACPI_ACCESS_ATTRIBUTE_BYTES: + size_for_protocol += field->access_length; + break; + + case UACPI_ACCESS_ATTRIBUTE_BLOCK: + case UACPI_ACCESS_ATTRIBUTE_BLOCK_PROCESS_CALL: + case UACPI_ACCESS_ATTRIBUTE_RAW_BYTES: + case UACPI_ACCESS_ATTRIBUTE_RAW_PROCESS_BYTES: + size_for_protocol += 255; + break; + + default: + uacpi_error( + "unsupported field@%p access attribute %d\n", + field, field->attributes + ); + return UACPI_STATUS_UNIMPLEMENTED; + } + + *out_size = size_for_protocol; + break; + } + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status handle_special_field( + uacpi_field_unit *field, uacpi_data_view buf, + uacpi_region_op op, uacpi_data_view *wtr_response, + uacpi_bool *did_handle +) +{ + uacpi_status ret = UACPI_STATUS_OK; + uacpi_object *obj; + uacpi_operation_region *region; + uacpi_u64 in_out; + uacpi_data_view wtr_buffer; + union uacpi_opregion_io_data data; + + *did_handle = UACPI_FALSE; + + if (field->kind == UACPI_FIELD_UNIT_KIND_INDEX) + return ret; + + obj = uacpi_namespace_node_get_object_typed( + field->region, UACPI_OBJECT_OPERATION_REGION_BIT + ); + if (uacpi_unlikely(obj == UACPI_NULL)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + uacpi_trace_region_error( + field->region, "attempted access to deleted", ret + ); + goto out_handled; + } + region = obj->op_region; + + switch (region->space) { + case UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO: + if (op == UACPI_REGION_OP_WRITE) { + uacpi_memcpy_zerout( + &in_out, buf.const_data, sizeof(in_out), buf.length + ); + } + + data.integer = &in_out; + ret = access_field_unit(field, 0, op, data); + if (uacpi_unlikely_error(ret)) + goto out_handled; + + if (op == UACPI_REGION_OP_READ) + uacpi_memcpy_zerout(buf.data, &in_out, buf.length, sizeof(in_out)); + goto out_handled; + case UACPI_ADDRESS_SPACE_IPMI: + case UACPI_ADDRESS_SPACE_PRM: + if (uacpi_unlikely(op == UACPI_REGION_OP_READ)) { + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + uacpi_trace_region_error( + field->region, "attempted to read from a write-only", ret + ); + goto out_handled; + } + UACPI_FALLTHROUGH; + case UACPI_ADDRESS_SPACE_FFIXEDHW: + case UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS: + case UACPI_ADDRESS_SPACE_SMBUS: + goto do_wtr; + default: + return ret; + } + +do_wtr: + ret = wtr_buffer_size(field, region->space, &wtr_buffer.length); + if (uacpi_unlikely_error(ret)) + goto out_handled; + + wtr_buffer.data = uacpi_kernel_alloc(wtr_buffer.length); + if (uacpi_unlikely(wtr_buffer.data == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out_handled; + } + + uacpi_memcpy_zerout( + wtr_buffer.data, buf.const_data, wtr_buffer.length, buf.length + ); + data.buffer = wtr_buffer; + ret = access_field_unit( + field, field->byte_offset, + op, data + ); + if (uacpi_unlikely_error(ret)) { + uacpi_free(wtr_buffer.data, wtr_buffer.length); + goto out_handled; + } + + if (wtr_response != UACPI_NULL) + *wtr_response = wtr_buffer; + +out_handled: + *did_handle = UACPI_TRUE; + return ret; +} + +static uacpi_status do_read_misaligned_field_unit( + uacpi_field_unit *field, uacpi_u8 *dst, uacpi_size size +) +{ + uacpi_status ret; + uacpi_size reads_to_do; + uacpi_u64 out; + uacpi_u32 byte_offset = field->byte_offset; + uacpi_u32 bits_left = field->bit_length; + uacpi_u8 width_access_bits = field->access_width_bytes * 8; + + struct bit_span src_span = { 0 }; + struct bit_span dst_span = { 0 }; + + src_span.data = (uacpi_u8*)&out; + src_span.index = field->bit_offset_within_first_byte; + + dst_span.data = dst; + dst_span.index = 0; + dst_span.length = size * 8; + + reads_to_do = UACPI_ALIGN_UP( + field->bit_offset_within_first_byte + field->bit_length, + width_access_bits, + uacpi_u32 + ); + reads_to_do /= width_access_bits; + + while (reads_to_do-- > 0) { + union uacpi_opregion_io_data data; + + src_span.length = UACPI_MIN( + bits_left, width_access_bits - src_span.index + ); + + data.integer = &out; + ret = access_field_unit( + field, byte_offset, UACPI_REGION_OP_READ, + data + ); + if (uacpi_unlikely_error(ret)) + return ret; + + bit_copy(&dst_span, &src_span); + bits_left -= src_span.length; + src_span.index = 0; + + bit_span_offset(&dst_span, src_span.length); + byte_offset += field->access_width_bytes; + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_read_field_unit( + uacpi_field_unit *field, void *dst, uacpi_size size, + uacpi_data_view *wtr_response +) +{ + uacpi_status ret; + uacpi_u32 field_byte_length; + uacpi_bool did_handle; + uacpi_data_view data_view = { 0 }; + + data_view.data = dst; + data_view.length = size; + + ret = handle_special_field( + field, data_view, UACPI_REGION_OP_READ, + wtr_response, &did_handle + ); + if (did_handle) + return ret; + + field_byte_length = uacpi_round_up_bits_to_bytes(field->bit_length); + + /* + * Very simple fast case: + * - Bit offset within first byte is 0 + * AND + * - Field size is <= access width + */ + if (field->bit_offset_within_first_byte == 0 && + field_byte_length <= field->access_width_bytes) + { + uacpi_u64 out; + union uacpi_opregion_io_data data; + + data.integer = &out; + ret = access_field_unit( + field, field->byte_offset, UACPI_REGION_OP_READ, + data + ); + if (uacpi_unlikely_error(ret)) + return ret; + + uacpi_memcpy_zerout(dst, &out, size, field_byte_length); + if (size >= field_byte_length) + cut_misaligned_tail(dst, field_byte_length - 1, field->bit_length); + + return UACPI_STATUS_OK; + } + + // Slow case + return do_read_misaligned_field_unit(field, dst, size); +} + +static uacpi_status write_generic_field_unit( + uacpi_field_unit *field, const void *src, uacpi_size size +) +{ + uacpi_status ret; + uacpi_u32 bits_left, byte_offset = field->byte_offset; + uacpi_u8 width_access_bits = field->access_width_bytes * 8; + uacpi_u64 in; + struct bit_span src_span = { 0 }; + struct bit_span dst_span = { 0 }; + + src_span.const_data = src; + src_span.index = 0; + src_span.length = size * 8; + + dst_span.data = (uacpi_u8 *)∈ + dst_span.index = field->bit_offset_within_first_byte; + + bits_left = field->bit_length; + + while (bits_left) { + union uacpi_opregion_io_data data; + + in = 0; + dst_span.length = UACPI_MIN( + width_access_bits - dst_span.index, bits_left + ); + + if (dst_span.index != 0 || dst_span.length < width_access_bits) { + switch (field->update_rule) { + case UACPI_UPDATE_RULE_PRESERVE: + data.integer = ∈ + ret = access_field_unit( + field, byte_offset, UACPI_REGION_OP_READ, + data + ); + if (uacpi_unlikely_error(ret)) + return ret; + break; + case UACPI_UPDATE_RULE_WRITE_AS_ONES: + in = ~in; + break; + case UACPI_UPDATE_RULE_WRITE_AS_ZEROES: + break; + default: + uacpi_error("invalid field@%p update rule %d\n", + field, field->update_rule); + return UACPI_STATUS_INVALID_ARGUMENT; + } + } + + bit_copy(&dst_span, &src_span); + bit_span_offset(&src_span, dst_span.length); + + data.integer = ∈ + + ret = access_field_unit( + field, byte_offset, UACPI_REGION_OP_WRITE, + data + ); + if (uacpi_unlikely_error(ret)) + return ret; + + bits_left -= dst_span.length; + dst_span.index = 0; + byte_offset += field->access_width_bytes; + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_write_field_unit( + uacpi_field_unit *field, const void *src, uacpi_size size, + uacpi_data_view *wtr_response +) +{ + uacpi_status ret; + uacpi_bool did_handle; + uacpi_data_view data_view = { 0 }; + + data_view.const_data = src; + data_view.length = size; + + ret = handle_special_field( + field, data_view, UACPI_REGION_OP_WRITE, + wtr_response, &did_handle + ); + if (did_handle) + return ret; + + return write_generic_field_unit(field, src, size); +} + +uacpi_status uacpi_field_unit_get_read_type( + struct uacpi_field_unit *field, uacpi_object_type *out_type +) +{ + uacpi_object *obj; + + if (field->kind == UACPI_FIELD_UNIT_KIND_INDEX) + goto out_basic_field; + + obj = uacpi_namespace_node_get_object_typed( + field->region, UACPI_OBJECT_OPERATION_REGION_BIT + ); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (uacpi_is_buffer_access_address_space(obj->op_region->space)) { + *out_type = UACPI_OBJECT_BUFFER; + return UACPI_STATUS_OK; + } + +out_basic_field: + if (field->bit_length > (g_uacpi_rt_ctx.is_rev1 ? 32u : 64u)) + *out_type = UACPI_OBJECT_BUFFER; + else + *out_type = UACPI_OBJECT_INTEGER; + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_field_unit_get_bit_length( + struct uacpi_field_unit *field, uacpi_size *out_length +) +{ + uacpi_object *obj; + + if (field->kind == UACPI_FIELD_UNIT_KIND_INDEX) + goto out_basic_field; + + obj = uacpi_namespace_node_get_object_typed( + field->region, UACPI_OBJECT_OPERATION_REGION_BIT + ); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (uacpi_is_buffer_access_address_space(obj->op_region->space)) { + /* + * Bit length is protocol specific, the data will be returned + * via the write-then-read response buffer. + */ + *out_length = 0; + return UACPI_STATUS_OK; + } + +out_basic_field: + *out_length = field->bit_length; + return UACPI_STATUS_OK; +} + +static uacpi_u8 gas_get_access_bit_width(const struct acpi_gas *gas) +{ + /* + * Same algorithm as ACPICA. + * + * The reason we do this is apparently GAS bit offset being non-zero means + * that it's an APEI register, as opposed to FADT, which needs special + * handling. In the case of a FADT register we want to ignore the specified + * access size. + */ + uacpi_u8 access_bit_width; + + if (gas->register_bit_offset == 0 && + UACPI_IS_POWER_OF_TWO(gas->register_bit_width, uacpi_u8) && + UACPI_IS_ALIGNED(gas->register_bit_width, 8, uacpi_u8)) { + access_bit_width = gas->register_bit_width; + } else if (gas->access_size) { + access_bit_width = gas->access_size * 8; + } else { + uacpi_u8 msb; + + msb = uacpi_bit_scan_backward( + (gas->register_bit_offset + gas->register_bit_width) - 1 + ); + access_bit_width = 1 << msb; + + if (access_bit_width <= 8) { + access_bit_width = 8; + } else { + /* + * Keep backing off to previous power of two until we find one + * that is aligned to the address specified in GAS. + */ + while (!UACPI_IS_ALIGNED( + gas->address, access_bit_width / 8, uacpi_u64 + )) + access_bit_width /= 2; + } + } + + return UACPI_MIN( + access_bit_width, + gas->address_space_id == UACPI_ADDRESS_SPACE_SYSTEM_IO ? 32 : 64 + ); +} + +static uacpi_status gas_validate( + const struct acpi_gas *gas, uacpi_u8 *access_bit_width, + uacpi_u8 *bit_width +) +{ + uacpi_size total_width, aligned_width; + + if (uacpi_unlikely(gas == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (!gas->address) + return UACPI_STATUS_NOT_FOUND; + + if (gas->address_space_id != UACPI_ADDRESS_SPACE_SYSTEM_IO && + gas->address_space_id != UACPI_ADDRESS_SPACE_SYSTEM_MEMORY) { + uacpi_warn("unsupported GAS address space '%s' (%d)\n", + uacpi_address_space_to_string(gas->address_space_id), + gas->address_space_id); + return UACPI_STATUS_UNIMPLEMENTED; + } + + if (gas->access_size > 4) { + uacpi_warn("unsupported GAS access size %d\n", + gas->access_size); + return UACPI_STATUS_UNIMPLEMENTED; + } + + *access_bit_width = gas_get_access_bit_width(gas); + + total_width = gas->register_bit_offset + gas->register_bit_width; + aligned_width = UACPI_ALIGN_UP(total_width, *access_bit_width, uacpi_size); + + if (uacpi_unlikely(aligned_width > 64)) { + uacpi_warn( + "GAS register total width is too large: %zu\n", total_width + ); + return UACPI_STATUS_UNIMPLEMENTED; + } + + *bit_width = total_width; + return UACPI_STATUS_OK; +} + +/* + * Apparently both reading and writing GAS works differently from operation + * region in that bit offsets are not respected when writing the data. + * + * Let's follow ACPICA's approach here so that we don't accidentally + * break any quirky hardware. + */ +uacpi_status uacpi_gas_read_mapped( + const uacpi_mapped_gas *gas, uacpi_u64 *out_value +) +{ + uacpi_status ret; + uacpi_u8 access_byte_width; + uacpi_u8 bit_offset, bits_left, index = 0; + uacpi_u64 data, mask = 0xFFFFFFFFFFFFFFFF; + uacpi_size offset = 0; + + bit_offset = gas->bit_offset; + bits_left = gas->total_bit_width; + + access_byte_width = gas->access_bit_width / 8; + + if (access_byte_width < 8) + mask = ~(mask << gas->access_bit_width); + + *out_value = 0; + + while (bits_left) { + if (bit_offset >= gas->access_bit_width) { + data = 0; + bit_offset -= gas->access_bit_width; + } else { + ret = gas->read(gas->mapping, offset, access_byte_width, &data); + if (uacpi_unlikely_error(ret)) + return ret; + } + + *out_value |= (data & mask) << (index * gas->access_bit_width); + bits_left -= UACPI_MIN(bits_left, gas->access_bit_width); + ++index; + offset += access_byte_width; + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_gas_write_mapped( + const uacpi_mapped_gas *gas, uacpi_u64 in_value +) +{ + uacpi_status ret; + uacpi_u8 access_byte_width; + uacpi_u8 bit_offset, bits_left, index = 0; + uacpi_u64 data, mask = 0xFFFFFFFFFFFFFFFF; + uacpi_size offset = 0; + + bit_offset = gas->bit_offset; + bits_left = gas->total_bit_width; + access_byte_width = gas->access_bit_width / 8; + + if (access_byte_width < 8) + mask = ~(mask << gas->access_bit_width); + + while (bits_left) { + data = (in_value >> (index * gas->access_bit_width)) & mask; + + if (bit_offset >= gas->access_bit_width) { + bit_offset -= gas->access_bit_width; + } else { + ret = gas->write(gas->mapping, offset, access_byte_width, data); + if (uacpi_unlikely_error(ret)) + return ret; + } + + bits_left -= UACPI_MIN(bits_left, gas->access_bit_width); + ++index; + offset += access_byte_width; + } + + return UACPI_STATUS_OK; +} + +static void unmap_gas_io(uacpi_handle io_handle, uacpi_size size) +{ + UACPI_UNUSED(size); + uacpi_kernel_io_unmap(io_handle); +} + +uacpi_status uacpi_map_gas_noalloc( + const struct acpi_gas *gas, uacpi_mapped_gas *out_mapped +) +{ + uacpi_status ret; + uacpi_u8 access_bit_width, total_width; + + ret = gas_validate(gas, &access_bit_width, &total_width); + if (ret != UACPI_STATUS_OK) + return ret; + + if (gas->address_space_id == UACPI_ADDRESS_SPACE_SYSTEM_MEMORY) { + out_mapped->mapping = uacpi_kernel_map(gas->address, total_width / 8); + if (uacpi_unlikely(out_mapped->mapping == UACPI_NULL)) + return UACPI_STATUS_MAPPING_FAILED; + + out_mapped->read = uacpi_system_memory_read; + out_mapped->write = uacpi_system_memory_write; + out_mapped->unmap = uacpi_kernel_unmap; + } else { // IO, validated by gas_validate above + ret = uacpi_kernel_io_map(gas->address, total_width / 8, &out_mapped->mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + out_mapped->read = uacpi_system_io_read; + out_mapped->write = uacpi_system_io_write; + out_mapped->unmap = unmap_gas_io; + } + + out_mapped->access_bit_width = access_bit_width; + out_mapped->total_bit_width = total_width; + out_mapped->bit_offset = gas->register_bit_offset; + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_map_gas( + const struct acpi_gas *gas, uacpi_mapped_gas **out_mapped +) +{ + uacpi_status ret; + uacpi_mapped_gas *mapping; + + mapping = uacpi_kernel_alloc(sizeof(*mapping)); + if (uacpi_unlikely(mapping == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + ret = uacpi_map_gas_noalloc(gas, mapping); + if (uacpi_unlikely_error(ret)) { + uacpi_free(mapping, sizeof(*mapping)); + return ret; + } + + *out_mapped = mapping; + return ret; +} + +void uacpi_unmap_gas_nofree(uacpi_mapped_gas *gas) +{ + gas->unmap(gas->mapping, gas->access_bit_width / 8); +} + +void uacpi_unmap_gas(uacpi_mapped_gas *gas) +{ + uacpi_unmap_gas_nofree(gas); + uacpi_free(gas, sizeof(*gas)); +} + +uacpi_status uacpi_gas_read(const struct acpi_gas *gas, uacpi_u64 *out_value) +{ + uacpi_status ret; + uacpi_mapped_gas mapping; + + ret = uacpi_map_gas_noalloc(gas, &mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_gas_read_mapped(&mapping, out_value); + uacpi_unmap_gas_nofree(&mapping); + + return ret; +} + +uacpi_status uacpi_gas_write(const struct acpi_gas *gas, uacpi_u64 in_value) +{ + uacpi_status ret; + uacpi_mapped_gas mapping; + + ret = uacpi_map_gas_noalloc(gas, &mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_gas_write_mapped(&mapping, in_value); + uacpi_unmap_gas_nofree(&mapping); + + return ret; +} + +uacpi_status uacpi_system_memory_read( + void *ptr, uacpi_size offset, uacpi_u8 width, uacpi_u64 *out +) +{ + ptr = UACPI_PTR_ADD(ptr, offset); + + switch (width) { + case 1: + *out = *(volatile uacpi_u8*)ptr; + break; + case 2: + *out = *(volatile uacpi_u16*)ptr; + break; + case 4: + *out = *(volatile uacpi_u32*)ptr; + break; + case 8: + *out = *(volatile uacpi_u64*)ptr; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_system_memory_write( + void *ptr, uacpi_size offset, uacpi_u8 width, uacpi_u64 in +) +{ + ptr = UACPI_PTR_ADD(ptr, offset); + + switch (width) { + case 1: + *(volatile uacpi_u8*)ptr = in; + break; + case 2: + *(volatile uacpi_u16*)ptr = in; + break; + case 4: + *(volatile uacpi_u32*)ptr = in; + break; + case 8: + *(volatile uacpi_u64*)ptr = in; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return UACPI_STATUS_OK; +} + +union integer_data { + uacpi_u8 byte; + uacpi_u16 word; + uacpi_u32 dword; + uacpi_u64 qword; +}; + +uacpi_status uacpi_system_io_read( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 *out +) +{ + uacpi_status ret; + union integer_data data = { + .qword = 0, + }; + + switch (width) { + case 1: + ret = uacpi_kernel_io_read8(handle, offset, &data.byte); + break; + case 2: + ret = uacpi_kernel_io_read16(handle, offset, &data.word); + break; + case 4: + ret = uacpi_kernel_io_read32(handle, offset, &data.dword); + break; + default: + uacpi_error( + "invalid SystemIO read %p@%zu width=%d\n", + handle, offset, width + ); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (uacpi_likely_success(ret)) + *out = data.qword; + return ret; +} + +uacpi_status uacpi_system_io_write( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 in +) +{ + uacpi_status ret; + + switch (width) { + case 1: + ret = uacpi_kernel_io_write8(handle, offset, in); + break; + case 2: + ret = uacpi_kernel_io_write16(handle, offset, in); + break; + case 4: + ret = uacpi_kernel_io_write32(handle, offset, in); + break; + default: + uacpi_error( + "invalid SystemIO write %p@%zu width=%d\n", + handle, offset, width + ); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return ret; +} + +uacpi_status uacpi_pci_read( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 *out +) +{ + uacpi_status ret; + union integer_data data = { + .qword = 0, + }; + + switch (width) { + case 1: + ret = uacpi_kernel_pci_read8(handle, offset, &data.byte); + break; + case 2: + ret = uacpi_kernel_pci_read16(handle, offset, &data.word); + break; + case 4: + ret = uacpi_kernel_pci_read32(handle, offset, &data.dword); + break; + default: + uacpi_error( + "invalid PCI_Config read %p@%zu width=%d\n", + handle, offset, width + ); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (uacpi_likely_success(ret)) + *out = data.qword; + return ret; +} + +uacpi_status uacpi_pci_write( + uacpi_handle handle, uacpi_size offset, uacpi_u8 width, uacpi_u64 in +) +{ + uacpi_status ret; + + switch (width) { + case 1: + ret = uacpi_kernel_pci_write8(handle, offset, in); + break; + case 2: + ret = uacpi_kernel_pci_write16(handle, offset, in); + break; + case 4: + ret = uacpi_kernel_pci_write32(handle, offset, in); + break; + default: + uacpi_error( + "invalid PCI_Config write %p@%zu width=%d\n", + handle, offset, width + ); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return ret; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/mutex.c b/kernel/hal/x86_64/uACPI/source/mutex.c new file mode 100644 index 0000000..44cbac3 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/mutex.c @@ -0,0 +1,396 @@ +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +#ifndef UACPI_REDUCED_HARDWARE + +#define GLOBAL_LOCK_PENDING (1 << 0) + +#define GLOBAL_LOCK_OWNED_BIT 1 +#define GLOBAL_LOCK_OWNED (1 << GLOBAL_LOCK_OWNED_BIT) + +#define GLOBAL_LOCK_MASK 3u + +static uacpi_bool try_acquire_global_lock_from_firmware(uacpi_u32 *lock) +{ + uacpi_u32 value, new_value; + uacpi_bool was_owned; + + value = *(volatile uacpi_u32*)lock; + do { + was_owned = (value & GLOBAL_LOCK_OWNED) >> GLOBAL_LOCK_OWNED_BIT; + + // Clear both owned & pending bits. + new_value = value & ~GLOBAL_LOCK_MASK; + + // Set owned unconditionally + new_value |= GLOBAL_LOCK_OWNED; + + // Set pending iff the lock was owned at the time of reading + if (was_owned) + new_value |= GLOBAL_LOCK_PENDING; + } while (!uacpi_atomic_cmpxchg32(lock, &value, new_value)); + + return !was_owned; +} + +static uacpi_bool do_release_global_lock_to_firmware(uacpi_u32 *lock) +{ + uacpi_u32 value, new_value; + + value = *(volatile uacpi_u32*)lock; + do { + new_value = value & ~GLOBAL_LOCK_MASK; + } while (!uacpi_atomic_cmpxchg32(lock, &value, new_value)); + + return value & GLOBAL_LOCK_PENDING; +} + +static uacpi_status uacpi_acquire_global_lock_from_firmware(void) +{ + uacpi_cpu_flags flags; + uacpi_u16 spins = 0; + uacpi_bool success; + + if (!g_uacpi_rt_ctx.has_global_lock) + return UACPI_STATUS_OK; + + flags = uacpi_kernel_lock_spinlock(g_uacpi_rt_ctx.global_lock_spinlock); + for (;;) { + spins++; + uacpi_trace( + "trying to acquire the global lock from firmware... (attempt %u)\n", + spins + ); + + success = try_acquire_global_lock_from_firmware( + &g_uacpi_rt_ctx.facs->global_lock + ); + if (success) + break; + + if (uacpi_unlikely(spins == 0xFFFF)) + break; + + g_uacpi_rt_ctx.global_lock_pending = UACPI_TRUE; + uacpi_trace( + "global lock is owned by firmware, waiting for a release " + "notification...\n" + ); + uacpi_kernel_unlock_spinlock(g_uacpi_rt_ctx.global_lock_spinlock, flags); + + uacpi_kernel_wait_for_event(g_uacpi_rt_ctx.global_lock_event, 0xFFFF); + flags = uacpi_kernel_lock_spinlock(g_uacpi_rt_ctx.global_lock_spinlock); + } + + g_uacpi_rt_ctx.global_lock_pending = UACPI_FALSE; + uacpi_kernel_unlock_spinlock(g_uacpi_rt_ctx.global_lock_spinlock, flags); + + if (uacpi_unlikely(!success)) { + uacpi_error("unable to acquire global lock after %u attempts\n", spins); + return UACPI_STATUS_HARDWARE_TIMEOUT; + } + + uacpi_trace("global lock successfully acquired after %u attempt%s\n", + spins, spins > 1 ? "s" : ""); + return UACPI_STATUS_OK; +} + +static void uacpi_release_global_lock_to_firmware(void) +{ + if (!g_uacpi_rt_ctx.has_global_lock) + return; + + uacpi_trace("releasing the global lock to firmware...\n"); + if (do_release_global_lock_to_firmware(&g_uacpi_rt_ctx.facs->global_lock)) { + uacpi_trace("notifying firmware of the global lock release since the " + "pending bit was set\n"); + uacpi_write_register_field(UACPI_REGISTER_FIELD_GBL_RLS, 1); + } +} +#endif + +UACPI_ALWAYS_OK_FOR_REDUCED_HARDWARE( + uacpi_status uacpi_acquire_global_lock_from_firmware(void) +) +UACPI_STUB_IF_REDUCED_HARDWARE( + void uacpi_release_global_lock_to_firmware(void) +) + +uacpi_status uacpi_acquire_native_mutex_with_timeout( + uacpi_handle mtx, uacpi_u16 timeout +) +{ + uacpi_status ret; + + if (uacpi_unlikely(mtx == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_kernel_acquire_mutex(mtx, timeout); + if (uacpi_likely_success(ret)) + return ret; + + if (uacpi_unlikely(ret != UACPI_STATUS_TIMEOUT || timeout == 0xFFFF)) { + uacpi_error( + "unexpected status %08X (%s) while acquiring %p (timeout=%04X)\n", + ret, uacpi_status_to_string(ret), mtx, timeout + ); + } + + return ret; +} + +uacpi_status uacpi_acquire_global_lock(uacpi_u16 timeout, uacpi_u32 *out_seq) +{ + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(out_seq == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_acquire_native_mutex_with_timeout( + g_uacpi_rt_ctx.global_lock_mutex->handle, timeout + ); + if (ret != UACPI_STATUS_OK) + return ret; + + ret = uacpi_acquire_global_lock_from_firmware(); + if (uacpi_unlikely_error(ret)) { + uacpi_release_native_mutex(g_uacpi_rt_ctx.global_lock_mutex->handle); + return ret; + } + + if (uacpi_unlikely(g_uacpi_rt_ctx.global_lock_seq_num == 0xFFFFFFFF)) + g_uacpi_rt_ctx.global_lock_seq_num = 0; + + *out_seq = g_uacpi_rt_ctx.global_lock_seq_num++; + g_uacpi_rt_ctx.global_lock_acquired = UACPI_TRUE; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_release_global_lock(uacpi_u32 seq) +{ + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(!g_uacpi_rt_ctx.global_lock_acquired || + seq != g_uacpi_rt_ctx.global_lock_seq_num)) + return UACPI_STATUS_INVALID_ARGUMENT; + + g_uacpi_rt_ctx.global_lock_acquired = UACPI_FALSE; + uacpi_release_global_lock_to_firmware(); + uacpi_release_native_mutex(g_uacpi_rt_ctx.global_lock_mutex->handle); + + return UACPI_STATUS_OK; +} + +uacpi_bool uacpi_this_thread_owns_aml_mutex(uacpi_mutex *mutex) +{ + uacpi_thread_id id; + + id = UACPI_ATOMIC_LOAD_THREAD_ID(&mutex->owner); + return id == uacpi_kernel_get_thread_id(); +} + +uacpi_status uacpi_acquire_aml_mutex(uacpi_mutex *mutex, uacpi_u16 timeout) +{ + uacpi_thread_id this_id; + uacpi_status ret = UACPI_STATUS_OK; + + this_id = uacpi_kernel_get_thread_id(); + if (UACPI_ATOMIC_LOAD_THREAD_ID(&mutex->owner) == this_id) { + if (uacpi_unlikely(mutex->depth == 0xFFFF)) { + uacpi_warn( + "failing an attempt to acquire mutex @%p, too many recursive " + "acquires\n", mutex + ); + return UACPI_STATUS_DENIED; + } + + mutex->depth++; + return ret; + } + + uacpi_namespace_write_unlock(); + ret = uacpi_acquire_native_mutex_with_timeout(mutex->handle, timeout); + if (ret != UACPI_STATUS_OK) + goto out; + + if (mutex->handle == g_uacpi_rt_ctx.global_lock_mutex->handle) { + ret = uacpi_acquire_global_lock_from_firmware(); + if (uacpi_unlikely_error(ret)) { + uacpi_release_native_mutex(mutex->handle); + goto out; + } + } + + UACPI_ATOMIC_STORE_THREAD_ID(&mutex->owner, this_id); + mutex->depth = 1; + +out: + uacpi_namespace_write_lock(); + return ret; +} + +uacpi_status uacpi_release_aml_mutex(uacpi_mutex *mutex) +{ + if (mutex->depth-- > 1) + return UACPI_STATUS_OK; + + if (mutex->handle == g_uacpi_rt_ctx.global_lock_mutex->handle) + uacpi_release_global_lock_to_firmware(); + + UACPI_ATOMIC_STORE_THREAD_ID(&mutex->owner, UACPI_THREAD_ID_NONE); + uacpi_release_native_mutex(mutex->handle); + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_recursive_lock_init(struct uacpi_recursive_lock *lock) +{ + lock->mutex = uacpi_kernel_create_mutex(); + if (uacpi_unlikely(lock->mutex == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + lock->owner = UACPI_THREAD_ID_NONE; + lock->depth = 0; + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_recursive_lock_deinit(struct uacpi_recursive_lock *lock) +{ + if (uacpi_unlikely(lock->depth)) { + uacpi_warn( + "de-initializing active recursive lock %p with depth=%zu\n", + lock, lock->depth + ); + lock->depth = 0; + } + + lock->owner = UACPI_THREAD_ID_NONE; + + if (lock->mutex != UACPI_NULL) { + uacpi_kernel_free_mutex(lock->mutex); + lock->mutex = UACPI_NULL; + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_recursive_lock_acquire(struct uacpi_recursive_lock *lock) +{ + uacpi_thread_id this_id; + uacpi_status ret = UACPI_STATUS_OK; + + this_id = uacpi_kernel_get_thread_id(); + if (UACPI_ATOMIC_LOAD_THREAD_ID(&lock->owner) == this_id) { + lock->depth++; + return ret; + } + + ret = uacpi_acquire_native_mutex(lock->mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + UACPI_ATOMIC_STORE_THREAD_ID(&lock->owner, this_id); + lock->depth = 1; + return ret; +} + +uacpi_status uacpi_recursive_lock_release(struct uacpi_recursive_lock *lock) +{ + if (lock->depth-- > 1) + return UACPI_STATUS_OK; + + UACPI_ATOMIC_STORE_THREAD_ID(&lock->owner, UACPI_THREAD_ID_NONE); + return uacpi_release_native_mutex(lock->mutex); +} + +uacpi_status uacpi_rw_lock_init(struct uacpi_rw_lock *lock) +{ + lock->read_mutex = uacpi_kernel_create_mutex(); + if (uacpi_unlikely(lock->read_mutex == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + lock->write_mutex = uacpi_kernel_create_mutex(); + if (uacpi_unlikely(lock->write_mutex == UACPI_NULL)) { + uacpi_kernel_free_mutex(lock->read_mutex); + lock->read_mutex = UACPI_NULL; + return UACPI_STATUS_OUT_OF_MEMORY; + } + + lock->num_readers = 0; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_rw_lock_deinit(struct uacpi_rw_lock *lock) +{ + if (uacpi_unlikely(lock->num_readers)) { + uacpi_warn("de-initializing rw_lock %p with %zu active readers\n", + lock, lock->num_readers); + lock->num_readers = 0; + } + + if (lock->read_mutex != UACPI_NULL) { + uacpi_kernel_free_mutex(lock->read_mutex); + lock->read_mutex = UACPI_NULL; + } + if (lock->write_mutex != UACPI_NULL) { + uacpi_kernel_free_mutex(lock->write_mutex); + lock->write_mutex = UACPI_NULL; + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_rw_lock_read(struct uacpi_rw_lock *lock) +{ + uacpi_status ret; + + ret = uacpi_acquire_native_mutex(lock->read_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + if (lock->num_readers++ == 0) { + ret = uacpi_acquire_native_mutex(lock->write_mutex); + if (uacpi_unlikely_error(ret)) + lock->num_readers = 0; + } + + uacpi_kernel_release_mutex(lock->read_mutex); + return ret; +} + +uacpi_status uacpi_rw_unlock_read(struct uacpi_rw_lock *lock) +{ + uacpi_status ret; + + ret = uacpi_acquire_native_mutex(lock->read_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + if (lock->num_readers-- == 1) + uacpi_release_native_mutex(lock->write_mutex); + + uacpi_kernel_release_mutex(lock->read_mutex); + return ret; +} + +uacpi_status uacpi_rw_lock_write(struct uacpi_rw_lock *lock) +{ + return uacpi_acquire_native_mutex(lock->write_mutex); +} + +uacpi_status uacpi_rw_unlock_write(struct uacpi_rw_lock *lock) +{ + return uacpi_release_native_mutex(lock->write_mutex); +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/namespace.c b/kernel/hal/x86_64/uACPI/source/namespace.c new file mode 100644 index 0000000..e847dea --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/namespace.c @@ -0,0 +1,1081 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +#define UACPI_REV_VALUE 2 +#define UACPI_OS_VALUE "Microsoft Windows NT" + +#define MAKE_PREDEFINED(c0, c1, c2, c3) \ + { \ + .name.text = { c0, c1, c2, c3 }, \ + .flags = UACPI_NAMESPACE_NODE_PREDEFINED \ + } + +static uacpi_namespace_node +predefined_namespaces[UACPI_PREDEFINED_NAMESPACE_MAX + 1] = { + [UACPI_PREDEFINED_NAMESPACE_ROOT] = MAKE_PREDEFINED('\\', 0, 0, 0), + [UACPI_PREDEFINED_NAMESPACE_GPE] = MAKE_PREDEFINED('_', 'G', 'P', 'E'), + [UACPI_PREDEFINED_NAMESPACE_PR] = MAKE_PREDEFINED('_', 'P', 'R', '_'), + [UACPI_PREDEFINED_NAMESPACE_SB] = MAKE_PREDEFINED('_', 'S', 'B', '_'), + [UACPI_PREDEFINED_NAMESPACE_SI] = MAKE_PREDEFINED('_', 'S', 'I', '_'), + [UACPI_PREDEFINED_NAMESPACE_TZ] = MAKE_PREDEFINED('_', 'T', 'Z', '_'), + [UACPI_PREDEFINED_NAMESPACE_GL] = MAKE_PREDEFINED('_', 'G', 'L', '_'), + [UACPI_PREDEFINED_NAMESPACE_OS] = MAKE_PREDEFINED('_', 'O', 'S', '_'), + [UACPI_PREDEFINED_NAMESPACE_OSI] = MAKE_PREDEFINED('_', 'O', 'S', 'I'), + [UACPI_PREDEFINED_NAMESPACE_REV] = MAKE_PREDEFINED('_', 'R', 'E', 'V'), +}; + +static struct uacpi_rw_lock namespace_lock; + +uacpi_status uacpi_namespace_read_lock(void) +{ + return uacpi_rw_lock_read(&namespace_lock); +} + +uacpi_status uacpi_namespace_read_unlock(void) +{ + return uacpi_rw_unlock_read(&namespace_lock); +} + +uacpi_status uacpi_namespace_write_lock(void) +{ + return uacpi_rw_lock_write(&namespace_lock); +} + +uacpi_status uacpi_namespace_write_unlock(void) +{ + return uacpi_rw_unlock_write(&namespace_lock); +} + +static uacpi_object *make_object_for_predefined( + enum uacpi_predefined_namespace ns +) +{ + uacpi_object *obj; + + switch (ns) { + case UACPI_PREDEFINED_NAMESPACE_ROOT: + /* + * The real root object is stored in the global context, whereas the \ + * node gets a placeholder uninitialized object instead. This is to + * protect against CopyObject(JUNK, \), so that all of the opregion and + * notify handlers are preserved if AML decides to do that. + */ + g_uacpi_rt_ctx.root_object = uacpi_create_object(UACPI_OBJECT_DEVICE); + if (uacpi_unlikely(g_uacpi_rt_ctx.root_object == UACPI_NULL)) + return UACPI_NULL; + + obj = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + break; + + case UACPI_PREDEFINED_NAMESPACE_OS: + obj = uacpi_create_object(UACPI_OBJECT_STRING); + if (uacpi_unlikely(obj == UACPI_NULL)) + return obj; + + obj->buffer->text = uacpi_kernel_alloc(sizeof(UACPI_OS_VALUE)); + if (uacpi_unlikely(obj->buffer->text == UACPI_NULL)) { + uacpi_object_unref(obj); + return UACPI_NULL; + } + + obj->buffer->size = sizeof(UACPI_OS_VALUE); + uacpi_memcpy(obj->buffer->text, UACPI_OS_VALUE, obj->buffer->size); + break; + + case UACPI_PREDEFINED_NAMESPACE_REV: + obj = uacpi_create_object(UACPI_OBJECT_INTEGER); + if (uacpi_unlikely(obj == UACPI_NULL)) + return obj; + + obj->integer = UACPI_REV_VALUE; + break; + + case UACPI_PREDEFINED_NAMESPACE_GL: + obj = uacpi_create_object(UACPI_OBJECT_MUTEX); + if (uacpi_likely(obj != UACPI_NULL)) { + uacpi_shareable_ref(obj->mutex); + g_uacpi_rt_ctx.global_lock_mutex = obj->mutex; + } + break; + + case UACPI_PREDEFINED_NAMESPACE_OSI: + obj = uacpi_create_object(UACPI_OBJECT_METHOD); + if (uacpi_unlikely(obj == UACPI_NULL)) + return obj; + + obj->method->native_call = UACPI_TRUE; + obj->method->handler = uacpi_osi; + obj->method->args = 1; + break; + + default: + obj = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + break; + } + + return obj; +} + +static void namespace_node_detach_object(uacpi_namespace_node *node) +{ + uacpi_object *object; + + object = uacpi_namespace_node_get_object(node); + if (object != UACPI_NULL) { + if (object->type == UACPI_OBJECT_OPERATION_REGION) + uacpi_opregion_uninstall_handler(node); + + uacpi_object_unref(node->object); + node->object = UACPI_NULL; + } +} + +static void free_namespace_node(uacpi_handle handle) +{ + uacpi_namespace_node *node = handle; + + if (uacpi_likely(!uacpi_namespace_node_is_predefined(node))) { + uacpi_free(node, sizeof(*node)); + return; + } + + node->flags = UACPI_NAMESPACE_NODE_PREDEFINED; + node->object = UACPI_NULL; + node->parent = UACPI_NULL; + node->child = UACPI_NULL; + node->next = UACPI_NULL; +} + +uacpi_status uacpi_initialize_namespace(void) +{ + enum uacpi_predefined_namespace ns; + uacpi_object *obj; + uacpi_namespace_node *node; + uacpi_status ret; + + ret = uacpi_rw_lock_init(&namespace_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + for (ns = 0; ns <= UACPI_PREDEFINED_NAMESPACE_MAX; ns++) { + node = &predefined_namespaces[ns]; + uacpi_shareable_init(node); + + obj = make_object_for_predefined(ns); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + node->object = uacpi_create_internal_reference( + UACPI_REFERENCE_KIND_NAMED, obj + ); + if (uacpi_unlikely(node->object == UACPI_NULL)) { + uacpi_object_unref(obj); + return UACPI_STATUS_OUT_OF_MEMORY; + } + + uacpi_object_unref(obj); + } + + for (ns = UACPI_PREDEFINED_NAMESPACE_GPE; + ns <= UACPI_PREDEFINED_NAMESPACE_MAX; ns++) { + + /* + * Skip the installation of \_OSI if it was disabled by user. + * We still create the object, but it's not attached to the namespace. + */ + if (ns == UACPI_PREDEFINED_NAMESPACE_OSI && + uacpi_check_flag(UACPI_FLAG_NO_OSI)) + continue; + + uacpi_namespace_node_install( + uacpi_namespace_root(), &predefined_namespaces[ns] + ); + } + + return UACPI_STATUS_OK; +} + +void uacpi_deinitialize_namespace(void) +{ + uacpi_status ret; + uacpi_namespace_node *current, *next = UACPI_NULL; + uacpi_u32 depth = 1; + + current = uacpi_namespace_root(); + + ret = uacpi_namespace_write_lock(); + + while (depth) { + next = next == UACPI_NULL ? current->child : next->next; + + /* + * The previous value of 'next' was the last child of this subtree, + * we can now remove the entire scope of 'current->child' + */ + if (next == UACPI_NULL) { + depth--; + + // Wipe the subtree + while (current->child != UACPI_NULL) + uacpi_namespace_node_uninstall(current->child); + + // Reset the pointers back as if this iteration never happened + next = current; + current = current->parent; + + continue; + } + + /* + * We have more nodes to process, proceed to the next one, either the + * child of the 'next' node, if one exists, or its peer + */ + if (next->child) { + depth++; + current = next; + next = UACPI_NULL; + } + + // This node has no children, move on to its peer + } + + namespace_node_detach_object(uacpi_namespace_root()); + free_namespace_node(uacpi_namespace_root()); + + if (ret == UACPI_STATUS_OK) + uacpi_namespace_write_unlock(); + + uacpi_object_unref(g_uacpi_rt_ctx.root_object); + g_uacpi_rt_ctx.root_object = UACPI_NULL; + + uacpi_mutex_unref(g_uacpi_rt_ctx.global_lock_mutex); + g_uacpi_rt_ctx.global_lock_mutex = UACPI_NULL; + + uacpi_rw_lock_deinit(&namespace_lock); +} + +uacpi_namespace_node *uacpi_namespace_root(void) +{ + return &predefined_namespaces[UACPI_PREDEFINED_NAMESPACE_ROOT]; +} + +uacpi_namespace_node *uacpi_namespace_get_predefined( + enum uacpi_predefined_namespace ns +) +{ + if (uacpi_unlikely(ns > UACPI_PREDEFINED_NAMESPACE_MAX)) { + uacpi_warn("requested invalid predefined namespace %d\n", ns); + return UACPI_NULL; + } + + return &predefined_namespaces[ns]; +} + +uacpi_namespace_node *uacpi_namespace_node_alloc(uacpi_object_name name) +{ + uacpi_namespace_node *ret; + + ret = uacpi_kernel_alloc_zeroed(sizeof(*ret)); + if (uacpi_unlikely(ret == UACPI_NULL)) + return ret; + + uacpi_shareable_init(ret); + ret->name = name; + return ret; +} + +void uacpi_namespace_node_unref(uacpi_namespace_node *node) +{ + uacpi_shareable_unref_and_delete_if_last(node, free_namespace_node); +} + +uacpi_status uacpi_namespace_node_install( + uacpi_namespace_node *parent, + uacpi_namespace_node *node +) +{ + if (parent == UACPI_NULL) + parent = uacpi_namespace_root(); + + if (uacpi_unlikely(uacpi_namespace_node_is_dangling(node))) { + uacpi_warn("attempting to install a dangling namespace node %.4s\n", + node->name.text); + return UACPI_STATUS_NAMESPACE_NODE_DANGLING; + } + + if (parent->child == UACPI_NULL) { + parent->child = node; + } else { + uacpi_namespace_node *prev = parent->child; + + while (prev->next != UACPI_NULL) + prev = prev->next; + + prev->next = node; + } + + node->parent = parent; + return UACPI_STATUS_OK; +} + +uacpi_bool uacpi_namespace_node_is_alias(uacpi_namespace_node *node) +{ + return node->flags & UACPI_NAMESPACE_NODE_FLAG_ALIAS; +} + +uacpi_bool uacpi_namespace_node_is_dangling(uacpi_namespace_node *node) +{ + return node->flags & UACPI_NAMESPACE_NODE_FLAG_DANGLING; +} + +uacpi_bool uacpi_namespace_node_is_temporary(uacpi_namespace_node *node) +{ + return node->flags & UACPI_NAMESPACE_NODE_FLAG_TEMPORARY; +} + +uacpi_bool uacpi_namespace_node_is_predefined(uacpi_namespace_node *node) +{ + return node->flags & UACPI_NAMESPACE_NODE_PREDEFINED; +} + +uacpi_status uacpi_namespace_node_uninstall(uacpi_namespace_node *node) +{ + uacpi_namespace_node *prev; + + if (uacpi_unlikely(uacpi_namespace_node_is_dangling(node))) { + uacpi_warn("attempting to uninstall a dangling namespace node %.4s\n", + node->name.text); + return UACPI_STATUS_INTERNAL_ERROR; + } + + /* + * The way to trigger this is as follows: + * + * Method (FOO) { + * // Temporary device, will be deleted upon returning from FOO + * Device (\BAR) { + * } + * + * // + * // Load TBL where TBL is: + * // Scope (\BAR) { + * // Name (TEST, 123) + * // } + * // + * Load(TBL) + * } + * + * In the above example, TEST is a permanent node attached by bad AML to a + * temporary node created inside the FOO method at \BAR. The cleanup code + * will attempt to remove the \BAR device upon exit from FOO, but that is + * no longer possible as there's now a permanent child attached to it. + */ + if (uacpi_unlikely(node->child != UACPI_NULL)) { + uacpi_warn( + "refusing to uninstall node %.4s with a child (%.4s)\n", + node->name.text, node->child->name.text + ); + return UACPI_STATUS_DENIED; + } + + /* + * Even though namespace_node is reference-counted it still has an 'invalid' + * state that is entered after it is uninstalled from the global namespace. + * + * Reference counting is only needed to combat dangling pointer issues + * whereas bad AML might try to prolong a local object lifetime by + * returning it from a method, or CopyObject it somewhere. In that case the + * namespace node object itself is still alive, but no longer has a valid + * object associated with it. + * + * Example: + * Method (BAD) { + * OperationRegion(REG, SystemMemory, 0xDEADBEEF, 4) + * Field (REG, AnyAcc, NoLock) { + * FILD, 8, + * } + * + * Return (RefOf(FILD)) + * } + * + * // Local0 is now the sole owner of the 'FILD' object that under the + * // hood is still referencing the 'REG' operation region object from + * // the 'BAD' method. + * Local0 = DerefOf(BAD()) + * + * This is done to prevent potential very deep recursion where an object + * frees a namespace node that frees an attached object that frees a + * namespace node as well as potential infinite cycles between a namespace + * node and an object. + */ + namespace_node_detach_object(node); + + prev = node->parent ? node->parent->child : UACPI_NULL; + + if (prev == node) { + node->parent->child = node->next; + } else { + while (uacpi_likely(prev != UACPI_NULL) && prev->next != node) + prev = prev->next; + + if (uacpi_unlikely(prev == UACPI_NULL)) { + uacpi_warn( + "trying to uninstall a node %.4s (%p) not linked to any peer\n", + node->name.text, node + ); + return UACPI_STATUS_INTERNAL_ERROR; + } + + prev->next = node->next; + } + + node->flags |= UACPI_NAMESPACE_NODE_FLAG_DANGLING; + uacpi_namespace_node_unref(node); + + return UACPI_STATUS_OK; +} + +uacpi_namespace_node *uacpi_namespace_node_find_sub_node( + uacpi_namespace_node *parent, + uacpi_object_name name +) +{ + uacpi_namespace_node *node; + + if (parent == UACPI_NULL) + parent = uacpi_namespace_root(); + + node = parent->child; + + while (node) { + if (node->name.id == name.id) + return node; + + node = node->next; + } + + return UACPI_NULL; +} + +static uacpi_object_name segment_to_name( + const uacpi_char **string, uacpi_size *in_out_size +) +{ + uacpi_object_name out_name; + const uacpi_char *cursor = *string; + uacpi_size offset, bytes_left = *in_out_size; + + for (offset = 0; offset < 4; offset++) { + if (bytes_left < 1 || *cursor == '.') { + out_name.text[offset] = '_'; + continue; + } + + out_name.text[offset] = *cursor++; + bytes_left--; + } + + *string = cursor; + *in_out_size = bytes_left; + return out_name; +} + +uacpi_status uacpi_namespace_node_resolve( + uacpi_namespace_node *parent, const uacpi_char *path, + enum uacpi_should_lock should_lock, + enum uacpi_may_search_above_parent may_search_above_parent, + enum uacpi_permanent_only permanent_only, + uacpi_namespace_node **out_node +) +{ + uacpi_namespace_node *cur_node = parent; + uacpi_status ret = UACPI_STATUS_OK; + const uacpi_char *cursor = path; + uacpi_size bytes_left; + uacpi_char prev_char = 0; + uacpi_bool single_nameseg = UACPI_TRUE; + + if (cur_node == UACPI_NULL) + cur_node = uacpi_namespace_root(); + + bytes_left = uacpi_strlen(path); + + if (should_lock == UACPI_SHOULD_LOCK_YES) { + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + } + + for (;;) { + if (bytes_left == 0) + goto out; + + switch (*cursor) { + case '\\': + single_nameseg = UACPI_FALSE; + + if (prev_char == '^') { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + cur_node = uacpi_namespace_root(); + break; + case '^': + single_nameseg = UACPI_FALSE; + + // Tried to go behind root + if (uacpi_unlikely(cur_node == uacpi_namespace_root())) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + cur_node = cur_node->parent; + break; + default: + break; + } + + prev_char = *cursor; + + switch (prev_char) { + case '^': + case '\\': + cursor++; + bytes_left--; + break; + default: + break; + } + + if (prev_char != '^') + break; + } + + while (bytes_left != 0) { + uacpi_object_name nameseg; + + if (*cursor == '.') { + cursor++; + bytes_left--; + } + + nameseg = segment_to_name(&cursor, &bytes_left); + if (bytes_left != 0 && single_nameseg) + single_nameseg = UACPI_FALSE; + + cur_node = uacpi_namespace_node_find_sub_node(cur_node, nameseg); + if (cur_node == UACPI_NULL) { + if (may_search_above_parent == UACPI_MAY_SEARCH_ABOVE_PARENT_NO || + !single_nameseg) + goto out; + + parent = parent->parent; + + while (parent) { + cur_node = uacpi_namespace_node_find_sub_node(parent, nameseg); + if (cur_node != UACPI_NULL) + goto out; + + parent = parent->parent; + } + + goto out; + } + } + +out: + if (uacpi_unlikely(ret == UACPI_STATUS_INVALID_ARGUMENT)) { + uacpi_warn("invalid path '%s'\n", path); + goto out_read_unlock; + } + + if (cur_node == UACPI_NULL) { + ret = UACPI_STATUS_NOT_FOUND; + goto out_read_unlock; + } + + if (uacpi_namespace_node_is_temporary(cur_node) && + permanent_only == UACPI_PERMANENT_ONLY_YES) { + uacpi_warn("denying access to temporary namespace node '%.4s'\n", + cur_node->name.text); + ret = UACPI_STATUS_DENIED; + goto out_read_unlock; + } + + if (out_node != UACPI_NULL) + *out_node = cur_node; + +out_read_unlock: + if (should_lock == UACPI_SHOULD_LOCK_YES) + uacpi_namespace_read_unlock(); + return ret; +} + +uacpi_status uacpi_namespace_node_find( + uacpi_namespace_node *parent, const uacpi_char *path, + uacpi_namespace_node **out_node +) +{ + return uacpi_namespace_node_resolve( + parent, path, UACPI_SHOULD_LOCK_YES, UACPI_MAY_SEARCH_ABOVE_PARENT_NO, + UACPI_PERMANENT_ONLY_YES, out_node + ); +} + +uacpi_status uacpi_namespace_node_resolve_from_aml_namepath( + uacpi_namespace_node *scope, + const uacpi_char *path, + uacpi_namespace_node **out_node +) +{ + return uacpi_namespace_node_resolve( + scope, path, UACPI_SHOULD_LOCK_YES, UACPI_MAY_SEARCH_ABOVE_PARENT_YES, + UACPI_PERMANENT_ONLY_YES, out_node + ); +} + +uacpi_object *uacpi_namespace_node_get_object(const uacpi_namespace_node *node) +{ + if (node == UACPI_NULL || node->object == UACPI_NULL) + return UACPI_NULL; + + return uacpi_unwrap_internal_reference(node->object); +} + +uacpi_object *uacpi_namespace_node_get_object_typed( + const uacpi_namespace_node *node, uacpi_object_type_bits type_mask +) +{ + uacpi_object *obj; + + obj = uacpi_namespace_node_get_object(node); + if (uacpi_unlikely(obj == UACPI_NULL)) + return obj; + + if (!uacpi_object_is_one_of(obj, type_mask)) + return UACPI_NULL; + + return obj; +} + +uacpi_status uacpi_namespace_node_acquire_object_typed( + const uacpi_namespace_node *node, uacpi_object_type_bits type_mask, + uacpi_object **out_obj +) +{ + uacpi_status ret; + uacpi_object *obj; + + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + obj = uacpi_namespace_node_get_object(node); + + if (uacpi_unlikely(obj == UACPI_NULL) || + !uacpi_object_is_one_of(obj, type_mask)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + uacpi_object_ref(obj); + *out_obj = obj; + +out: + uacpi_namespace_read_unlock(); + return ret; +} + +uacpi_status uacpi_namespace_node_acquire_object( + const uacpi_namespace_node *node, uacpi_object **out_obj +) +{ + return uacpi_namespace_node_acquire_object_typed( + node, UACPI_OBJECT_ANY_BIT, out_obj + ); +} + +enum action { + ACTION_REACQUIRE, + ACTION_PUT, +}; + +static uacpi_status object_mutate_refcount( + uacpi_object *obj, void (*cb)(uacpi_object*) +) +{ + uacpi_status ret = UACPI_STATUS_OK; + + if (uacpi_likely(!uacpi_object_is(obj, UACPI_OBJECT_REFERENCE))) { + cb(obj); + return ret; + } + + /* + * Reference objects must be (un)referenced under at least a read lock, as + * this requires walking down the entire reference chain and dropping each + * object ref-count by 1. This might race with the interpreter and + * object_replace_child in case an object in the chain is CopyObject'ed + * into. + */ + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + cb(obj); + + uacpi_namespace_read_unlock(); + return ret; +} + +uacpi_status uacpi_namespace_node_reacquire_object( + uacpi_object *obj +) +{ + return object_mutate_refcount(obj, uacpi_object_ref); +} + +uacpi_status uacpi_namespace_node_release_object(uacpi_object *obj) +{ + return object_mutate_refcount(obj, uacpi_object_unref); +} + +uacpi_object_name uacpi_namespace_node_name(const uacpi_namespace_node *node) +{ + return node->name; +} + +uacpi_status uacpi_namespace_node_type_unlocked( + const uacpi_namespace_node *node, uacpi_object_type *out_type +) +{ + uacpi_object *obj; + + if (uacpi_unlikely(node == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + obj = uacpi_namespace_node_get_object(node); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_NOT_FOUND; + + *out_type = obj->type; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_namespace_node_type( + const uacpi_namespace_node *node, uacpi_object_type *out_type +) +{ + uacpi_status ret; + + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_namespace_node_type_unlocked(node, out_type); + + uacpi_namespace_read_unlock(); + return ret; +} + +uacpi_status uacpi_namespace_node_is_one_of_unlocked( + const uacpi_namespace_node *node, uacpi_object_type_bits type_mask, uacpi_bool *out +) +{ + uacpi_object *obj; + + if (uacpi_unlikely(node == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + obj = uacpi_namespace_node_get_object(node); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_NOT_FOUND; + + *out = uacpi_object_is_one_of(obj, type_mask); + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_namespace_node_is_one_of( + const uacpi_namespace_node *node, uacpi_object_type_bits type_mask, + uacpi_bool *out +) +{ + uacpi_status ret; + + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_namespace_node_is_one_of_unlocked(node,type_mask, out); + + uacpi_namespace_read_unlock(); + return ret; +} + +uacpi_status uacpi_namespace_node_is( + const uacpi_namespace_node *node, uacpi_object_type type, uacpi_bool *out +) +{ + return uacpi_namespace_node_is_one_of( + node, 1u << type, out + ); +} + +uacpi_status uacpi_namespace_do_for_each_child( + uacpi_namespace_node *node, uacpi_iteration_callback descending_callback, + uacpi_iteration_callback ascending_callback, + uacpi_object_type_bits type_mask, uacpi_u32 max_depth, + enum uacpi_should_lock should_lock, + enum uacpi_permanent_only permanent_only, void *user +) +{ + uacpi_status ret = UACPI_STATUS_OK; + uacpi_iteration_decision decision; + uacpi_iteration_callback cb; + uacpi_bool walking_up = UACPI_FALSE, matches = UACPI_FALSE; + uacpi_u32 depth = 1; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(descending_callback == UACPI_NULL && + ascending_callback == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (uacpi_unlikely(node == UACPI_NULL || max_depth == 0)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (should_lock == UACPI_SHOULD_LOCK_YES) { + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + } + + if (node->child == UACPI_NULL) + goto out; + + node = node->child; + + while (depth) { + uacpi_namespace_node_is_one_of_unlocked(node, type_mask, &matches); + if (!matches) { + decision = UACPI_ITERATION_DECISION_CONTINUE; + goto do_next; + } + + if (permanent_only == UACPI_PERMANENT_ONLY_YES && + uacpi_namespace_node_is_temporary(node)) { + decision = UACPI_ITERATION_DECISION_NEXT_PEER; + goto do_next; + } + + cb = walking_up ? ascending_callback : descending_callback; + if (cb != UACPI_NULL) { + if (should_lock == UACPI_SHOULD_LOCK_YES) { + ret = uacpi_namespace_read_unlock(); + if (uacpi_unlikely_error(ret)) + return ret; + } + + decision = cb(user, node, depth); + if (decision == UACPI_ITERATION_DECISION_BREAK) + return ret; + + if (should_lock == UACPI_SHOULD_LOCK_YES) { + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + } + } else { + decision = UACPI_ITERATION_DECISION_CONTINUE; + } + + do_next: + if (walking_up) { + if (node->next) { + node = node->next; + walking_up = UACPI_FALSE; + continue; + } + + depth--; + node = node->parent; + continue; + } + + switch (decision) { + case UACPI_ITERATION_DECISION_CONTINUE: + if ((depth != max_depth) && (node->child != UACPI_NULL)) { + node = node->child; + depth++; + continue; + } + UACPI_FALLTHROUGH; + case UACPI_ITERATION_DECISION_NEXT_PEER: + walking_up = UACPI_TRUE; + continue; + default: + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + } + +out: + if (should_lock == UACPI_SHOULD_LOCK_YES) + uacpi_namespace_read_unlock(); + return ret; +} + +uacpi_status uacpi_namespace_for_each_child_simple( + uacpi_namespace_node *parent, uacpi_iteration_callback callback, void *user +) +{ + return uacpi_namespace_do_for_each_child( + parent, callback, UACPI_NULL, UACPI_OBJECT_ANY_BIT, UACPI_MAX_DEPTH_ANY, + UACPI_SHOULD_LOCK_YES, UACPI_PERMANENT_ONLY_YES, user + ); +} + +uacpi_status uacpi_namespace_for_each_child( + uacpi_namespace_node *parent, uacpi_iteration_callback descending_callback, + uacpi_iteration_callback ascending_callback, + uacpi_object_type_bits type_mask, uacpi_u32 max_depth, void *user +) +{ + return uacpi_namespace_do_for_each_child( + parent, descending_callback, ascending_callback, type_mask, max_depth, + UACPI_SHOULD_LOCK_YES, UACPI_PERMANENT_ONLY_YES, user + ); +} + +uacpi_status uacpi_namespace_node_next_typed( + uacpi_namespace_node *parent, uacpi_namespace_node **iter, + uacpi_object_type_bits type_mask +) +{ + uacpi_status ret; + uacpi_bool is_one_of; + uacpi_namespace_node *node; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(parent == UACPI_NULL && *iter == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + node = *iter; + if (node == UACPI_NULL) + node = parent->child; + else + node = node->next; + + for (; node != UACPI_NULL; node = node->next) { + if (uacpi_namespace_node_is_temporary(node)) + continue; + + ret = uacpi_namespace_node_is_one_of_unlocked( + node, type_mask, &is_one_of + ); + if (uacpi_unlikely_error(ret)) + break; + if (is_one_of) + break; + } + + uacpi_namespace_read_unlock(); + if (node == UACPI_NULL) + return UACPI_STATUS_NOT_FOUND; + + if (uacpi_likely_success(ret)) + *iter = node; + return ret; +} + +uacpi_status uacpi_namespace_node_next( + uacpi_namespace_node *parent, uacpi_namespace_node **iter +) +{ + return uacpi_namespace_node_next_typed( + parent, iter, UACPI_OBJECT_ANY_BIT + ); +} + +uacpi_size uacpi_namespace_node_depth(const uacpi_namespace_node *node) +{ + uacpi_size depth = 0; + + while (node->parent) { + depth++; + node = node->parent; + } + + return depth; +} + +uacpi_namespace_node *uacpi_namespace_node_parent( + uacpi_namespace_node *node +) +{ + return node->parent; +} + +const uacpi_char *uacpi_namespace_node_generate_absolute_path( + const uacpi_namespace_node *node +) +{ + uacpi_size depth, offset; + uacpi_size bytes_needed; + uacpi_char *path; + + depth = uacpi_namespace_node_depth(node) + 1; + + // \ only needs 1 byte, the rest is 4 bytes + bytes_needed = 1 + (depth - 1) * sizeof(uacpi_object_name); + + // \ and the first NAME don't need a '.', every other segment does + bytes_needed += depth > 2 ? depth - 2 : 0; + + // Null terminator + bytes_needed += 1; + + path = uacpi_kernel_alloc(bytes_needed); + if (uacpi_unlikely(path == UACPI_NULL)) + return path; + + path[0] = '\\'; + + offset = bytes_needed - 1; + path[offset] = '\0'; + + while (node != uacpi_namespace_root()) { + offset -= sizeof(uacpi_object_name); + uacpi_memcpy(&path[offset], node->name.text, sizeof(uacpi_object_name)); + + node = node->parent; + if (node != uacpi_namespace_root()) + path[--offset] = '.'; + } + + return path; +} + +void uacpi_free_absolute_path(const uacpi_char *path) +{ + uacpi_free_dynamic_string(path); +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/notify.c b/kernel/hal/x86_64/uACPI/source/notify.c new file mode 100644 index 0000000..b413df9 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/notify.c @@ -0,0 +1,255 @@ +#include +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +static uacpi_handle notify_mutex; + +uacpi_status uacpi_initialize_notify(void) +{ + notify_mutex = uacpi_kernel_create_mutex(); + if (uacpi_unlikely(notify_mutex == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} + +void uacpi_deinitialize_notify(void) +{ + if (notify_mutex != UACPI_NULL) + uacpi_kernel_free_mutex(notify_mutex); + + notify_mutex = UACPI_NULL; +} + +struct notification_ctx { + uacpi_namespace_node *node; + uacpi_u64 value; + uacpi_object *node_object; +}; + +static void free_notification_ctx(struct notification_ctx *ctx) +{ + uacpi_namespace_node_release_object(ctx->node_object); + uacpi_namespace_node_unref(ctx->node); + uacpi_free(ctx, sizeof(*ctx)); +} + +static void do_notify(uacpi_handle opaque) +{ + struct notification_ctx *ctx = opaque; + uacpi_device_notify_handler *handler; + uacpi_bool did_notify_root = UACPI_FALSE; + + handler = ctx->node_object->handlers->notify_head; + + for (;;) { + if (handler == UACPI_NULL) { + if (did_notify_root) { + free_notification_ctx(ctx); + return; + } + + handler = g_uacpi_rt_ctx.root_object->handlers->notify_head; + did_notify_root = UACPI_TRUE; + continue; + } + + handler->callback(handler->user_context, ctx->node, ctx->value); + handler = handler->next; + } +} + +uacpi_status uacpi_notify_all(uacpi_namespace_node *node, uacpi_u64 value) +{ + uacpi_status ret; + struct notification_ctx *ctx; + uacpi_object *node_object; + + node_object = uacpi_namespace_node_get_object_typed( + node, UACPI_OBJECT_DEVICE_BIT | UACPI_OBJECT_THERMAL_ZONE_BIT | + UACPI_OBJECT_PROCESSOR_BIT + ); + if (uacpi_unlikely(node_object == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_acquire_native_mutex(notify_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + if (node_object->handlers->notify_head == UACPI_NULL && + g_uacpi_rt_ctx.root_object->handlers->notify_head == UACPI_NULL) { + ret = UACPI_STATUS_NO_HANDLER; + goto out; + } + + ctx = uacpi_kernel_alloc(sizeof(*ctx)); + if (uacpi_unlikely(ctx == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + + ctx->node = node; + // In case this node goes out of scope + uacpi_shareable_ref(node); + + ctx->value = value; + ctx->node_object = uacpi_namespace_node_get_object(node); + uacpi_object_ref(ctx->node_object); + + ret = uacpi_kernel_schedule_work(UACPI_WORK_NOTIFICATION, do_notify, ctx); + if (uacpi_unlikely_error(ret)) { + uacpi_warn("unable to schedule notification work: %s\n", + uacpi_status_to_string(ret)); + free_notification_ctx(ctx); + } + +out: + uacpi_release_native_mutex(notify_mutex); + return ret; +} + +static uacpi_device_notify_handler *handler_container( + uacpi_handlers *handlers, uacpi_notify_handler target_handler +) +{ + uacpi_device_notify_handler *handler = handlers->notify_head; + + while (handler) { + if (handler->callback == target_handler) + return handler; + + handler = handler->next; + } + + return UACPI_NULL; +} + +uacpi_status uacpi_install_notify_handler( + uacpi_namespace_node *node, uacpi_notify_handler handler, + uacpi_handle handler_context +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_handlers *handlers; + uacpi_device_notify_handler *new_handler; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (node == uacpi_namespace_root()) { + obj = g_uacpi_rt_ctx.root_object; + } else { + ret = uacpi_namespace_node_acquire_object_typed( + node, UACPI_OBJECT_DEVICE_BIT | UACPI_OBJECT_THERMAL_ZONE_BIT | + UACPI_OBJECT_PROCESSOR_BIT, &obj + ); + if (uacpi_unlikely_error(ret)) + return ret; + } + + ret = uacpi_acquire_native_mutex(notify_mutex); + if (uacpi_unlikely_error(ret)) + goto out_no_mutex; + + uacpi_kernel_wait_for_work_completion(); + + handlers = obj->handlers; + + if (handler_container(handlers, handler) != UACPI_NULL) { + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + + new_handler = uacpi_kernel_alloc_zeroed(sizeof(*new_handler)); + if (uacpi_unlikely(new_handler == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + new_handler->callback = handler; + new_handler->user_context = handler_context; + new_handler->next = handlers->notify_head; + + handlers->notify_head = new_handler; + +out: + uacpi_release_native_mutex(notify_mutex); +out_no_mutex: + if (node != uacpi_namespace_root()) + uacpi_object_unref(obj); + + return ret; +} + +uacpi_status uacpi_uninstall_notify_handler( + uacpi_namespace_node *node, uacpi_notify_handler handler +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_handlers *handlers; + uacpi_device_notify_handler *prev_handler, *containing = UACPI_NULL; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (node == uacpi_namespace_root()) { + obj = g_uacpi_rt_ctx.root_object; + } else { + ret = uacpi_namespace_node_acquire_object_typed( + node, UACPI_OBJECT_DEVICE_BIT | UACPI_OBJECT_THERMAL_ZONE_BIT | + UACPI_OBJECT_PROCESSOR_BIT, &obj + ); + if (uacpi_unlikely_error(ret)) + return ret; + } + + ret = uacpi_acquire_native_mutex(notify_mutex); + if (uacpi_unlikely_error(ret)) + goto out_no_mutex; + + uacpi_kernel_wait_for_work_completion(); + + handlers = obj->handlers; + + containing = handler_container(handlers, handler); + if (containing == UACPI_NULL) { + ret = UACPI_STATUS_NOT_FOUND; + goto out; + } + + prev_handler = handlers->notify_head; + + // Are we the last linked handler? + if (prev_handler == containing) { + handlers->notify_head = containing->next; + goto out; + } + + // Nope, we're somewhere in the middle. Do a search. + while (prev_handler) { + if (prev_handler->next == containing) { + prev_handler->next = containing->next; + goto out; + } + + prev_handler = prev_handler->next; + } + +out: + uacpi_release_native_mutex(notify_mutex); +out_no_mutex: + if (node != uacpi_namespace_root()) + uacpi_object_unref(obj); + + if (uacpi_likely_success(ret)) + uacpi_free(containing, sizeof(*containing)); + + return ret; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/opcodes.c b/kernel/hal/x86_64/uACPI/source/opcodes.c new file mode 100644 index 0000000..60946f1 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/opcodes.c @@ -0,0 +1,265 @@ +#include + +#ifndef UACPI_BAREBONES_MODE + +#define UACPI_OP(opname, opcode, props, ...) \ + { #opname, { .decode_ops = __VA_ARGS__ }, .properties = props, .code = opcode }, + +#define UACPI_OUT_OF_LINE_OP(opname, opcode, out_of_line_buf, props) \ + { \ + .name = #opname, \ + { .indirect_decode_ops = out_of_line_buf }, \ + .properties = props, \ + .code = opcode, \ + }, + +static const struct uacpi_op_spec opcode_table[0x100] = { + UACPI_ENUMERATE_OPCODES +}; + +static const struct uacpi_op_spec ext_opcode_table[] = { + UACPI_ENUMERATE_EXT_OPCODES +}; + +#define _(op) (op & 0x00FF) + +static const uacpi_u8 ext_op_to_idx[0x100] = { + [_(UACPI_AML_OP_MutexOp)] = 1, [_(UACPI_AML_OP_EventOp)] = 2, + [_(UACPI_AML_OP_CondRefOfOp)] = 3, [_(UACPI_AML_OP_CreateFieldOp)] = 4, + [_(UACPI_AML_OP_LoadTableOp)] = 5, [_(UACPI_AML_OP_LoadOp)] = 6, + [_(UACPI_AML_OP_StallOp)] = 7, [_(UACPI_AML_OP_SleepOp)] = 8, + [_(UACPI_AML_OP_AcquireOp)] = 9, [_(UACPI_AML_OP_SignalOp)] = 10, + [_(UACPI_AML_OP_WaitOp)] = 11, [_(UACPI_AML_OP_ResetOp)] = 12, + [_(UACPI_AML_OP_ReleaseOp)] = 13, [_(UACPI_AML_OP_FromBCDOp)] = 14, + [_(UACPI_AML_OP_ToBCDOp)] = 15, [_(UACPI_AML_OP_UnloadOp)] = 16, + [_(UACPI_AML_OP_RevisionOp)] = 17, [_(UACPI_AML_OP_DebugOp)] = 18, + [_(UACPI_AML_OP_FatalOp)] = 19, [_(UACPI_AML_OP_TimerOp)] = 20, + [_(UACPI_AML_OP_OpRegionOp)] = 21, [_(UACPI_AML_OP_FieldOp)] = 22, + [_(UACPI_AML_OP_DeviceOp)] = 23, [_(UACPI_AML_OP_ProcessorOp)] = 24, + [_(UACPI_AML_OP_PowerResOp)] = 25, [_(UACPI_AML_OP_ThermalZoneOp)] = 26, + [_(UACPI_AML_OP_IndexFieldOp)] = 27, [_(UACPI_AML_OP_BankFieldOp)] = 28, + [_(UACPI_AML_OP_DataRegionOp)] = 29, +}; + +const struct uacpi_op_spec *uacpi_get_op_spec(uacpi_aml_op op) +{ + if (op > 0xFF) + return &ext_opcode_table[ext_op_to_idx[_(op)]]; + + return &opcode_table[op]; +} + +#define PARSE_FIELD_ELEMENTS(parse_loop_pc) \ + /* Parse every field element found inside */ \ + UACPI_PARSE_OP_IF_HAS_DATA, 44, \ + /* Look at the first byte */ \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + \ + /* ReservedField := 0x00 PkgLength */ \ + UACPI_PARSE_OP_IF_LAST_EQUALS, 0x00, 3, \ + UACPI_PARSE_OP_PKGLEN, \ + UACPI_PARSE_OP_JMP, parse_loop_pc, \ + \ + /* AccessField := 0x01 AccessType AccessAttrib */ \ + UACPI_PARSE_OP_IF_LAST_EQUALS, 0x01, 6, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_JMP, parse_loop_pc, \ + \ + /* ConnectField := <0x02 NameString> | <0x02 BufferData> */ \ + UACPI_PARSE_OP_IF_LAST_EQUALS, 0x02, 5, \ + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, \ + UACPI_PARSE_OP_TYPECHECK, UACPI_OBJECT_BUFFER, \ + UACPI_PARSE_OP_JMP, parse_loop_pc, \ + \ + /* ExtendedAccessField := 0x03 AccessType ExtendedAccessAttrib \ + * AccessLength */ \ + UACPI_PARSE_OP_IF_LAST_EQUALS, 0x03, 8, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_LOAD_IMM, 1, \ + UACPI_PARSE_OP_JMP, parse_loop_pc, \ + \ + /* NamedField := NameSeg PkgLength */ \ + \ + /* \ + * Discard the immediate, as it's the first byte of the \ + * nameseg. We don't need it. \ + */ \ + UACPI_PARSE_OP_ITEM_POP, \ + UACPI_PARSE_OP_AML_PC_DECREMENT, \ + UACPI_PARSE_OP_CREATE_NAMESTRING, \ + UACPI_PARSE_OP_PKGLEN, \ + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_FIELD_UNIT, \ + UACPI_PARSE_OP_JMP, parse_loop_pc, \ + \ + UACPI_PARSE_OP_INVOKE_HANDLER, \ + UACPI_PARSE_OP_END + +uacpi_u8 uacpi_field_op_decode_ops[] = { + UACPI_PARSE_OP_TRACKED_PKGLEN, + UACPI_PARSE_OP_EXISTING_NAMESTRING, + UACPI_PARSE_OP_LOAD_IMM, 1, + PARSE_FIELD_ELEMENTS(4), +}; + +uacpi_u8 uacpi_bank_field_op_decode_ops[] = { + UACPI_PARSE_OP_TRACKED_PKGLEN, + UACPI_PARSE_OP_EXISTING_NAMESTRING, + UACPI_PARSE_OP_EXISTING_NAMESTRING, + UACPI_PARSE_OP_OPERAND, + UACPI_PARSE_OP_LOAD_IMM, 1, + PARSE_FIELD_ELEMENTS(6), +}; + +uacpi_u8 uacpi_index_field_op_decode_ops[] = { + UACPI_PARSE_OP_TRACKED_PKGLEN, + UACPI_PARSE_OP_EXISTING_NAMESTRING, + UACPI_PARSE_OP_EXISTING_NAMESTRING, + UACPI_PARSE_OP_LOAD_IMM, 1, + PARSE_FIELD_ELEMENTS(5), +}; + +uacpi_u8 uacpi_load_op_decode_ops[] = { + // Storage for the scope pointer, this is left as 0 in case of errors + UACPI_PARSE_OP_LOAD_ZERO_IMM, + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_METHOD, + // Index of the table we are going to be loading to unref it later + UACPI_PARSE_OP_LOAD_ZERO_IMM, + + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, + UACPI_PARSE_OP_TARGET, + + /* + * Invoke the handler here to initialize the table. If this fails, it's + * expected to keep the item 0 as NULL, which is checked below to return + * false to the caller of Load. + */ + UACPI_PARSE_OP_INVOKE_HANDLER, + UACPI_PARSE_OP_IF_NULL, 0, 3, + UACPI_PARSE_OP_LOAD_FALSE_OBJECT, + UACPI_PARSE_OP_JMP, 16, + + UACPI_PARSE_OP_LOAD_TRUE_OBJECT, + UACPI_PARSE_OP_DISPATCH_TABLE_LOAD, + + /* + * Invoke the handler a second time to initialize any AML GPE handlers that + * might've been loaded from this table. + */ + UACPI_PARSE_OP_INVOKE_HANDLER, + UACPI_PARSE_OP_STORE_TO_TARGET, 4, + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, + UACPI_PARSE_OP_END, +}; + +uacpi_u8 uacpi_load_table_op_decode_ops[] = { + // Storage for the scope pointer, this is left as 0 in case of errors + UACPI_PARSE_OP_LOAD_ZERO_IMM, + UACPI_PARSE_OP_OBJECT_ALLOC_TYPED, UACPI_OBJECT_METHOD, + // Index of the table we are going to be loading to unref it later + UACPI_PARSE_OP_LOAD_ZERO_IMM, + // Storage for the target pointer, this is left as 0 if none was requested + UACPI_PARSE_OP_LOAD_ZERO_IMM, + + UACPI_PARSE_OP_LOAD_INLINE_IMM, 1, 5, + UACPI_PARSE_OP_IF_NOT_NULL, 4, 5, + UACPI_PARSE_OP_STRING, + UACPI_PARSE_OP_IMM_DECREMENT, 4, + UACPI_PARSE_OP_JMP, 8, + UACPI_PARSE_OP_TERM_ARG_UNWRAP_INTERNAL, + + UACPI_PARSE_OP_INVOKE_HANDLER, + UACPI_PARSE_OP_LOAD_TRUE_OBJECT, + UACPI_PARSE_OP_DISPATCH_TABLE_LOAD, + + /* + * Invoke the handler a second time to block the store to target in case + * the load above failed, as well as do any AML GPE handler initialization. + */ + UACPI_PARSE_OP_INVOKE_HANDLER, + + // If we were given a target to store to, do the store + UACPI_PARSE_OP_IF_NOT_NULL, 3, 3, + UACPI_PARSE_OP_STORE_TO_TARGET_INDIRECT, 3, 10, + + UACPI_PARSE_OP_OBJECT_TRANSFER_TO_PREV, + UACPI_PARSE_OP_END, +}; + +#define POP(x) UACPI_PARSE_OP_##x + +static +const uacpi_char *const pop_names[UACPI_PARSE_OP_MAX + 1] = { + [POP(END)] = "", + [POP(SKIP_WITH_WARN_IF_NULL)] = "SKIP_WITH_WARN_IF_NULL", + [POP(EMIT_SKIP_WARN)] = "EMIT_SKIP_WARN", + [POP(SIMPLE_NAME)] = "SIMPLE_NAME", + [POP(SUPERNAME)] = "SUPERNAME", + [POP(SUPERNAME_OR_UNRESOLVED)] = "SUPERNAME_OR_UNRESOLVED", + [POP(TERM_ARG)] = "TERM_ARG", + [POP(TERM_ARG_UNWRAP_INTERNAL)] = "TERM_ARG_UNWRAP_INTERNAL", + [POP(TERM_ARG_OR_NAMED_OBJECT)] = "TERM_ARG_OR_NAMED_OBJECT", + [POP(TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED)] = "TERM_ARG_OR_NAMED_OBJECT_OR_UNRESOLVED", + [POP(OPERAND)] = "OPERAND", + [POP(STRING)] = "STRING", + [POP(COMPUTATIONAL_DATA)] = "COMPUTATIONAL_DATA", + [POP(TARGET)] = "TARGET", + [POP(PKGLEN)] = "PKGLEN", + [POP(TRACKED_PKGLEN)] = "TRACKED_PKGLEN", + [POP(CREATE_NAMESTRING)] = "CREATE_NAMESTRING", + [POP(CREATE_NAMESTRING_OR_NULL_IF_LOAD)] = "CREATE_NAMESTRING_OR_NULL_IF_LOAD", + [POP(EXISTING_NAMESTRING)] = "EXISTING_NAMESTRING", + [POP(EXISTING_NAMESTRING_OR_NULL)] = "EXISTING_NAMESTRING_OR_NULL", + [POP(EXISTING_NAMESTRING_OR_NULL_IF_LOAD)] = "EXISTING_NAMESTRING_OR_NULL_IF_LOAD", + [POP(INVOKE_HANDLER)] = "INVOKE_HANDLER", + [POP(OBJECT_ALLOC)] = "OBJECT_ALLOC", + [POP(EMPTY_OBJECT_ALLOC)] = "EMPTY_OBJECT_ALLOC", + [POP(OBJECT_CONVERT_TO_SHALLOW_COPY)] = "OBJECT_CONVERT_TO_SHALLOW_COPY", + [POP(OBJECT_CONVERT_TO_DEEP_COPY)] = "OBJECT_CONVERT_TO_DEEP_COPY", + [POP(OBJECT_ALLOC_TYPED)] = "OBJECT_ALLOC_TYPED", + [POP(RECORD_AML_PC)] = "RECORD_AML_PC", + [POP(LOAD_INLINE_IMM_AS_OBJECT)] = "LOAD_INLINE_IMM_AS_OBJECT", + [POP(LOAD_INLINE_IMM)] = "LOAD_INLINE_IMM", + [POP(LOAD_ZERO_IMM)] = "LOAD_ZERO_IMM", + [POP(LOAD_IMM)] = "LOAD_IMM", + [POP(LOAD_IMM_AS_OBJECT)] = "LOAD_IMM_AS_OBJECT", + [POP(LOAD_FALSE_OBJECT)] = "LOAD_FALSE_OBJECT", + [POP(LOAD_TRUE_OBJECT)] = "LOAD_TRUE_OBJECT", + [POP(TRUNCATE_NUMBER)] = "TRUNCATE_NUMBER", + [POP(TYPECHECK)] = "TYPECHECK", + [POP(INSTALL_NAMESPACE_NODE)] = "INSTALL_NAMESPACE_NODE", + [POP(OBJECT_TRANSFER_TO_PREV)] = "OBJECT_TRANSFER_TO_PREV", + [POP(OBJECT_COPY_TO_PREV)] = "OBJECT_COPY_TO_PREV", + [POP(STORE_TO_TARGET)] = "STORE_TO_TARGET", + [POP(STORE_TO_TARGET_INDIRECT)] = "STORE_TO_TARGET_INDIRECT", + [POP(UNREACHABLE)] = "UNREACHABLE", + [POP(BAD_OPCODE)] = "BAD_OPCODE", + [POP(AML_PC_DECREMENT)] = "AML_PC_DECREMENT", + [POP(IMM_DECREMENT)] = "IMM_DECREMENT", + [POP(ITEM_POP)] = "ITEM_POP", + [POP(DISPATCH_METHOD_CALL)] = "DISPATCH_METHOD_CALL", + [POP(DISPATCH_TABLE_LOAD)] = "DISPATCH_TABLE_LOAD", + [POP(CONVERT_NAMESTRING)] = "CONVERT_NAMESTRING", + [POP(IF_HAS_DATA)] = "IF_HAS_DATA", + [POP(IF_NULL)] = "IF_NULL", + [POP(IF_LAST_NULL)] = "IF_LAST_NULL", + [POP(IF_NOT_NULL)] = "IF_NOT_NULL", + [POP(IF_LAST_NOT_NULL)] = "IF_NOT_NULL", + [POP(IF_LAST_EQUALS)] = "IF_LAST_EQUALS", + [POP(IF_LAST_FALSE)] = "IF_LAST_FALSE", + [POP(IF_LAST_TRUE)] = "IF_LAST_TRUE", + [POP(SWITCH_TO_NEXT_IF_EQUALS)] = "SWITCH_TO_NEXT_IF_EQUALS", + [POP(IF_SWITCHED_FROM)] = "IF_SWITCHED_FROM", + [POP(JMP)] = "JMP", +}; + +const uacpi_char *uacpi_parse_op_to_string(enum uacpi_parse_op op) +{ + if (uacpi_unlikely(op > UACPI_PARSE_OP_MAX)) + return ""; + + return pop_names[op]; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/opregion.c b/kernel/hal/x86_64/uACPI/source/opregion.c new file mode 100644 index 0000000..ec0bc37 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/opregion.c @@ -0,0 +1,1056 @@ +#include + +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +struct uacpi_recursive_lock g_opregion_lock; + +uacpi_status uacpi_initialize_opregion(void) +{ + return uacpi_recursive_lock_init(&g_opregion_lock); +} + +void uacpi_deinitialize_opregion(void) +{ + uacpi_recursive_lock_deinit(&g_opregion_lock); +} + +void uacpi_trace_region_error( + uacpi_namespace_node *node, uacpi_char *message, uacpi_status ret +) +{ + const uacpi_char *path, *space_string = ""; + uacpi_object *obj; + + path = uacpi_namespace_node_generate_absolute_path(node); + + obj = uacpi_namespace_node_get_object_typed( + node, UACPI_OBJECT_OPERATION_REGION_BIT + ); + if (uacpi_likely(obj != UACPI_NULL)) + space_string = uacpi_address_space_to_string(obj->op_region->space); + + uacpi_error( + "%s (%s) operation region %s: %s\n", + message, space_string, path, uacpi_status_to_string(ret) + ); + uacpi_free_dynamic_string(path); +} + +static void trace_region_io( + uacpi_field_unit *field, uacpi_address_space space, uacpi_u64 offset, + uacpi_region_op op, union uacpi_opregion_io_data data +) +{ + const uacpi_char *path; + const uacpi_char *type_str; + + if (!uacpi_should_log(UACPI_LOG_TRACE)) + return; + + switch (op) { + case UACPI_REGION_OP_READ: + type_str = "read from"; + break; + case UACPI_REGION_OP_WRITE: + type_str = "write to"; + break; + default: + type_str = ""; + } + + path = uacpi_namespace_node_generate_absolute_path(field->region); + + switch (space) { + case UACPI_ADDRESS_SPACE_IPMI: + case UACPI_ADDRESS_SPACE_PRM: + case UACPI_ADDRESS_SPACE_FFIXEDHW: + uacpi_trace( + "write-then-read from [%s] %s[0x%016"UACPI_PRIX64"] = " + "\n", path, + uacpi_address_space_to_string(space), + UACPI_FMT64(offset), data.buffer.length + ); + break; + case UACPI_ADDRESS_SPACE_SMBUS: + case UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS: + uacpi_trace( + "%s [%s] %s[0x%016"UACPI_PRIX64"] = " + "\n", type_str, path, + uacpi_address_space_to_string(space), + UACPI_FMT64(offset), data.buffer.length + ); + break; + case UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO: + uacpi_trace( + "%s [%s] %s pins[%u..%u] = 0x%"UACPI_PRIX64"\n", + type_str, path, uacpi_address_space_to_string(space), + field->pin_offset, (field->pin_offset + field->bit_length) - 1, + UACPI_FMT64(*data.integer) + ); + break; + default: + uacpi_trace( + "%s [%s] (%d bytes) %s[0x%016"UACPI_PRIX64"] = 0x%"UACPI_PRIX64"\n", + type_str, path, field->access_width_bytes, + uacpi_address_space_to_string(space), + UACPI_FMT64(offset), UACPI_FMT64(*data.integer) + ); + break; + } + + uacpi_free_dynamic_string(path); +} + +static uacpi_bool space_needs_reg(enum uacpi_address_space space) +{ + if (space == UACPI_ADDRESS_SPACE_SYSTEM_MEMORY || + space == UACPI_ADDRESS_SPACE_SYSTEM_IO || + space == UACPI_ADDRESS_SPACE_TABLE_DATA) + return UACPI_FALSE; + + return UACPI_TRUE; +} + +static uacpi_status region_run_reg( + uacpi_namespace_node *node, uacpi_u8 connection_code +) +{ + uacpi_status ret; + uacpi_namespace_node *reg_node; + uacpi_object_array method_args; + uacpi_object *reg_obj, *args[2]; + + ret = uacpi_namespace_node_resolve( + node->parent, "_REG", UACPI_SHOULD_LOCK_NO, + UACPI_MAY_SEARCH_ABOVE_PARENT_NO, UACPI_PERMANENT_ONLY_NO, ®_node + ); + if (uacpi_unlikely_error(ret)) + return ret; + + reg_obj = uacpi_namespace_node_get_object_typed( + reg_node, UACPI_OBJECT_METHOD_BIT + ); + if (uacpi_unlikely(reg_obj == UACPI_NULL)) + return UACPI_STATUS_OK; + + args[0] = uacpi_create_object(UACPI_OBJECT_INTEGER); + if (uacpi_unlikely(args[0] == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + args[1] = uacpi_create_object(UACPI_OBJECT_INTEGER); + if (uacpi_unlikely(args[1] == UACPI_NULL)) { + uacpi_object_unref(args[0]); + return UACPI_STATUS_OUT_OF_MEMORY; + } + + args[0]->integer = uacpi_namespace_node_get_object(node)->op_region->space; + args[1]->integer = connection_code; + method_args.objects = args; + method_args.count = 2; + + ret = uacpi_execute_control_method( + reg_node, reg_obj->method, &method_args, UACPI_NULL + ); + if (uacpi_unlikely_error(ret)) + uacpi_trace_region_error(node, "error during _REG execution for", ret); + + uacpi_object_unref(args[0]); + uacpi_object_unref(args[1]); + return ret; +} + +uacpi_address_space_handlers *uacpi_node_get_address_space_handlers( + uacpi_namespace_node *node +) +{ + uacpi_object *object; + + if (node == uacpi_namespace_root()) + return g_uacpi_rt_ctx.root_object->address_space_handlers; + + object = uacpi_namespace_node_get_object(node); + if (uacpi_unlikely(object == UACPI_NULL)) + return UACPI_NULL; + + switch (object->type) { + case UACPI_OBJECT_DEVICE: + case UACPI_OBJECT_PROCESSOR: + case UACPI_OBJECT_THERMAL_ZONE: + return object->address_space_handlers; + default: + return UACPI_NULL; + } +} + +static uacpi_address_space_handler *find_handler( + uacpi_address_space_handlers *handlers, + enum uacpi_address_space space +) +{ + uacpi_address_space_handler *handler = handlers->head; + + while (handler) { + if (handler->space == space) + return handler; + + handler = handler->next; + } + + return UACPI_NULL; +} + +static uacpi_operation_region *find_previous_region_link( + uacpi_operation_region *region +) +{ + uacpi_address_space_handler *handler = region->handler; + uacpi_operation_region *parent = handler->regions; + + if (parent == region) + // This is the last attached region, it has no previous link + return region; + + while (parent->next != region) { + parent = parent->next; + + if (uacpi_unlikely(parent == UACPI_NULL)) + return UACPI_NULL; + } + + return parent; +} + +uacpi_status uacpi_opregion_attach(uacpi_namespace_node *node) +{ + uacpi_object *obj; + uacpi_operation_region *region; + uacpi_address_space_handler *handler; + uacpi_status ret; + uacpi_region_attach_data attach_data = { 0 }; + + if (uacpi_namespace_node_is_dangling(node)) + return UACPI_STATUS_NAMESPACE_NODE_DANGLING; + + obj = uacpi_namespace_node_get_object_typed( + node, UACPI_OBJECT_OPERATION_REGION_BIT + ); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + region = obj->op_region; + + if (region->handler == UACPI_NULL) + return UACPI_STATUS_NO_HANDLER; + if (region->state_flags & UACPI_OP_REGION_STATE_ATTACHED) + return UACPI_STATUS_OK; + + handler = region->handler; + attach_data.region_node = node; + + switch (region->space) { + case UACPI_ADDRESS_SPACE_PCC: + if (region->length) { + region->internal_buffer = uacpi_kernel_alloc_zeroed(region->length); + if (uacpi_unlikely(region->internal_buffer == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + } + + attach_data.pcc_info.buffer.bytes = region->internal_buffer; + attach_data.pcc_info.buffer.length = region->length; + attach_data.pcc_info.subspace_id = region->offset; + break; + case UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO: + attach_data.gpio_info.num_pins = region->length; + break; + default: + attach_data.generic_info.base = region->offset; + attach_data.generic_info.length = region->length; + break; + } + + attach_data.handler_context = handler->user_context; + + uacpi_object_ref(obj); + uacpi_namespace_write_unlock(); + ret = handler->callback(UACPI_REGION_OP_ATTACH, &attach_data); + uacpi_namespace_write_lock(); + + if (uacpi_unlikely_error(ret)) { + uacpi_object_unref(obj); + return ret; + } + + region->state_flags |= UACPI_OP_REGION_STATE_ATTACHED; + region->user_context = attach_data.out_region_context; + uacpi_object_unref(obj); + return ret; +} + +static void region_install_handler( + uacpi_namespace_node *node, uacpi_address_space_handler *handler +) +{ + uacpi_operation_region *region; + + region = uacpi_namespace_node_get_object(node)->op_region; + region->handler = handler; + uacpi_shareable_ref(handler); + + region->next = handler->regions; + handler->regions = region; +} + +enum unreg { + UNREG_NO = 0, + UNREG_YES, +}; + +static void region_uninstall_handler( + uacpi_namespace_node *node, enum unreg unreg +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_address_space_handler *handler; + uacpi_operation_region *region, *link; + + obj = uacpi_namespace_node_get_object_typed( + node, UACPI_OBJECT_OPERATION_REGION_BIT + ); + if (uacpi_unlikely(obj == UACPI_NULL)) + return; + + region = obj->op_region; + + handler = region->handler; + if (handler == UACPI_NULL) + return; + + link = find_previous_region_link(region); + if (uacpi_unlikely(link == UACPI_NULL)) { + uacpi_error("operation region @%p not in the handler@%p list(?)\n", + region, handler); + goto out; + } else if (link == region) { + link = link->next; + handler->regions = link; + } else { + link->next = region->next; + } + +out: + if (region->state_flags & UACPI_OP_REGION_STATE_ATTACHED) { + uacpi_region_detach_data detach_data = { 0 }; + + detach_data.region_node = node; + detach_data.region_context = region->user_context; + detach_data.handler_context = handler->user_context; + + uacpi_shareable_ref(node); + uacpi_namespace_write_unlock(); + + ret = handler->callback(UACPI_REGION_OP_DETACH, &detach_data); + + uacpi_namespace_write_lock(); + uacpi_namespace_node_unref(node); + + if (uacpi_unlikely_error(ret)) { + uacpi_trace_region_error( + node, "error during handler detach for", ret + ); + } + } + + if ((region->state_flags & UACPI_OP_REGION_STATE_REG_EXECUTED) && + unreg == UNREG_YES) { + region_run_reg(node, ACPI_REG_DISCONNECT); + region->state_flags &= ~UACPI_OP_REGION_STATE_REG_EXECUTED; + } + + uacpi_address_space_handler_unref(region->handler); + region->handler = UACPI_NULL; + region->state_flags &= ~UACPI_OP_REGION_STATE_ATTACHED; +} + +static uacpi_status upgrade_to_opregion_lock(void) +{ + uacpi_status ret; + + /* + * Drop the namespace lock, and reacquire it after the opregion lock + * so we keep the ordering with user API. + */ + uacpi_namespace_write_unlock(); + + ret = uacpi_recursive_lock_acquire(&g_opregion_lock); + uacpi_namespace_write_lock(); + return ret; +} + +void uacpi_opregion_uninstall_handler(uacpi_namespace_node *node) +{ + if (uacpi_unlikely_error(upgrade_to_opregion_lock())) + return; + + region_uninstall_handler(node, UNREG_YES); + + uacpi_recursive_lock_release(&g_opregion_lock); +} + +uacpi_bool uacpi_address_space_handler_is_default( + uacpi_address_space_handler *handler +) +{ + return handler->flags & UACPI_ADDRESS_SPACE_HANDLER_DEFAULT; +} + +enum opregion_iter_action { + OPREGION_ITER_ACTION_UNINSTALL, + OPREGION_ITER_ACTION_INSTALL, +}; + +struct opregion_iter_ctx { + enum opregion_iter_action action; + uacpi_address_space_handler *handler; +}; + +static uacpi_iteration_decision do_install_or_uninstall_handler( + uacpi_handle opaque, uacpi_namespace_node *node, uacpi_u32 depth +) +{ + struct opregion_iter_ctx *ctx = opaque; + uacpi_address_space_handlers *handlers; + uacpi_object *object; + + UACPI_UNUSED(depth); + + object = uacpi_namespace_node_get_object(node); + if (object->type == UACPI_OBJECT_OPERATION_REGION) { + uacpi_operation_region *region = object->op_region; + + if (region->space != ctx->handler->space) + return UACPI_ITERATION_DECISION_CONTINUE; + + if (ctx->action == OPREGION_ITER_ACTION_INSTALL) { + if (region->handler) + region_uninstall_handler(node, UNREG_NO); + + region_install_handler(node, ctx->handler); + } else { + if (uacpi_unlikely(region->handler != ctx->handler)) { + uacpi_trace_region_error( + node, "handler mismatch for", + UACPI_STATUS_INTERNAL_ERROR + ); + return UACPI_ITERATION_DECISION_CONTINUE; + } + + region_uninstall_handler(node, UNREG_NO); + } + + return UACPI_ITERATION_DECISION_CONTINUE; + } + + handlers = uacpi_node_get_address_space_handlers(node); + if (handlers == UACPI_NULL) + return UACPI_ITERATION_DECISION_CONTINUE; + + // Device already has a handler for this space installed + if (find_handler(handlers, ctx->handler->space) != UACPI_NULL) + return UACPI_ITERATION_DECISION_NEXT_PEER; + + return UACPI_ITERATION_DECISION_CONTINUE; +} + +struct reg_run_ctx { + uacpi_u8 space; + uacpi_u8 connection_code; + uacpi_size reg_executed; + uacpi_size reg_errors; +}; + +static uacpi_iteration_decision do_run_reg( + void *opaque, uacpi_namespace_node *node, uacpi_u32 depth +) +{ + struct reg_run_ctx *ctx = opaque; + uacpi_operation_region *region; + uacpi_status ret; + uacpi_bool was_regged; + + UACPI_UNUSED(depth); + + region = uacpi_namespace_node_get_object(node)->op_region; + + if (region->space != ctx->space) + return UACPI_ITERATION_DECISION_CONTINUE; + + was_regged = region->state_flags & UACPI_OP_REGION_STATE_REG_EXECUTED; + if (was_regged == (ctx->connection_code == ACPI_REG_CONNECT)) + return UACPI_ITERATION_DECISION_CONTINUE; + + ret = region_run_reg(node, ctx->connection_code); + if (ctx->connection_code == ACPI_REG_DISCONNECT) + region->state_flags &= ~UACPI_OP_REGION_STATE_REG_EXECUTED; + + if (ret == UACPI_STATUS_NOT_FOUND) + return UACPI_ITERATION_DECISION_CONTINUE; + + if (ctx->connection_code == ACPI_REG_CONNECT) + region->state_flags |= UACPI_OP_REGION_STATE_REG_EXECUTED; + + ctx->reg_executed++; + + if (uacpi_unlikely_error(ret)) { + ctx->reg_errors++; + return UACPI_ITERATION_DECISION_CONTINUE; + } + + return UACPI_ITERATION_DECISION_CONTINUE; +} + +static uacpi_status reg_or_unreg_all_opregions( + uacpi_namespace_node *device_node, enum uacpi_address_space space, + uacpi_u8 connection_code +) +{ + uacpi_address_space_handlers *handlers; + uacpi_bool is_connect; + enum uacpi_permanent_only perm_only; + struct reg_run_ctx ctx = { 0 }; + + ctx.space = space; + ctx.connection_code = connection_code; + + handlers = uacpi_node_get_address_space_handlers(device_node); + if (uacpi_unlikely(handlers == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + is_connect = connection_code == ACPI_REG_CONNECT; + if (uacpi_unlikely(is_connect && + find_handler(handlers, space) == UACPI_NULL)) + return UACPI_STATUS_NO_HANDLER; + + /* + * We want to unreg non-permanent opregions as well, however, + * registering them is handled separately and should not be + * done by us. + */ + perm_only = is_connect ? UACPI_PERMANENT_ONLY_YES : UACPI_PERMANENT_ONLY_NO; + + uacpi_namespace_do_for_each_child( + device_node, do_run_reg, UACPI_NULL, + UACPI_OBJECT_OPERATION_REGION_BIT, UACPI_MAX_DEPTH_ANY, + UACPI_SHOULD_LOCK_NO, perm_only, &ctx + ); + + uacpi_trace( + "%sactivated all '%s' opregions controlled by '%.4s', " + "%zu _REG() calls (%zu errors)\n", + connection_code == ACPI_REG_CONNECT ? "" : "de", + uacpi_address_space_to_string(space), + device_node->name.text, ctx.reg_executed, ctx.reg_errors + ); + return UACPI_STATUS_OK; +} + +static uacpi_address_space_handlers *extract_handlers( + uacpi_namespace_node *node +) +{ + uacpi_object *handlers_obj; + + if (node == uacpi_namespace_root()) + return g_uacpi_rt_ctx.root_object->address_space_handlers; + + handlers_obj = uacpi_namespace_node_get_object_typed( + node, + UACPI_OBJECT_DEVICE_BIT | UACPI_OBJECT_THERMAL_ZONE_BIT | + UACPI_OBJECT_PROCESSOR_BIT + ); + if (uacpi_unlikely(handlers_obj == UACPI_NULL)) + return UACPI_NULL; + + return handlers_obj->address_space_handlers; +} + +uacpi_status uacpi_reg_all_opregions( + uacpi_namespace_node *device_node, + enum uacpi_address_space space +) +{ + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + if (!space_needs_reg(space)) + return UACPI_STATUS_OK; + + ret = uacpi_recursive_lock_acquire(&g_opregion_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_namespace_write_lock(); + if (uacpi_unlikely_error(ret)) { + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; + } + + if (uacpi_unlikely(extract_handlers(device_node) == UACPI_NULL)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + ret = reg_or_unreg_all_opregions(device_node, space, ACPI_REG_CONNECT); + +out: + uacpi_namespace_write_unlock(); + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; +} + +uacpi_status uacpi_install_address_space_handler_with_flags( + uacpi_namespace_node *device_node, enum uacpi_address_space space, + uacpi_region_handler handler, uacpi_handle handler_context, + uacpi_u16 flags +) +{ + uacpi_status ret; + uacpi_address_space_handlers *handlers; + uacpi_address_space_handler *this_handler, *new_handler; + struct opregion_iter_ctx iter_ctx; + + ret = uacpi_recursive_lock_acquire(&g_opregion_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_namespace_write_lock(); + if (uacpi_unlikely_error(ret)) { + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; + } + + handlers = extract_handlers(device_node); + if (uacpi_unlikely(handlers == UACPI_NULL)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + this_handler = find_handler(handlers, space); + if (this_handler != UACPI_NULL) { + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + + new_handler = uacpi_kernel_alloc(sizeof(*new_handler)); + if (new_handler == UACPI_NULL) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + uacpi_shareable_init(new_handler); + + new_handler->next = handlers->head; + new_handler->space = space; + new_handler->user_context = handler_context; + new_handler->callback = handler; + new_handler->regions = UACPI_NULL; + new_handler->flags = flags; + handlers->head = new_handler; + + iter_ctx.handler = new_handler; + iter_ctx.action = OPREGION_ITER_ACTION_INSTALL; + + uacpi_namespace_do_for_each_child( + device_node, do_install_or_uninstall_handler, UACPI_NULL, + UACPI_OBJECT_ANY_BIT, UACPI_MAX_DEPTH_ANY, UACPI_SHOULD_LOCK_NO, + UACPI_PERMANENT_ONLY_YES, &iter_ctx + ); + + if (!space_needs_reg(space)) + goto out; + + /* + * Installing an early address space handler, obviously not possible to + * execute any _REG methods here. Just return and hope that it is either + * a global address space handler, or a handler installed by a user who + * will run uacpi_reg_all_opregions manually after loading/initializing + * the namespace. + */ + if (g_uacpi_rt_ctx.init_level < UACPI_INIT_LEVEL_NAMESPACE_LOADED) + goto out; + + // Init level is NAMESPACE_INITIALIZED, so we can safely run _REG now + ret = reg_or_unreg_all_opregions( + device_node, space, ACPI_REG_CONNECT + ); + +out: + uacpi_namespace_write_unlock(); + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; +} + +uacpi_status uacpi_install_address_space_handler( + uacpi_namespace_node *device_node, enum uacpi_address_space space, + uacpi_region_handler handler, uacpi_handle handler_context +) +{ + return uacpi_install_address_space_handler_with_flags( + device_node, space, handler, handler_context, 0 + ); +} + +uacpi_status uacpi_uninstall_address_space_handler( + uacpi_namespace_node *device_node, + enum uacpi_address_space space +) +{ + uacpi_status ret; + uacpi_address_space_handlers *handlers; + uacpi_address_space_handler *handler = UACPI_NULL, *prev_handler; + struct opregion_iter_ctx iter_ctx; + + ret = uacpi_recursive_lock_acquire(&g_opregion_lock); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_namespace_write_lock(); + if (uacpi_unlikely_error(ret)) { + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; + } + + handlers = extract_handlers(device_node); + if (uacpi_unlikely(handlers == UACPI_NULL)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + handler = find_handler(handlers, space); + if (uacpi_unlikely(handler == UACPI_NULL)) { + ret = UACPI_STATUS_NO_HANDLER; + goto out; + } + + iter_ctx.handler = handler; + iter_ctx.action = OPREGION_ITER_ACTION_UNINSTALL; + + uacpi_namespace_do_for_each_child( + device_node, do_install_or_uninstall_handler, UACPI_NULL, + UACPI_OBJECT_ANY_BIT, UACPI_MAX_DEPTH_ANY, UACPI_SHOULD_LOCK_NO, + UACPI_PERMANENT_ONLY_NO, &iter_ctx + ); + + prev_handler = handlers->head; + + // Are we the last linked handler? + if (prev_handler == handler) { + handlers->head = handler->next; + goto out_unreg; + } + + // Nope, we're somewhere in the middle. Do a search. + while (prev_handler) { + if (prev_handler->next == handler) { + prev_handler->next = handler->next; + goto out; + } + + prev_handler = prev_handler->next; + } + +out_unreg: + if (space_needs_reg(space)) + reg_or_unreg_all_opregions(device_node, space, ACPI_REG_DISCONNECT); + +out: + if (handler != UACPI_NULL) + uacpi_address_space_handler_unref(handler); + + uacpi_namespace_write_unlock(); + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; +} + +uacpi_status uacpi_initialize_opregion_node(uacpi_namespace_node *node) +{ + uacpi_status ret; + uacpi_namespace_node *parent = node->parent; + uacpi_operation_region *region; + uacpi_address_space_handlers *handlers; + uacpi_address_space_handler *handler; + + ret = upgrade_to_opregion_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + region = uacpi_namespace_node_get_object(node)->op_region; + ret = UACPI_STATUS_NOT_FOUND; + + while (parent) { + handlers = uacpi_node_get_address_space_handlers(parent); + if (handlers != UACPI_NULL) { + handler = find_handler(handlers, region->space); + + if (handler != UACPI_NULL) { + region_install_handler(node, handler); + ret = UACPI_STATUS_OK; + break; + } + } + + parent = parent->parent; + } + + if (ret != UACPI_STATUS_OK) + goto out; + if (!space_needs_reg(region->space)) + goto out; + if (uacpi_get_current_init_level() < UACPI_INIT_LEVEL_NAMESPACE_LOADED) + goto out; + + if (region_run_reg(node, ACPI_REG_CONNECT) != UACPI_STATUS_NOT_FOUND) + region->state_flags |= UACPI_OP_REGION_STATE_REG_EXECUTED; + +out: + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; +} + +uacpi_bool uacpi_is_buffer_access_address_space(uacpi_address_space space) +{ + switch (space) { + case UACPI_ADDRESS_SPACE_SMBUS: + case UACPI_ADDRESS_SPACE_IPMI: + case UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS: + case UACPI_ADDRESS_SPACE_PRM: + case UACPI_ADDRESS_SPACE_FFIXEDHW: + return UACPI_TRUE; + default: + return UACPI_FALSE; + } +} + +static uacpi_bool space_needs_bounds_checking(uacpi_address_space space) +{ + return !uacpi_is_buffer_access_address_space(space) && + space != UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO; +} + +uacpi_status uacpi_dispatch_opregion_io( + uacpi_field_unit *field, uacpi_u32 offset, uacpi_region_op op, + union uacpi_opregion_io_data data +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_operation_region *region; + uacpi_address_space_handler *handler; + uacpi_address_space space; + uacpi_u64 abs_offset, offset_end = offset; + uacpi_bool is_oob = UACPI_FALSE; + uacpi_region_op orig_op = op; + + union { + uacpi_region_rw_data rw; + uacpi_region_pcc_send_data pcc; + uacpi_region_gpio_rw_data gpio; + uacpi_region_ipmi_rw_data ipmi; + uacpi_region_ffixedhw_rw_data ffixedhw; + uacpi_region_prm_rw_data prm; + uacpi_region_serial_rw_data serial; + } handler_data; + + ret = upgrade_to_opregion_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_opregion_attach(field->region); + if (uacpi_unlikely_error(ret)) { + uacpi_trace_region_error( + field->region, "unable to attach", ret + ); + goto out; + } + + obj = uacpi_namespace_node_get_object_typed( + field->region, UACPI_OBJECT_OPERATION_REGION_BIT + ); + if (uacpi_unlikely(obj == UACPI_NULL)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + region = obj->op_region; + space = region->space; + handler = region->handler; + + abs_offset = region->offset + offset; + offset_end += field->access_width_bytes; + + if (uacpi_likely(space_needs_bounds_checking(region->space))) + is_oob = region->length < offset_end || abs_offset < offset; + if (uacpi_unlikely(is_oob)) { + const uacpi_char *path; + + path = uacpi_namespace_node_generate_absolute_path(field->region); + uacpi_error( + "out-of-bounds access to opregion %s[0x%"UACPI_PRIX64"->" + "0x%"UACPI_PRIX64"] at 0x%"UACPI_PRIX64" (idx=%u, width=%d)\n", + path, UACPI_FMT64(region->offset), + UACPI_FMT64(region->offset + region->length), + UACPI_FMT64(abs_offset), offset, field->access_width_bytes + ); + uacpi_free_dynamic_string(path); + ret = UACPI_STATUS_AML_OUT_OF_BOUNDS_INDEX; + goto out; + } + + handler_data.rw.region_context = region->user_context; + handler_data.rw.handler_context = handler->user_context; + + switch (region->space) { + case UACPI_ADDRESS_SPACE_PCC: { + uacpi_u8 *cursor; + + cursor = region->internal_buffer + offset; + + /* + * Reads from PCC just return the current contents of the internal + * buffer. + */ + if (op == UACPI_REGION_OP_READ) { + uacpi_memcpy_zerout( + data.integer, cursor, sizeof(*data.integer), + field->access_width_bytes + ); + goto io_done; + } + + uacpi_memcpy(cursor, data.integer, field->access_width_bytes); + + /* + * Dispatch a PCC send command if this was a write to the command field + * + * ACPI 6.5: 14.3. Extended PCC Subspace Shared Memory Region + */ + if (offset >= 12 && offset < 16) { + uacpi_memzero(&handler_data.pcc.buffer, sizeof(handler_data.pcc.buffer)); + handler_data.pcc.buffer.bytes = region->internal_buffer; + handler_data.pcc.buffer.length = region->length; + + op = UACPI_REGION_OP_PCC_SEND; + break; + } + + // No dispatch needed, IO is done + goto io_done; + } + case UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO: + handler_data.gpio.pin_offset = field->pin_offset; + handler_data.gpio.num_pins = field->bit_length; + handler_data.gpio.value = *data.integer; + + ret = uacpi_object_get_string_or_buffer( + field->connection, &handler_data.gpio.connection + ); + if (uacpi_unlikely_error(ret)) + goto io_done; + + op = op == UACPI_REGION_OP_READ ? + UACPI_REGION_OP_GPIO_READ : UACPI_REGION_OP_GPIO_WRITE; + break; + case UACPI_ADDRESS_SPACE_IPMI: + handler_data.ipmi.in_out_message = data.buffer; + handler_data.ipmi.command = abs_offset; + op = UACPI_REGION_OP_IPMI_COMMAND; + break; + case UACPI_ADDRESS_SPACE_FFIXEDHW: + handler_data.ffixedhw.in_out_message = data.buffer; + handler_data.ffixedhw.command = abs_offset; + op = UACPI_REGION_OP_FFIXEDHW_COMMAND; + break; + case UACPI_ADDRESS_SPACE_PRM: + handler_data.prm.in_out_message = data.buffer; + op = UACPI_REGION_OP_PRM_COMMAND; + break; + case UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS: + case UACPI_ADDRESS_SPACE_SMBUS: + ret = uacpi_object_get_string_or_buffer( + field->connection, &handler_data.serial.connection + ); + if (uacpi_unlikely_error(ret)) + goto io_done; + + handler_data.serial.command = abs_offset; + handler_data.serial.in_out_buffer = data.buffer; + handler_data.serial.access_attribute = field->attributes; + + switch (field->attributes) { + case UACPI_ACCESS_ATTRIBUTE_BYTES: + case UACPI_ACCESS_ATTRIBUTE_RAW_BYTES: + case UACPI_ACCESS_ATTRIBUTE_RAW_PROCESS_BYTES: + handler_data.serial.access_length = field->access_length; + break; + default: + handler_data.serial.access_length = 0; + } + + op = op == UACPI_REGION_OP_READ ? + UACPI_REGION_OP_SERIAL_READ : UACPI_REGION_OP_SERIAL_WRITE; + break; + default: + handler_data.rw.byte_width = field->access_width_bytes; + handler_data.rw.offset = abs_offset; + handler_data.rw.value = *data.integer; + break; + } + + uacpi_object_ref(obj); + uacpi_namespace_write_unlock(); + + ret = handler->callback(op, &handler_data); + + uacpi_namespace_write_lock(); + uacpi_object_unref(obj); + +io_done: + if (uacpi_unlikely_error(ret)) { + uacpi_trace_region_error(field->region, "unable to perform IO", ret); + goto out; + } + + if (orig_op == UACPI_REGION_OP_READ) { + switch (region->space) { + case UACPI_ADDRESS_SPACE_PCC: + case UACPI_ADDRESS_SPACE_IPMI: + case UACPI_ADDRESS_SPACE_FFIXEDHW: + case UACPI_ADDRESS_SPACE_PRM: + case UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS: + case UACPI_ADDRESS_SPACE_SMBUS: + break; + case UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO: + *data.integer = handler_data.gpio.value; + break; + default: + *data.integer = handler_data.rw.value; + break; + } + } + + trace_region_io(field, space, abs_offset, orig_op, data); + +out: + uacpi_recursive_lock_release(&g_opregion_lock); + return ret; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/osi.c b/kernel/hal/x86_64/uACPI/source/osi.c new file mode 100644 index 0000000..0940261 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/osi.c @@ -0,0 +1,388 @@ +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +struct registered_interface { + const uacpi_char *name; + uacpi_u8 weight; + uacpi_u8 kind; + + // Only applicable for predefined host interfaces + uacpi_u8 host_type; + + // Only applicable for predefined interfaces + uacpi_u8 disabled : 1; + uacpi_u8 dynamic : 1; + + struct registered_interface *next; +}; + +static uacpi_handle interface_mutex; +static struct registered_interface *registered_interfaces; +static uacpi_interface_handler interface_handler; +static uacpi_u32 latest_queried_interface; + +#define WINDOWS(string, interface) \ + { \ + .name = "Windows "string, \ + .weight = UACPI_VENDOR_INTERFACE_WINDOWS_##interface, \ + .kind = UACPI_INTERFACE_KIND_VENDOR, \ + .host_type = 0, \ + .disabled = 0, \ + .dynamic = 0, \ + .next = UACPI_NULL \ + } + +#define HOST_FEATURE(string, type) \ + { \ + .name = string, \ + .weight = 0, \ + .kind = UACPI_INTERFACE_KIND_FEATURE, \ + .host_type = UACPI_HOST_INTERFACE_##type, \ + .disabled = 1, \ + .dynamic = 0, \ + .next = UACPI_NULL, \ + } + +static struct registered_interface predefined_interfaces[] = { + // Vendor strings + WINDOWS("2000", 2000), + WINDOWS("2001", XP), + WINDOWS("2001 SP1", XP_SP1), + WINDOWS("2001.1", SERVER_2003), + WINDOWS("2001 SP2", XP_SP2), + WINDOWS("2001.1 SP1", SERVER_2003_SP1), + WINDOWS("2006", VISTA), + WINDOWS("2006.1", SERVER_2008), + WINDOWS("2006 SP1", VISTA_SP1), + WINDOWS("2006 SP2", VISTA_SP2), + WINDOWS("2009", 7), + WINDOWS("2012", 8), + WINDOWS("2013", 8_1), + WINDOWS("2015", 10), + WINDOWS("2016", 10_RS1), + WINDOWS("2017", 10_RS2), + WINDOWS("2017.2", 10_RS3), + WINDOWS("2018", 10_RS4), + WINDOWS("2018.2", 10_RS5), + WINDOWS("2019", 10_19H1), + WINDOWS("2020", 10_20H1), + WINDOWS("2021", 11), + WINDOWS("2022", 11_22H2), + + // Feature strings + HOST_FEATURE("Module Device", MODULE_DEVICE), + HOST_FEATURE("Processor Device", PROCESSOR_DEVICE), + HOST_FEATURE("3.0 Thermal Model", 3_0_THERMAL_MODEL), + HOST_FEATURE("3.0 _SCP Extensions", 3_0_SCP_EXTENSIONS), + HOST_FEATURE("Processor Aggregator Device", PROCESSOR_AGGREGATOR_DEVICE), + + // Interpreter features + { .name = "Extended Address Space Descriptor" }, +}; + +uacpi_status uacpi_initialize_interfaces(void) +{ + uacpi_size i; + + registered_interfaces = &predefined_interfaces[0]; + + interface_mutex = uacpi_kernel_create_mutex(); + if (uacpi_unlikely(interface_mutex == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + for (i = 0; i < (UACPI_ARRAY_SIZE(predefined_interfaces) - 1); ++i) + predefined_interfaces[i].next = &predefined_interfaces[i + 1]; + + return UACPI_STATUS_OK; +} + +void uacpi_deinitialize_interfaces(void) +{ + struct registered_interface *iface, *next_iface = registered_interfaces; + + while (next_iface) { + iface = next_iface; + next_iface = iface->next; + + iface->next = UACPI_NULL; + + if (iface->dynamic) { + uacpi_free_dynamic_string(iface->name); + uacpi_free(iface, sizeof(*iface)); + continue; + } + + // Only features are disabled by default + iface->disabled = iface->kind == UACPI_INTERFACE_KIND_FEATURE ? + UACPI_TRUE : UACPI_FALSE; + } + + if (interface_mutex) + uacpi_kernel_free_mutex(interface_mutex); + + interface_mutex = UACPI_NULL; + interface_handler = UACPI_NULL; + latest_queried_interface = 0; + registered_interfaces = UACPI_NULL; +} + +uacpi_vendor_interface uacpi_latest_queried_vendor_interface(void) +{ + return uacpi_atomic_load32(&latest_queried_interface); +} + +static struct registered_interface *find_interface_unlocked( + const uacpi_char *name +) +{ + struct registered_interface *interface = registered_interfaces; + + while (interface) { + if (uacpi_strcmp(interface->name, name) == 0) + return interface; + + interface = interface->next; + } + + return UACPI_NULL; +} + +static struct registered_interface *find_host_interface_unlocked( + uacpi_host_interface type +) +{ + struct registered_interface *interface = registered_interfaces; + + while (interface) { + if (interface->host_type == type) + return interface; + + interface = interface->next; + } + + return UACPI_NULL; +} + +uacpi_status uacpi_install_interface( + const uacpi_char *name, uacpi_interface_kind kind +) +{ + struct registered_interface *interface; + uacpi_status ret; + uacpi_char *name_copy; + uacpi_size name_size; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = uacpi_acquire_native_mutex(interface_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + interface = find_interface_unlocked(name); + if (interface != UACPI_NULL) { + if (interface->disabled) + interface->disabled = UACPI_FALSE; + + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + + interface = uacpi_kernel_alloc(sizeof(*interface)); + if (uacpi_unlikely(interface == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + + name_size = uacpi_strlen(name) + 1; + name_copy = uacpi_kernel_alloc(name_size); + if (uacpi_unlikely(name_copy == UACPI_NULL)) { + uacpi_free(interface, sizeof(*interface)); + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + + uacpi_memcpy(name_copy, name, name_size); + interface->name = name_copy; + interface->weight = 0; + interface->kind = kind; + interface->host_type = 0; + interface->disabled = 0; + interface->dynamic = 1; + interface->next = registered_interfaces; + registered_interfaces = interface; + +out: + uacpi_release_native_mutex(interface_mutex); + return ret; +} + +uacpi_status uacpi_uninstall_interface(const uacpi_char *name) +{ + struct registered_interface *cur, *prev; + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = uacpi_acquire_native_mutex(interface_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + cur = registered_interfaces; + prev = cur; + + ret = UACPI_STATUS_NOT_FOUND; + while (cur) { + if (uacpi_strcmp(cur->name, name) != 0) { + prev = cur; + cur = cur->next; + continue; + } + + if (cur->dynamic) { + if (prev == cur) { + registered_interfaces = cur->next; + } else { + prev->next = cur->next; + } + + uacpi_release_native_mutex(interface_mutex); + uacpi_free_dynamic_string(cur->name); + uacpi_free(cur, sizeof(*cur)); + return UACPI_STATUS_OK; + } + + /* + * If this interface was already disabled, pretend we didn't actually + * find it and keep ret as UACPI_STATUS_NOT_FOUND. The fact that it's + * still in the registered list is an implementation detail of + * predefined interfaces. + */ + if (!cur->disabled) { + cur->disabled = UACPI_TRUE; + ret = UACPI_STATUS_OK; + } + + break; + } + + uacpi_release_native_mutex(interface_mutex); + return ret; +} + +static uacpi_status configure_host_interface( + uacpi_host_interface type, uacpi_bool enabled +) +{ + struct registered_interface *interface; + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = uacpi_acquire_native_mutex(interface_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + interface = find_host_interface_unlocked(type); + if (interface == UACPI_NULL) { + ret = UACPI_STATUS_NOT_FOUND; + goto out; + } + + interface->disabled = !enabled; +out: + uacpi_release_native_mutex(interface_mutex); + return ret; +} + +uacpi_status uacpi_enable_host_interface(uacpi_host_interface type) +{ + return configure_host_interface(type, UACPI_TRUE); +} + +uacpi_status uacpi_disable_host_interface(uacpi_host_interface type) +{ + return configure_host_interface(type, UACPI_FALSE); +} + +uacpi_status uacpi_set_interface_query_handler( + uacpi_interface_handler handler +) +{ + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = uacpi_acquire_native_mutex(interface_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + if (interface_handler != UACPI_NULL && handler != UACPI_NULL) { + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + + interface_handler = handler; +out: + uacpi_release_native_mutex(interface_mutex); + return ret; +} + +uacpi_status uacpi_bulk_configure_interfaces( + uacpi_interface_action action, uacpi_interface_kind kind +) +{ + uacpi_status ret; + struct registered_interface *interface; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = uacpi_acquire_native_mutex(interface_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + interface = registered_interfaces; + while (interface) { + if (kind & interface->kind) + interface->disabled = (action == UACPI_INTERFACE_ACTION_DISABLE); + + interface = interface->next; + } + + uacpi_release_native_mutex(interface_mutex); + return ret; +} + +uacpi_status uacpi_handle_osi(const uacpi_char *string, uacpi_bool *out_value) +{ + uacpi_status ret; + struct registered_interface *interface; + uacpi_bool is_supported = UACPI_FALSE; + + ret = uacpi_acquire_native_mutex(interface_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + interface = find_interface_unlocked(string); + if (interface == UACPI_NULL) + goto out; + + if (interface->weight > latest_queried_interface) + uacpi_atomic_store32(&latest_queried_interface, interface->weight); + + is_supported = !interface->disabled; + if (interface_handler) + is_supported = interface_handler(string, is_supported); +out: + uacpi_release_native_mutex(interface_mutex); + *out_value = is_supported; + return UACPI_STATUS_OK; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/registers.c b/kernel/hal/x86_64/uACPI/source/registers.c new file mode 100644 index 0000000..a52ce97 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/registers.c @@ -0,0 +1,572 @@ +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +static uacpi_handle g_reg_lock; + +enum register_kind { + REGISTER_KIND_GAS, + REGISTER_KIND_IO, +}; + +enum register_access_kind { + REGISTER_ACCESS_KIND_PRESERVE, + REGISTER_ACCESS_KIND_WRITE_TO_CLEAR, + REGISTER_ACCESS_KIND_NORMAL, +}; + +struct register_spec { + uacpi_u8 kind; + uacpi_u8 access_kind; + uacpi_u8 access_width; // only REGISTER_KIND_IO + void *accessors[2]; + uacpi_u64 write_only_mask; + uacpi_u64 preserve_mask; +}; + +static const struct register_spec g_registers[UACPI_REGISTER_MAX + 1] = { + [UACPI_REGISTER_PM1_STS] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_WRITE_TO_CLEAR, + .accessors = { + &g_uacpi_rt_ctx.pm1a_status_blk, + &g_uacpi_rt_ctx.pm1b_status_blk, + }, + .preserve_mask = ACPI_PM1_STS_IGN0_MASK, + }, + [UACPI_REGISTER_PM1_EN] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_PRESERVE, + .accessors = { + &g_uacpi_rt_ctx.pm1a_enable_blk, + &g_uacpi_rt_ctx.pm1b_enable_blk, + }, + }, + [UACPI_REGISTER_PM1_CNT] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_PRESERVE, + .accessors = { + &g_uacpi_rt_ctx.fadt.x_pm1a_cnt_blk, + &g_uacpi_rt_ctx.fadt.x_pm1b_cnt_blk, + }, + .write_only_mask = ACPI_PM1_CNT_SLP_EN_MASK | + ACPI_PM1_CNT_GBL_RLS_MASK, + .preserve_mask = ACPI_PM1_CNT_PRESERVE_MASK, + }, + [UACPI_REGISTER_PM_TMR] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_PRESERVE, + .accessors = { &g_uacpi_rt_ctx.fadt.x_pm_tmr_blk, }, + }, + [UACPI_REGISTER_PM2_CNT] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_PRESERVE, + .accessors = { &g_uacpi_rt_ctx.fadt.x_pm2_cnt_blk, }, + .preserve_mask = ACPI_PM2_CNT_PRESERVE_MASK, + }, + [UACPI_REGISTER_SLP_CNT] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_PRESERVE, + .accessors = { &g_uacpi_rt_ctx.fadt.sleep_control_reg, }, + .write_only_mask = ACPI_SLP_CNT_SLP_EN_MASK, + .preserve_mask = ACPI_SLP_CNT_PRESERVE_MASK, + }, + [UACPI_REGISTER_SLP_STS] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_WRITE_TO_CLEAR, + .accessors = { &g_uacpi_rt_ctx.fadt.sleep_status_reg, }, + .preserve_mask = ACPI_SLP_STS_PRESERVE_MASK, + }, + [UACPI_REGISTER_RESET] = { + .kind = REGISTER_KIND_GAS, + .access_kind = REGISTER_ACCESS_KIND_NORMAL, + .accessors = { &g_uacpi_rt_ctx.fadt.reset_reg, }, + }, + [UACPI_REGISTER_SMI_CMD] = { + .kind = REGISTER_KIND_IO, + .access_kind = REGISTER_ACCESS_KIND_NORMAL, + .access_width = 1, + .accessors = { &g_uacpi_rt_ctx.fadt.smi_cmd, }, + }, +}; + +enum register_mapping_state { + REGISTER_MAPPING_STATE_NONE = 0, + REGISTER_MAPPING_STATE_NOT_NEEDED, + REGISTER_MAPPING_STATE_MAPPED, +}; + +struct register_mapping { + uacpi_mapped_gas mappings[2]; + uacpi_u8 states[2]; +}; +static struct register_mapping g_register_mappings[UACPI_REGISTER_MAX + 1]; + +static uacpi_status map_one( + const struct register_spec *spec, struct register_mapping *mapping, + uacpi_u8 idx +) +{ + uacpi_status ret = UACPI_STATUS_OK; + + if (mapping->states[idx] != REGISTER_MAPPING_STATE_NONE) + return ret; + + if (spec->kind == REGISTER_KIND_GAS) { + struct acpi_gas *gas = spec->accessors[idx]; + + if (gas == UACPI_NULL || gas->address == 0) { + mapping->states[idx] = REGISTER_MAPPING_STATE_NOT_NEEDED; + return ret; + } + + ret = uacpi_map_gas_noalloc(gas, &mapping->mappings[idx]); + } else { + struct acpi_gas temp_gas = { 0 }; + + if (idx != 0) { + mapping->states[idx] = REGISTER_MAPPING_STATE_NOT_NEEDED; + return ret; + } + + temp_gas.address_space_id = UACPI_ADDRESS_SPACE_SYSTEM_IO; + temp_gas.address = *(uacpi_u32*)spec->accessors[0]; + temp_gas.register_bit_width = spec->access_width * 8; + + ret = uacpi_map_gas_noalloc(&temp_gas, &mapping->mappings[idx]); + } + + if (uacpi_likely_success(ret)) + mapping->states[idx] = REGISTER_MAPPING_STATE_MAPPED; + + return ret; +} + +static uacpi_status ensure_register_mapped( + const struct register_spec *spec, struct register_mapping *mapping +) +{ + uacpi_status ret; + uacpi_bool needs_mapping = UACPI_FALSE; + uacpi_u8 state; + uacpi_cpu_flags flags; + + state = uacpi_atomic_load8(&mapping->states[0]); + needs_mapping |= state == REGISTER_MAPPING_STATE_NONE; + + state = uacpi_atomic_load8(&mapping->states[1]); + needs_mapping |= state == REGISTER_MAPPING_STATE_NONE; + + if (!needs_mapping) + return UACPI_STATUS_OK; + + flags = uacpi_kernel_lock_spinlock(g_reg_lock); + + ret = map_one(spec, mapping, 0); + if (uacpi_unlikely_error(ret)) + goto out; + + ret = map_one(spec, mapping, 1); +out: + uacpi_kernel_unlock_spinlock(g_reg_lock, flags); + return ret; +} + +static uacpi_status get_reg( + uacpi_u8 idx, const struct register_spec **out_spec, + struct register_mapping **out_mapping +) +{ + if (idx > UACPI_REGISTER_MAX) + return UACPI_STATUS_INVALID_ARGUMENT; + + *out_spec = &g_registers[idx]; + *out_mapping = &g_register_mappings[idx]; + return UACPI_STATUS_OK; +} + +static uacpi_status do_read_one( + struct register_mapping *mapping, uacpi_u8 idx, uacpi_u64 *out_value +) +{ + if (mapping->states[idx] != REGISTER_MAPPING_STATE_MAPPED) + return UACPI_STATUS_OK; + + return uacpi_gas_read_mapped(&mapping->mappings[idx], out_value); +} + +static uacpi_status do_read_register( + const struct register_spec *reg, struct register_mapping *mapping, + uacpi_u64 *out_value +) +{ + uacpi_status ret; + uacpi_u64 value0 = 0, value1 = 0; + + ret = do_read_one(mapping, 0, &value0); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = do_read_one(mapping, 1, &value1); + if (uacpi_unlikely_error(ret)) + return ret; + + *out_value = value0 | value1; + if (reg->write_only_mask) + *out_value &= ~reg->write_only_mask; + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_read_register( + enum uacpi_register reg_enum, uacpi_u64 *out_value +) +{ + uacpi_status ret; + const struct register_spec *reg; + struct register_mapping *mapping; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = get_reg(reg_enum, ®, &mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = ensure_register_mapped(reg, mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + return do_read_register(reg, mapping, out_value); +} + +static uacpi_status do_write_one( + struct register_mapping *mapping, uacpi_u8 idx, uacpi_u64 in_value +) +{ + if (mapping->states[idx] != REGISTER_MAPPING_STATE_MAPPED) + return UACPI_STATUS_OK; + + return uacpi_gas_write_mapped(&mapping->mappings[idx], in_value); +} + +static uacpi_status do_write_register( + const struct register_spec *reg, struct register_mapping *mapping, + uacpi_u64 in_value +) +{ + uacpi_status ret; + + if (reg->preserve_mask) { + in_value &= ~reg->preserve_mask; + + if (reg->access_kind == REGISTER_ACCESS_KIND_PRESERVE) { + uacpi_u64 data; + + ret = do_read_register(reg, mapping, &data); + if (uacpi_unlikely_error(ret)) + return ret; + + in_value |= data & reg->preserve_mask; + } + } + + ret = do_write_one(mapping, 0, in_value); + if (uacpi_unlikely_error(ret)) + return ret; + + return do_write_one(mapping, 1, in_value); +} + +uacpi_status uacpi_write_register( + enum uacpi_register reg_enum, uacpi_u64 in_value +) +{ + uacpi_status ret; + const struct register_spec *reg; + struct register_mapping *mapping; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = get_reg(reg_enum, ®, &mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = ensure_register_mapped(reg, mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + return do_write_register(reg, mapping, in_value); +} + +uacpi_status uacpi_write_registers( + enum uacpi_register reg_enum, uacpi_u64 in_value0, uacpi_u64 in_value1 +) +{ + uacpi_status ret; + const struct register_spec *reg; + struct register_mapping *mapping; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + ret = get_reg(reg_enum, ®, &mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = ensure_register_mapped(reg, mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = do_write_one(mapping, 0, in_value0); + if (uacpi_unlikely_error(ret)) + return ret; + + return do_write_one(mapping, 1, in_value1); +} + +struct register_field { + uacpi_u8 reg; + uacpi_u8 offset; + uacpi_u16 mask; +}; + +static const struct register_field g_fields[UACPI_REGISTER_FIELD_MAX + 1] = { + [UACPI_REGISTER_FIELD_TMR_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_TMR_STS_IDX, + .mask = ACPI_PM1_STS_TMR_STS_MASK, + }, + [UACPI_REGISTER_FIELD_BM_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_BM_STS_IDX, + .mask = ACPI_PM1_STS_BM_STS_MASK, + }, + [UACPI_REGISTER_FIELD_GBL_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_GBL_STS_IDX, + .mask = ACPI_PM1_STS_GBL_STS_MASK, + }, + [UACPI_REGISTER_FIELD_PWRBTN_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_PWRBTN_STS_IDX, + .mask = ACPI_PM1_STS_PWRBTN_STS_MASK, + }, + [UACPI_REGISTER_FIELD_SLPBTN_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_SLPBTN_STS_IDX, + .mask = ACPI_PM1_STS_SLPBTN_STS_MASK, + }, + [UACPI_REGISTER_FIELD_RTC_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_RTC_STS_IDX, + .mask = ACPI_PM1_STS_RTC_STS_MASK, + }, + [UACPI_REGISTER_FIELD_HWR_WAK_STS] = { + .reg = UACPI_REGISTER_SLP_STS, + .offset = ACPI_SLP_STS_WAK_STS_IDX, + .mask = ACPI_SLP_STS_WAK_STS_MASK, + }, + [UACPI_REGISTER_FIELD_WAK_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_WAKE_STS_IDX, + .mask = ACPI_PM1_STS_WAKE_STS_MASK, + }, + [UACPI_REGISTER_FIELD_PCIEX_WAKE_STS] = { + .reg = UACPI_REGISTER_PM1_STS, + .offset = ACPI_PM1_STS_PCIEXP_WAKE_STS_IDX, + .mask = ACPI_PM1_STS_PCIEXP_WAKE_STS_MASK, + }, + [UACPI_REGISTER_FIELD_TMR_EN] = { + .reg = UACPI_REGISTER_PM1_EN, + .offset = ACPI_PM1_EN_TMR_EN_IDX, + .mask = ACPI_PM1_EN_TMR_EN_MASK, + }, + [UACPI_REGISTER_FIELD_GBL_EN] = { + .reg = UACPI_REGISTER_PM1_EN, + .offset = ACPI_PM1_EN_GBL_EN_IDX, + .mask = ACPI_PM1_EN_GBL_EN_MASK, + }, + [UACPI_REGISTER_FIELD_PWRBTN_EN] = { + .reg = UACPI_REGISTER_PM1_EN, + .offset = ACPI_PM1_EN_PWRBTN_EN_IDX, + .mask = ACPI_PM1_EN_PWRBTN_EN_MASK, + }, + [UACPI_REGISTER_FIELD_SLPBTN_EN] = { + .reg = UACPI_REGISTER_PM1_EN, + .offset = ACPI_PM1_EN_SLPBTN_EN_IDX, + .mask = ACPI_PM1_EN_SLPBTN_EN_MASK, + }, + [UACPI_REGISTER_FIELD_RTC_EN] = { + .reg = UACPI_REGISTER_PM1_EN, + .offset = ACPI_PM1_EN_RTC_EN_IDX, + .mask = ACPI_PM1_EN_RTC_EN_MASK, + }, + [UACPI_REGISTER_FIELD_PCIEXP_WAKE_DIS] = { + .reg = UACPI_REGISTER_PM1_EN, + .offset = ACPI_PM1_EN_PCIEXP_WAKE_DIS_IDX, + .mask = ACPI_PM1_EN_PCIEXP_WAKE_DIS_MASK, + }, + [UACPI_REGISTER_FIELD_SCI_EN] = { + .reg = UACPI_REGISTER_PM1_CNT, + .offset = ACPI_PM1_CNT_SCI_EN_IDX, + .mask = ACPI_PM1_CNT_SCI_EN_MASK, + }, + [UACPI_REGISTER_FIELD_BM_RLD] = { + .reg = UACPI_REGISTER_PM1_CNT, + .offset = ACPI_PM1_CNT_BM_RLD_IDX, + .mask = ACPI_PM1_CNT_BM_RLD_MASK, + }, + [UACPI_REGISTER_FIELD_GBL_RLS] = { + .reg = UACPI_REGISTER_PM1_CNT, + .offset = ACPI_PM1_CNT_GBL_RLS_IDX, + .mask = ACPI_PM1_CNT_GBL_RLS_MASK, + }, + [UACPI_REGISTER_FIELD_SLP_TYP] = { + .reg = UACPI_REGISTER_PM1_CNT, + .offset = ACPI_PM1_CNT_SLP_TYP_IDX, + .mask = ACPI_PM1_CNT_SLP_TYP_MASK, + }, + [UACPI_REGISTER_FIELD_SLP_EN] = { + .reg = UACPI_REGISTER_PM1_CNT, + .offset = ACPI_PM1_CNT_SLP_EN_IDX, + .mask = ACPI_PM1_CNT_SLP_EN_MASK, + }, + [UACPI_REGISTER_FIELD_HWR_SLP_TYP] = { + .reg = UACPI_REGISTER_SLP_CNT, + .offset = ACPI_SLP_CNT_SLP_TYP_IDX, + .mask = ACPI_SLP_CNT_SLP_TYP_MASK, + }, + [UACPI_REGISTER_FIELD_HWR_SLP_EN] = { + .reg = UACPI_REGISTER_SLP_CNT, + .offset = ACPI_SLP_CNT_SLP_EN_IDX, + .mask = ACPI_SLP_CNT_SLP_EN_MASK, + }, + [UACPI_REGISTER_FIELD_ARB_DIS] = { + .reg = UACPI_REGISTER_PM2_CNT, + .offset = ACPI_PM2_CNT_ARB_DIS_IDX, + .mask = ACPI_PM2_CNT_ARB_DIS_MASK, + }, +}; + +uacpi_status uacpi_initialize_registers(void) +{ + g_reg_lock = uacpi_kernel_create_spinlock(); + if (uacpi_unlikely(g_reg_lock == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} + +void uacpi_deinitialize_registers(void) +{ + uacpi_u8 i; + struct register_mapping *mapping; + + if (g_reg_lock != UACPI_NULL) { + uacpi_kernel_free_spinlock(g_reg_lock); + g_reg_lock = UACPI_NULL; + } + + for (i = 0; i <= UACPI_REGISTER_MAX; ++i) { + mapping = &g_register_mappings[i]; + + if (mapping->states[0] == REGISTER_MAPPING_STATE_MAPPED) + uacpi_unmap_gas_nofree(&mapping->mappings[0]); + if (mapping->states[1] == REGISTER_MAPPING_STATE_MAPPED) + uacpi_unmap_gas_nofree(&mapping->mappings[1]); + } + + uacpi_memzero(&g_register_mappings, sizeof(g_register_mappings)); +} + +uacpi_status uacpi_read_register_field( + enum uacpi_register_field field_enum, uacpi_u64 *out_value +) +{ + uacpi_status ret; + uacpi_u8 field_idx = field_enum; + const struct register_field *field; + const struct register_spec *reg; + struct register_mapping *mapping; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(field_idx > UACPI_REGISTER_FIELD_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + + field = &g_fields[field_idx]; + reg = &g_registers[field->reg]; + mapping = &g_register_mappings[field->reg]; + + ret = ensure_register_mapped(reg, mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = do_read_register(reg, mapping, out_value); + if (uacpi_unlikely_error(ret)) + return ret; + + *out_value = (*out_value & field->mask) >> field->offset; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_write_register_field( + enum uacpi_register_field field_enum, uacpi_u64 in_value +) +{ + uacpi_status ret; + uacpi_u8 field_idx = field_enum; + const struct register_field *field; + const struct register_spec *reg; + struct register_mapping *mapping; + + uacpi_u64 data; + uacpi_cpu_flags flags; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_unlikely(field_idx > UACPI_REGISTER_FIELD_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + + field = &g_fields[field_idx]; + reg = &g_registers[field->reg]; + mapping = &g_register_mappings[field->reg]; + + ret = ensure_register_mapped(reg, mapping); + if (uacpi_unlikely_error(ret)) + return ret; + + in_value = (in_value << field->offset) & field->mask; + + flags = uacpi_kernel_lock_spinlock(g_reg_lock); + + if (reg->kind == REGISTER_ACCESS_KIND_WRITE_TO_CLEAR) { + if (in_value == 0) { + ret = UACPI_STATUS_OK; + goto out; + } + + ret = do_write_register(reg, mapping, in_value); + goto out; + } + + ret = do_read_register(reg, mapping, &data); + if (uacpi_unlikely_error(ret)) + goto out; + + data &= ~field->mask; + data |= in_value; + + ret = do_write_register(reg, mapping, data); + +out: + uacpi_kernel_unlock_spinlock(g_reg_lock, flags); + return ret; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/resources.c b/kernel/hal/x86_64/uACPI/source/resources.c new file mode 100644 index 0000000..a9bcb82 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/resources.c @@ -0,0 +1,2569 @@ +#include +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +#define LARGE_RESOURCE_BASE (ACPI_RESOURCE_END_TAG + 1) +#define L(x) (x + LARGE_RESOURCE_BASE) + +/* + * Map raw AML resource types to the internal enum, this also takes care of type + * sanitization by returning UACPI_AML_RESOURCE_INVALID for any unknown type. + */ +static const uacpi_u8 aml_resource_to_type[256] = { + // Small items + [ACPI_RESOURCE_IRQ] = UACPI_AML_RESOURCE_IRQ, + [ACPI_RESOURCE_DMA] = UACPI_AML_RESOURCE_DMA, + [ACPI_RESOURCE_START_DEPENDENT] = UACPI_AML_RESOURCE_START_DEPENDENT, + [ACPI_RESOURCE_END_DEPENDENT] = UACPI_AML_RESOURCE_END_DEPENDENT, + [ACPI_RESOURCE_IO] = UACPI_AML_RESOURCE_IO, + [ACPI_RESOURCE_FIXED_IO] = UACPI_AML_RESOURCE_FIXED_IO, + [ACPI_RESOURCE_FIXED_DMA] = UACPI_AML_RESOURCE_FIXED_DMA, + [ACPI_RESOURCE_VENDOR_TYPE0] = UACPI_AML_RESOURCE_VENDOR_TYPE0, + [ACPI_RESOURCE_END_TAG] = UACPI_AML_RESOURCE_END_TAG, + + // Large items + [L(ACPI_RESOURCE_MEMORY24)] = UACPI_AML_RESOURCE_MEMORY24, + [L(ACPI_RESOURCE_GENERIC_REGISTER)] = UACPI_AML_RESOURCE_GENERIC_REGISTER, + [L(ACPI_RESOURCE_VENDOR_TYPE1)] = UACPI_AML_RESOURCE_VENDOR_TYPE1, + [L(ACPI_RESOURCE_MEMORY32)] = UACPI_AML_RESOURCE_MEMORY32, + [L(ACPI_RESOURCE_FIXED_MEMORY32)] = UACPI_AML_RESOURCE_FIXED_MEMORY32, + [L(ACPI_RESOURCE_ADDRESS32)] = UACPI_AML_RESOURCE_ADDRESS32, + [L(ACPI_RESOURCE_ADDRESS16)] = UACPI_AML_RESOURCE_ADDRESS16, + [L(ACPI_RESOURCE_EXTENDED_IRQ)] = UACPI_AML_RESOURCE_EXTENDED_IRQ, + [L(ACPI_RESOURCE_ADDRESS64_EXTENDED)] = UACPI_AML_RESOURCE_ADDRESS64_EXTENDED, + [L(ACPI_RESOURCE_ADDRESS64)] = UACPI_AML_RESOURCE_ADDRESS64, + [L(ACPI_RESOURCE_GPIO_CONNECTION)] = UACPI_AML_RESOURCE_GPIO_CONNECTION, + [L(ACPI_RESOURCE_PIN_FUNCTION)] = UACPI_AML_RESOURCE_PIN_FUNCTION, + [L(ACPI_RESOURCE_SERIAL_CONNECTION)] = UACPI_AML_RESOURCE_SERIAL_CONNECTION, + [L(ACPI_RESOURCE_PIN_CONFIGURATION)] = UACPI_AML_RESOURCE_PIN_CONFIGURATION, + [L(ACPI_RESOURCE_PIN_GROUP)] = UACPI_AML_RESOURCE_PIN_GROUP, + [L(ACPI_RESOURCE_PIN_GROUP_FUNCTION)] = UACPI_AML_RESOURCE_PIN_GROUP_FUNCTION, + [L(ACPI_RESOURCE_PIN_GROUP_CONFIGURATION)] = UACPI_AML_RESOURCE_PIN_GROUP_CONFIGURATION, + [L(ACPI_RESOURCE_CLOCK_INPUT)] = UACPI_AML_RESOURCE_CLOCK_INPUT, +}; + +static const uacpi_u8 type_to_aml_resource[] = { + [UACPI_AML_RESOURCE_IRQ] = ACPI_RESOURCE_IRQ, + [UACPI_AML_RESOURCE_DMA] = ACPI_RESOURCE_DMA, + [UACPI_AML_RESOURCE_START_DEPENDENT] = ACPI_RESOURCE_START_DEPENDENT, + [UACPI_AML_RESOURCE_END_DEPENDENT] = ACPI_RESOURCE_END_DEPENDENT, + [UACPI_AML_RESOURCE_IO] = ACPI_RESOURCE_IO, + [UACPI_AML_RESOURCE_FIXED_IO] = ACPI_RESOURCE_FIXED_IO, + [UACPI_AML_RESOURCE_FIXED_DMA] = ACPI_RESOURCE_FIXED_DMA, + [UACPI_AML_RESOURCE_VENDOR_TYPE0] = ACPI_RESOURCE_VENDOR_TYPE0, + [UACPI_AML_RESOURCE_END_TAG] = ACPI_RESOURCE_END_TAG, + + // Large items + [UACPI_AML_RESOURCE_MEMORY24] = ACPI_RESOURCE_MEMORY24, + [UACPI_AML_RESOURCE_GENERIC_REGISTER] = ACPI_RESOURCE_GENERIC_REGISTER, + [UACPI_AML_RESOURCE_VENDOR_TYPE1] = ACPI_RESOURCE_VENDOR_TYPE1, + [UACPI_AML_RESOURCE_MEMORY32] = ACPI_RESOURCE_MEMORY32, + [UACPI_AML_RESOURCE_FIXED_MEMORY32] = ACPI_RESOURCE_FIXED_MEMORY32, + [UACPI_AML_RESOURCE_ADDRESS32] = ACPI_RESOURCE_ADDRESS32, + [UACPI_AML_RESOURCE_ADDRESS16] = ACPI_RESOURCE_ADDRESS16, + [UACPI_AML_RESOURCE_EXTENDED_IRQ] = ACPI_RESOURCE_EXTENDED_IRQ, + [UACPI_AML_RESOURCE_ADDRESS64_EXTENDED] = ACPI_RESOURCE_ADDRESS64_EXTENDED, + [UACPI_AML_RESOURCE_ADDRESS64] = ACPI_RESOURCE_ADDRESS64, + [UACPI_AML_RESOURCE_GPIO_CONNECTION] = ACPI_RESOURCE_GPIO_CONNECTION, + [UACPI_AML_RESOURCE_PIN_FUNCTION] = ACPI_RESOURCE_PIN_FUNCTION, + [UACPI_AML_RESOURCE_SERIAL_CONNECTION] = ACPI_RESOURCE_SERIAL_CONNECTION, + [UACPI_AML_RESOURCE_PIN_CONFIGURATION] = ACPI_RESOURCE_PIN_CONFIGURATION, + [UACPI_AML_RESOURCE_PIN_GROUP] = ACPI_RESOURCE_PIN_GROUP, + [UACPI_AML_RESOURCE_PIN_GROUP_FUNCTION] = ACPI_RESOURCE_PIN_GROUP_FUNCTION, + [UACPI_AML_RESOURCE_PIN_GROUP_CONFIGURATION] = ACPI_RESOURCE_PIN_GROUP_CONFIGURATION, + [UACPI_AML_RESOURCE_CLOCK_INPUT] = ACPI_RESOURCE_CLOCK_INPUT, +}; + +static const uacpi_u8 native_resource_to_type[UACPI_RESOURCE_TYPE_MAX + 1] = { + [UACPI_RESOURCE_TYPE_IRQ] = UACPI_AML_RESOURCE_IRQ, + [UACPI_RESOURCE_TYPE_EXTENDED_IRQ] = UACPI_AML_RESOURCE_EXTENDED_IRQ, + [UACPI_RESOURCE_TYPE_DMA] = UACPI_AML_RESOURCE_DMA, + [UACPI_RESOURCE_TYPE_FIXED_DMA] = UACPI_AML_RESOURCE_FIXED_DMA, + [UACPI_RESOURCE_TYPE_IO] = UACPI_AML_RESOURCE_IO, + [UACPI_RESOURCE_TYPE_FIXED_IO] = UACPI_AML_RESOURCE_FIXED_IO, + [UACPI_RESOURCE_TYPE_ADDRESS16] = UACPI_AML_RESOURCE_ADDRESS16, + [UACPI_RESOURCE_TYPE_ADDRESS32] = UACPI_AML_RESOURCE_ADDRESS32, + [UACPI_RESOURCE_TYPE_ADDRESS64] = UACPI_AML_RESOURCE_ADDRESS64, + [UACPI_RESOURCE_TYPE_ADDRESS64_EXTENDED] = UACPI_AML_RESOURCE_ADDRESS64_EXTENDED, + [UACPI_RESOURCE_TYPE_MEMORY24] = UACPI_AML_RESOURCE_MEMORY24, + [UACPI_RESOURCE_TYPE_MEMORY32] = UACPI_AML_RESOURCE_MEMORY32, + [UACPI_RESOURCE_TYPE_FIXED_MEMORY32] = UACPI_AML_RESOURCE_FIXED_MEMORY32, + [UACPI_RESOURCE_TYPE_START_DEPENDENT] = UACPI_AML_RESOURCE_START_DEPENDENT, + [UACPI_RESOURCE_TYPE_END_DEPENDENT] = UACPI_AML_RESOURCE_END_DEPENDENT, + [UACPI_RESOURCE_TYPE_VENDOR_SMALL] = UACPI_AML_RESOURCE_VENDOR_TYPE0, + [UACPI_RESOURCE_TYPE_VENDOR_LARGE] = UACPI_AML_RESOURCE_VENDOR_TYPE1, + [UACPI_RESOURCE_TYPE_GENERIC_REGISTER] = UACPI_AML_RESOURCE_GENERIC_REGISTER, + [UACPI_RESOURCE_TYPE_GPIO_CONNECTION] = UACPI_AML_RESOURCE_GPIO_CONNECTION, + [UACPI_RESOURCE_TYPE_SERIAL_I2C_CONNECTION] = UACPI_AML_RESOURCE_SERIAL_CONNECTION, + [UACPI_RESOURCE_TYPE_SERIAL_SPI_CONNECTION] = UACPI_AML_RESOURCE_SERIAL_CONNECTION, + [UACPI_RESOURCE_TYPE_SERIAL_UART_CONNECTION] = UACPI_AML_RESOURCE_SERIAL_CONNECTION, + [UACPI_RESOURCE_TYPE_SERIAL_CSI2_CONNECTION] = UACPI_AML_RESOURCE_SERIAL_CONNECTION, + [UACPI_RESOURCE_TYPE_PIN_FUNCTION] = UACPI_AML_RESOURCE_PIN_FUNCTION, + [UACPI_RESOURCE_TYPE_PIN_CONFIGURATION] = UACPI_AML_RESOURCE_PIN_CONFIGURATION, + [UACPI_RESOURCE_TYPE_PIN_GROUP] = UACPI_AML_RESOURCE_PIN_GROUP, + [UACPI_RESOURCE_TYPE_PIN_GROUP_FUNCTION] = UACPI_AML_RESOURCE_PIN_GROUP_FUNCTION, + [UACPI_RESOURCE_TYPE_PIN_GROUP_CONFIGURATION] = UACPI_AML_RESOURCE_PIN_GROUP_CONFIGURATION, + [UACPI_RESOURCE_TYPE_CLOCK_INPUT] = UACPI_AML_RESOURCE_CLOCK_INPUT, + [UACPI_RESOURCE_TYPE_END_TAG] = UACPI_AML_RESOURCE_END_TAG, +}; + +#define SMALL_ITEM_HEADER_SIZE sizeof(struct acpi_small_item) +#define LARGE_ITEM_HEADER_SIZE sizeof(struct acpi_large_item) + +static const uacpi_u8 aml_resource_kind_to_header_size[2] = { + [UACPI_AML_RESOURCE_KIND_SMALL] = SMALL_ITEM_HEADER_SIZE, + [UACPI_AML_RESOURCE_KIND_LARGE] = LARGE_ITEM_HEADER_SIZE, +}; + +static uacpi_size aml_size_with_header(const struct uacpi_resource_spec *spec) +{ + return spec->aml_size + + aml_resource_kind_to_header_size[spec->resource_kind]; +} + +static uacpi_size extra_size_for_native_irq_or_dma( + const struct uacpi_resource_spec *spec, void *data, uacpi_size size +) +{ + uacpi_u16 mask; + uacpi_u8 i, total_bits, num_bits = 0; + + UACPI_UNUSED(size); + + if (spec->type == UACPI_AML_RESOURCE_IRQ) { + struct acpi_resource_irq *irq = data; + mask = irq->irq_mask; + total_bits = 16; + } else { + struct acpi_resource_dma *dma = data; + mask = dma->channel_mask; + total_bits = 8; + } + + for (i = 0; i < total_bits; ++i) + num_bits += !!(mask & (1 << i)); + + return num_bits; +} + +static uacpi_size size_for_aml_irq( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_resource_irq *irq = &resource->irq; + uacpi_size size; + + size = aml_size_with_header(spec); + + switch (irq->length_kind) { + case UACPI_RESOURCE_LENGTH_KIND_FULL: + goto out_full; + case UACPI_RESOURCE_LENGTH_KIND_ONE_LESS: + case UACPI_RESOURCE_LENGTH_KIND_DONT_CARE: + if (irq->triggering != UACPI_TRIGGERING_EDGE) + goto out_full; + if (irq->polarity != UACPI_POLARITY_ACTIVE_HIGH) + goto out_full; + if (irq->sharing != UACPI_EXCLUSIVE) + goto out_full; + + return size - 1; + } + +out_full: + if (uacpi_unlikely(irq->length_kind == + UACPI_RESOURCE_LENGTH_KIND_ONE_LESS)) { + uacpi_warn("requested IRQ resource length is " + "not compatible with specified flags, corrected\n"); + } + + return size; +} + +static uacpi_size size_for_aml_start_dependent( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_resource_start_dependent *start_dep = &resource->start_dependent; + uacpi_size size; + + size = aml_size_with_header(spec); + switch (start_dep->length_kind) { + case UACPI_RESOURCE_LENGTH_KIND_FULL: + goto out_full; + case UACPI_RESOURCE_LENGTH_KIND_ONE_LESS: + case UACPI_RESOURCE_LENGTH_KIND_DONT_CARE: + if (start_dep->compatibility != UACPI_ACCEPTABLE) + goto out_full; + if (start_dep->performance != UACPI_ACCEPTABLE) + goto out_full; + + return size - 1; + } + +out_full: + if (uacpi_unlikely(start_dep->length_kind == + UACPI_RESOURCE_LENGTH_KIND_ONE_LESS)) { + uacpi_warn("requested StartDependentFn resource length is " + "not compatible with specified flags, corrected\n"); + } + + return size; +} + +static uacpi_size extra_size_for_native_vendor( + const struct uacpi_resource_spec *spec, void *data, uacpi_size size +) +{ + UACPI_UNUSED(spec); + UACPI_UNUSED(data); + return size; +} + +static uacpi_size size_for_aml_vendor( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_size size = resource->vendor.length; + + UACPI_UNUSED(spec); + + if (size > 7 || resource->type == UACPI_RESOURCE_TYPE_VENDOR_LARGE) { + size += aml_resource_kind_to_header_size[ + UACPI_AML_RESOURCE_KIND_LARGE + ]; + + if (uacpi_unlikely(resource->type != UACPI_RESOURCE_TYPE_VENDOR_LARGE)) { + uacpi_warn("vendor data too large for small descriptor (%zu), " + "correcting to large\n", size); + resource->type = UACPI_RESOURCE_TYPE_VENDOR_LARGE; + } + } else { + size += aml_resource_kind_to_header_size[ + UACPI_AML_RESOURCE_KIND_SMALL + ]; + } + + return size; +} + +static uacpi_size extra_size_for_resource_source( + uacpi_size base_size, uacpi_size reported_size +) +{ + uacpi_size string_length; + + if (reported_size <= base_size) + return 0; + + /* + * The remainder of the descriptor minus the resource index field + */ + string_length = (reported_size - base_size) - 1; + return UACPI_ALIGN_UP(string_length, sizeof(void*), uacpi_size); +} + +static uacpi_size size_for_aml_resource_source( + uacpi_resource_source *source, uacpi_bool with_index +) +{ + uacpi_size length = source->length; + + if (uacpi_unlikely(length && !source->index_present)) { + uacpi_warn("resource declares no source index with non-empty " + "string (%zu bytes), corrected\n", length); + source->index_present = UACPI_TRUE; + } + + // If index is included in the dynamic resource source, add it to the length + if (with_index) + length += source->index_present; + + return length; +} + +static uacpi_size extra_size_for_native_address_or_clock_input( + const struct uacpi_resource_spec *spec, void *data, uacpi_size size +) +{ + UACPI_UNUSED(data); + return extra_size_for_resource_source(spec->aml_size, size); +} + +static uacpi_size size_for_aml_address_or_clock_input( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_resource_source *source; + bool has_index = UACPI_TRUE; + + switch (resource->type) { + case UACPI_RESOURCE_TYPE_ADDRESS16: + source = &resource->address16.source; + break; + case UACPI_RESOURCE_TYPE_ADDRESS32: + source = &resource->address32.source; + break; + case UACPI_RESOURCE_TYPE_ADDRESS64: + source = &resource->address64.source; + break; + case UACPI_RESOURCE_TYPE_CLOCK_INPUT: + source = &resource->clock_input.source; + has_index = UACPI_FALSE; + break; + default: + return 0; + } + + return aml_size_with_header(spec) + + size_for_aml_resource_source(source, has_index); +} + +static uacpi_size extra_size_for_extended_irq( + const struct uacpi_resource_spec *spec, void *data, uacpi_size size +) +{ + struct acpi_resource_extended_irq *irq = data; + uacpi_size extra_size = 0; + + extra_size += irq->num_irqs * sizeof(uacpi_u32); + extra_size += extra_size_for_resource_source( + spec->aml_size, size - extra_size + ); + + return extra_size; +} + +static uacpi_size size_for_aml_extended_irq( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_resource_extended_irq *irq = &resource->extended_irq; + uacpi_size size; + + size = aml_size_with_header(spec); + size += irq->num_irqs * 4; + size += size_for_aml_resource_source(&irq->source, UACPI_TRUE); + + return size; +} + +static uacpi_size extra_size_for_native_gpio_or_pins( + const struct uacpi_resource_spec *spec, void *data, uacpi_size size +) +{ + uacpi_size pin_table_offset; + + /* + * These resources pretend to have variable layout by declaring "offset" + * fields, but the layout is hardcoded and mandated by the spec to be + * very specific. We can use the offset numbers here to calculate the final + * length. + * + * For example, the layout of GPIO connection _always_ looks as follows: + * [0...22] -> fixed data + * [23...] -> pin table + * [...] -> source name + * [...] -> vendor data + */ + switch (spec->type) { + case UACPI_AML_RESOURCE_GPIO_CONNECTION: { + struct acpi_resource_gpio_connection *gpio = data; + pin_table_offset = gpio->pin_table_offset; + break; + } + + case UACPI_AML_RESOURCE_PIN_FUNCTION: { + struct acpi_resource_pin_function *pin = data; + pin_table_offset = pin->pin_table_offset; + break; + } + + case UACPI_AML_RESOURCE_PIN_CONFIGURATION: { + struct acpi_resource_pin_configuration *config = data; + pin_table_offset = config->pin_table_offset; + break; + } + + case UACPI_AML_RESOURCE_PIN_GROUP: { + struct acpi_resource_pin_group *group = data; + pin_table_offset = group->pin_table_offset; + break; + } + + default: + return 0; + } + + /* + * The size we get passed here does not include the header size because + * that's how resources are encoded. Subtract it here so that we get the + * correct final length. + */ + return size - (pin_table_offset - LARGE_ITEM_HEADER_SIZE); +} + +static uacpi_size size_for_aml_gpio_or_pins( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_size source_length, vendor_length, pin_table_length, size; + + size = aml_size_with_header(spec); + switch (spec->type) { + case UACPI_AML_RESOURCE_GPIO_CONNECTION: { + uacpi_resource_gpio_connection *res = &resource->gpio_connection; + source_length = res->source.length; + pin_table_length = res->pin_table_length; + vendor_length = res->vendor_data_length; + break; + } + + case UACPI_AML_RESOURCE_PIN_FUNCTION: { + uacpi_resource_pin_function *res = &resource->pin_function; + source_length = res->source.length; + pin_table_length = res->pin_table_length; + vendor_length = res->vendor_data_length; + break; + } + + case UACPI_AML_RESOURCE_PIN_CONFIGURATION: { + uacpi_resource_pin_configuration *res = &resource->pin_configuration; + source_length = res->source.length; + pin_table_length = res->pin_table_length; + vendor_length = res->vendor_data_length; + break; + } + + case UACPI_AML_RESOURCE_PIN_GROUP: { + uacpi_resource_pin_group *res = &resource->pin_group; + source_length = res->label.length; + pin_table_length = res->pin_table_length; + vendor_length = res->vendor_data_length; + break; + } + + default: + return 0; + } + + size += source_length; + size += pin_table_length * 2; + size += vendor_length; + + return size; +} + +static uacpi_size extra_size_for_native_pin_group( + const struct uacpi_resource_spec *spec, void *data, uacpi_size size +) +{ + uacpi_size source_offset; + + switch (spec->type) { + case UACPI_AML_RESOURCE_PIN_GROUP_FUNCTION: { + struct acpi_resource_pin_group_function *func = data; + source_offset = func->source_offset; + break; + } + + case UACPI_AML_RESOURCE_PIN_GROUP_CONFIGURATION: { + struct acpi_resource_pin_group_configuration *config = data; + source_offset = config->source_offset; + break; + } + + default: + return 0; + } + + // Same logic as extra_size_for_native_gpio_or_pins + return size - (source_offset - LARGE_ITEM_HEADER_SIZE); +} + +static uacpi_size size_for_aml_pin_group( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_size source_length, label_length, vendor_length, size; + + size = aml_size_with_header(spec); + switch (spec->type) { + case UACPI_AML_RESOURCE_PIN_GROUP_FUNCTION: { + uacpi_resource_pin_group_function *res = &resource->pin_group_function; + source_length = res->source.length; + label_length = res->label.length; + vendor_length = res->vendor_data_length; + break; + } + + case UACPI_AML_RESOURCE_PIN_GROUP_CONFIGURATION: { + uacpi_resource_pin_group_configuration *res; + res = &resource->pin_group_configuration; + source_length = res->source.length; + label_length = res->label.length; + vendor_length = res->vendor_data_length; + break; + } + + default: + return 0; + } + + size += source_length; + size += label_length; + size += vendor_length; + + return size; +} + +#define AML_SERIAL_RESOURCE_EXTRA_SIZE(type) \ + (sizeof(struct acpi_resource_serial_##type) \ + - sizeof(struct acpi_resource_serial)) + +#define NATIVE_SERIAL_RESOURCE_EXTRA_SIZE(type) \ + (sizeof(uacpi_resource_##type##_connection) \ + - sizeof(uacpi_resource_serial_bus_common)) + +static const uacpi_u8 aml_serial_resource_to_extra_aml_size +[ACPI_SERIAL_TYPE_MAX + 1] = { + [ACPI_SERIAL_TYPE_I2C] = AML_SERIAL_RESOURCE_EXTRA_SIZE(i2c), + [ACPI_SERIAL_TYPE_SPI] = AML_SERIAL_RESOURCE_EXTRA_SIZE(spi), + [ACPI_SERIAL_TYPE_UART] = AML_SERIAL_RESOURCE_EXTRA_SIZE(uart), + [ACPI_SERIAL_TYPE_CSI2] = AML_SERIAL_RESOURCE_EXTRA_SIZE(csi2), +}; + +static const uacpi_u8 aml_serial_resource_to_extra_native_size +[ACPI_SERIAL_TYPE_MAX + 1] = { + [ACPI_SERIAL_TYPE_I2C] = NATIVE_SERIAL_RESOURCE_EXTRA_SIZE(i2c), + [ACPI_SERIAL_TYPE_SPI] = NATIVE_SERIAL_RESOURCE_EXTRA_SIZE(spi), + [ACPI_SERIAL_TYPE_UART] = NATIVE_SERIAL_RESOURCE_EXTRA_SIZE(uart), + [ACPI_SERIAL_TYPE_CSI2] = NATIVE_SERIAL_RESOURCE_EXTRA_SIZE(csi2), +}; + +static uacpi_size extra_size_for_serial_connection( + const struct uacpi_resource_spec *spec, void *data, uacpi_size size +) +{ + struct acpi_resource_serial *serial = data; + uacpi_size extra_bytes = size; + + extra_bytes -= spec->aml_size; + extra_bytes -= aml_serial_resource_to_extra_aml_size[serial->type]; + extra_bytes += aml_serial_resource_to_extra_native_size[serial->type]; + + return extra_bytes; +} + +static uacpi_size aml_size_for_serial_connection( + const struct uacpi_resource_spec *spec, uacpi_resource *resource +) +{ + uacpi_size size; + uacpi_resource_serial_bus_common *serial_bus = &resource->serial_bus_common; + + size = aml_size_with_header(spec); + size += aml_serial_resource_to_extra_aml_size[serial_bus->type]; + size += serial_bus->vendor_data_length; + size += serial_bus->source.length; + + return size; +} + +#define OP(short_code, ...) \ +{ \ + .code = UACPI_RESOURCE_CONVERT_OPCODE_##short_code, \ + __VA_ARGS__ \ +} + +#define END() OP(END) + +#define AML_O(short_aml_name, field) \ + uacpi_offsetof(struct acpi_resource_##short_aml_name, field) + +#define AML_F(short_aml_name, field) \ + .f1.aml_offset = AML_O(short_aml_name, field) + +#define NATIVE_O(short_name, field) \ + uacpi_offsetof(uacpi_resource_##short_name, field) + +#define NATIVE_F(short_native_name, field) \ + .f2.native_offset = NATIVE_O(short_native_name, field) + +#define IMM(value) .f3.imm = value +#define ARG0(value) .f1.arg0 = (value) +#define ARG1(value) .f2.arg1 = (value) +#define ARG2(value) .f3.arg2 = (value) + + +static const struct uacpi_resource_convert_instruction convert_irq_to_native[] = { + OP(PACKED_ARRAY_16, AML_F(irq, irq_mask), NATIVE_F(irq, irqs), + ARG2(NATIVE_O(irq, num_irqs))), + OP(SKIP_IF_AML_SIZE_LESS_THAN, ARG0(3), IMM(6)), + OP(SET_TO_IMM, NATIVE_F(irq, length_kind), + IMM(UACPI_RESOURCE_LENGTH_KIND_FULL)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, triggering), IMM(0)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, polarity), IMM(3)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, sharing), IMM(4)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, wake_capability), IMM(5)), + END(), + OP(SET_TO_IMM, NATIVE_F(irq, length_kind), + IMM(UACPI_RESOURCE_LENGTH_KIND_ONE_LESS)), + OP(SET_TO_IMM, NATIVE_F(irq, triggering), IMM(UACPI_TRIGGERING_EDGE)), + END(), +}; + +const struct uacpi_resource_convert_instruction convert_irq_to_aml[] = { + OP(PACKED_ARRAY_16, AML_F(irq, irq_mask), NATIVE_F(irq, irqs), + ARG2(NATIVE_O(irq, num_irqs))), + OP(SKIP_IF_AML_SIZE_LESS_THAN, ARG0(3), IMM(4)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, triggering), IMM(0)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, polarity), IMM(3)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, sharing), IMM(4)), + OP(BIT_FIELD_1, AML_F(irq, flags), NATIVE_F(irq, wake_capability), IMM(5)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_dma[] = { + OP(PACKED_ARRAY_8, AML_F(dma, channel_mask), NATIVE_F(dma, channels), + ARG2(NATIVE_O(dma, num_channels))), + OP(BIT_FIELD_2, AML_F(dma, flags), NATIVE_F(dma, transfer_type), IMM(0)), + OP(BIT_FIELD_1, AML_F(dma, flags), NATIVE_F(dma, bus_master_status), IMM(2)), + OP(BIT_FIELD_2, AML_F(dma, flags), NATIVE_F(dma, channel_speed), IMM(5)), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_start_dependent_to_native[] = { + OP(SKIP_IF_AML_SIZE_LESS_THAN, ARG0(1), IMM(4)), + OP(SET_TO_IMM, NATIVE_F(start_dependent, length_kind), + IMM(UACPI_RESOURCE_LENGTH_KIND_FULL)), + OP(BIT_FIELD_2, AML_F(start_dependent, flags), + NATIVE_F(start_dependent, compatibility), IMM(0)), + OP(BIT_FIELD_2, AML_F(start_dependent, flags), + NATIVE_F(start_dependent, performance), IMM(2)), + END(), + OP(SET_TO_IMM, NATIVE_F(start_dependent, length_kind), + IMM(UACPI_RESOURCE_LENGTH_KIND_ONE_LESS)), + OP(SET_TO_IMM, NATIVE_F(start_dependent, compatibility), + IMM(UACPI_ACCEPTABLE)), + OP(SET_TO_IMM, NATIVE_F(start_dependent, performance), + IMM(UACPI_ACCEPTABLE)), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_start_dependent_to_aml[] = { + OP(SKIP_IF_AML_SIZE_LESS_THAN, ARG0(1), IMM(1)), + OP(BIT_FIELD_2, AML_F(start_dependent, flags), + NATIVE_F(start_dependent, compatibility), IMM(0)), + OP(BIT_FIELD_2, AML_F(start_dependent, flags), + NATIVE_F(start_dependent, performance), IMM(2)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_io[] = { + OP(BIT_FIELD_1, AML_F(io, information), NATIVE_F(io, decode_type)), + OP(FIELD_16, AML_F(io, minimum), NATIVE_F(io, minimum)), + OP(FIELD_16, AML_F(io, maximum), NATIVE_F(io, maximum)), + OP(FIELD_8, AML_F(io, alignment), NATIVE_F(io, alignment)), + OP(FIELD_8, AML_F(io, length), NATIVE_F(io, length)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_fixed_io[] = { + OP(FIELD_16, AML_F(fixed_io, address), NATIVE_F(fixed_io, address)), + OP(FIELD_8, AML_F(fixed_io, length), NATIVE_F(fixed_io, length)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_fixed_dma[] = { + OP(FIELD_16, AML_F(fixed_dma, request_line), + NATIVE_F(fixed_dma, request_line)), + OP(FIELD_16, AML_F(fixed_dma, channel), NATIVE_F(fixed_dma, channel)), + OP(FIELD_8, AML_F(fixed_dma, transfer_width), + NATIVE_F(fixed_dma, transfer_width)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_vendor_type0[] = { + OP(LOAD_AML_SIZE_32, NATIVE_F(vendor, length)), + OP(FIELD_8, AML_F(vendor_defined_type0, byte_data), NATIVE_F(vendor, data)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_vendor_type1[] = { + OP(LOAD_AML_SIZE_32, NATIVE_F(vendor, length)), + OP(FIELD_8, AML_F(vendor_defined_type1, byte_data), NATIVE_F(vendor, data)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_memory24[] = { + OP(BIT_FIELD_1, AML_F(memory24, information), + NATIVE_F(memory24, write_status), IMM(0)), + OP(FIELD_16, AML_F(memory24, minimum), NATIVE_F(memory24, minimum), IMM(4)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_memory32[] = { + OP(BIT_FIELD_1, AML_F(memory32, information), + NATIVE_F(memory32, write_status), IMM(0)), + OP(FIELD_32, AML_F(memory32, minimum), NATIVE_F(memory32, minimum), IMM(4)), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_fixed_memory32[] = { + OP(BIT_FIELD_1, AML_F(fixed_memory32, information), + NATIVE_F(fixed_memory32, write_status), IMM(0)), + OP(FIELD_32, AML_F(fixed_memory32, address), + NATIVE_F(fixed_memory32, address)), + OP(FIELD_32, AML_F(fixed_memory32, length), + NATIVE_F(fixed_memory32, length)), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_generic_register[] = { + OP(FIELD_8, AML_F(generic_register, address_space_id), + NATIVE_F(generic_register, address_space_id), IMM(4)), + OP(FIELD_64, AML_F(generic_register, address), + NATIVE_F(generic_register, address)), + END(), +}; + +#define CONVERT_TYPE_SPECIFIC_FLAGS(addr_type) \ + OP(LOAD_8_STORE, AML_F(addr_type, common.type), \ + NATIVE_F(addr_type, common.type)), \ + OP(SKIP_IF_NOT_EQUALS, ARG0(UACPI_RANGE_MEMORY), IMM(5)), \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.memory.write_status), IMM(0)), \ + OP(BIT_FIELD_2, \ + AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.memory.caching), IMM(1)), \ + OP(BIT_FIELD_2, \ + AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.memory.range_type), IMM(3)), \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.memory.translation), IMM(5)), \ + END(), \ + OP(SKIP_IF_NOT_EQUALS, ARG0(UACPI_RANGE_IO), IMM(4)), \ + OP(BIT_FIELD_2, \ + AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.io.range_type), IMM(0)), \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.io.translation_type), IMM(4)), \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.io.translation), IMM(5)), \ + END(), \ + /* Memory type that we don't know, just copy the byte */ \ + OP(FIELD_8, AML_F(addr_type, common.type_flags), \ + NATIVE_F(addr_type, common.attribute.type_specific), IMM(0xFF)), \ + END() + +#define CONVERT_GENERAL_ADDRESS_FLAGS(addr_type) \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.flags), \ + NATIVE_F(addr_type, common.direction), IMM(0)), \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.flags), \ + NATIVE_F(addr_type, common.decode_type), IMM(1)), \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.flags), \ + NATIVE_F(addr_type, common.fixed_min_address), IMM(2)), \ + OP(BIT_FIELD_1, \ + AML_F(addr_type, common.flags), \ + NATIVE_F(addr_type, common.fixed_max_address), IMM(3)) \ + +#define DEFINE_ADDRESS_CONVERSION(width) \ + static const struct uacpi_resource_convert_instruction \ + convert_address##width[] = { \ + CONVERT_GENERAL_ADDRESS_FLAGS(address##width), \ + OP(FIELD_##width, AML_F(address##width, granularity), \ + NATIVE_F(address##width, granularity), IMM(5)), \ + OP(RESOURCE_SOURCE, NATIVE_F(address##width, source)), \ + CONVERT_TYPE_SPECIFIC_FLAGS(address##width), \ + }; + +DEFINE_ADDRESS_CONVERSION(16) +DEFINE_ADDRESS_CONVERSION(32) +DEFINE_ADDRESS_CONVERSION(64) + +static const struct uacpi_resource_convert_instruction +convert_address64_extended[] = { + CONVERT_GENERAL_ADDRESS_FLAGS(address64_extended), + OP(FIELD_8, AML_F(address64_extended, revision_id), + NATIVE_F(address64_extended, revision_id)), + OP(FIELD_64, AML_F(address64_extended, granularity), + NATIVE_F(address64_extended, granularity), IMM(6)), + CONVERT_TYPE_SPECIFIC_FLAGS(address64_extended), +}; + +static const struct uacpi_resource_convert_instruction +convert_extended_irq[] = { + OP(BIT_FIELD_1, AML_F(extended_irq, flags), + NATIVE_F(extended_irq, direction), IMM(0)), + OP(BIT_FIELD_1, AML_F(extended_irq, flags), + NATIVE_F(extended_irq, triggering), IMM(1)), + OP(BIT_FIELD_1, AML_F(extended_irq, flags), + NATIVE_F(extended_irq, polarity), IMM(2)), + OP(BIT_FIELD_1, AML_F(extended_irq, flags), + NATIVE_F(extended_irq, sharing), IMM(3)), + OP(BIT_FIELD_1, AML_F(extended_irq, flags), + NATIVE_F(extended_irq, wake_capability), IMM(4)), + OP(LOAD_8_STORE, AML_F(extended_irq, num_irqs), + NATIVE_F(extended_irq, num_irqs), IMM(4)), + OP(RESOURCE_SOURCE, NATIVE_F(extended_irq, source)), + + // Use FIELD_8 here since the accumulator has been multiplied by 4 + OP(FIELD_8, AML_F(extended_irq, irqs), NATIVE_F(extended_irq, irqs)), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_clock_input[] = { + OP(FIELD_8, AML_F(clock_input, revision_id), + NATIVE_F(clock_input, revision_id)), + OP(BIT_FIELD_1, AML_F(clock_input, flags), NATIVE_F(clock_input, frequency), + IMM(0)), + OP(BIT_FIELD_2, AML_F(clock_input, flags), NATIVE_F(clock_input, scale), + IMM(1)), + OP(FIELD_16, AML_F(clock_input, divisor), NATIVE_F(clock_input, divisor)), + OP(FIELD_32, AML_F(clock_input, numerator), NATIVE_F(clock_input, numerator)), + OP(FIELD_8, AML_F(clock_input, source_index), NATIVE_F(clock_input, source.index)), + OP(RESOURCE_SOURCE_NO_INDEX, NATIVE_F(clock_input, source)), + END(), +}; + +#define DECODE_SOURCE_INDEX(short_aml_name) \ + OP(FIELD_8, AML_F(short_aml_name, source_index), \ + NATIVE_F(short_aml_name, source.index)) \ + +#define DECODE_RES_PIN_TBL_AND_VENDOR_DATA( \ + short_aml_name, res_opcode, offset_field, res_field \ +) \ + OP(LOAD_PIN_TABLE_LENGTH, AML_F(short_aml_name, offset_field), \ + NATIVE_F(short_aml_name, pin_table_length)), \ + OP(RESOURCE_##res_opcode, NATIVE_F(short_aml_name, res_field), \ + AML_F(short_aml_name, offset_field), \ + ARG2(AML_O(short_aml_name, vendor_data_offset))), \ + OP(PIN_TABLE, AML_F(short_aml_name, pin_table_offset), \ + NATIVE_F(short_aml_name, pin_table_length), \ + ARG2(NATIVE_O(short_aml_name, pin_table))), \ + OP(VENDOR_DATA, AML_F(short_aml_name, vendor_data_offset), \ + NATIVE_F(short_aml_name, vendor_data_length), \ + ARG2(NATIVE_O(short_aml_name, vendor_data))) + +static const struct uacpi_resource_convert_instruction +convert_gpio_connection[] = { + OP(FIELD_8, AML_F(gpio_connection, revision_id), + NATIVE_F(gpio_connection, revision_id)), + OP(BIT_FIELD_1, AML_F(gpio_connection, general_flags), + NATIVE_F(gpio_connection, direction)), + OP(FIELD_8, AML_F(gpio_connection, pull_configuration), + NATIVE_F(gpio_connection, pull_configuration)), + OP(FIELD_16, AML_F(gpio_connection, drive_strength), + NATIVE_F(gpio_connection, drive_strength), IMM(2)), + DECODE_SOURCE_INDEX(gpio_connection), + DECODE_RES_PIN_TBL_AND_VENDOR_DATA( + gpio_connection, SOURCE_NO_INDEX, source_offset, source + ), + OP(LOAD_8_STORE, AML_F(gpio_connection, type), NATIVE_F(gpio_connection, type)), + OP(SKIP_IF_NOT_EQUALS, ARG0(UACPI_GPIO_CONNECTION_INTERRUPT), IMM(5)), + OP(BIT_FIELD_1, AML_F(gpio_connection, connection_flags), + NATIVE_F(gpio_connection, intr.triggering), IMM(0)), + OP(BIT_FIELD_2, AML_F(gpio_connection, connection_flags), + NATIVE_F(gpio_connection, intr.polarity), IMM(1)), + OP(BIT_FIELD_1, AML_F(gpio_connection, connection_flags), + NATIVE_F(gpio_connection, intr.sharing), IMM(3)), + OP(BIT_FIELD_1, AML_F(gpio_connection, connection_flags), + NATIVE_F(gpio_connection, intr.wake_capability), IMM(4)), + END(), + OP(SKIP_IF_NOT_EQUALS, ARG0(UACPI_GPIO_CONNECTION_IO), IMM(3)), + OP(BIT_FIELD_2, AML_F(gpio_connection, connection_flags), + NATIVE_F(gpio_connection, io.restriction), IMM(0)), + OP(BIT_FIELD_1, AML_F(gpio_connection, connection_flags), + NATIVE_F(gpio_connection, io.sharing), IMM(3)), + END(), + OP(FIELD_16, AML_F(gpio_connection, connection_flags), + NATIVE_F(gpio_connection, type_specific), IMM(0xFF)), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_pin_function[] = { + OP(FIELD_8, AML_F(pin_function, revision_id), + NATIVE_F(pin_function, revision_id)), + OP(BIT_FIELD_1, AML_F(pin_function, flags), + NATIVE_F(pin_function, sharing), IMM(0)), + OP(FIELD_8, AML_F(pin_function, pull_configuration), + NATIVE_F(pin_function, pull_configuration)), + OP(FIELD_16, AML_F(pin_function, function_number), + NATIVE_F(pin_function, function_number)), + DECODE_SOURCE_INDEX(pin_function), + DECODE_RES_PIN_TBL_AND_VENDOR_DATA( + pin_function, SOURCE_NO_INDEX, source_offset, source + ), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_pin_configuration[] = { + OP(FIELD_8, AML_F(pin_configuration, revision_id), + NATIVE_F(pin_configuration, revision_id)), + OP(BIT_FIELD_1, AML_F(pin_configuration, flags), + NATIVE_F(pin_configuration, sharing), IMM(0)), + OP(BIT_FIELD_1, AML_F(pin_configuration, flags), + NATIVE_F(pin_configuration, direction), IMM(1)), + OP(FIELD_8, AML_F(pin_configuration, type), + NATIVE_F(pin_configuration, type)), + OP(FIELD_32, AML_F(pin_configuration, value), + NATIVE_F(pin_configuration, value)), + DECODE_SOURCE_INDEX(pin_configuration), + DECODE_RES_PIN_TBL_AND_VENDOR_DATA( + pin_configuration, SOURCE_NO_INDEX, source_offset, source + ), + END(), +}; + +static const struct uacpi_resource_convert_instruction convert_pin_group[] = { + OP(FIELD_8, AML_F(pin_group, revision_id), + NATIVE_F(pin_group, revision_id)), + OP(BIT_FIELD_1, AML_F(pin_group, flags), + NATIVE_F(pin_group, direction), IMM(0)), + DECODE_RES_PIN_TBL_AND_VENDOR_DATA( + pin_group, LABEL, source_lable_offset, label + ), + END(), +}; + +#define DECODE_PIN_GROUP_RES_SOURCES(postfix) \ + DECODE_SOURCE_INDEX(pin_group_##postfix), \ + OP(RESOURCE_SOURCE_NO_INDEX, NATIVE_F(pin_group_##postfix, source), \ + AML_F(pin_group_##postfix, source_offset), \ + ARG2(AML_O(pin_group_##postfix, source_lable_offset))), \ + OP(LOAD_16_NATIVE, NATIVE_F(pin_group_##postfix, source.length)), \ + OP(RESOURCE_LABEL, NATIVE_F(pin_group_##postfix, label), \ + AML_F(pin_group_##postfix, source_lable_offset), \ + ARG2(AML_O(pin_group_##postfix, vendor_data_offset))), \ + OP(VENDOR_DATA, AML_F(pin_group_##postfix, vendor_data_offset), \ + NATIVE_F(pin_group_##postfix, vendor_data_length), \ + ARG2(NATIVE_O(pin_group_##postfix, vendor_data))) + +static const struct uacpi_resource_convert_instruction +convert_pin_group_function[] = { + OP(FIELD_8, AML_F(pin_group_function, revision_id), + NATIVE_F(pin_group_function, revision_id)), + OP(BIT_FIELD_1, AML_F(pin_group_function, flags), + NATIVE_F(pin_group_function, sharing), IMM(0)), + OP(BIT_FIELD_1, AML_F(pin_group_function, flags), + NATIVE_F(pin_group_function, direction), IMM(1)), + OP(FIELD_16, AML_F(pin_group_function, function), + NATIVE_F(pin_group_function, function)), + DECODE_PIN_GROUP_RES_SOURCES(function), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_pin_group_configuration[] = { + OP(FIELD_8, AML_F(pin_group_configuration, revision_id), + NATIVE_F(pin_group_configuration, revision_id)), + OP(BIT_FIELD_1, AML_F(pin_group_configuration, flags), + NATIVE_F(pin_group_configuration, sharing), IMM(0)), + OP(BIT_FIELD_1, AML_F(pin_group_configuration, flags), + NATIVE_F(pin_group_configuration, direction), IMM(1)), + OP(FIELD_8, AML_F(pin_group_configuration, type), + NATIVE_F(pin_group_configuration, type)), + OP(FIELD_32, AML_F(pin_group_configuration, value), + NATIVE_F(pin_group_configuration, value)), + DECODE_PIN_GROUP_RES_SOURCES(configuration), + END(), +}; + +static const struct uacpi_resource_convert_instruction +convert_generic_serial_bus[] = { + OP(FIELD_8, AML_F(serial, revision_id), + NATIVE_F(serial_bus_common, revision_id)), + OP(FIELD_8, AML_F(serial, type_specific_revision_id), + NATIVE_F(serial_bus_common, type_revision_id)), + OP(FIELD_8, AML_F(serial, source_index), + NATIVE_F(serial_bus_common, source.index)), + OP(FIELD_16, AML_F(serial, type_data_length), + NATIVE_F(serial_bus_common, type_data_length)), + OP(BIT_FIELD_1, AML_F(serial, flags), + NATIVE_F(serial_bus_common, mode), IMM(0)), + OP(BIT_FIELD_1, AML_F(serial, flags), + NATIVE_F(serial_bus_common, direction), IMM(1)), + OP(BIT_FIELD_1, AML_F(serial, flags), + NATIVE_F(serial_bus_common, sharing), IMM(2)), + OP(SERIAL_TYPE_SPECIFIC, AML_F(serial, type), + NATIVE_F(serial_bus_common, type)), + OP(RESOURCE_SOURCE_NO_INDEX, NATIVE_F(serial_bus_common, source)), + OP(LOAD_8_NATIVE, NATIVE_F(serial_bus_common, type)), + OP(SKIP_IF_NOT_EQUALS, ARG0(ACPI_SERIAL_TYPE_I2C), IMM(4)), + OP(BIT_FIELD_1, AML_F(serial, type_specific_flags), + NATIVE_F(i2c_connection, addressing_mode), IMM(0)), + OP(FIELD_32, AML_F(serial_i2c, connection_speed), + NATIVE_F(i2c_connection, connection_speed), IMM(0xFF)), + OP(FIELD_16, AML_F(serial_i2c, slave_address), + NATIVE_F(i2c_connection, slave_address)), + END(), + OP(SKIP_IF_NOT_EQUALS, ARG0(ACPI_SERIAL_TYPE_SPI), IMM(5)), + OP(BIT_FIELD_1, AML_F(serial, type_specific_flags), + NATIVE_F(spi_connection, wire_mode), IMM(0)), + OP(BIT_FIELD_1, AML_F(serial, type_specific_flags), + NATIVE_F(spi_connection, device_polarity), IMM(1)), + OP(FIELD_32, AML_F(serial_spi, connection_speed), + NATIVE_F(spi_connection, connection_speed), IMM(0xFF)), + OP(FIELD_8, AML_F(serial_spi, data_bit_length), + NATIVE_F(spi_connection, data_bit_length), IMM(5)), + END(), + OP(SKIP_IF_NOT_EQUALS, ARG0(ACPI_SERIAL_TYPE_UART), IMM(8)), + OP(BIT_FIELD_2, AML_F(serial, type_specific_flags), + NATIVE_F(uart_connection, flow_control), IMM(0)), + OP(BIT_FIELD_2, AML_F(serial, type_specific_flags), + NATIVE_F(uart_connection, stop_bits), IMM(2)), + OP(BIT_FIELD_3, AML_F(serial, type_specific_flags), + NATIVE_F(uart_connection, data_bits), IMM(4)), + OP(BIT_FIELD_1, AML_F(serial, type_specific_flags), + NATIVE_F(uart_connection, endianness), IMM(7)), + OP(FIELD_32, AML_F(serial_uart, baud_rate), + NATIVE_F(uart_connection, baud_rate), IMM(0xFF)), + OP(FIELD_16, AML_F(serial_uart, rx_fifo), + NATIVE_F(uart_connection, rx_fifo), IMM(2)), + OP(FIELD_8, AML_F(serial_uart, parity), + NATIVE_F(uart_connection, parity), IMM(2)), + END(), + OP(SKIP_IF_NOT_EQUALS, ARG0(ACPI_SERIAL_TYPE_CSI2), IMM(3)), + OP(BIT_FIELD_2, AML_F(serial, type_specific_flags), + NATIVE_F(csi2_connection, phy_type), IMM(0)), + OP(BIT_FIELD_6, AML_F(serial, type_specific_flags), + NATIVE_F(csi2_connection, local_port), IMM(2)), + END(), + + /* + * Insert a trap to catch unimplemented types, this should be unreachable + * because of validation earlier. + */ + OP(UNREACHABLE), +}; + +#define NATIVE_RESOURCE_HEADER_SIZE 8 + +#define DEFINE_SMALL_AML_RESOURCE(aml_type_enum, native_type_enum, \ + aml_struct, native_struct, ...) \ + [aml_type_enum] = { \ + .type = aml_type_enum, \ + .native_type = native_type_enum, \ + .resource_kind = UACPI_AML_RESOURCE_KIND_SMALL, \ + .aml_size = sizeof(aml_struct) - SMALL_ITEM_HEADER_SIZE, \ + .native_size = sizeof(native_struct) + NATIVE_RESOURCE_HEADER_SIZE, \ + __VA_ARGS__ \ + } + +#define DEFINE_SMALL_AML_RESOURCE_NO_NATIVE_REPR( \ + aml_type_enum, native_type_enum, aml_struct, ... \ +) \ + [aml_type_enum] = { \ + .type = aml_type_enum, \ + .native_type = native_type_enum, \ + .resource_kind = UACPI_AML_RESOURCE_KIND_SMALL, \ + .aml_size = sizeof(aml_struct) - SMALL_ITEM_HEADER_SIZE, \ + .native_size = NATIVE_RESOURCE_HEADER_SIZE, \ + __VA_ARGS__ \ + } + +#define DEFINE_LARGE_AML_RESOURCE(aml_type_enum, native_type_enum, \ + aml_struct, native_struct, ...) \ + [aml_type_enum] = { \ + .type = aml_type_enum, \ + .native_type = native_type_enum, \ + .resource_kind = UACPI_AML_RESOURCE_KIND_LARGE, \ + .aml_size = sizeof(aml_struct) - LARGE_ITEM_HEADER_SIZE, \ + .native_size = sizeof(native_struct) + NATIVE_RESOURCE_HEADER_SIZE, \ + __VA_ARGS__ \ + } + +const struct uacpi_resource_spec aml_resources[UACPI_AML_RESOURCE_MAX + 1] = { + DEFINE_SMALL_AML_RESOURCE( + UACPI_AML_RESOURCE_IRQ, + UACPI_RESOURCE_TYPE_IRQ, + struct acpi_resource_irq, + uacpi_resource_irq, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED_OR_ONE_LESS, + .extra_size_for_native = extra_size_for_native_irq_or_dma, + .size_for_aml = size_for_aml_irq, + .to_native = convert_irq_to_native, + .to_aml = convert_irq_to_aml, + ), + DEFINE_SMALL_AML_RESOURCE( + UACPI_AML_RESOURCE_DMA, + UACPI_RESOURCE_TYPE_DMA, + struct acpi_resource_dma, + uacpi_resource_dma, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .extra_size_for_native = extra_size_for_native_irq_or_dma, + .to_native = convert_dma, + .to_aml = convert_dma, + ), + DEFINE_SMALL_AML_RESOURCE( + UACPI_AML_RESOURCE_START_DEPENDENT, + UACPI_RESOURCE_TYPE_START_DEPENDENT, + struct acpi_resource_start_dependent, + uacpi_resource_start_dependent, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED_OR_ONE_LESS, + .size_for_aml = size_for_aml_start_dependent, + .to_native = convert_start_dependent_to_native, + .to_aml = convert_start_dependent_to_aml, + ), + DEFINE_SMALL_AML_RESOURCE_NO_NATIVE_REPR( + UACPI_AML_RESOURCE_END_DEPENDENT, + UACPI_RESOURCE_TYPE_END_DEPENDENT, + struct acpi_resource_end_dependent, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + ), + DEFINE_SMALL_AML_RESOURCE( + UACPI_AML_RESOURCE_IO, + UACPI_RESOURCE_TYPE_IO, + struct acpi_resource_io, + uacpi_resource_io, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_io, + .to_aml = convert_io, + ), + DEFINE_SMALL_AML_RESOURCE( + UACPI_AML_RESOURCE_FIXED_IO, + UACPI_RESOURCE_TYPE_FIXED_IO, + struct acpi_resource_fixed_io, + uacpi_resource_fixed_io, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_fixed_io, + .to_aml = convert_fixed_io, + ), + DEFINE_SMALL_AML_RESOURCE( + UACPI_AML_RESOURCE_FIXED_DMA, + UACPI_RESOURCE_TYPE_FIXED_DMA, + struct acpi_resource_fixed_dma, + uacpi_resource_fixed_dma, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_fixed_dma, + .to_aml = convert_fixed_dma, + ), + DEFINE_SMALL_AML_RESOURCE( + UACPI_AML_RESOURCE_VENDOR_TYPE0, + UACPI_RESOURCE_TYPE_VENDOR_SMALL, + struct acpi_resource_vendor_defined_type0, + uacpi_resource_vendor, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .size_for_aml = size_for_aml_vendor, + .extra_size_for_native = extra_size_for_native_vendor, + .to_native = convert_vendor_type0, + .to_aml = convert_vendor_type0, + ), + DEFINE_SMALL_AML_RESOURCE_NO_NATIVE_REPR( + UACPI_AML_RESOURCE_END_TAG, + UACPI_RESOURCE_TYPE_END_TAG, + struct acpi_resource_end_tag, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_MEMORY24, + UACPI_RESOURCE_TYPE_MEMORY24, + struct acpi_resource_memory24, + uacpi_resource_memory24, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_memory24, + .to_aml = convert_memory24, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_GENERIC_REGISTER, + UACPI_RESOURCE_TYPE_GENERIC_REGISTER, + struct acpi_resource_generic_register, + uacpi_resource_generic_register, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_generic_register, + .to_aml = convert_generic_register, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_VENDOR_TYPE1, + UACPI_RESOURCE_TYPE_VENDOR_LARGE, + struct acpi_resource_vendor_defined_type1, + uacpi_resource_vendor, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_vendor, + .size_for_aml = size_for_aml_vendor, + .to_native = convert_vendor_type1, + .to_aml = convert_vendor_type1, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_MEMORY32, + UACPI_RESOURCE_TYPE_MEMORY32, + struct acpi_resource_memory32, + uacpi_resource_memory32, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_memory32, + .to_aml = convert_memory32, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_FIXED_MEMORY32, + UACPI_RESOURCE_TYPE_FIXED_MEMORY32, + struct acpi_resource_fixed_memory32, + uacpi_resource_fixed_memory32, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_fixed_memory32, + .to_aml = convert_fixed_memory32, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_ADDRESS32, + UACPI_RESOURCE_TYPE_ADDRESS32, + struct acpi_resource_address32, + uacpi_resource_address32, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_address_or_clock_input, + .size_for_aml = size_for_aml_address_or_clock_input, + .to_native = convert_address32, + .to_aml = convert_address32, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_ADDRESS16, + UACPI_RESOURCE_TYPE_ADDRESS16, + struct acpi_resource_address16, + uacpi_resource_address16, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_address_or_clock_input, + .size_for_aml = size_for_aml_address_or_clock_input, + .to_native = convert_address16, + .to_aml = convert_address16, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_EXTENDED_IRQ, + UACPI_RESOURCE_TYPE_EXTENDED_IRQ, + struct acpi_resource_extended_irq, + uacpi_resource_extended_irq, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_extended_irq, + .size_for_aml = size_for_aml_extended_irq, + .to_native = convert_extended_irq, + .to_aml = convert_extended_irq, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_ADDRESS64, + UACPI_RESOURCE_TYPE_ADDRESS64, + struct acpi_resource_address64, + uacpi_resource_address64, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_address_or_clock_input, + .size_for_aml = size_for_aml_address_or_clock_input, + .to_native = convert_address64, + .to_aml = convert_address64, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_ADDRESS64_EXTENDED, + UACPI_RESOURCE_TYPE_ADDRESS64_EXTENDED, + struct acpi_resource_address64_extended, + uacpi_resource_address64_extended, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_FIXED, + .to_native = convert_address64_extended, + .to_aml = convert_address64_extended, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_GPIO_CONNECTION, + UACPI_RESOURCE_TYPE_GPIO_CONNECTION, + struct acpi_resource_gpio_connection, + uacpi_resource_gpio_connection, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_gpio_or_pins, + .size_for_aml = size_for_aml_gpio_or_pins, + .to_aml = convert_gpio_connection, + .to_native = convert_gpio_connection, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_PIN_FUNCTION, + UACPI_RESOURCE_TYPE_PIN_FUNCTION, + struct acpi_resource_pin_function, + uacpi_resource_pin_function, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_gpio_or_pins, + .size_for_aml = size_for_aml_gpio_or_pins, + .to_aml = convert_pin_function, + .to_native = convert_pin_function, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_SERIAL_CONNECTION, + 0, // the native type here is determined dynamically + struct acpi_resource_serial, + uacpi_resource_serial_bus_common, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_serial_connection, + .size_for_aml = aml_size_for_serial_connection, + .to_native = convert_generic_serial_bus, + .to_aml = convert_generic_serial_bus, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_PIN_CONFIGURATION, + UACPI_RESOURCE_TYPE_PIN_CONFIGURATION, + struct acpi_resource_pin_configuration, + uacpi_resource_pin_configuration, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_gpio_or_pins, + .size_for_aml = size_for_aml_gpio_or_pins, + .to_native = convert_pin_configuration, + .to_aml = convert_pin_configuration, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_PIN_GROUP, + UACPI_RESOURCE_TYPE_PIN_GROUP, + struct acpi_resource_pin_group, + uacpi_resource_pin_group, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_gpio_or_pins, + .size_for_aml = size_for_aml_gpio_or_pins, + .to_native = convert_pin_group, + .to_aml = convert_pin_group, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_PIN_GROUP_FUNCTION, + UACPI_RESOURCE_TYPE_PIN_GROUP_FUNCTION, + struct acpi_resource_pin_group_function, + uacpi_resource_pin_group_function, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_pin_group, + .size_for_aml = size_for_aml_pin_group, + .to_native = convert_pin_group_function, + .to_aml = convert_pin_group_function, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_PIN_GROUP_CONFIGURATION, + UACPI_RESOURCE_TYPE_PIN_GROUP_CONFIGURATION, + struct acpi_resource_pin_group_configuration, + uacpi_resource_pin_group_configuration, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_pin_group, + .size_for_aml = size_for_aml_pin_group, + .to_native = convert_pin_group_configuration, + .to_aml = convert_pin_group_configuration, + ), + DEFINE_LARGE_AML_RESOURCE( + UACPI_AML_RESOURCE_CLOCK_INPUT, + UACPI_RESOURCE_TYPE_CLOCK_INPUT, + struct acpi_resource_clock_input, + uacpi_resource_clock_input, + .size_kind = UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE, + .extra_size_for_native = extra_size_for_native_address_or_clock_input, + .size_for_aml = size_for_aml_address_or_clock_input, + .to_native = convert_clock_input, + .to_aml = convert_clock_input, + ), +}; + +static enum uacpi_aml_resource get_aml_resource_type(uacpi_u8 raw_byte) +{ + if (raw_byte & ACPI_LARGE_ITEM) { + return aml_resource_to_type[ + LARGE_RESOURCE_BASE + (raw_byte & ACPI_LARGE_ITEM_NAME_MASK) + ]; + } + + return aml_resource_to_type[ + (raw_byte >> ACPI_SMALL_ITEM_NAME_IDX) & ACPI_SMALL_ITEM_NAME_MASK + ]; +} + +static uacpi_status get_aml_resource_size( + uacpi_u8 *data, uacpi_size bytes_left, uacpi_u16 *out_size +) +{ + uacpi_u16 size; + + /* + * Resource header is not included in size for both, so we subtract + * the header size from bytes_left to validate it. + */ + if (*data & ACPI_LARGE_ITEM) { + if (uacpi_unlikely(bytes_left < 3)) + return UACPI_STATUS_AML_INVALID_RESOURCE; + + uacpi_memcpy(&size, data + 1, sizeof(size)); + bytes_left -= aml_resource_kind_to_header_size[ + UACPI_AML_RESOURCE_KIND_LARGE + ]; + } else { + size = *data & ACPI_SMALL_ITEM_LENGTH_MASK; + bytes_left -= aml_resource_kind_to_header_size[ + UACPI_AML_RESOURCE_KIND_SMALL + ]; + } + + if (uacpi_unlikely(size > bytes_left)) + return UACPI_STATUS_AML_INVALID_RESOURCE; + + *out_size = size; + return UACPI_STATUS_OK; +} + +static uacpi_status validate_aml_serial_type(uacpi_u8 type) +{ + if (uacpi_unlikely(type < ACPI_SERIAL_TYPE_I2C || + type > ACPI_SERIAL_TYPE_CSI2)) { + uacpi_error("invalid/unsupported serial connection type %d\n", type); + return UACPI_STATUS_AML_INVALID_RESOURCE; + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_for_each_aml_resource( + uacpi_data_view buffer, uacpi_aml_resource_iteration_callback cb, void *user +) +{ + uacpi_status ret; + uacpi_iteration_decision decision; + uacpi_u8 *data; + uacpi_size bytes_left; + uacpi_u16 resource_size; + enum uacpi_aml_resource type; + const struct uacpi_resource_spec *spec; + + bytes_left = buffer.length; + data = buffer.bytes; + + while (bytes_left) { + type = get_aml_resource_type(*data); + if (uacpi_unlikely(type == UACPI_AML_RESOURCE_TYPE_INVALID)) + return UACPI_STATUS_AML_INVALID_RESOURCE; + + ret = get_aml_resource_size(data, bytes_left, &resource_size); + if (uacpi_unlikely_error(ret)) + return ret; + + spec = &aml_resources[type]; + switch (spec->size_kind) { + case UACPI_AML_RESOURCE_SIZE_KIND_FIXED: + if (resource_size != spec->aml_size) + return UACPI_STATUS_AML_INVALID_RESOURCE; + break; + case UACPI_AML_RESOURCE_SIZE_KIND_VARIABLE: + if (resource_size < spec->aml_size) + return UACPI_STATUS_AML_INVALID_RESOURCE; + break; + case UACPI_AML_RESOURCE_SIZE_KIND_FIXED_OR_ONE_LESS: + if (resource_size != spec->aml_size && + resource_size != (spec->aml_size - 1)) + return UACPI_STATUS_AML_INVALID_RESOURCE; + break; + default: + return UACPI_STATUS_INTERNAL_ERROR; + } + + if (spec->type == UACPI_AML_RESOURCE_SERIAL_CONNECTION) { + struct acpi_resource_serial *serial; + + serial = (struct acpi_resource_serial*)data; + + ret = validate_aml_serial_type(serial->type); + if (uacpi_unlikely_error(ret)) + return ret; + } + + decision = cb(user, data, resource_size, spec); + switch (decision) { + case UACPI_ITERATION_DECISION_BREAK: + return UACPI_STATUS_OK; + case UACPI_ITERATION_DECISION_CONTINUE: { + uacpi_size total_size = resource_size; + + total_size += aml_resource_kind_to_header_size[spec->resource_kind]; + data += total_size; + bytes_left -= total_size; + break; + } + default: + return UACPI_STATUS_INTERNAL_ERROR; + } + + if (type == UACPI_AML_RESOURCE_END_TAG) + return UACPI_STATUS_OK; + } + + return UACPI_STATUS_NO_RESOURCE_END_TAG; +} + +static uacpi_iteration_decision find_end( + void *opaque, uacpi_u8 *data, uacpi_u16 resource_size, + const struct uacpi_resource_spec *spec +) +{ + uacpi_u8 **out_ptr = opaque; + UACPI_UNUSED(resource_size); + + if (spec->type != UACPI_AML_RESOURCE_END_TAG) + return UACPI_ITERATION_DECISION_CONTINUE; + + *out_ptr = data; + return UACPI_ITERATION_DECISION_BREAK; +} + +static uacpi_size native_size_for_aml_resource( + uacpi_u8 *data, uacpi_u16 size, const struct uacpi_resource_spec *spec +) +{ + uacpi_size final_size = spec->native_size; + + if (spec->extra_size_for_native) + final_size += spec->extra_size_for_native(spec, data, size); + + return UACPI_ALIGN_UP(final_size, sizeof(void*), uacpi_size); +} + +uacpi_status uacpi_find_aml_resource_end_tag( + uacpi_data_view buffer, uacpi_size *out_offset +) +{ + uacpi_u8 *end_tag_ptr = UACPI_NULL; + uacpi_status ret; + + if (buffer.length == 0) { + *out_offset = 0; + return UACPI_STATUS_OK; + } + + /* + * This returning UACPI_STATUS_OK guarantees that end_tag_ptr is set to + * a valid value because a missing end tag would produce a + * UACPI_STATUS_NO_RESOURCE_END_TAG error. + */ + ret = uacpi_for_each_aml_resource(buffer, find_end, &end_tag_ptr); + if (uacpi_unlikely_error(ret)) + return ret; + + *out_offset = end_tag_ptr - buffer.bytes; + return UACPI_STATUS_OK; +} + +struct resource_conversion_ctx { + union { + void *buf; + uacpi_u8 *byte_buf; + uacpi_size size; + }; + uacpi_status st; + uacpi_bool just_one; +}; + +static uacpi_iteration_decision conditional_continue( + struct resource_conversion_ctx *ctx +) +{ + return ctx->just_one ? UACPI_ITERATION_DECISION_BREAK : + UACPI_ITERATION_DECISION_CONTINUE; +} + +// Opcodes that are the same for both AML->native and native->AML +#define CONVERSION_OPCODES_COMMON(native_buf) \ + case UACPI_RESOURCE_CONVERT_OPCODE_END: \ + return conditional_continue(ctx); \ + \ + case UACPI_RESOURCE_CONVERT_OPCODE_FIELD_8: \ + case UACPI_RESOURCE_CONVERT_OPCODE_FIELD_16: \ + case UACPI_RESOURCE_CONVERT_OPCODE_FIELD_32: \ + case UACPI_RESOURCE_CONVERT_OPCODE_FIELD_64: { \ + uacpi_u8 bytes; \ + \ + bytes = 1 << (insn->code - UACPI_RESOURCE_CONVERT_OPCODE_FIELD_8); \ + accumulator = insn->f3.imm == 0xFF ? 0 : accumulator + insn->f3.imm; \ + \ + uacpi_memcpy(dst, src, bytes * UACPI_MAX(1, accumulator)); \ + accumulator = 0; \ + break; \ + } \ + \ + case UACPI_RESOURCE_CONVERT_OPCODE_SKIP_IF_AML_SIZE_LESS_THAN: \ + if (aml_size < insn->f1.arg0) \ + pc += insn->f3.imm; \ + break; \ + case UACPI_RESOURCE_CONVERT_OPCODE_SKIP_IF_NOT_EQUALS: \ + if (insn->f1.arg0 != accumulator) \ + pc += insn->f3.imm; \ + break; \ + \ + case UACPI_RESOURCE_CONVERT_OPCODE_SET_TO_IMM: \ + uacpi_memcpy(dst, &insn->f3.imm, sizeof(insn->f3.imm)); \ + break; \ + \ + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_IMM: \ + accumulator = insn->f3.imm; \ + break; \ + \ + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_8_STORE: \ + uacpi_memcpy_zerout(&accumulator, src, sizeof(accumulator), 1); \ + uacpi_memcpy(dst, &accumulator, 1); \ + \ + if (insn->f3.imm) \ + accumulator *= insn->f3.imm; \ + break; \ + \ + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_8_NATIVE: \ + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_16_NATIVE: { \ + uacpi_u8 bytes; \ + \ + bytes = \ + 1 << (insn->code - UACPI_RESOURCE_CONVERT_OPCODE_LOAD_8_NATIVE); \ + uacpi_memcpy_zerout( \ + &accumulator, native_buf, sizeof(accumulator), bytes \ + ); \ + break; \ + } \ + \ + case UACPI_RESOURCE_CONVERT_OPCODE_UNREACHABLE: \ + default: \ + if (insn->code != UACPI_RESOURCE_CONVERT_OPCODE_UNREACHABLE) { \ + uacpi_error("unhandled resource conversion opcode %d\n", \ + insn->code); \ + } else { \ + uacpi_error("tried to execute unreachable conversion opcode\n"); \ + } \ + ctx->st = UACPI_STATUS_INTERNAL_ERROR; \ + return UACPI_ITERATION_DECISION_BREAK; + +#define PTR_AT(ptr, offset) (void*)((uacpi_u8*)(ptr) + (offset)) + +#define NATIVE_OFFSET(res, offset) \ + PTR_AT(res, (offset) + (sizeof(uacpi_u32) * 2)) + +#define NATIVE_FIELD(res, name, field) \ + NATIVE_OFFSET(res, NATIVE_O(name, field)) + +#define CHECK_AML_OOB(offset, prefix, what) \ + if (uacpi_unlikely(offset > ((uacpi_u32)aml_size + header_size))) { \ + uacpi_error(prefix what " is OOB: %zu > %u\n", \ + (uacpi_size)offset, (uacpi_u32)aml_size + header_size); \ + ctx->st = UACPI_STATUS_AML_INVALID_RESOURCE; \ + return UACPI_ITERATION_DECISION_BREAK; \ + } + +#define CHECK_AML_OFFSET_BASE(offset, what) \ + if (uacpi_unlikely(offset < base_aml_size_with_header)) { \ + uacpi_error( \ + "invalid " what " offset: %zu, expected at least %u\n", \ + (uacpi_size)offset, base_aml_size_with_header); \ + ctx->st = UACPI_STATUS_AML_INVALID_RESOURCE; \ + return UACPI_ITERATION_DECISION_BREAK; \ + } + +#define CHECK_AML_OFFSET(offset, what) \ + CHECK_AML_OOB(offset, "end of ", what) \ + CHECK_AML_OFFSET_BASE(offset, what) + +static uacpi_resource_type aml_serial_to_native_type( + uacpi_u8 type +) +{ + return (type - ACPI_SERIAL_TYPE_I2C) + + UACPI_RESOURCE_TYPE_SERIAL_I2C_CONNECTION; +} + +static uacpi_iteration_decision do_aml_resource_to_native( + void *opaque, uacpi_u8 *data, uacpi_u16 aml_size, + const struct uacpi_resource_spec *spec +) +{ + struct resource_conversion_ctx *ctx = opaque; + uacpi_resource *resource = ctx->buf; + const struct uacpi_resource_convert_instruction *insns, *insn; + uacpi_u8 header_size, pc = 0; + uacpi_u8 *src, *dst; + void *resource_end; + uacpi_u16 base_aml_size; + uacpi_u32 base_aml_size_with_header, accumulator = 0; + + insns = spec->to_native; + + header_size = aml_resource_kind_to_header_size[spec->resource_kind]; + resource->type = spec->native_type; + resource->length = native_size_for_aml_resource(data, aml_size, spec); + resource_end = ctx->byte_buf + spec->native_size; + ctx->byte_buf += resource->length; + + base_aml_size = base_aml_size_with_header = spec->aml_size; + base_aml_size_with_header += header_size; + + if (insns == UACPI_NULL) + return conditional_continue(ctx); + + for (;;) { + insn = &insns[pc++]; + + src = data + insn->f1.aml_offset; + dst = NATIVE_OFFSET(resource, insn->f2.native_offset); + + switch (insn->code) { + case UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_8: + case UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_16: { + uacpi_size i, j, max_bit; + uacpi_u16 value; + + if (insn->code == UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_16) { + max_bit = 16; + uacpi_memcpy(&value, src, sizeof(uacpi_u16)); + } else { + max_bit = 8; + uacpi_memcpy_zerout( + &value, src, sizeof(value), sizeof(uacpi_u8) + ); + } + + for (i = 0, j = 0; i < max_bit; ++i) { + if (!(value & (1 << i))) + continue; + + dst[j++] = i; + } + + uacpi_memcpy(NATIVE_OFFSET(resource, insn->f3.arg2), &j, 1); + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_1: + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_2: + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_3: + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_6:{ + uacpi_u8 mask, value; + + mask = (insn->code - UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_1) + 1; + mask = (1 << mask) - 1; + + value = (*src >> insn->f3.imm) & mask; + uacpi_memcpy(dst, &value, sizeof(value)); + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_AML_SIZE_32: + accumulator = aml_size; + uacpi_memcpy(dst, &accumulator, 4); + break; + + case UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE: + case UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE_NO_INDEX: + case UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_LABEL: { + uacpi_size offset = 0, max_offset, length = 0; + uacpi_char *src_string, *dst_string; + union { + void *ptr; + uacpi_resource_source *source; + uacpi_resource_label *label; + } dst_name = { 0 }; + + dst_name.ptr = dst; + + /* + * Check if the string is bounded by anything at the top. If not, we + * just assume it ends at the end of the resource. + */ + if (insn->f3.arg2) { + uacpi_memcpy_zerout(&max_offset, data + insn->f3.arg2, + sizeof(max_offset), sizeof(uacpi_u16)); + CHECK_AML_OFFSET(max_offset, "resource source"); + } else { + max_offset = aml_size + header_size; + } + + offset += base_aml_size_with_header; + offset += accumulator; + + if (insn->code != UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_LABEL) + dst_name.source->index_present = UACPI_TRUE; + + if (offset >= max_offset) { + if (insn->code == UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE) + dst_name.source->index_present = UACPI_FALSE; + break; + } + + src_string = PTR_AT(data, offset); + + if (insn->code == UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE) { + uacpi_memcpy(&dst_name.source->index, src_string++, 1); + offset++; + } + + if (offset == max_offset) + break; + + while (offset++ < max_offset) { + if (src_string[length++] == '\0') + break; + } + + if (src_string[length - 1] != '\0') { + uacpi_error("non-null-terminated resource source string\n"); + ctx->st = UACPI_STATUS_AML_INVALID_RESOURCE; + return UACPI_ITERATION_DECISION_BREAK; + } + + dst_string = PTR_AT(resource_end, accumulator); + uacpi_memcpy(dst_string, src_string, length); + + if (insn->code == UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_LABEL) { + dst_name.label->length = length; + dst_name.label->string = dst_string; + } else { + dst_name.source->length = length; + dst_name.source->string = dst_string; + } + + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_PIN_TABLE_LENGTH: + uacpi_memcpy_zerout(&accumulator, src, + sizeof(accumulator), sizeof(uacpi_u16)); + CHECK_AML_OFFSET(accumulator, "pin table"); + + accumulator -= base_aml_size_with_header; + break; + + case UACPI_RESOURCE_CONVERT_OPCODE_PIN_TABLE: { + uacpi_u16 entry_count = accumulator / 2; + + /* + * Pin table is stored right at the end of the resource buffer, + * copy the data there. + */ + uacpi_memcpy( + resource_end, + data + base_aml_size_with_header, + accumulator + ); + + // Set pin_table_length + uacpi_memcpy(dst, &entry_count, sizeof(entry_count)); + + // Set pin_table pointer + uacpi_memcpy(NATIVE_OFFSET(resource, insn->f3.arg2), + &resource_end, sizeof(void*)); + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_VENDOR_DATA: { + uacpi_size length; + uacpi_u16 data_offset, offset_from_end; + void *native_dst, *vendor_data; + + uacpi_memcpy(&data_offset, src, sizeof(data_offset)); + CHECK_AML_OFFSET(data_offset, "vendor data"); + + vendor_data = data + data_offset; + + /* + * Rebase the offset to cut off the header as it's not included + * in the size fields. + */ + data_offset -= header_size; + + length = aml_size - data_offset; + if (length == 0) + break; + + uacpi_memcpy(dst, &length, sizeof(uacpi_u16)); + + offset_from_end = data_offset - base_aml_size; + native_dst = PTR_AT(resource_end, offset_from_end); + + uacpi_memcpy(native_dst, vendor_data, length); + uacpi_memcpy(NATIVE_OFFSET(resource, insn->f3.arg2), + &native_dst, sizeof(void*)); + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_SERIAL_TYPE_SPECIFIC: { + uacpi_resource_serial_bus_common *serial_bus_common; + uacpi_u8 serial_type, extra_size, type_length; + + serial_bus_common = &resource->serial_bus_common; + serial_type = *src; + serial_bus_common->type = serial_type; + resource->type = aml_serial_to_native_type(serial_type); + + /* + * Now that we know the serial type rebase the end pointers and + * sizes. + */ + resource_end = PTR_AT( + resource_end, + aml_serial_resource_to_extra_native_size[serial_type] + ); + extra_size = aml_serial_resource_to_extra_aml_size[serial_type]; + base_aml_size += extra_size; + base_aml_size_with_header += extra_size; + + type_length = serial_bus_common->type_data_length; + if (uacpi_unlikely(type_length < extra_size)) { + uacpi_error( + "invalid type-specific data length: %d, " + "expected at least %d\n", type_length, extra_size + ); + ctx->st = UACPI_STATUS_AML_INVALID_RESOURCE; + return UACPI_ITERATION_DECISION_BREAK; + } + + /* + * Calculate the length of the vendor data. All the extra data + * beyond the end of type-specific size is considered vendor data. + */ + accumulator = type_length - extra_size; + if (accumulator == 0) + break; + + serial_bus_common->vendor_data_length = accumulator; + serial_bus_common->vendor_data = resource_end; + uacpi_memcpy( + resource_end, + data + base_aml_size_with_header, + accumulator + ); + break; + } + + CONVERSION_OPCODES_COMMON(dst) + } + } +} + +static uacpi_iteration_decision accumulate_native_buffer_size( + void *opaque, uacpi_u8 *data, uacpi_u16 resource_size, + const struct uacpi_resource_spec *spec +) +{ + struct resource_conversion_ctx *ctx = opaque; + uacpi_size size_for_this; + + size_for_this = native_size_for_aml_resource(data, resource_size, spec); + if (size_for_this == 0 || (ctx->size + size_for_this) < ctx->size) { + uacpi_error("invalid native size for aml resource: %zu\n", + size_for_this); + ctx->st = UACPI_STATUS_AML_INVALID_RESOURCE; + return UACPI_ITERATION_DECISION_BREAK; + } + + ctx->size += size_for_this; + return conditional_continue(ctx); +} + +static uacpi_status eval_resource_helper( + uacpi_namespace_node *node, const uacpi_char *method, + uacpi_object **out_obj +) +{ + uacpi_status ret; + uacpi_bool is_device; + + ret = uacpi_namespace_node_is(node, UACPI_OBJECT_DEVICE, &is_device); + if (uacpi_unlikely_error(ret)) + return ret; + + if (uacpi_unlikely(!is_device)) + return UACPI_STATUS_INVALID_ARGUMENT; + + return uacpi_eval_simple_buffer( + node, method, out_obj + ); +} + +uacpi_status uacpi_native_resources_from_aml( + uacpi_data_view aml_buffer, uacpi_resources **out_resources +) +{ + uacpi_status ret; + struct resource_conversion_ctx ctx = { 0 }; + uacpi_resources *resources; + + ret = uacpi_for_each_aml_resource( + aml_buffer, accumulate_native_buffer_size, &ctx + ); + if (uacpi_unlikely_error(ret)) + return ret; + + if (uacpi_unlikely_error(ctx.st)) + return ctx.st; + + // Realistically any resource buffer bigger than this is probably a bug + if (uacpi_unlikely(ctx.size > (5 * 1024u * 1024u))) { + uacpi_error("bug: bogus native resource buffer size %zu\n", ctx.size); + return UACPI_STATUS_INTERNAL_ERROR; + } + + resources = uacpi_kernel_alloc_zeroed(ctx.size + sizeof(uacpi_resources)); + if (uacpi_unlikely(resources == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + resources->length = ctx.size; + resources->entries = UACPI_PTR_ADD(resources, sizeof(uacpi_resources)); + + uacpi_memzero(&ctx, sizeof(ctx)); + ctx.buf = resources->entries; + + ret = uacpi_for_each_aml_resource(aml_buffer, do_aml_resource_to_native, &ctx); + if (uacpi_unlikely_error(ret)) { + uacpi_free_resources(resources); + return ret; + } + + *out_resources = resources; + return ret; +} + +uacpi_status uacpi_get_resource_from_buffer( + uacpi_data_view aml_buffer, uacpi_resource **out_resource +) +{ + uacpi_status ret; + struct resource_conversion_ctx ctx = { + .just_one = UACPI_TRUE, + }; + uacpi_resource *resource; + + ret = uacpi_for_each_aml_resource( + aml_buffer, accumulate_native_buffer_size, &ctx + ); + if (uacpi_unlikely_error(ret)) + return ret; + + resource = uacpi_kernel_alloc_zeroed(ctx.size); + if (uacpi_unlikely(resource == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memzero(&ctx, sizeof(ctx)); + ctx.buf = resource; + ctx.just_one = UACPI_TRUE; + + ret = uacpi_for_each_aml_resource(aml_buffer, do_aml_resource_to_native, &ctx); + if (uacpi_unlikely_error(ret)) { + uacpi_free_resource(resource); + return ret; + } + + *out_resource = resource; + return ret; +} + +void uacpi_free_resources(uacpi_resources *resources) +{ + if (resources == UACPI_NULL) + return; + + uacpi_free(resources, sizeof(uacpi_resources) + resources->length); +} + +void uacpi_free_resource(uacpi_resource *resource) +{ + if (resource == UACPI_NULL) + return; + + uacpi_free(resource, resource->length); +} + +static uacpi_status extract_native_resources_from_method( + uacpi_namespace_node *device, const uacpi_char *method, + uacpi_resources **out_resources +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_data_view buffer; + + ret = eval_resource_helper(device, method, &obj); + if (uacpi_unlikely_error(ret)) + return ret; + + uacpi_buffer_to_view(obj->buffer, &buffer); + + ret = uacpi_native_resources_from_aml(buffer, out_resources); + uacpi_object_unref(obj); + + return ret; +} + +uacpi_status uacpi_get_current_resources( + uacpi_namespace_node *device, uacpi_resources **out_resources +) +{ + return extract_native_resources_from_method(device, "_CRS", out_resources); +} + +uacpi_status uacpi_get_possible_resources( + uacpi_namespace_node *device, uacpi_resources **out_resources +) +{ + return extract_native_resources_from_method(device, "_PRS", out_resources); +} + +uacpi_status uacpi_get_device_resources( + uacpi_namespace_node *device, const uacpi_char *method, + uacpi_resources **out_resources +) +{ + return extract_native_resources_from_method(device, method, out_resources); +} + +uacpi_status uacpi_for_each_resource( + uacpi_resources *resources, uacpi_resource_iteration_callback cb, void *user +) +{ + uacpi_size bytes_left = resources->length; + uacpi_resource *current = resources->entries; + uacpi_iteration_decision decision; + + while (bytes_left) { + // At least the head bytes + if (uacpi_unlikely(bytes_left < 4)) { + uacpi_error("corrupted resource buffer %p length %zu\n", + resources, resources->length); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (uacpi_unlikely(current->type > UACPI_RESOURCE_TYPE_MAX)) { + uacpi_error("invalid resource type %d\n", current->type); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + if (uacpi_unlikely(current->length > bytes_left)) { + uacpi_error("corrupted resource@%p length %u (%zu bytes left)\n", + current, current->length, bytes_left); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + decision = cb(user, current); + + if (decision == UACPI_ITERATION_DECISION_BREAK || + current->type == UACPI_RESOURCE_TYPE_END_TAG) + return UACPI_STATUS_OK; + + bytes_left -= current->length; + current = (uacpi_resource*)((uacpi_u8*)current + current->length); + } + + return UACPI_STATUS_NO_RESOURCE_END_TAG; +} + +uacpi_status uacpi_for_each_device_resource( + uacpi_namespace_node *device, const uacpi_char *method, + uacpi_resource_iteration_callback cb, void *user +) +{ + uacpi_status ret; + uacpi_resources *resources; + + ret = extract_native_resources_from_method(device, method, &resources); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_for_each_resource(resources, cb, user); + uacpi_free_resources(resources); + + return ret; +} + +static const struct uacpi_resource_spec *resource_spec_from_native( + uacpi_resource *resource +) +{ + return &aml_resources[native_resource_to_type[resource->type]]; +} + +static uacpi_size aml_size_for_native_resource( + uacpi_resource *resource, const struct uacpi_resource_spec *spec +) +{ + return spec->size_for_aml ? + spec->size_for_aml(spec, resource) : + aml_size_with_header(spec); +} + +static uacpi_iteration_decision do_native_resource_to_aml( + void *opaque, uacpi_resource *resource +) +{ + struct resource_conversion_ctx *ctx = opaque; + const struct uacpi_resource_spec *spec; + const struct uacpi_resource_convert_instruction *insns, *insn; + uacpi_u8 pc = 0; + uacpi_u8 *dst_base, *src, *dst; + uacpi_u32 aml_size, base_aml_size_with_header, accumulator = 0; + void *resource_end; + + spec = resource_spec_from_native(resource); + aml_size = aml_size_for_native_resource(resource, spec); + insns = spec->to_aml; + + dst_base = ctx->byte_buf; + ctx->byte_buf += aml_size; + aml_size -= aml_resource_kind_to_header_size[spec->resource_kind]; + + base_aml_size_with_header = spec->aml_size; + base_aml_size_with_header += aml_resource_kind_to_header_size[ + spec->resource_kind + ]; + resource_end = PTR_AT(resource, spec->native_size); + + if (spec->resource_kind == UACPI_AML_RESOURCE_KIND_LARGE) { + *dst_base = ACPI_LARGE_ITEM | type_to_aml_resource[spec->type]; + uacpi_memcpy(dst_base + 1, &aml_size, sizeof(uacpi_u16)); + } else { + *dst_base = type_to_aml_resource[spec->type] << ACPI_SMALL_ITEM_NAME_IDX; + *dst_base |= aml_size; + } + + if (insns == UACPI_NULL) + return UACPI_ITERATION_DECISION_CONTINUE; + + for (;;) { + insn = &insns[pc++]; + + src = NATIVE_OFFSET(resource, insn->f2.native_offset); + dst = dst_base + insn->f1.aml_offset; + + switch (insn->code) { + case UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_8: + case UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_16: { + uacpi_u8 i, *array_size, bytes = 1; + uacpi_u16 mask = 0; + + array_size = NATIVE_OFFSET(resource, insn->f3.arg2); + for (i = 0; i < *array_size; ++i) + mask |= 1 << src[i]; + + if (insn->code == UACPI_RESOURCE_CONVERT_OPCODE_PACKED_ARRAY_16) + bytes = 2; + + uacpi_memcpy(dst, &mask, bytes); + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_1: + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_2: + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_3: + case UACPI_RESOURCE_CONVERT_OPCODE_BIT_FIELD_6: + *dst |= *src << insn->f3.imm; + break; + + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_AML_SIZE_32: + accumulator = aml_size; + break; + + case UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE: + case UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE_NO_INDEX: + case UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_LABEL: { + uacpi_size source_offset, length; + uacpi_u8 *dst_string; + const uacpi_char *src_string; + union { + void *ptr; + uacpi_resource_source *source; + uacpi_resource_label *label; + } src_name = { 0 }; + + src_name.ptr = src; + + source_offset = base_aml_size_with_header + accumulator; + dst_string = dst_base + source_offset; + + if (insn->f1.aml_offset) + uacpi_memcpy(dst, &source_offset, sizeof(uacpi_u16)); + + if (insn->code == UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_SOURCE && + src_name.source->index_present) + uacpi_memcpy(dst_string++, &src_name.source->index, 1); + + if (insn->code == UACPI_RESOURCE_CONVERT_OPCODE_RESOURCE_LABEL) { + length = src_name.label->length; + src_string = src_name.label->string; + } else { + length = src_name.source->length; + src_string = src_name.source->string; + } + + if (length == 0) + break; + + if (uacpi_unlikely(src_string == UACPI_NULL)) { + uacpi_error( + "source string length is %zu but the pointer is NULL\n", + length + ); + ctx->st = UACPI_STATUS_INVALID_ARGUMENT; + return UACPI_ITERATION_DECISION_BREAK; + } + + uacpi_memcpy(dst_string, src_string, length); + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_LOAD_PIN_TABLE_LENGTH: + uacpi_memcpy_zerout(&accumulator, src, + sizeof(accumulator), sizeof(uacpi_u16)); + accumulator *= sizeof(uacpi_u16); + break; + + case UACPI_RESOURCE_CONVERT_OPCODE_PIN_TABLE: + /* + * The pin table resides right at the end of the base resource, + * set the offset to it in the AML we're encoding. + */ + uacpi_memcpy(dst, &base_aml_size_with_header, sizeof(uacpi_u16)); + + /* + * Copy the actual data. It also resides right at the end of the + * native base resource. + */ + uacpi_memcpy( + dst_base + base_aml_size_with_header, + resource_end, + accumulator + ); + break; + + case UACPI_RESOURCE_CONVERT_OPCODE_VENDOR_DATA: { + uacpi_u16 vendor_data_length, data_offset, vendor_data_offset; + uacpi_u8 *vendor_data; + + // Read the vendor_data pointer + uacpi_memcpy(&vendor_data, NATIVE_OFFSET(resource, insn->f3.arg2), + sizeof(void*)); + uacpi_memcpy(&vendor_data_length, src, sizeof(uacpi_u16)); + + if (vendor_data == UACPI_NULL) { + uacpi_size full_aml_size; + + if (uacpi_unlikely(vendor_data_length != 0)) { + uacpi_error( + "vendor_data_length is %d, but pointer is NULL\n", + vendor_data_length + ); + ctx->st = UACPI_STATUS_INVALID_ARGUMENT; + return UACPI_ITERATION_DECISION_BREAK; + } + + /* + * There's no vendor data. The specification still mandates + * that we fill the vendor data offset field correctly, meaning + * we set it to the total length of the resource. + */ + full_aml_size = aml_size; + full_aml_size += aml_resource_kind_to_header_size[ + spec->resource_kind + ]; + + uacpi_memcpy(dst, &full_aml_size, sizeof(uacpi_u16)); + break; + } + + /* + * Calculate the offset of vendor data from the end of the native + * resource and use it since it matches the offset from the end of + * the AML resource. + * + * Non-zero value means there's a source string in between. + */ + data_offset = vendor_data - (uacpi_u8*)resource_end; + vendor_data_offset = data_offset + base_aml_size_with_header; + + // Write vendor_data_offset + uacpi_memcpy(dst, &vendor_data_offset, sizeof(uacpi_u16)); + + /* + * Write vendor_data_length, this field is right after + * vendor_data_offset, and is completely redundant, but it exists + * nonetheless. + */ + uacpi_memcpy( + dst + sizeof(uacpi_u16), + &vendor_data_length, + sizeof(vendor_data_length) + ); + + // Finally write the data itself + uacpi_memcpy( + dst_base + vendor_data_offset, + vendor_data, + vendor_data_length + ); + break; + } + + case UACPI_RESOURCE_CONVERT_OPCODE_SERIAL_TYPE_SPECIFIC: { + uacpi_u8 serial_type = *src; + *dst = serial_type; + + ctx->st = validate_aml_serial_type(serial_type); + if (uacpi_unlikely_error(ctx->st)) + return UACPI_ITERATION_DECISION_BREAK; + + if (uacpi_unlikely(resource->type != + aml_serial_to_native_type(serial_type))) { + uacpi_error( + "native serial resource type %d doesn't match expected %d\n", + resource->type, aml_serial_to_native_type(serial_type) + ); + ctx->st = UACPI_STATUS_INVALID_ARGUMENT; + return UACPI_ITERATION_DECISION_BREAK; + } + + // Rebase the end pointer & size now that we know the serial type + resource_end = PTR_AT( + resource_end, + aml_serial_resource_to_extra_native_size[serial_type] + ); + base_aml_size_with_header += aml_serial_resource_to_extra_aml_size[ + serial_type + ]; + + accumulator = resource->serial_bus_common.vendor_data_length; + if (accumulator == 0) + break; + + // Copy vendor data + uacpi_memcpy( + dst_base + base_aml_size_with_header, + resource_end, + accumulator + ); + break; + } + + CONVERSION_OPCODES_COMMON(src) + } + } +} + +static uacpi_status native_resources_to_aml( + uacpi_resources *native_resources, void *aml_buffer +) +{ + uacpi_status ret; + struct resource_conversion_ctx ctx = { 0 }; + + ctx.buf = aml_buffer; + + ret = uacpi_for_each_resource( + native_resources, do_native_resource_to_aml, &ctx + ); + if (ret == UACPI_STATUS_NO_RESOURCE_END_TAG) { + // An end tag is always included + uacpi_resource end_tag = { .type = UACPI_RESOURCE_TYPE_END_TAG }; + + do_native_resource_to_aml(&ctx, &end_tag); + ret = UACPI_STATUS_OK; + } + if (uacpi_unlikely_error(ret)) + return ret; + + return ctx.st; +} + +static uacpi_iteration_decision accumulate_aml_buffer_size( + void *opaque, uacpi_resource *resource +) +{ + struct resource_conversion_ctx *ctx = opaque; + const struct uacpi_resource_spec *spec; + uacpi_size size_for_this; + + // resource->type is sanitized to be valid here by the iteration function + spec = resource_spec_from_native(resource); + + size_for_this = aml_size_for_native_resource(resource, spec); + if (size_for_this == 0 || (ctx->size + size_for_this) < ctx->size) { + uacpi_error("invalid aml size for native resource: %zu\n", + size_for_this); + ctx->st = UACPI_STATUS_INVALID_ARGUMENT; + return UACPI_ITERATION_DECISION_BREAK; + } + + ctx->size += size_for_this; + return UACPI_ITERATION_DECISION_CONTINUE; +} + +uacpi_status uacpi_native_resources_to_aml( + uacpi_resources *resources, uacpi_object **out_template +) +{ + uacpi_status ret; + uacpi_object *obj; + void *buffer; + struct resource_conversion_ctx ctx = { 0 }; + + ret = uacpi_for_each_resource( + resources, accumulate_aml_buffer_size, &ctx + ); + if (ret == UACPI_STATUS_NO_RESOURCE_END_TAG) { + // An end tag is always included + uacpi_resource end_tag = { .type = UACPI_RESOURCE_TYPE_END_TAG }; + + accumulate_aml_buffer_size(&ctx, &end_tag); + ret = UACPI_STATUS_OK; + } + if (uacpi_unlikely_error(ret)) + return ret; + if (uacpi_unlikely_error(ctx.st)) + return ctx.st; + + // Same reasoning as native_resource_from_aml + if (uacpi_unlikely(ctx.size > (5 * 1024u * 1024u))) { + uacpi_error("bug: bogus target aml resource buffer size %zu\n", + ctx.size); + return UACPI_STATUS_INTERNAL_ERROR; + } + + buffer = uacpi_kernel_alloc_zeroed(ctx.size); + if (uacpi_unlikely(buffer == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + obj = uacpi_create_object(UACPI_OBJECT_BUFFER); + if (uacpi_unlikely(obj == UACPI_NULL)) { + uacpi_free(buffer, ctx.size); + return UACPI_STATUS_OUT_OF_MEMORY; + } + + obj->buffer->data = buffer; + obj->buffer->size = ctx.size; + + ret = native_resources_to_aml(resources, buffer); + if (uacpi_unlikely_error(ret)) + uacpi_object_unref(obj); + + if (ret == UACPI_STATUS_OK) + *out_template = obj; + + return ret; +} + +uacpi_status uacpi_set_resources( + uacpi_namespace_node *device, uacpi_resources *resources +) +{ + uacpi_status ret; + uacpi_object *res_template; + uacpi_object_array args; + + ret = uacpi_native_resources_to_aml(resources, &res_template); + if (uacpi_unlikely_error(ret)) + return ret; + + args.objects = &res_template; + args.count = 1; + ret = uacpi_eval(device, "_SRS", &args, UACPI_NULL); + + uacpi_object_unref(res_template); + return ret; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/shareable.c b/kernel/hal/x86_64/uACPI/source/shareable.c new file mode 100644 index 0000000..b42660a --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/shareable.c @@ -0,0 +1,71 @@ +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +#define BUGGED_REFCOUNT 0xFFFFFFFF + +void uacpi_shareable_init(uacpi_handle handle) +{ + struct uacpi_shareable *shareable = handle; + shareable->reference_count = 1; +} + +uacpi_bool uacpi_bugged_shareable(uacpi_handle handle) +{ + struct uacpi_shareable *shareable = handle; + + if (uacpi_unlikely(shareable->reference_count == 0)) + uacpi_make_shareable_bugged(shareable); + + return uacpi_atomic_load32(&shareable->reference_count) == BUGGED_REFCOUNT; +} + +void uacpi_make_shareable_bugged(uacpi_handle handle) +{ + struct uacpi_shareable *shareable = handle; + uacpi_atomic_store32(&shareable->reference_count, BUGGED_REFCOUNT); +} + +uacpi_u32 uacpi_shareable_ref(uacpi_handle handle) +{ + struct uacpi_shareable *shareable = handle; + + if (uacpi_unlikely(uacpi_bugged_shareable(shareable))) + return BUGGED_REFCOUNT; + + return uacpi_atomic_inc32(&shareable->reference_count) - 1; +} + +uacpi_u32 uacpi_shareable_unref(uacpi_handle handle) +{ + struct uacpi_shareable *shareable = handle; + + if (uacpi_unlikely(uacpi_bugged_shareable(shareable))) + return BUGGED_REFCOUNT; + + return uacpi_atomic_dec32(&shareable->reference_count) + 1; +} + +void uacpi_shareable_unref_and_delete_if_last( + uacpi_handle handle, void (*do_free)(uacpi_handle) +) +{ + if (handle == UACPI_NULL) + return; + + if (uacpi_unlikely(uacpi_bugged_shareable(handle))) + return; + + if (uacpi_shareable_unref(handle) == 1) + do_free(handle); +} + +uacpi_u32 uacpi_shareable_refcount(uacpi_handle handle) +{ + struct uacpi_shareable *shareable = handle; + return uacpi_atomic_load32(&shareable->reference_count); +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/sleep.c b/kernel/hal/x86_64/uACPI/source/sleep.c new file mode 100644 index 0000000..4736324 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/sleep.c @@ -0,0 +1,616 @@ +#include +#include +#include +#include +#include +#include +#include + +#ifndef UACPI_BAREBONES_MODE + +#ifndef UACPI_REDUCED_HARDWARE +#define CALL_SLEEP_FN(name, state) \ + (uacpi_is_hardware_reduced() ? \ + name##_hw_reduced(state) : name##_hw_full(state)) +#else +#define CALL_SLEEP_FN(name, state) name##_hw_reduced(state); +#endif + +static uacpi_status eval_wak(uacpi_u8 state); +static uacpi_status eval_sst(uacpi_u8 value); + +#ifndef UACPI_REDUCED_HARDWARE +uacpi_status uacpi_set_waking_vector( + uacpi_phys_addr addr32, uacpi_phys_addr addr64 +) +{ + struct acpi_facs *facs = g_uacpi_rt_ctx.facs; + + if (facs == UACPI_NULL) + return UACPI_STATUS_OK; + + facs->firmware_waking_vector = addr32; + + // The 64-bit wake vector doesn't exist, we're done + if (facs->length < 32) + return UACPI_STATUS_OK; + + // Only allow 64-bit wake vector on 1.0 and above FACS + if (facs->version >= 1) + facs->x_firmware_waking_vector = addr64; + else + facs->x_firmware_waking_vector = 0; + + return UACPI_STATUS_OK; +} + +static uacpi_status enter_sleep_state_hw_full(uacpi_u8 state) +{ + uacpi_status ret; + uacpi_u64 wake_status, pm1a, pm1b; + + ret = uacpi_write_register_field( + UACPI_REGISTER_FIELD_WAK_STS, ACPI_PM1_STS_CLEAR + ); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_disable_all_gpes(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_clear_all_events(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_enable_all_wake_gpes(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_read_register(UACPI_REGISTER_PM1_CNT, &pm1a); + if (uacpi_unlikely_error(ret)) + return ret; + + pm1a &= ~((uacpi_u64)(ACPI_PM1_CNT_SLP_TYP_MASK | ACPI_PM1_CNT_SLP_EN_MASK)); + pm1b = pm1a; + + pm1a |= g_uacpi_rt_ctx.last_sleep_typ_a << ACPI_PM1_CNT_SLP_TYP_IDX; + pm1b |= g_uacpi_rt_ctx.last_sleep_typ_b << ACPI_PM1_CNT_SLP_TYP_IDX; + + /* + * Just like ACPICA, split writing SLP_TYP and SLP_EN to work around + * buggy firmware that can't handle both written at the same time. + */ + ret = uacpi_write_registers(UACPI_REGISTER_PM1_CNT, pm1a, pm1b); + if (uacpi_unlikely_error(ret)) + return ret; + + pm1a |= ACPI_PM1_CNT_SLP_EN_MASK; + pm1b |= ACPI_PM1_CNT_SLP_EN_MASK; + + if (state < UACPI_SLEEP_STATE_S4) + UACPI_ARCH_FLUSH_CPU_CACHE(); + + ret = uacpi_write_registers(UACPI_REGISTER_PM1_CNT, pm1a, pm1b); + if (uacpi_unlikely_error(ret)) + return ret; + + if (state > UACPI_SLEEP_STATE_S3) { + /* + * We're still here, this is a bug or very slow firmware. + * Just try spinning for a bit. + */ + uacpi_u64 stalled_time = 0; + + // 10 seconds max + while (stalled_time < (10 * 1000 * 1000)) { + uacpi_kernel_stall(100); + stalled_time += 100; + } + + // Try one more time + ret = uacpi_write_registers(UACPI_REGISTER_PM1_CNT, pm1a, pm1b); + if (uacpi_unlikely_error(ret)) + return ret; + + // Nothing we can do here, give up + return UACPI_STATUS_HARDWARE_TIMEOUT; + } + + do { + ret = uacpi_read_register_field( + UACPI_REGISTER_FIELD_WAK_STS, &wake_status + ); + if (uacpi_unlikely_error(ret)) + return ret; + } while (wake_status != 1); + + return UACPI_STATUS_OK; +} + +static uacpi_status prepare_for_wake_from_sleep_state_hw_full(uacpi_u8 state) +{ + uacpi_status ret; + uacpi_u64 pm1a, pm1b; + UACPI_UNUSED(state); + + /* + * Some hardware apparently relies on S0 values being written to the PM1 + * control register on wake, so do this here. + */ + + if (g_uacpi_rt_ctx.s0_sleep_typ_a == UACPI_SLEEP_TYP_INVALID) + goto out; + + ret = uacpi_read_register(UACPI_REGISTER_PM1_CNT, &pm1a); + if (uacpi_unlikely_error(ret)) + goto out; + + pm1a &= ~((uacpi_u64)(ACPI_PM1_CNT_SLP_TYP_MASK | ACPI_PM1_CNT_SLP_EN_MASK)); + pm1b = pm1a; + + pm1a |= g_uacpi_rt_ctx.s0_sleep_typ_a << ACPI_PM1_CNT_SLP_TYP_IDX; + pm1b |= g_uacpi_rt_ctx.s0_sleep_typ_b << ACPI_PM1_CNT_SLP_TYP_IDX; + + uacpi_write_registers(UACPI_REGISTER_PM1_CNT, pm1a, pm1b); +out: + // Errors ignored intentionally, we don't want to abort because of this + return UACPI_STATUS_OK; +} + +static uacpi_status wake_from_sleep_state_hw_full(uacpi_u8 state) +{ + uacpi_status ret; + g_uacpi_rt_ctx.last_sleep_typ_a = UACPI_SLEEP_TYP_INVALID; + g_uacpi_rt_ctx.last_sleep_typ_b = UACPI_SLEEP_TYP_INVALID; + + // Set the status to 2 (waking) while we execute the wake method. + eval_sst(2); + + ret = uacpi_disable_all_gpes(); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_enable_all_runtime_gpes(); + if (uacpi_unlikely_error(ret)) + return ret; + + eval_wak(state); + + // Apparently some BIOSes expect us to clear this, so do it + uacpi_write_register_field( + UACPI_REGISTER_FIELD_WAK_STS, ACPI_PM1_STS_CLEAR + ); + + // Now that we're awake set the status to 1 (running) + eval_sst(1); + + return UACPI_STATUS_OK; +} +#endif + +static uacpi_status get_slp_type_for_state( + uacpi_u8 state, uacpi_u8 *a, uacpi_u8 *b +) +{ + uacpi_char path[] = "_S0"; + uacpi_status ret; + uacpi_object *obj0, *obj1, *ret_obj = UACPI_NULL; + + path[2] += state; + + ret = uacpi_eval_typed( + uacpi_namespace_root(), path, UACPI_NULL, + UACPI_OBJECT_PACKAGE_BIT, &ret_obj + ); + if (ret != UACPI_STATUS_OK) { + if (uacpi_unlikely(ret != UACPI_STATUS_NOT_FOUND)) { + uacpi_warn("error while evaluating %s: %s\n", path, + uacpi_status_to_string(ret)); + } else { + uacpi_trace("sleep state %d is not supported as %s was not found\n", + state, path); + } + goto out; + } + + switch (ret_obj->package->count) { + case 0: + uacpi_error("empty package while evaluating %s!\n", path); + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + goto out; + + case 1: + obj0 = ret_obj->package->objects[0]; + if (uacpi_unlikely(obj0->type != UACPI_OBJECT_INTEGER)) { + uacpi_error( + "invalid object type at pkg[0] => %s when evaluating %s\n", + uacpi_object_type_to_string(obj0->type), path + ); + goto out; + } + + *a = obj0->integer; + *b = obj0->integer >> 8; + break; + + default: + obj0 = ret_obj->package->objects[0]; + obj1 = ret_obj->package->objects[1]; + + if (uacpi_unlikely(obj0->type != UACPI_OBJECT_INTEGER || + obj1->type != UACPI_OBJECT_INTEGER)) { + uacpi_error( + "invalid object type when evaluating %s: " + "pkg[0] => %s, pkg[1] => %s\n", path, + uacpi_object_type_to_string(obj0->type), + uacpi_object_type_to_string(obj1->type) + ); + ret = UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + goto out; + } + + *a = obj0->integer; + *b = obj1->integer; + break; + } + +out: + if (ret != UACPI_STATUS_OK) { + *a = UACPI_SLEEP_TYP_INVALID; + *b = UACPI_SLEEP_TYP_INVALID; + } + + uacpi_object_unref(ret_obj); + return ret; +} + +static uacpi_status eval_sleep_helper( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_u8 value +) +{ + uacpi_object *arg; + uacpi_object_array args; + uacpi_status ret; + + arg = uacpi_create_object(UACPI_OBJECT_INTEGER); + if (uacpi_unlikely(arg == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + arg->integer = value; + args.objects = &arg; + args.count = 1; + + ret = uacpi_eval(parent, path, &args, UACPI_NULL); + switch (ret) { + case UACPI_STATUS_OK: + break; + case UACPI_STATUS_NOT_FOUND: + ret = UACPI_STATUS_OK; + break; + default: + uacpi_error("error while evaluating %s: %s\n", + path, uacpi_status_to_string(ret)); + break; + } + + uacpi_object_unref(arg); + return ret; +} + +static uacpi_status eval_pts(uacpi_u8 state) +{ + return eval_sleep_helper(uacpi_namespace_root(), "_PTS", state); +} + +static uacpi_status eval_wak(uacpi_u8 state) +{ + return eval_sleep_helper(uacpi_namespace_root(), "_WAK", state); +} + +static uacpi_status eval_sst(uacpi_u8 value) +{ + return eval_sleep_helper( + uacpi_namespace_get_predefined(UACPI_PREDEFINED_NAMESPACE_SI), + "_SST", value + ); +} + +static uacpi_status eval_sst_for_state(enum uacpi_sleep_state state) +{ + uacpi_u8 arg; + + /* + * This optional object is a control method that OSPM invokes to set the + * system status indicator as desired. + * Arguments:(1) + * Arg0 - An Integer containing the system status indicator identifier: + * 0 - No system state indication. Indicator off + * 1 - Working + * 2 - Waking + * 3 - Sleeping. Used to indicate system state S1, S2, or S3 + * 4 - Sleeping with context saved to non-volatile storage + */ + switch (state) { + case UACPI_SLEEP_STATE_S0: + arg = 1; + break; + case UACPI_SLEEP_STATE_S1: + case UACPI_SLEEP_STATE_S2: + case UACPI_SLEEP_STATE_S3: + arg = 3; + break; + case UACPI_SLEEP_STATE_S4: + arg = 4; + break; + case UACPI_SLEEP_STATE_S5: + arg = 0; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return eval_sst(arg); +} + +uacpi_status uacpi_prepare_for_sleep_state(enum uacpi_sleep_state state_enum) +{ + uacpi_u8 state = state_enum; + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED); + + if (uacpi_unlikely(state > UACPI_SLEEP_STATE_S5)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = get_slp_type_for_state( + state, + &g_uacpi_rt_ctx.last_sleep_typ_a, + &g_uacpi_rt_ctx.last_sleep_typ_b + ); + if (ret != UACPI_STATUS_OK) + return ret; + + ret = get_slp_type_for_state( + 0, + &g_uacpi_rt_ctx.s0_sleep_typ_a, + &g_uacpi_rt_ctx.s0_sleep_typ_b + ); + + ret = eval_pts(state); + if (uacpi_unlikely_error(ret)) + return ret; + + eval_sst_for_state(state); + return UACPI_STATUS_OK; +} + +static uacpi_u8 make_hw_reduced_sleep_control(uacpi_u8 slp_typ) +{ + uacpi_u8 value; + + value = (slp_typ << ACPI_SLP_CNT_SLP_TYP_IDX); + value &= ACPI_SLP_CNT_SLP_TYP_MASK; + value |= ACPI_SLP_CNT_SLP_EN_MASK; + + return value; +} + +static uacpi_status enter_sleep_state_hw_reduced(uacpi_u8 state) +{ + uacpi_status ret; + uacpi_u8 sleep_control; + uacpi_u64 wake_status; + struct acpi_fadt *fadt = &g_uacpi_rt_ctx.fadt; + + if (!fadt->sleep_control_reg.address || !fadt->sleep_status_reg.address) + return UACPI_STATUS_NOT_FOUND; + + ret = uacpi_write_register_field( + UACPI_REGISTER_FIELD_HWR_WAK_STS, + ACPI_SLP_STS_CLEAR + ); + if (uacpi_unlikely_error(ret)) + return ret; + + sleep_control = make_hw_reduced_sleep_control( + g_uacpi_rt_ctx.last_sleep_typ_a + ); + + if (state < UACPI_SLEEP_STATE_S4) + UACPI_ARCH_FLUSH_CPU_CACHE(); + + /* + * To put the system into a sleep state, software will write the HW-reduced + * Sleep Type value (obtained from the \_Sx object in the DSDT) and the + * SLP_EN bit to the sleep control register. + */ + ret = uacpi_write_register(UACPI_REGISTER_SLP_CNT, sleep_control); + if (uacpi_unlikely_error(ret)) + return ret; + + /* + * The OSPM then polls the WAK_STS bit of the SLEEP_STATUS_REG waiting for + * it to be one (1), indicating that the system has been transitioned + * back to the Working state. + */ + do { + ret = uacpi_read_register_field( + UACPI_REGISTER_FIELD_HWR_WAK_STS, &wake_status + ); + if (uacpi_unlikely_error(ret)) + return ret; + } while (wake_status != 1); + + return UACPI_STATUS_OK; +} + +static uacpi_status prepare_for_wake_from_sleep_state_hw_reduced(uacpi_u8 state) +{ + uacpi_u8 sleep_control; + UACPI_UNUSED(state); + + if (g_uacpi_rt_ctx.s0_sleep_typ_a == UACPI_SLEEP_TYP_INVALID) + goto out; + + sleep_control = make_hw_reduced_sleep_control( + g_uacpi_rt_ctx.s0_sleep_typ_a + ); + uacpi_write_register(UACPI_REGISTER_SLP_CNT, sleep_control); + +out: + return UACPI_STATUS_OK; +} + +static uacpi_status wake_from_sleep_state_hw_reduced(uacpi_u8 state) +{ + g_uacpi_rt_ctx.last_sleep_typ_a = UACPI_SLEEP_TYP_INVALID; + g_uacpi_rt_ctx.last_sleep_typ_b = UACPI_SLEEP_TYP_INVALID; + + // Set the status to 2 (waking) while we execute the wake method. + eval_sst(2); + + eval_wak(state); + + // Apparently some BIOSes expect us to clear this, so do it + uacpi_write_register_field( + UACPI_REGISTER_FIELD_HWR_WAK_STS, ACPI_SLP_STS_CLEAR + ); + + // Now that we're awake set the status to 1 (running) + eval_sst(1); + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_enter_sleep_state(enum uacpi_sleep_state state_enum) +{ + uacpi_u8 state = state_enum; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED); + + if (uacpi_unlikely(state > UACPI_SLEEP_STATE_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (uacpi_unlikely(g_uacpi_rt_ctx.last_sleep_typ_a > ACPI_SLP_TYP_MAX || + g_uacpi_rt_ctx.last_sleep_typ_b > ACPI_SLP_TYP_MAX)) { + uacpi_error("invalid SLP_TYP values: 0x%02X:0x%02X\n", + g_uacpi_rt_ctx.last_sleep_typ_a, + g_uacpi_rt_ctx.last_sleep_typ_b); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + return CALL_SLEEP_FN(enter_sleep_state, state); +} + +uacpi_status uacpi_prepare_for_wake_from_sleep_state( + uacpi_sleep_state state_enum +) +{ + uacpi_u8 state = state_enum; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED); + + if (uacpi_unlikely(state > UACPI_SLEEP_STATE_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + + return CALL_SLEEP_FN(prepare_for_wake_from_sleep_state, state); +} + +uacpi_status uacpi_wake_from_sleep_state( + uacpi_sleep_state state_enum +) +{ + uacpi_u8 state = state_enum; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED); + + if (uacpi_unlikely(state > UACPI_SLEEP_STATE_MAX)) + return UACPI_STATUS_INVALID_ARGUMENT; + + return CALL_SLEEP_FN(wake_from_sleep_state, state); +} + +uacpi_status uacpi_reboot(void) +{ + uacpi_status ret; + uacpi_handle pci_dev = UACPI_NULL, io_handle = UACPI_NULL; + struct acpi_fadt *fadt = &g_uacpi_rt_ctx.fadt; + struct acpi_gas *reset_reg = &fadt->reset_reg; + + /* + * Allow restarting earlier than namespace load so that the kernel can + * use this in case of some initialization error. + */ + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (!(fadt->flags & ACPI_RESET_REG_SUP) || !reset_reg->address) + return UACPI_STATUS_NOT_FOUND; + + switch (reset_reg->address_space_id) { + case UACPI_ADDRESS_SPACE_SYSTEM_IO: + /* + * For SystemIO we don't do any checking, and we ignore bit width + * because that's what NT does. + */ + ret = uacpi_kernel_io_map(reset_reg->address, 1, &io_handle); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_kernel_io_write8(io_handle, 0, fadt->reset_value); + break; + case UACPI_ADDRESS_SPACE_SYSTEM_MEMORY: + ret = uacpi_write_register(UACPI_REGISTER_RESET, fadt->reset_value); + break; + case UACPI_ADDRESS_SPACE_PCI_CONFIG: { + uacpi_pci_address address = { 0 }; + + // Bus is assumed to be 0 here + address.segment = 0; + address.bus = 0; + address.device = (reset_reg->address >> 32) & 0xFF; + address.function = (reset_reg->address >> 16) & 0xFF; + + ret = uacpi_kernel_pci_device_open(address, &pci_dev); + if (uacpi_unlikely_error(ret)) + break; + + ret = uacpi_kernel_pci_write8( + pci_dev, reset_reg->address & 0xFFFF, fadt->reset_value + ); + break; + } + default: + uacpi_warn( + "unable to perform a reset: unsupported address space '%s' (%d)\n", + uacpi_address_space_to_string(reset_reg->address_space_id), + reset_reg->address_space_id + ); + ret = UACPI_STATUS_UNIMPLEMENTED; + } + + if (ret == UACPI_STATUS_OK) { + /* + * This should've worked but we're still here. + * Spin for a bit then give up. + */ + uacpi_u64 stalled_time = 0; + + while (stalled_time < (1000 * 1000)) { + uacpi_kernel_stall(100); + stalled_time += 100; + } + + uacpi_error("reset timeout\n"); + ret = UACPI_STATUS_HARDWARE_TIMEOUT; + } + + if (pci_dev != UACPI_NULL) + uacpi_kernel_pci_device_close(pci_dev); + if (io_handle != UACPI_NULL) + uacpi_kernel_io_unmap(io_handle); + + return ret; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/stdlib.c b/kernel/hal/x86_64/uACPI/source/stdlib.c new file mode 100644 index 0000000..98344f1 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/stdlib.c @@ -0,0 +1,728 @@ +#include +#include + +#ifdef UACPI_USE_BUILTIN_STRING + +#ifndef uacpi_memcpy +void *uacpi_memcpy(void *dest, const void *src, uacpi_size count) +{ + uacpi_char *cd = dest; + const uacpi_char *cs = src; + + while (count--) + *cd++ = *cs++; + + return dest; +} +#endif + +#ifndef uacpi_memmove +void *uacpi_memmove(void *dest, const void *src, uacpi_size count) +{ + uacpi_char *cd = dest; + const uacpi_char *cs = src; + + if (src < dest) { + cs += count; + cd += count; + + while (count--) + *--cd = *--cs; + } else { + while (count--) + *cd++ = *cs++; + } + + return dest; +} +#endif + +#ifndef uacpi_memset +void *uacpi_memset(void *dest, uacpi_i32 ch, uacpi_size count) +{ + uacpi_u8 fill = ch; + uacpi_u8 *cdest = dest; + + while (count--) + *cdest++ = fill; + + return dest; +} +#endif + +#ifndef uacpi_memcmp +uacpi_i32 uacpi_memcmp(const void *lhs, const void *rhs, uacpi_size count) +{ + const uacpi_u8 *byte_lhs = lhs; + const uacpi_u8 *byte_rhs = rhs; + uacpi_size i; + + for (i = 0; i < count; ++i) { + if (byte_lhs[i] != byte_rhs[i]) + return byte_lhs[i] - byte_rhs[i]; + } + + return 0; +} +#endif + +#endif // UACPI_USE_BUILTIN_STRING + +#ifndef uacpi_strlen +uacpi_size uacpi_strlen(const uacpi_char *str) +{ + const uacpi_char *str1; + + for (str1 = str; *str1; str1++); + + return str1 - str; +} +#endif + +#ifndef UACPI_BAREBONES_MODE + +#ifndef uacpi_strnlen +uacpi_size uacpi_strnlen(const uacpi_char *str, uacpi_size max) +{ + const uacpi_char *str1; + + for (str1 = str; max-- && *str1; str1++); + + return str1 - str; +} +#endif + +#ifndef uacpi_strcmp +uacpi_i32 uacpi_strcmp(const uacpi_char *lhs, const uacpi_char *rhs) +{ + uacpi_size i = 0; + typedef const uacpi_u8 *cucp; + + while (lhs[i] && rhs[i]) { + if (lhs[i] != rhs[i]) + return *(cucp)&lhs[i] - *(cucp)&rhs[i]; + + i++; + } + + return *(cucp)&lhs[i] - *(cucp)&rhs[i]; +} +#endif + +void uacpi_memcpy_zerout(void *dst, const void *src, + uacpi_size dst_size, uacpi_size src_size) +{ + uacpi_size bytes_to_copy = UACPI_MIN(src_size, dst_size); + + if (bytes_to_copy) + uacpi_memcpy(dst, src, bytes_to_copy); + + if (dst_size > bytes_to_copy) + uacpi_memzero((uacpi_u8 *)dst + bytes_to_copy, dst_size - bytes_to_copy); +} + +uacpi_u8 uacpi_bit_scan_forward(uacpi_u64 value) +{ +#if defined(_MSC_VER) && !defined(__clang__) + unsigned char ret; + unsigned long index; + +#ifdef _WIN64 + ret = _BitScanForward64(&index, value); + if (ret == 0) + return 0; + + return (uacpi_u8)index + 1; +#else + ret = _BitScanForward(&index, value); + if (ret == 0) { + ret = _BitScanForward(&index, value >> 32); + if (ret == 0) + return 0; + + return (uacpi_u8)index + 33; + } + + return (uacpi_u8)index + 1; +#endif + +#elif defined(__WATCOMC__) + // TODO: Use compiler intrinsics or inline ASM here + uacpi_u8 index; + uacpi_u64 mask = 1; + + for (index = 1; index <= 64; index++, mask <<= 1) { + if (value & mask) { + return index; + } + } + + return 0; +#else + return __builtin_ffsll(value); +#endif +} + +uacpi_u8 uacpi_bit_scan_backward(uacpi_u64 value) +{ +#if defined(_MSC_VER) && !defined(__clang__) + unsigned char ret; + unsigned long index; + +#ifdef _WIN64 + ret = _BitScanReverse64(&index, value); + if (ret == 0) + return 0; + + return (uacpi_u8)index + 1; +#else + ret = _BitScanReverse(&index, value >> 32); + if (ret == 0) { + ret = _BitScanReverse(&index, value); + if (ret == 0) + return 0; + + return (uacpi_u8)index + 1; + } + + return (uacpi_u8)index + 33; +#endif + +#elif defined(__WATCOMC__) + // TODO: Use compiler intrinsics or inline ASM here + uacpi_u8 index; + uacpi_u64 mask = (1ull << 63); + + for (index = 64; index > 0; index--, mask >>= 1) { + if (value & mask) { + return index; + } + } + + return 0; +#else + if (value == 0) + return 0; + + return 64 - __builtin_clzll(value); +#endif +} + +#ifndef UACPI_NATIVE_ALLOC_ZEROED +void *uacpi_builtin_alloc_zeroed(uacpi_size size) +{ + void *ptr; + + ptr = uacpi_kernel_alloc(size); + if (uacpi_unlikely(ptr == UACPI_NULL)) + return ptr; + + uacpi_memzero(ptr, size); + return ptr; +} +#endif + +#endif // !UACPI_BAREBONES_MODE + +#ifndef uacpi_vsnprintf +struct fmt_buf_state { + uacpi_char *buffer; + uacpi_size capacity; + uacpi_size bytes_written; +}; + +struct fmt_spec { + uacpi_u8 is_signed : 1; + uacpi_u8 prepend : 1; + uacpi_u8 uppercase : 1; + uacpi_u8 left_justify : 1; + uacpi_u8 alternate_form : 1; + uacpi_u8 has_precision : 1; + uacpi_char pad_char; + uacpi_char prepend_char; + uacpi_u64 min_width; + uacpi_u64 precision; + uacpi_u32 base; +}; + +static void write_one(struct fmt_buf_state *fb_state, uacpi_char c) +{ + if (fb_state->bytes_written < fb_state->capacity) + fb_state->buffer[fb_state->bytes_written] = c; + + fb_state->bytes_written++; +} + +static void write_many( + struct fmt_buf_state *fb_state, const uacpi_char *string, uacpi_size count +) +{ + if (fb_state->bytes_written < fb_state->capacity) { + uacpi_size count_to_write; + + count_to_write = UACPI_MIN( + count, fb_state->capacity - fb_state->bytes_written + ); + uacpi_memcpy( + &fb_state->buffer[fb_state->bytes_written], string, count_to_write + ); + } + + fb_state->bytes_written += count; +} + +static uacpi_char hex_char(uacpi_bool upper, uacpi_u64 value) +{ + static const uacpi_char upper_hex[] = "0123456789ABCDEF"; + static const uacpi_char lower_hex[] = "0123456789abcdef"; + + return (upper ? upper_hex : lower_hex)[value]; +} + +static void write_padding( + struct fmt_buf_state *fb_state, struct fmt_spec *fm, uacpi_size repr_size +) +{ + uacpi_u64 mw = fm->min_width; + + if (mw <= repr_size) + return; + + mw -= repr_size; + + while (mw--) + write_one(fb_state, fm->left_justify ? ' ' : fm->pad_char); +} + +#define REPR_BUFFER_SIZE 32 + +static void write_integer( + struct fmt_buf_state *fb_state, struct fmt_spec *fm, uacpi_u64 value +) +{ + uacpi_char repr_buffer[REPR_BUFFER_SIZE]; + uacpi_size index = REPR_BUFFER_SIZE; + uacpi_u64 remainder; + uacpi_char repr; + uacpi_bool negative = UACPI_FALSE; + uacpi_size repr_size; + + if (fm->is_signed) { + uacpi_i64 as_ll = value; + + if (as_ll < 0) { + value = -as_ll; + negative = UACPI_TRUE; + } + } + + if (fm->prepend || negative) + write_one(fb_state, negative ? '-' : fm->prepend_char); + + while (value) { + remainder = value % fm->base; + value /= fm->base; + + if (fm->base == 16) { + repr = hex_char(fm->uppercase, remainder); + } else if (fm->base == 8 || fm->base == 10) { + repr = remainder + '0'; + } else { + repr = '?'; + } + + repr_buffer[--index] = repr; + } + repr_size = REPR_BUFFER_SIZE - index; + + if (repr_size == 0) { + repr_buffer[--index] = '0'; + repr_size = 1; + } + + if (fm->alternate_form) { + if (fm->base == 16) { + repr_buffer[--index] = fm->uppercase ? 'X' : 'x'; + repr_buffer[--index] = '0'; + repr_size += 2; + } else if (fm->base == 8) { + repr_buffer[--index] = '0'; + repr_size += 1; + } + } + + if (fm->left_justify) { + write_many(fb_state, &repr_buffer[index], repr_size); + write_padding(fb_state, fm, repr_size); + } else { + write_padding(fb_state, fm, repr_size); + write_many(fb_state, &repr_buffer[index], repr_size); + } +} + +static uacpi_bool string_has_at_least( + const uacpi_char *string, uacpi_size characters +) +{ + while (*string) { + if (--characters == 0) + return UACPI_TRUE; + + string++; + } + + return UACPI_FALSE; +} + +static uacpi_bool consume_digits( + const uacpi_char **string, uacpi_size *out_size +) +{ + uacpi_size size = 0; + + for (;;) { + char c = **string; + if (c < '0' || c > '9') + break; + + size++; + *string += 1; + } + + if (size == 0) + return UACPI_FALSE; + + *out_size = size; + return UACPI_TRUE; +} + +enum parse_number_mode { + PARSE_NUMBER_MODE_MAYBE, + PARSE_NUMBER_MODE_MUST, +}; + +static uacpi_bool parse_number( + const uacpi_char **fmt, enum parse_number_mode mode, uacpi_u64 *out_value +) +{ + uacpi_status ret; + uacpi_size num_digits; + const uacpi_char *digits = *fmt; + + if (!consume_digits(fmt, &num_digits)) + return mode != PARSE_NUMBER_MODE_MUST; + + ret = uacpi_string_to_integer(digits, num_digits, UACPI_BASE_DEC, out_value); + return ret == UACPI_STATUS_OK; +} + +static uacpi_bool consume(const uacpi_char **string, const uacpi_char *token) +{ + uacpi_size token_size; + + token_size = uacpi_strlen(token); + + if (!string_has_at_least(*string, token_size)) + return UACPI_FALSE; + + if (!uacpi_memcmp(*string, token, token_size)) { + *string += token_size; + return UACPI_TRUE; + } + + return UACPI_FALSE; +} + +static uacpi_bool is_one_of(uacpi_char c, const uacpi_char *list) +{ + for (; *list; list++) { + if (c == *list) + return UACPI_TRUE; + } + + return UACPI_FALSE; +} + +static uacpi_bool consume_one_of( + const uacpi_char **string, const uacpi_char *list, uacpi_char *consumed_char +) +{ + uacpi_char c = **string; + if (!c) + return UACPI_FALSE; + + if (is_one_of(c, list)) { + *consumed_char = c; + *string += 1; + return UACPI_TRUE; + } + + return UACPI_FALSE; +} + +static uacpi_u32 base_from_specifier(uacpi_char specifier) +{ + switch (specifier) + { + case 'x': + case 'X': + return 16; + case 'o': + return 8; + default: + return 10; + } +} + +static uacpi_bool is_uppercase_specifier(uacpi_char specifier) +{ + return specifier == 'X'; +} + +static const uacpi_char *find_next_conversion( + const uacpi_char *fmt, uacpi_size *offset +) +{ + *offset = 0; + + while (*fmt) { + if (*fmt == '%') + return fmt; + + fmt++; + *offset += 1; + } + + return UACPI_NULL; +} + +uacpi_i32 uacpi_vsnprintf( + uacpi_char *buffer, uacpi_size capacity, const uacpi_char *fmt, + uacpi_va_list vlist +) +{ + struct fmt_buf_state fb_state = { 0 }; + uacpi_u64 value; + const uacpi_char *next_conversion; + uacpi_size next_offset; + uacpi_char flag; + + fb_state.buffer = buffer; + fb_state.capacity = capacity; + fb_state.bytes_written = 0; + + while (*fmt) { + struct fmt_spec fm = { + .pad_char = ' ', + .base = 10, + }; + next_conversion = find_next_conversion(fmt, &next_offset); + + if (next_offset) + write_many(&fb_state, fmt, next_offset); + + if (!next_conversion) + break; + + fmt = next_conversion; + if (consume(&fmt, "%%")) { + write_one(&fb_state, '%'); + continue; + } + + // consume % + fmt++; + + while (consume_one_of(&fmt, "+- 0#", &flag)) { + switch (flag) { + case '+': + case ' ': + fm.prepend = UACPI_TRUE; + fm.prepend_char = flag; + continue; + case '-': + fm.left_justify = UACPI_TRUE; + continue; + case '0': + fm.pad_char = '0'; + continue; + case '#': + fm.alternate_form = UACPI_TRUE; + continue; + default: + return -1; + } + } + + if (consume(&fmt, "*")) { + fm.min_width = uacpi_va_arg(vlist, int); + } else if (!parse_number(&fmt, PARSE_NUMBER_MODE_MAYBE, &fm.min_width)) { + return -1; + } + + if (consume(&fmt, ".")) { + fm.has_precision = UACPI_TRUE; + + if (consume(&fmt, "*")) { + fm.precision = uacpi_va_arg(vlist, int); + } else { + if (!parse_number(&fmt, PARSE_NUMBER_MODE_MUST, &fm.precision)) + return -1; + } + } + + flag = 0; + + if (consume(&fmt, "c")) { + uacpi_char c = uacpi_va_arg(vlist, int); + write_one(&fb_state, c); + continue; + } + + if (consume(&fmt, "s")) { + const uacpi_char *string = uacpi_va_arg(vlist, uacpi_char*); + uacpi_size i; + + if (uacpi_unlikely(string == UACPI_NULL)) + string = ""; + + for (i = 0; (!fm.has_precision || i < fm.precision) && string[i]; ++i) + write_one(&fb_state, string[i]); + while (i++ < fm.min_width) + write_one(&fb_state, ' '); + continue; + } + + if (consume(&fmt, "p")) { + value = (uacpi_uintptr)uacpi_va_arg(vlist, void*); + fm.base = 16; + fm.min_width = UACPI_POINTER_SIZE * 2; + fm.pad_char = '0'; + goto write_int; + } + + if (consume(&fmt, "hh")) { + if (consume(&fmt, "d") || consume(&fmt, "i")) { + value = (signed char)uacpi_va_arg(vlist, int); + fm.is_signed = UACPI_TRUE; + } else if (consume_one_of(&fmt, "oxXu", &flag)) { + value = (unsigned char)uacpi_va_arg(vlist, int); + } else { + return -1; + } + goto write_int; + } + + if (consume(&fmt, "h")) { + if (consume(&fmt, "d") || consume(&fmt, "i")) { + value = (signed short)uacpi_va_arg(vlist, int); + fm.is_signed = UACPI_TRUE; + } else if (consume_one_of(&fmt, "oxXu", &flag)) { + value = (unsigned short)uacpi_va_arg(vlist, int); + } else { + return -1; + } + goto write_int; + } + + if (consume(&fmt, "ll") || + (sizeof(uacpi_size) == sizeof(long long) && consume(&fmt, "z"))) { + if (consume(&fmt, "d") || consume(&fmt, "i")) { + value = uacpi_va_arg(vlist, long long); + fm.is_signed = UACPI_TRUE; + } else if (consume_one_of(&fmt, "oxXu", &flag)) { + value = uacpi_va_arg(vlist, unsigned long long); + } else { + return -1; + } + goto write_int; + } + + if (consume(&fmt, "l") || + (sizeof(uacpi_size) == sizeof(long) && consume(&fmt, "z"))) { + if (consume(&fmt, "d") || consume(&fmt, "i")) { + value = uacpi_va_arg(vlist, long); + fm.is_signed = UACPI_TRUE; + } else if (consume_one_of(&fmt, "oxXu", &flag)) { + value = uacpi_va_arg(vlist, unsigned long); + } else { + return -1; + } + goto write_int; + } + + if (consume(&fmt, "d") || consume(&fmt, "i")) { + value = uacpi_va_arg(vlist, uacpi_i32); + fm.is_signed = UACPI_TRUE; + } else if (consume_one_of(&fmt, "oxXu", &flag)) { + value = uacpi_va_arg(vlist, uacpi_u32); + } else { + return -1; + } + + write_int: + if (flag != 0) { + fm.base = base_from_specifier(flag); + fm.uppercase = is_uppercase_specifier(flag); + } + + write_integer(&fb_state, &fm, value); + } + + if (fb_state.capacity) { + uacpi_size last_char; + + last_char = UACPI_MIN(fb_state.bytes_written, fb_state.capacity - 1); + fb_state.buffer[last_char] = '\0'; + } + + return fb_state.bytes_written; +} +#endif + +#ifndef uacpi_snprintf +uacpi_i32 uacpi_snprintf( + uacpi_char *buffer, uacpi_size capacity, const uacpi_char *fmt, ... +) +{ + uacpi_va_list vlist; + uacpi_i32 ret; + + uacpi_va_start(vlist, fmt); + ret = uacpi_vsnprintf(buffer, capacity, fmt, vlist); + uacpi_va_end(vlist); + + return ret; +} +#endif + +#ifndef UACPI_FORMATTED_LOGGING +void uacpi_log(uacpi_log_level lvl, const uacpi_char *str, ...) +{ + uacpi_char buf[UACPI_PLAIN_LOG_BUFFER_SIZE]; + int ret; + + uacpi_va_list vlist; + uacpi_va_start(vlist, str); + + ret = uacpi_vsnprintf(buf, sizeof(buf), str, vlist); + if (uacpi_unlikely(ret < 0)) + return; + + /* + * If this log message is too large for the configured buffer size, cut off + * the end and transform into "...\n" to indicate that it didn't fit and + * prevent the newline from being truncated. + */ + if (uacpi_unlikely(ret >= UACPI_PLAIN_LOG_BUFFER_SIZE)) { + buf[UACPI_PLAIN_LOG_BUFFER_SIZE - 5] = '.'; + buf[UACPI_PLAIN_LOG_BUFFER_SIZE - 4] = '.'; + buf[UACPI_PLAIN_LOG_BUFFER_SIZE - 3] = '.'; + buf[UACPI_PLAIN_LOG_BUFFER_SIZE - 2] = '\n'; + } + + uacpi_kernel_log(lvl, buf); + + uacpi_va_end(vlist); +} +#endif diff --git a/kernel/hal/x86_64/uACPI/source/tables.c b/kernel/hal/x86_64/uACPI/source/tables.c new file mode 100644 index 0000000..4b45d2a --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/tables.c @@ -0,0 +1,1400 @@ +#include +#include +#include +#include +#include + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE( + table_array, struct uacpi_installed_table, UACPI_STATIC_TABLE_ARRAY_LEN +) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL( + table_array, struct uacpi_installed_table, static +) + +static struct table_array tables; +static uacpi_bool early_table_access; +static uacpi_table_installation_handler installation_handler; + +#ifndef UACPI_BAREBONES_MODE + +static uacpi_handle table_mutex; + +#define ENSURE_TABLES_ONLINE() \ + do { \ + if (!early_table_access) \ + UACPI_ENSURE_INIT_LEVEL_AT_LEAST( \ + UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED \ + ); \ + } while (0) + +#else + +/* + * Use a dummy function instead of a macro to prevent the following error: + * error: statement with no effect [-Werror=unused-value] + */ +static inline uacpi_status dummy_mutex_acquire_release(uacpi_handle mtx) +{ + UACPI_UNUSED(mtx); + return UACPI_STATUS_OK; +} + +#define table_mutex UACPI_NULL +#define uacpi_acquire_native_mutex_may_be_null dummy_mutex_acquire_release +#define uacpi_release_native_mutex_may_be_null dummy_mutex_acquire_release + +#define ENSURE_TABLES_ONLINE() \ + do { \ + if (!early_table_access) \ + return UACPI_STATUS_INIT_LEVEL_MISMATCH; \ + } while (0) + +#endif // !UACPI_BAREBONES_MODE + +static uacpi_status table_install_physical_with_origin_unlocked( + uacpi_phys_addr phys, enum uacpi_table_origin origin, + const uacpi_char *expected_signature, uacpi_table *out_table +); +static uacpi_status table_install_with_origin_unlocked( + void *virt, enum uacpi_table_origin origin, uacpi_table *out_table +); + +UACPI_PACKED(struct uacpi_rxsdt { + struct acpi_sdt_hdr hdr; + uacpi_u8 ptr_bytes[]; +}) + +static void dump_table_header( + uacpi_phys_addr phys_addr, void *hdr +) +{ + struct acpi_sdt_hdr *sdt = hdr; + + if (uacpi_signatures_match(hdr, ACPI_FACS_SIGNATURE)) { + uacpi_info( + "FACS 0x%016"UACPI_PRIX64" %08X\n", UACPI_FMT64(phys_addr), + sdt->length + ); + return; + } + + if (!uacpi_memcmp(hdr, ACPI_RSDP_SIGNATURE, sizeof(ACPI_RSDP_SIGNATURE) - 1)) { + struct acpi_rsdp *rsdp = hdr; + + uacpi_info( + "RSDP 0x%016"UACPI_PRIX64" %08X v%02X (%6.6s)\n", + UACPI_FMT64(phys_addr), rsdp->revision >= 2 ? rsdp->length : 20, + rsdp->revision, rsdp->oemid + ); + return; + } + + uacpi_info( + "%.4s 0x%016"UACPI_PRIX64" %08X v%02X (%6.6s %8.8s)\n", + sdt->signature, UACPI_FMT64(phys_addr), sdt->length, sdt->revision, + sdt->oemid, sdt->oem_table_id + ); +} + +static uacpi_status initialize_from_rxsdt(uacpi_phys_addr rxsdt_addr, + uacpi_size entry_size) +{ + struct uacpi_rxsdt *rxsdt; + uacpi_size i, entry_bytes, map_len = sizeof(*rxsdt); + uacpi_phys_addr entry_addr; + uacpi_status ret; + + rxsdt = uacpi_kernel_map(rxsdt_addr, map_len); + if (rxsdt == UACPI_NULL) + return UACPI_STATUS_MAPPING_FAILED; + + dump_table_header(rxsdt_addr, rxsdt); + + ret = uacpi_check_table_signature(rxsdt, + entry_size == 8 ? ACPI_XSDT_SIGNATURE : ACPI_RSDT_SIGNATURE); + if (uacpi_unlikely_error(ret)) + goto error_out; + + map_len = rxsdt->hdr.length; + uacpi_kernel_unmap(rxsdt, sizeof(*rxsdt)); + + if (uacpi_unlikely(map_len < (sizeof(*rxsdt) + entry_size))) + return UACPI_STATUS_INVALID_TABLE_LENGTH; + + // Make sure length is aligned to entry size so we don't OOB + entry_bytes = map_len - sizeof(*rxsdt); + entry_bytes &= ~(entry_size - 1); + + rxsdt = uacpi_kernel_map(rxsdt_addr, map_len); + if (uacpi_unlikely(rxsdt == UACPI_NULL)) + return UACPI_STATUS_MAPPING_FAILED; + + ret = uacpi_verify_table_checksum(rxsdt, map_len); + if (uacpi_unlikely_error(ret)) + goto error_out; + + for (i = 0; i < entry_bytes; i += entry_size) { + uacpi_u64 entry_phys_addr_large = 0; + uacpi_memcpy(&entry_phys_addr_large, &rxsdt->ptr_bytes[i], entry_size); + + if (!entry_phys_addr_large) + continue; + + entry_addr = uacpi_truncate_phys_addr_with_warn(entry_phys_addr_large); + ret = uacpi_table_install_physical_with_origin( + entry_addr, UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL, UACPI_NULL + ); + if (uacpi_unlikely(ret != UACPI_STATUS_OK && + ret != UACPI_STATUS_OVERRIDDEN)) + goto error_out; + } + + ret = UACPI_STATUS_OK; + +error_out: + uacpi_kernel_unmap(rxsdt, map_len); + return ret; +} + +static uacpi_status initialize_from_rsdp(void) +{ + uacpi_status ret; + uacpi_phys_addr rsdp_phys; + struct acpi_rsdp *rsdp; + uacpi_phys_addr rxsdt; + uacpi_size rxsdt_entry_size; + + g_uacpi_rt_ctx.is_rev1 = UACPI_TRUE; + + ret = uacpi_kernel_get_rsdp(&rsdp_phys); + if (uacpi_unlikely_error(ret)) + return ret; + + rsdp = uacpi_kernel_map(rsdp_phys, sizeof(struct acpi_rsdp)); + if (rsdp == UACPI_NULL) + return UACPI_STATUS_MAPPING_FAILED; + + dump_table_header(rsdp_phys, rsdp); + + if (rsdp->revision > 1 && rsdp->xsdt_addr && + !uacpi_check_flag(UACPI_FLAG_BAD_XSDT)) + { + rxsdt = uacpi_truncate_phys_addr_with_warn(rsdp->xsdt_addr); + rxsdt_entry_size = 8; + } else { + rxsdt = (uacpi_phys_addr)rsdp->rsdt_addr; + rxsdt_entry_size = 4; + } + + uacpi_kernel_unmap(rsdp, sizeof(struct acpi_rsdp)); + + if (!rxsdt) { + uacpi_error("both RSDT & XSDT tables are NULL!\n"); + return UACPI_STATUS_INVALID_ARGUMENT; + } + + return initialize_from_rxsdt(rxsdt, rxsdt_entry_size); +} + +uacpi_status uacpi_setup_early_table_access( + void *temporary_buffer, uacpi_size buffer_size +) +{ + uacpi_status ret; + +#ifndef UACPI_BAREBONES_MODE + UACPI_ENSURE_INIT_LEVEL_IS(UACPI_INIT_LEVEL_EARLY); +#endif + if (uacpi_unlikely(early_table_access)) + return UACPI_STATUS_INIT_LEVEL_MISMATCH; + + if (uacpi_unlikely(buffer_size < sizeof(struct uacpi_installed_table))) + return UACPI_STATUS_INVALID_ARGUMENT; + + uacpi_logger_initialize(); + + tables.dynamic_storage = temporary_buffer; + tables.dynamic_capacity = buffer_size / sizeof(struct uacpi_installed_table); + early_table_access = UACPI_TRUE; + + ret = initialize_from_rsdp(); + if (uacpi_unlikely_error(ret)) + uacpi_deinitialize_tables(); + + return ret; +} + +#ifndef UACPI_BAREBONES_MODE +static uacpi_iteration_decision warn_if_early_referenced( + void *user, struct uacpi_installed_table *tbl, uacpi_size idx +) +{ + UACPI_UNUSED(user); + + if (uacpi_unlikely(tbl->reference_count != 0)) { + uacpi_warn( + "table "UACPI_PRI_TBL_HDR" (%zu) still has %d early reference(s)!\n", + UACPI_FMT_TBL_HDR(&tbl->hdr), idx, tbl->reference_count + ); + } + + return UACPI_ITERATION_DECISION_CONTINUE; +} + +uacpi_status uacpi_initialize_tables(void) +{ + if (early_table_access) { + uacpi_size num_tables; + + uacpi_for_each_table(0, warn_if_early_referenced, UACPI_NULL); + + // Reallocate the user buffer into a normal heap array + num_tables = table_array_size(&tables); + if (num_tables > table_array_inline_capacity(&tables)) { + void *new_buf; + + /* + * Allocate a new buffer with size equal to exactly the number of + * dynamic tables (that live in the user provided temporary buffer). + */ + num_tables -= table_array_inline_capacity(&tables); + new_buf = uacpi_kernel_alloc( + sizeof(struct uacpi_installed_table) * num_tables + ); + if (uacpi_unlikely(new_buf == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy(new_buf, tables.dynamic_storage, + sizeof(struct uacpi_installed_table) * num_tables); + tables.dynamic_storage = new_buf; + tables.dynamic_capacity = num_tables; + } else { + /* + * User-provided temporary buffer was not used at all, just remove + * any references to it. + */ + tables.dynamic_storage = UACPI_NULL; + tables.dynamic_capacity = 0; + } + + early_table_access = UACPI_FALSE; + } else { + uacpi_status ret; + + ret = initialize_from_rsdp(); + if (uacpi_unlikely_error(ret)) + return ret; + } + + if (!uacpi_is_hardware_reduced()) { + struct acpi_fadt *fadt = &g_uacpi_rt_ctx.fadt; + uacpi_table tbl; + + if (fadt->x_firmware_ctrl) { + uacpi_status ret; + + ret = table_install_physical_with_origin_unlocked( + fadt->x_firmware_ctrl, UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL, + ACPI_FACS_SIGNATURE, &tbl + ); + if (uacpi_unlikely(ret != UACPI_STATUS_OK && + ret != UACPI_STATUS_OVERRIDDEN)) + return ret; + + g_uacpi_rt_ctx.facs = tbl.ptr; + } + } + + table_mutex = uacpi_kernel_create_mutex(); + if (uacpi_unlikely(table_mutex == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + return UACPI_STATUS_OK; +} +#endif // !UACPI_BAREBONES_MODE + +void uacpi_deinitialize_tables(void) +{ + uacpi_size i; + + for (i = 0; i < table_array_size(&tables); ++i) { + struct uacpi_installed_table *tbl = table_array_at(&tables, i); + + switch (tbl->origin) { +#ifndef UACPI_BAREBONES_MODE + case UACPI_TABLE_ORIGIN_FIRMWARE_VIRTUAL: + uacpi_free(tbl->ptr, tbl->hdr.length); + break; +#endif + case UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL: + case UACPI_TABLE_ORIGIN_HOST_PHYSICAL: + if (tbl->reference_count != 0) + uacpi_kernel_unmap(tbl->ptr, tbl->hdr.length); + break; + default: + break; + } + } + + if (early_table_access) { + uacpi_memzero(&tables, sizeof(tables)); + early_table_access = UACPI_FALSE; + } else { + table_array_clear(&tables); + } + + installation_handler = UACPI_NULL; + +#ifndef UACPI_BAREBONES_MODE + if (table_mutex) + uacpi_kernel_free_mutex(table_mutex); + + table_mutex = UACPI_NULL; +#endif +} + +uacpi_status uacpi_set_table_installation_handler( + uacpi_table_installation_handler handler +) +{ + uacpi_status ret; + + ret = uacpi_acquire_native_mutex_may_be_null(table_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + if (installation_handler != UACPI_NULL && handler != UACPI_NULL) + goto out; + + installation_handler = handler; + +out: + uacpi_release_native_mutex_may_be_null(table_mutex); + return ret; +} + +static uacpi_status initialize_fadt(const void*); + +static uacpi_u8 table_checksum(void *table, uacpi_size size) +{ + uacpi_u8 *bytes = table; + uacpi_u8 csum = 0; + uacpi_size i; + + for (i = 0; i < size; ++i) + csum += bytes[i]; + + return csum; +} + +uacpi_status uacpi_verify_table_checksum(void *table, uacpi_size size) +{ + uacpi_status ret = UACPI_STATUS_OK; + uacpi_u8 csum; + + csum = table_checksum(table, size); + + if (uacpi_unlikely(csum != 0)) { + enum uacpi_log_level lvl = UACPI_LOG_WARN; + struct acpi_sdt_hdr *hdr = table; + + if (uacpi_check_flag(UACPI_FLAG_BAD_CSUM_FATAL)) { + ret = UACPI_STATUS_BAD_CHECKSUM; + lvl = UACPI_LOG_ERROR; + } + + uacpi_log_lvl( + lvl, "invalid table "UACPI_PRI_TBL_HDR" checksum %d!\n", + UACPI_FMT_TBL_HDR(hdr), csum + ); + } + + return ret; +} + +uacpi_bool uacpi_signatures_match(const void *const lhs, const void *const rhs) +{ + return uacpi_memcmp(lhs, rhs, sizeof(uacpi_object_name)) == 0; +} + +uacpi_status uacpi_check_table_signature(void *table, const uacpi_char *expect) +{ + uacpi_status ret = UACPI_STATUS_OK; + + if (!uacpi_signatures_match(table, expect)) { + enum uacpi_log_level lvl = UACPI_LOG_WARN; + struct acpi_sdt_hdr *hdr = table; + + if (uacpi_check_flag(UACPI_FLAG_BAD_TBL_SIGNATURE_FATAL)) { + ret = UACPI_STATUS_INVALID_SIGNATURE; + lvl = UACPI_LOG_ERROR; + } + + uacpi_log_lvl( + lvl, + "invalid table "UACPI_PRI_TBL_HDR" signature (expected '%.4s')\n", + UACPI_FMT_TBL_HDR(hdr), expect + ); + } + + return ret; +} + +static uacpi_status table_alloc( + struct uacpi_installed_table **out_tbl, uacpi_size *out_idx +) +{ + struct uacpi_installed_table *tbl; + + if (early_table_access && + table_array_size(&tables) == table_array_capacity(&tables)) { + uacpi_warn("early table access buffer capacity exhausted!\n"); + return UACPI_STATUS_OUT_OF_MEMORY; + } + + tbl = table_array_alloc(&tables); + if (uacpi_unlikely(tbl == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + *out_tbl = tbl; + *out_idx = table_array_size(&tables) - 1; + return UACPI_STATUS_OK; +} + +static uacpi_status get_external_table_header( + uacpi_phys_addr phys_addr, struct acpi_sdt_hdr *out_hdr +) +{ + void *virt; + + virt = uacpi_kernel_map(phys_addr, sizeof(*out_hdr)); + if (uacpi_unlikely(virt == UACPI_NULL)) + return UACPI_STATUS_MAPPING_FAILED; + + uacpi_memcpy(out_hdr, virt, sizeof(*out_hdr)); + + uacpi_kernel_unmap(virt, sizeof(*out_hdr)); + return UACPI_STATUS_OK; +} + +static uacpi_status table_ref_unlocked(struct uacpi_installed_table *tbl) +{ + switch (tbl->reference_count) { + case 0: { + uacpi_status ret; + + if (tbl->flags & UACPI_TABLE_INVALID) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (tbl->origin != UACPI_TABLE_ORIGIN_HOST_PHYSICAL && + tbl->origin != UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL) + break; + + tbl->ptr = uacpi_kernel_map(tbl->phys_addr, tbl->hdr.length); + if (uacpi_unlikely(tbl->ptr == UACPI_NULL)) + return UACPI_STATUS_MAPPING_FAILED; + + if (!(tbl->flags & UACPI_TABLE_CSUM_VERIFIED)) { + ret = uacpi_verify_table_checksum(tbl->ptr, tbl->hdr.length); + if (uacpi_unlikely_error(ret)) { + uacpi_kernel_unmap(tbl->ptr, tbl->hdr.length); + tbl->flags |= UACPI_TABLE_INVALID; + tbl->ptr = UACPI_NULL; + return ret; + } + + tbl->flags |= UACPI_TABLE_CSUM_VERIFIED; + } + break; + } + case 0xFFFF - 1: + uacpi_warn( + "too many references for "UACPI_PRI_TBL_HDR + ", mapping permanently\n", UACPI_FMT_TBL_HDR(&tbl->hdr) + ); + break; + default: + break; + } + + if (uacpi_likely(tbl->reference_count != 0xFFFF)) + tbl->reference_count++; + return UACPI_STATUS_OK; +} + +static uacpi_status table_unref_unlocked(struct uacpi_installed_table *tbl) +{ + switch (tbl->reference_count) { + case 0: + uacpi_warn( + "tried to unref table "UACPI_PRI_TBL_HDR" with no references\n", + UACPI_FMT_TBL_HDR(&tbl->hdr) + ); + return UACPI_STATUS_INVALID_ARGUMENT; + case 1: + if (tbl->origin != UACPI_TABLE_ORIGIN_HOST_PHYSICAL && + tbl->origin != UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL) + break; + + uacpi_kernel_unmap(tbl->ptr, tbl->hdr.length); + tbl->ptr = UACPI_NULL; + break; + case 0xFFFF: + /* + * Consider the reference count (overflow) of 0xFFFF to be a permanently + * mapped table as we don't know the actual number of references. + */ + return UACPI_STATUS_OK; + default: + break; + } + + tbl->reference_count--; + return UACPI_STATUS_OK; +} + +static uacpi_status verify_and_install_table( + struct acpi_sdt_hdr *hdr, uacpi_phys_addr phys_addr, void *virt_addr, + enum uacpi_table_origin origin, uacpi_table *out_table +) +{ + uacpi_status ret; + struct uacpi_installed_table *table; + uacpi_bool is_fadt; + uacpi_size idx; + uacpi_u8 flags = 0; + + is_fadt = uacpi_signatures_match(hdr->signature, ACPI_FADT_SIGNATURE); + + /* + * FACS is the only(?) table without a checksum because it has OSPM + * writable fields. Don't try to validate it here. + */ + if (uacpi_signatures_match(hdr->signature, ACPI_FACS_SIGNATURE)) { + flags |= UACPI_TABLE_CSUM_VERIFIED; + } else if (uacpi_check_flag(UACPI_FLAG_PROACTIVE_TBL_CSUM) || is_fadt || + out_table != UACPI_NULL) { + void *mapping = virt_addr; + + // We may already have a valid mapping, reuse it if we do + if (mapping == UACPI_NULL) + mapping = uacpi_kernel_map(phys_addr, hdr->length); + if (uacpi_unlikely(mapping == UACPI_NULL)) + return UACPI_STATUS_MAPPING_FAILED; + + ret = uacpi_verify_table_checksum(mapping, hdr->length); + if (uacpi_likely_success(ret)) { + if (is_fadt) + ret = initialize_fadt(mapping); + flags |= UACPI_TABLE_CSUM_VERIFIED; + } + + if (virt_addr == UACPI_NULL) + uacpi_kernel_unmap(mapping, hdr->length); + + if (uacpi_unlikely_error(ret)) + return ret; + } + + if (uacpi_signatures_match(hdr->signature, ACPI_DSDT_SIGNATURE)) + g_uacpi_rt_ctx.is_rev1 = hdr->revision < 2; + + ret = table_alloc(&table, &idx); + if (uacpi_unlikely_error(ret)) + return ret; + + dump_table_header(phys_addr, hdr); + + uacpi_memcpy(&table->hdr, hdr, sizeof(*hdr)); + table->reference_count = 0; + table->phys_addr = phys_addr; + table->ptr = virt_addr; + table->flags = flags; + table->origin = origin; + + if (out_table == UACPI_NULL) + return UACPI_STATUS_OK; + + table->reference_count++; + out_table->ptr = virt_addr; + out_table->index = idx; + return UACPI_STATUS_OK; +} + +static uacpi_status handle_table_override( + uacpi_table_installation_disposition disposition, uacpi_u64 address, + uacpi_table *out_table +) +{ + uacpi_status ret; + + switch (disposition) { + case UACPI_TABLE_INSTALLATION_DISPOSITON_VIRTUAL_OVERRIDE: + ret = table_install_with_origin_unlocked( + UACPI_VIRT_ADDR_TO_PTR((uacpi_virt_addr)address), + UACPI_TABLE_ORIGIN_HOST_VIRTUAL, + out_table + ); + return ret; + case UACPI_TABLE_INSTALLATION_DISPOSITON_PHYSICAL_OVERRIDE: + return table_install_physical_with_origin_unlocked( + (uacpi_phys_addr)address, + UACPI_TABLE_ORIGIN_HOST_PHYSICAL, + UACPI_NULL, + out_table + ); + default: + uacpi_error("invalid table installation disposition %d\n", disposition); + return UACPI_STATUS_INTERNAL_ERROR; + } +} + +static uacpi_status table_install_physical_with_origin_unlocked( + uacpi_phys_addr phys, enum uacpi_table_origin origin, + const uacpi_char *expected_signature, uacpi_table *out_table +) +{ + struct acpi_sdt_hdr hdr; + void *virt = UACPI_NULL; + uacpi_status ret; + + ret = get_external_table_header(phys, &hdr); + if (uacpi_unlikely_error(ret)) + return ret; + + if (uacpi_unlikely(hdr.length < sizeof(struct acpi_sdt_hdr))) { + uacpi_warn( + "bogus table '%.4s' (0x%016"UACPI_PRIX64") size: %u bytes\n", + hdr.signature, UACPI_FMT64(phys), hdr.length + ); + } + + if (expected_signature != UACPI_NULL) { + ret = uacpi_check_table_signature(&hdr, expected_signature); + if (uacpi_unlikely_error(ret)) + return ret; + } + + if (installation_handler != UACPI_NULL || out_table != UACPI_NULL) { + virt = uacpi_kernel_map(phys, hdr.length); + if (uacpi_unlikely(!virt)) + return UACPI_STATUS_MAPPING_FAILED; + } + + if (origin == UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL && + installation_handler != UACPI_NULL) { + uacpi_u64 override; + uacpi_table_installation_disposition disposition; + + disposition = installation_handler(virt, &override); + + switch (disposition) { + case UACPI_TABLE_INSTALLATION_DISPOSITON_ALLOW: + break; + case UACPI_TABLE_INSTALLATION_DISPOSITON_DENY: + uacpi_info( + "table '%.4s' (0x%016"UACPI_PRIX64") installation denied " + "by host\n", hdr.signature, UACPI_FMT64(phys) + ); + ret = UACPI_STATUS_DENIED; + goto out; + + default: + uacpi_info( + "table '%.4s' (0x%016"UACPI_PRIX64") installation " + "overridden by host\n", hdr.signature, UACPI_FMT64(phys) + ); + + ret = handle_table_override(disposition, override, out_table); + if (uacpi_likely_success(ret)) + ret = UACPI_STATUS_OVERRIDDEN; + + goto out; + } + } + + ret = verify_and_install_table(&hdr, phys, virt, origin, out_table); +out: + // We don't unmap only in this case + if (ret == UACPI_STATUS_OK && out_table != UACPI_NULL) + return ret; + + if (virt != UACPI_NULL) + uacpi_kernel_unmap(virt, hdr.length); + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_table_install_physical_with_origin( + uacpi_phys_addr phys, enum uacpi_table_origin origin, uacpi_table *out_table +) +{ + uacpi_status ret; + + ret = uacpi_acquire_native_mutex_may_be_null(table_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = table_install_physical_with_origin_unlocked( + phys, origin, UACPI_NULL, out_table + ); + uacpi_release_native_mutex_may_be_null(table_mutex); + + return ret; +} + +static uacpi_status table_install_with_origin_unlocked( + void *virt, enum uacpi_table_origin origin, uacpi_table *out_table +) +{ + struct acpi_sdt_hdr *hdr = virt; + + if (uacpi_unlikely(hdr->length < sizeof(struct acpi_sdt_hdr))) { + uacpi_error("invalid table '%.4s' (%p) size: %u\n", + hdr->signature, virt, hdr->length); + return UACPI_STATUS_INVALID_TABLE_LENGTH; + } + +#ifndef UACPI_BAREBONES_MODE + if (origin == UACPI_TABLE_ORIGIN_FIRMWARE_VIRTUAL && + installation_handler != UACPI_NULL) { + uacpi_u64 override; + uacpi_table_installation_disposition disposition; + + disposition = installation_handler(virt, &override); + + switch (disposition) { + case UACPI_TABLE_INSTALLATION_DISPOSITON_ALLOW: + break; + case UACPI_TABLE_INSTALLATION_DISPOSITON_DENY: + uacpi_info( + "table "UACPI_PRI_TBL_HDR" installation denied by host\n", + UACPI_FMT_TBL_HDR(hdr) + ); + return UACPI_STATUS_DENIED; + + default: { + uacpi_status ret; + uacpi_info( + "table "UACPI_PRI_TBL_HDR" installation overridden by host\n", + UACPI_FMT_TBL_HDR(hdr) + ); + + ret = handle_table_override(disposition, override, out_table); + if (uacpi_likely_success(ret)) + ret = UACPI_STATUS_OVERRIDDEN; + + return ret; + } + } + } +#endif + + return verify_and_install_table( + hdr, 0, virt, origin, out_table + ); +} + +uacpi_status uacpi_table_install_with_origin( + void *virt, enum uacpi_table_origin origin, uacpi_table *out_table +) +{ + uacpi_status ret; + + ret = uacpi_acquire_native_mutex_may_be_null(table_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = table_install_with_origin_unlocked(virt, origin, out_table); + + uacpi_release_native_mutex_may_be_null(table_mutex); + return ret; +} + +uacpi_status uacpi_table_install(void *virt, uacpi_table *out_table) +{ + ENSURE_TABLES_ONLINE(); + + return uacpi_table_install_with_origin( + virt, UACPI_TABLE_ORIGIN_HOST_VIRTUAL, out_table + ); +} + +uacpi_status uacpi_table_install_physical( + uacpi_phys_addr addr, uacpi_table *out_table +) +{ + ENSURE_TABLES_ONLINE(); + + return uacpi_table_install_physical_with_origin( + addr, UACPI_TABLE_ORIGIN_HOST_PHYSICAL, out_table + ); +} + +uacpi_status uacpi_for_each_table( + uacpi_size base_idx, uacpi_table_iteration_callback cb, void *user +) +{ + uacpi_status ret; + uacpi_size idx; + struct uacpi_installed_table *tbl; + uacpi_iteration_decision dec; + + ENSURE_TABLES_ONLINE(); + + ret = uacpi_acquire_native_mutex_may_be_null(table_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + for (idx = base_idx; idx < table_array_size(&tables); ++idx) { + tbl = table_array_at(&tables, idx); + + if (tbl->flags & UACPI_TABLE_INVALID) + continue; + + dec = cb(user, tbl, idx); + if (dec == UACPI_ITERATION_DECISION_BREAK) + break; + } + + uacpi_release_native_mutex_may_be_null(table_mutex); + return ret; +} + +enum search_type { + SEARCH_TYPE_BY_ID, + SEARCH_TYPE_MATCH, +}; + +struct table_search_ctx { + union { + const uacpi_table_identifiers *id; + uacpi_table_match_callback match_cb; + }; + + uacpi_table *out_table; + uacpi_u8 search_type; + uacpi_status status; +}; + +static uacpi_iteration_decision do_search_tables( + void *user, struct uacpi_installed_table *tbl, uacpi_size idx +) +{ + struct table_search_ctx *ctx = user; + uacpi_table *out_table; + uacpi_status ret; + + switch (ctx->search_type) { + case SEARCH_TYPE_BY_ID: { + const uacpi_table_identifiers *id = ctx->id; + + if (!uacpi_signatures_match(&id->signature, tbl->hdr.signature)) + return UACPI_ITERATION_DECISION_CONTINUE; + if (id->oemid[0] != '\0' && + uacpi_memcmp(id->oemid, tbl->hdr.oemid, sizeof(id->oemid)) != 0) + return UACPI_ITERATION_DECISION_CONTINUE; + + if (id->oem_table_id[0] != '\0' && + uacpi_memcmp(id->oem_table_id, tbl->hdr.oem_table_id, + sizeof(id->oem_table_id)) != 0) + return UACPI_ITERATION_DECISION_CONTINUE; + + break; + } + + case SEARCH_TYPE_MATCH: + if (!ctx->match_cb(tbl)) + return UACPI_ITERATION_DECISION_CONTINUE; + break; + + default: + ctx->status = UACPI_STATUS_INVALID_ARGUMENT; + return UACPI_ITERATION_DECISION_BREAK; + } + + ret = table_ref_unlocked(tbl); + if (uacpi_likely_success(ret)) { + out_table = ctx->out_table; + out_table->ptr = tbl->ptr; + out_table->index = idx; + ctx->status = ret; + return UACPI_ITERATION_DECISION_BREAK; + } + + /* + * Don't abort nor propagate bad checksums, just pretend this table never + * existed and go on with the search. + */ + if (ret == UACPI_STATUS_BAD_CHECKSUM) + return UACPI_ITERATION_DECISION_CONTINUE; + + ctx->status = ret; + return UACPI_ITERATION_DECISION_BREAK; +} + +#ifndef UACPI_BAREBONES_MODE +uacpi_status uacpi_table_match( + uacpi_size base_idx, uacpi_table_match_callback cb, uacpi_table *out_table +) +{ + uacpi_status ret; + struct table_search_ctx ctx = { 0 }; + + ctx.match_cb = cb; + ctx.search_type = SEARCH_TYPE_MATCH; + ctx.out_table = out_table; + ctx.status = UACPI_STATUS_NOT_FOUND; + + ret = uacpi_for_each_table(base_idx, do_search_tables, &ctx); + if (uacpi_unlikely_error(ret)) + return ret; + + return ctx.status; +} +#endif + +static uacpi_status find_table( + uacpi_size base_idx, const uacpi_table_identifiers *id, + uacpi_table *out_table +) +{ + uacpi_status ret; + struct table_search_ctx ctx = { 0 }; + + ctx.id = id; + ctx.out_table = out_table; + ctx.search_type = SEARCH_TYPE_BY_ID; + ctx.status = UACPI_STATUS_NOT_FOUND; + + ret = uacpi_for_each_table(base_idx, do_search_tables, &ctx); + if (uacpi_unlikely_error(ret)) + return ret; + + return ctx.status; +} + +uacpi_status uacpi_table_find_by_signature( + const uacpi_char *signature_string, struct uacpi_table *out_table +) +{ + struct uacpi_table_identifiers id = { 0 }; + + id.signature.text[0] = signature_string[0]; + id.signature.text[1] = signature_string[1]; + id.signature.text[2] = signature_string[2]; + id.signature.text[3] = signature_string[3]; + + ENSURE_TABLES_ONLINE(); + + return find_table(0, &id, out_table); +} + +uacpi_status uacpi_table_find_next_with_same_signature( + uacpi_table *in_out_table +) +{ + struct uacpi_table_identifiers id = { 0 }; + + ENSURE_TABLES_ONLINE(); + + if (uacpi_unlikely(in_out_table->ptr == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + uacpi_memcpy(&id.signature, in_out_table->hdr->signature, + sizeof(id.signature)); + uacpi_table_unref(in_out_table); + + return find_table(in_out_table->index + 1, &id, in_out_table); +} + +uacpi_status uacpi_table_find( + const uacpi_table_identifiers *id, uacpi_table *out_table +) +{ + ENSURE_TABLES_ONLINE(); + + return find_table(0, id, out_table); +} + +#define TABLE_CTL_SET_FLAGS (1 << 0) +#define TABLE_CTL_CLEAR_FLAGS (1 << 1) +#define TABLE_CTL_VALIDATE_SET_FLAGS (1 << 2) +#define TABLE_CTL_VALIDATE_CLEAR_FLAGS (1 << 3) +#define TABLE_CTL_GET (1 << 4) +#define TABLE_CTL_PUT (1 << 5) + +struct table_ctl_request { + uacpi_u8 type; + + uacpi_u8 expect_set; + uacpi_u8 expect_clear; + uacpi_u8 set; + uacpi_u8 clear; + + void *out_tbl; +}; + +static uacpi_status table_ctl(uacpi_size idx, struct table_ctl_request *req) +{ + uacpi_status ret; + struct uacpi_installed_table *tbl; + + ENSURE_TABLES_ONLINE(); + + ret = uacpi_acquire_native_mutex_may_be_null(table_mutex); + if (uacpi_unlikely_error(ret)) + return ret; + + if (uacpi_unlikely(table_array_size(&tables) <= idx)) { + uacpi_error( + "requested invalid table index %zu (%zu tables installed)\n", + idx, table_array_size(&tables) + ); + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + + tbl = table_array_at(&tables, idx); + if (uacpi_unlikely(tbl->flags & UACPI_TABLE_INVALID)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (req->type & TABLE_CTL_VALIDATE_SET_FLAGS) { + uacpi_u8 mask = req->expect_set; + + if (uacpi_unlikely((tbl->flags & mask) != mask)) { + uacpi_error( + "unexpected table '%.4s' flags %02X, expected %02X to be set\n", + tbl->hdr.signature, tbl->flags, mask + ); + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out; + } + } + + if (req->type & TABLE_CTL_VALIDATE_CLEAR_FLAGS) { + uacpi_u8 mask = req->expect_clear; + + if (uacpi_unlikely((tbl->flags & mask) != 0)) { + uacpi_error( + "unexpected table '%.4s' flags %02X, expected %02X " + "to be clear\n", tbl->hdr.signature, tbl->flags, mask + ); + ret = UACPI_STATUS_ALREADY_EXISTS; + goto out; + } + } + + if (req->type & TABLE_CTL_GET) { + ret = table_ref_unlocked(tbl); + if (uacpi_unlikely_error(ret)) + goto out; + + req->out_tbl = tbl->ptr; + } + + if (req->type & TABLE_CTL_PUT) { + ret = table_unref_unlocked(tbl); + if (uacpi_unlikely_error(ret)) + goto out; + } + + if (req->type & TABLE_CTL_SET_FLAGS) + tbl->flags |= req->set; + if (req->type & TABLE_CTL_CLEAR_FLAGS) + tbl->flags &= ~req->clear; + +out: + uacpi_release_native_mutex_may_be_null(table_mutex); + return ret; +} + +#ifndef UACPI_BAREBONES_MODE +uacpi_status uacpi_table_load_with_cause( + uacpi_size idx, enum uacpi_table_load_cause cause +) +{ + uacpi_status ret; + struct table_ctl_request req = { + .type = TABLE_CTL_SET_FLAGS | TABLE_CTL_VALIDATE_CLEAR_FLAGS | + TABLE_CTL_GET, + .set = UACPI_TABLE_LOADED, + .expect_clear = UACPI_TABLE_LOADED, + }; + + ret = table_ctl(idx, &req); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_execute_table(req.out_tbl, cause); + + req.type = TABLE_CTL_PUT; + table_ctl(idx, &req); + return ret; +} + +uacpi_status uacpi_table_load(uacpi_size idx) +{ + return uacpi_table_load_with_cause(idx, UACPI_TABLE_LOAD_CAUSE_HOST); +} + +void uacpi_table_mark_as_loaded(uacpi_size idx) +{ + struct table_ctl_request req = { + .type = TABLE_CTL_SET_FLAGS, .set = UACPI_TABLE_LOADED + }; + + table_ctl(idx, &req); +} +#endif // !UACPI_BAREBONES_MODE + +uacpi_status uacpi_table_ref(uacpi_table *tbl) +{ + struct table_ctl_request req = { + .type = TABLE_CTL_GET + }; + + return table_ctl(tbl->index, &req); +} + +uacpi_status uacpi_table_unref(uacpi_table *tbl) +{ + struct table_ctl_request req = { + .type = TABLE_CTL_PUT + }; + + return table_ctl(tbl->index, &req); +} + +uacpi_u16 fadt_version_sizes[] = { + 116, 132, 244, 244, 268, 276 +}; + +static void fadt_ensure_correct_revision(struct acpi_fadt *fadt) +{ + uacpi_size current_rev, rev; + + current_rev = fadt->hdr.revision; + + for (rev = 0; rev < UACPI_ARRAY_SIZE(fadt_version_sizes); ++rev) { + if (fadt->hdr.length <= fadt_version_sizes[rev]) + break; + } + + if (rev == UACPI_ARRAY_SIZE(fadt_version_sizes)) { + uacpi_trace( + "FADT revision (%zu) is likely greater than the last " + "supported, reducing to %zu\n", current_rev, rev + ); + fadt->hdr.revision = rev; + return; + } + + rev++; + + if (current_rev != rev && !(rev == 3 && current_rev == 4)) { + uacpi_warn( + "FADT length %u doesn't match expected for revision %zu, " + "assuming version %zu\n", fadt->hdr.length, current_rev, + rev + ); + fadt->hdr.revision = rev; + } +} + +static void gas_init_system_io( + struct acpi_gas *gas, uacpi_u64 address, uacpi_u8 byte_size +) +{ + gas->address = address; + gas->address_space_id = UACPI_ADDRESS_SPACE_SYSTEM_IO; + gas->register_bit_width = UACPI_MIN(255, byte_size * 8); + gas->register_bit_offset = 0; + gas->access_size = 0; +} + + +struct register_description { + uacpi_size offset, xoffset; + uacpi_size length_offset; +}; + +#define fadt_offset(field) uacpi_offsetof(struct acpi_fadt, field) + +/* + * We convert all the legacy registers into GAS format and write them into + * the x_* fields for convenience and faster access at runtime. + */ +static struct register_description fadt_registers[] = { + { + .offset = fadt_offset(pm1a_evt_blk), + .xoffset = fadt_offset(x_pm1a_evt_blk), + .length_offset = fadt_offset(pm1_evt_len), + }, + { + .offset = fadt_offset(pm1b_evt_blk), + .xoffset = fadt_offset(x_pm1b_evt_blk), + .length_offset = fadt_offset(pm1_evt_len), + }, + { + .offset = fadt_offset(pm1a_cnt_blk), + .xoffset = fadt_offset(x_pm1a_cnt_blk), + .length_offset = fadt_offset(pm1_cnt_len), + }, + { + .offset = fadt_offset(pm1b_cnt_blk), + .xoffset = fadt_offset(x_pm1b_cnt_blk), + .length_offset = fadt_offset(pm1_cnt_len), + }, + { + .offset = fadt_offset(pm2_cnt_blk), + .xoffset = fadt_offset(x_pm2_cnt_blk), + .length_offset = fadt_offset(pm2_cnt_len), + }, + { + .offset = fadt_offset(pm_tmr_blk), + .xoffset = fadt_offset(x_pm_tmr_blk), + .length_offset = fadt_offset(pm_tmr_len), + }, + { + .offset = fadt_offset(gpe0_blk), + .xoffset = fadt_offset(x_gpe0_blk), + .length_offset = fadt_offset(gpe0_blk_len), + }, + { + .offset = fadt_offset(gpe1_blk), + .xoffset = fadt_offset(x_gpe1_blk), + .length_offset = fadt_offset(gpe1_blk_len), + }, +}; + +static void *fadt_relative(uacpi_size offset) +{ + return ((uacpi_u8*)&g_uacpi_rt_ctx.fadt) + offset; +} + +static void convert_registers_to_gas(void) +{ + uacpi_size i; + struct register_description *desc; + struct acpi_gas *gas; + uacpi_u32 legacy_addr; + uacpi_u8 length; + + for (i = 0; i < UACPI_ARRAY_SIZE(fadt_registers); ++i) { + desc = &fadt_registers[i]; + + legacy_addr = *(uacpi_u32*)fadt_relative(desc->offset); + length = *(uacpi_u8*)fadt_relative(desc->length_offset); + gas = fadt_relative(desc->xoffset); + + if (gas->address) + continue; + + gas_init_system_io(gas, legacy_addr, length); + } +} + +#ifndef UACPI_BAREBONES_MODE +static void split_one_block( + struct acpi_gas *src, struct acpi_gas *dst0, struct acpi_gas *dst1 +) +{ + uacpi_size byte_length; + + if (src->address == 0) + return; + + byte_length = src->register_bit_width / 8; + byte_length /= 2; + + gas_init_system_io(dst0, src->address, byte_length); + gas_init_system_io(dst1, src->address + byte_length, byte_length); +} + +static void split_event_blocks(void) +{ + split_one_block( + &g_uacpi_rt_ctx.fadt.x_pm1a_evt_blk, + &g_uacpi_rt_ctx.pm1a_status_blk, + &g_uacpi_rt_ctx.pm1a_enable_blk + ); + split_one_block( + &g_uacpi_rt_ctx.fadt.x_pm1b_evt_blk, + &g_uacpi_rt_ctx.pm1b_status_blk, + &g_uacpi_rt_ctx.pm1b_enable_blk + ); +} +#endif // !UACPI_BAREBONES_MODE + +static uacpi_status initialize_fadt(const void *virt) +{ + uacpi_status ret; + struct acpi_fadt *fadt = &g_uacpi_rt_ctx.fadt; + const struct acpi_sdt_hdr *hdr = virt; + + /* + * Here we (roughly) follow ACPICA initialization sequence to make sure we + * handle potential BIOS quirks with garbage inside FADT correctly. + */ + + uacpi_memcpy(fadt, hdr, UACPI_MIN(sizeof(*fadt), hdr->length)); + +#if !defined(UACPI_REDUCED_HARDWARE) && !defined(UACPI_BAREBONES_MODE) + g_uacpi_rt_ctx.is_hardware_reduced = fadt->flags & ACPI_HW_REDUCED_ACPI; +#endif + + fadt_ensure_correct_revision(fadt); + + /* + * These are reserved prior to version 3, so zero them out to work around + * BIOS implementations that might dirty these. + */ + if (fadt->hdr.revision <= 2) { + fadt->preferred_pm_profile = 0; + fadt->pstate_cnt = 0; + fadt->cst_cnt = 0; + fadt->iapc_boot_arch = 0; + } + + if (!fadt->x_dsdt) + fadt->x_dsdt = fadt->dsdt; + + if (fadt->x_dsdt) { + ret = table_install_physical_with_origin_unlocked( + fadt->x_dsdt, UACPI_TABLE_ORIGIN_FIRMWARE_PHYSICAL, + ACPI_DSDT_SIGNATURE, UACPI_NULL + ); + if (uacpi_unlikely(ret != UACPI_STATUS_OK && + ret != UACPI_STATUS_OVERRIDDEN)) + return ret; + } + + /* + * Unconditionally use 32 bit FACS if it exists, as 64 bit FACS is known + * to cause issues on some firmware: + * https://bugzilla.kernel.org/show_bug.cgi?id=74021 + * + * Note that we don't install it here as FACS needs permanent mapping, which + * we might not be able to obtain at this point in case of early table + * access. + */ + if (fadt->firmware_ctrl) + fadt->x_firmware_ctrl = fadt->firmware_ctrl; + + if (!uacpi_is_hardware_reduced()) { + convert_registers_to_gas(); +#ifndef UACPI_BAREBONES_MODE + split_event_blocks(); +#endif + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_table_fadt(struct acpi_fadt **out_fadt) +{ + ENSURE_TABLES_ONLINE(); + + *out_fadt = &g_uacpi_rt_ctx.fadt; + return UACPI_STATUS_OK; +} diff --git a/kernel/hal/x86_64/uACPI/source/types.c b/kernel/hal/x86_64/uACPI/source/types.c new file mode 100644 index 0000000..840d3ef --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/types.c @@ -0,0 +1,1489 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include + +const uacpi_char *uacpi_address_space_to_string( + enum uacpi_address_space space +) +{ + switch (space) { + case UACPI_ADDRESS_SPACE_SYSTEM_MEMORY: + return "SystemMemory"; + case UACPI_ADDRESS_SPACE_SYSTEM_IO: + return "SystemIO"; + case UACPI_ADDRESS_SPACE_PCI_CONFIG: + return "PCI_Config"; + case UACPI_ADDRESS_SPACE_EMBEDDED_CONTROLLER: + return "EmbeddedControl"; + case UACPI_ADDRESS_SPACE_SMBUS: + return "SMBus"; + case UACPI_ADDRESS_SPACE_SYSTEM_CMOS: + return "SystemCMOS"; + case UACPI_ADDRESS_SPACE_PCI_BAR_TARGET: + return "PciBarTarget"; + case UACPI_ADDRESS_SPACE_IPMI: + return "IPMI"; + case UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO: + return "GeneralPurposeIO"; + case UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS: + return "GenericSerialBus"; + case UACPI_ADDRESS_SPACE_PCC: + return "PCC"; + case UACPI_ADDRESS_SPACE_PRM: + return "PlatformRtMechanism"; + case UACPI_ADDRESS_SPACE_FFIXEDHW: + return "FFixedHW"; + case UACPI_ADDRESS_SPACE_TABLE_DATA: + return "TableData"; + default: + return ""; + } +} + +#ifndef UACPI_BAREBONES_MODE + +const uacpi_char *uacpi_object_type_to_string(uacpi_object_type type) +{ + switch (type) { + case UACPI_OBJECT_UNINITIALIZED: + return "Uninitialized"; + case UACPI_OBJECT_INTEGER: + return "Integer"; + case UACPI_OBJECT_STRING: + return "String"; + case UACPI_OBJECT_BUFFER: + return "Buffer"; + case UACPI_OBJECT_PACKAGE: + return "Package"; + case UACPI_OBJECT_FIELD_UNIT: + return "Field Unit"; + case UACPI_OBJECT_DEVICE: + return "Device"; + case UACPI_OBJECT_EVENT: + return "Event"; + case UACPI_OBJECT_REFERENCE: + return "Reference"; + case UACPI_OBJECT_BUFFER_INDEX: + return "Buffer Index"; + case UACPI_OBJECT_METHOD: + return "Method"; + case UACPI_OBJECT_MUTEX: + return "Mutex"; + case UACPI_OBJECT_OPERATION_REGION: + return "Operation Region"; + case UACPI_OBJECT_POWER_RESOURCE: + return "Power Resource"; + case UACPI_OBJECT_PROCESSOR: + return "Processor"; + case UACPI_OBJECT_THERMAL_ZONE: + return "Thermal Zone"; + case UACPI_OBJECT_BUFFER_FIELD: + return "Buffer Field"; + case UACPI_OBJECT_DEBUG: + return "Debug"; + default: + return ""; + } +} + +static uacpi_bool buffer_alloc(uacpi_object *obj, uacpi_size initial_size) +{ + uacpi_buffer *buf; + + buf = uacpi_kernel_alloc_zeroed(sizeof(uacpi_buffer)); + if (uacpi_unlikely(buf == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(buf); + + if (initial_size) { + buf->data = uacpi_kernel_alloc(initial_size); + if (uacpi_unlikely(buf->data == UACPI_NULL)) { + uacpi_free(buf, sizeof(*buf)); + return UACPI_FALSE; + } + + buf->size = initial_size; + } + + obj->buffer = buf; + return UACPI_TRUE; +} + +static uacpi_bool empty_buffer_or_string_alloc(uacpi_object *object) +{ + return buffer_alloc(object, 0); +} + +uacpi_bool uacpi_package_fill( + uacpi_package *pkg, uacpi_size num_elements, + enum uacpi_prealloc_objects prealloc_objects +) +{ + uacpi_size i; + + if (uacpi_unlikely(num_elements == 0)) + return UACPI_TRUE; + + pkg->objects = uacpi_kernel_alloc_zeroed( + num_elements * sizeof(uacpi_handle) + ); + if (uacpi_unlikely(pkg->objects == UACPI_NULL)) + return UACPI_FALSE; + + pkg->count = num_elements; + + if (prealloc_objects == UACPI_PREALLOC_OBJECTS_YES) { + for (i = 0; i < num_elements; ++i) { + pkg->objects[i] = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + + if (uacpi_unlikely(pkg->objects[i] == UACPI_NULL)) + return UACPI_FALSE; + } + } + + return UACPI_TRUE; +} + +static uacpi_bool package_alloc( + uacpi_object *obj, uacpi_size initial_size, + enum uacpi_prealloc_objects prealloc +) +{ + uacpi_package *pkg; + + pkg = uacpi_kernel_alloc_zeroed(sizeof(uacpi_package)); + if (uacpi_unlikely(pkg == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(pkg); + + if (uacpi_unlikely(!uacpi_package_fill(pkg, initial_size, prealloc))) { + uacpi_free(pkg, sizeof(*pkg)); + return UACPI_FALSE; + } + + obj->package = pkg; + return UACPI_TRUE; +} + +static uacpi_bool empty_package_alloc(uacpi_object *object) +{ + return package_alloc(object, 0, UACPI_PREALLOC_OBJECTS_NO); +} + +uacpi_mutex *uacpi_create_mutex(void) +{ + uacpi_mutex *mutex; + + mutex = uacpi_kernel_alloc_zeroed(sizeof(uacpi_mutex)); + if (uacpi_unlikely(mutex == UACPI_NULL)) + return UACPI_NULL; + + mutex->owner = UACPI_THREAD_ID_NONE; + + mutex->handle = uacpi_kernel_create_mutex(); + if (mutex->handle == UACPI_NULL) { + uacpi_free(mutex, sizeof(*mutex)); + return UACPI_NULL; + } + + uacpi_shareable_init(mutex); + return mutex; +} + +static uacpi_bool mutex_alloc(uacpi_object *obj) +{ + obj->mutex = uacpi_create_mutex(); + return obj->mutex != UACPI_NULL; +} + +static uacpi_bool event_alloc(uacpi_object *obj) +{ + uacpi_event *event; + + event = uacpi_kernel_alloc_zeroed(sizeof(uacpi_event)); + if (uacpi_unlikely(event == UACPI_NULL)) + return UACPI_FALSE; + + event->handle = uacpi_kernel_create_event(); + if (event->handle == UACPI_NULL) { + uacpi_free(event, sizeof(*event)); + return UACPI_FALSE; + } + + uacpi_shareable_init(event); + obj->event = event; + + return UACPI_TRUE; +} + +static uacpi_bool method_alloc(uacpi_object *obj) +{ + uacpi_control_method *method; + + method = uacpi_kernel_alloc_zeroed(sizeof(*method)); + if (uacpi_unlikely(method == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(method); + obj->method = method; + + return UACPI_TRUE; +} + +static uacpi_bool op_region_alloc(uacpi_object *obj) +{ + uacpi_operation_region *op_region; + + op_region = uacpi_kernel_alloc_zeroed(sizeof(*op_region)); + if (uacpi_unlikely(op_region == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(op_region); + obj->op_region = op_region; + + return UACPI_TRUE; +} + +static uacpi_bool field_unit_alloc(uacpi_object *obj) +{ + uacpi_field_unit *field_unit; + + field_unit = uacpi_kernel_alloc_zeroed(sizeof(*field_unit)); + if (uacpi_unlikely(field_unit == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(field_unit); + obj->field_unit = field_unit; + + return UACPI_TRUE; +} + +static uacpi_bool processor_alloc(uacpi_object *obj) +{ + uacpi_processor *processor; + + processor = uacpi_kernel_alloc_zeroed(sizeof(*processor)); + if (uacpi_unlikely(processor == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(processor); + obj->processor = processor; + + return UACPI_TRUE; +} + +static uacpi_bool device_alloc(uacpi_object *obj) +{ + uacpi_device *device; + + device = uacpi_kernel_alloc_zeroed(sizeof(*device)); + if (uacpi_unlikely(device == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(device); + obj->device = device; + + return UACPI_TRUE; +} + +static uacpi_bool thermal_zone_alloc(uacpi_object *obj) +{ + uacpi_thermal_zone *thermal_zone; + + thermal_zone = uacpi_kernel_alloc_zeroed(sizeof(*thermal_zone)); + if (uacpi_unlikely(thermal_zone == UACPI_NULL)) + return UACPI_FALSE; + + uacpi_shareable_init(thermal_zone); + obj->thermal_zone = thermal_zone; + + return UACPI_TRUE; +} + +typedef uacpi_bool (*object_ctor)(uacpi_object *obj); + +static object_ctor object_constructor_table[UACPI_OBJECT_MAX_TYPE_VALUE + 1] = { + [UACPI_OBJECT_STRING] = empty_buffer_or_string_alloc, + [UACPI_OBJECT_BUFFER] = empty_buffer_or_string_alloc, + [UACPI_OBJECT_PACKAGE] = empty_package_alloc, + [UACPI_OBJECT_FIELD_UNIT] = field_unit_alloc, + [UACPI_OBJECT_MUTEX] = mutex_alloc, + [UACPI_OBJECT_EVENT] = event_alloc, + [UACPI_OBJECT_OPERATION_REGION] = op_region_alloc, + [UACPI_OBJECT_METHOD] = method_alloc, + [UACPI_OBJECT_PROCESSOR] = processor_alloc, + [UACPI_OBJECT_DEVICE] = device_alloc, + [UACPI_OBJECT_THERMAL_ZONE] = thermal_zone_alloc, +}; + +uacpi_object *uacpi_create_object(uacpi_object_type type) +{ + uacpi_object *ret; + object_ctor ctor; + + ret = uacpi_kernel_alloc_zeroed(sizeof(*ret)); + if (uacpi_unlikely(ret == UACPI_NULL)) + return ret; + + uacpi_shareable_init(ret); + ret->type = type; + + ctor = object_constructor_table[type]; + if (ctor == UACPI_NULL) + return ret; + + if (uacpi_unlikely(!ctor(ret))) { + uacpi_free(ret, sizeof(*ret)); + return UACPI_NULL; + } + + return ret; +} + +static void free_buffer(uacpi_handle handle) +{ + uacpi_buffer *buf = handle; + + if (buf->data != UACPI_NULL) + /* + * If buffer has a size of 0 but a valid data pointer it's probably an + * "empty" buffer allocated by the interpreter in make_null_buffer + * and its real size is actually 1. + */ + uacpi_free(buf->data, UACPI_MAX(buf->size, 1)); + + uacpi_free(buf, sizeof(*buf)); +} + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE(free_queue, uacpi_package*, 4) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL(free_queue, uacpi_package*, static) + +static uacpi_bool free_queue_push(struct free_queue *queue, uacpi_package *pkg) +{ + uacpi_package **slot; + + slot = free_queue_alloc(queue); + if (uacpi_unlikely(slot == UACPI_NULL)) + return UACPI_FALSE; + + *slot = pkg; + return UACPI_TRUE; +} + +static void free_object(uacpi_object *obj); + +// No references allowed here, only plain objects +static void free_plain_no_recurse(uacpi_object *obj, struct free_queue *queue) +{ + switch (obj->type) { + case UACPI_OBJECT_PACKAGE: + if (uacpi_shareable_unref(obj->package) > 1) + break; + + if (uacpi_unlikely(!free_queue_push(queue, + obj->package))) { + uacpi_warn( + "unable to free nested package @%p: not enough memory\n", + obj->package + ); + } + + // Don't call free_object here as that will recurse + uacpi_free(obj, sizeof(*obj)); + break; + default: + /* + * This call is guaranteed to not recurse further as we handle + * recursive cases elsewhere explicitly. + */ + free_object(obj); + } +} + +static void unref_plain_no_recurse(uacpi_object *obj, struct free_queue *queue) +{ + if (uacpi_shareable_unref(obj) > 1) + return; + + free_plain_no_recurse(obj, queue); +} + +static void unref_chain_no_recurse(uacpi_object *obj, struct free_queue *queue) +{ + uacpi_object *next_obj = UACPI_NULL; + + while (obj) { + if (obj->type == UACPI_OBJECT_REFERENCE) + next_obj = obj->inner_object; + + if (uacpi_shareable_unref(obj) > 1) + goto do_next; + + if (obj->type == UACPI_OBJECT_REFERENCE) { + uacpi_free(obj, sizeof(*obj)); + } else { + free_plain_no_recurse(obj, queue); + } + + do_next: + obj = next_obj; + next_obj = UACPI_NULL; + } +} + +static void unref_object_no_recurse(uacpi_object *obj, struct free_queue *queue) +{ + if (obj->type == UACPI_OBJECT_REFERENCE) { + unref_chain_no_recurse(obj, queue); + return; + } + + unref_plain_no_recurse(obj, queue); +} + +static void free_package(uacpi_handle handle) +{ + struct free_queue queue = { 0 }; + uacpi_package *pkg = handle; + uacpi_object *obj; + uacpi_size i; + + free_queue_push(&queue, pkg); + + while (free_queue_size(&queue) != 0) { + pkg = *free_queue_last(&queue); + free_queue_pop(&queue); + + /* + * 1. Unref/free every object in the package. Note that this might add + * even more packages into the free queue. + */ + for (i = 0; i < pkg->count; ++i) { + obj = pkg->objects[i]; + unref_object_no_recurse(obj, &queue); + } + + // 2. Release the object array + uacpi_free(pkg->objects, sizeof(*pkg->objects) * pkg->count); + + // 3. Release the package itself + uacpi_free(pkg, sizeof(*pkg)); + } + + free_queue_clear(&queue); +} + +static void free_mutex(uacpi_handle handle) +{ + uacpi_mutex *mutex = handle; + + uacpi_kernel_free_mutex(mutex->handle); + uacpi_free(mutex, sizeof(*mutex)); +} + +void uacpi_mutex_unref(uacpi_mutex *mutex) +{ + if (mutex == UACPI_NULL) + return; + + uacpi_shareable_unref_and_delete_if_last(mutex, free_mutex); +} + +static void free_event(uacpi_handle handle) +{ + uacpi_event *event = handle; + + uacpi_kernel_free_event(event->handle); + uacpi_free(event, sizeof(*event)); +} + +static void free_address_space_handler(uacpi_handle handle) +{ + uacpi_address_space_handler *handler = handle; + uacpi_free(handler, sizeof(*handler)); +} + +static void free_address_space_handlers( + uacpi_address_space_handler *handler +) +{ + uacpi_address_space_handler *next_handler; + + while (handler) { + next_handler = handler->next; + uacpi_shareable_unref_and_delete_if_last( + handler, free_address_space_handler + ); + handler = next_handler; + } +} + +static void free_device_notify_handlers(uacpi_device_notify_handler *handler) +{ + uacpi_device_notify_handler *next_handler; + + while (handler) { + next_handler = handler->next; + uacpi_free(handler, sizeof(*handler)); + handler = next_handler; + } +} + +static void free_handlers(uacpi_handle handle) +{ + uacpi_handlers *handlers = handle; + + free_address_space_handlers(handlers->address_space_head); + free_device_notify_handlers(handlers->notify_head); +} + +void uacpi_address_space_handler_unref(uacpi_address_space_handler *handler) +{ + uacpi_shareable_unref_and_delete_if_last( + handler, free_address_space_handler + ); +} + +static void free_op_region(uacpi_handle handle) +{ + uacpi_operation_region *op_region = handle; + + if (uacpi_unlikely(op_region->handler != UACPI_NULL)) { + uacpi_warn( + "BUG: attempting to free an opregion@%p with a handler attached\n", + op_region + ); + } + + switch (op_region->space) { + case UACPI_ADDRESS_SPACE_PCC: + uacpi_free(op_region->internal_buffer, op_region->length); + break; + case UACPI_ADDRESS_SPACE_TABLE_DATA: { + struct uacpi_table table = { 0 }; + + table.index = op_region->table_idx; + uacpi_table_unref( + &table + ); + break; + } + default: + break; + } + + uacpi_free(op_region, sizeof(*op_region)); +} + +static void free_device(uacpi_handle handle) +{ + uacpi_device *device = handle; + free_handlers(device); + uacpi_free(device, sizeof(*device)); +} + +static void free_processor(uacpi_handle handle) +{ + uacpi_processor *processor = handle; + free_handlers(processor); + uacpi_free(processor, sizeof(*processor)); +} + +static void free_thermal_zone(uacpi_handle handle) +{ + uacpi_thermal_zone *thermal_zone = handle; + free_handlers(thermal_zone); + uacpi_free(thermal_zone, sizeof(*thermal_zone)); +} + +static void free_field_unit(uacpi_handle handle) +{ + uacpi_field_unit *field_unit = handle; + + if (field_unit->connection) + uacpi_object_unref(field_unit->connection); + + switch (field_unit->kind) { + case UACPI_FIELD_UNIT_KIND_NORMAL: + uacpi_namespace_node_unref(field_unit->region); + break; + case UACPI_FIELD_UNIT_KIND_BANK: + uacpi_namespace_node_unref(field_unit->bank_region); + uacpi_shareable_unref_and_delete_if_last( + field_unit->bank_selection, free_field_unit + ); + break; + case UACPI_FIELD_UNIT_KIND_INDEX: + uacpi_shareable_unref_and_delete_if_last( + field_unit->index, free_field_unit + ); + uacpi_shareable_unref_and_delete_if_last( + field_unit->data, free_field_unit + ); + break; + default: + break; + } + + uacpi_free(field_unit, sizeof(*field_unit)); +} + +static void free_method(uacpi_handle handle) +{ + uacpi_control_method *method = handle; + + uacpi_shareable_unref_and_delete_if_last( + method->mutex, free_mutex + ); + + if (!method->native_call && method->owns_code) + uacpi_free(method->code, method->size); + uacpi_free(method, sizeof(*method)); +} + +void uacpi_method_unref(uacpi_control_method *method) +{ + uacpi_shareable_unref_and_delete_if_last(method, free_method); +} + +static void free_object_storage(uacpi_object *obj) +{ + switch (obj->type) { + case UACPI_OBJECT_STRING: + case UACPI_OBJECT_BUFFER: + uacpi_shareable_unref_and_delete_if_last(obj->buffer, free_buffer); + break; + case UACPI_OBJECT_BUFFER_FIELD: + uacpi_shareable_unref_and_delete_if_last(obj->buffer_field.backing, + free_buffer); + break; + case UACPI_OBJECT_BUFFER_INDEX: + uacpi_shareable_unref_and_delete_if_last(obj->buffer_index.buffer, + free_buffer); + break; + case UACPI_OBJECT_METHOD: + uacpi_method_unref(obj->method); + break; + case UACPI_OBJECT_PACKAGE: + uacpi_shareable_unref_and_delete_if_last(obj->package, + free_package); + break; + case UACPI_OBJECT_FIELD_UNIT: + uacpi_shareable_unref_and_delete_if_last(obj->field_unit, + free_field_unit); + break; + case UACPI_OBJECT_MUTEX: + uacpi_mutex_unref(obj->mutex); + break; + case UACPI_OBJECT_EVENT: + uacpi_shareable_unref_and_delete_if_last(obj->event, + free_event); + break; + case UACPI_OBJECT_OPERATION_REGION: + uacpi_shareable_unref_and_delete_if_last(obj->op_region, + free_op_region); + break; + case UACPI_OBJECT_PROCESSOR: + uacpi_shareable_unref_and_delete_if_last(obj->processor, + free_processor); + break; + case UACPI_OBJECT_DEVICE: + uacpi_shareable_unref_and_delete_if_last(obj->device, + free_device); + break; + case UACPI_OBJECT_THERMAL_ZONE: + uacpi_shareable_unref_and_delete_if_last(obj->thermal_zone, + free_thermal_zone); + break; + default: + break; + } +} + +static void free_object(uacpi_object *obj) +{ + free_object_storage(obj); + uacpi_free(obj, sizeof(*obj)); +} + +static void make_chain_bugged(uacpi_object *obj) +{ + uacpi_warn("object refcount bug, marking chain @%p as bugged\n", obj); + + while (obj) { + uacpi_make_shareable_bugged(obj); + + if (obj->type == UACPI_OBJECT_REFERENCE) + obj = obj->inner_object; + else + obj = UACPI_NULL; + } +} + +void uacpi_object_ref(uacpi_object *obj) +{ + while (obj) { + uacpi_shareable_ref(obj); + + if (obj->type == UACPI_OBJECT_REFERENCE) + obj = obj->inner_object; + else + obj = UACPI_NULL; + } +} + +static void free_chain(uacpi_object *obj) +{ + uacpi_object *next_obj = UACPI_NULL; + + while (obj) { + if (obj->type == UACPI_OBJECT_REFERENCE) + next_obj = obj->inner_object; + + if (uacpi_shareable_refcount(obj) == 0) + free_object(obj); + + obj = next_obj; + next_obj = UACPI_NULL; + } +} + +void uacpi_object_unref(uacpi_object *obj) +{ + uacpi_object *this_obj = obj; + + if (!obj) + return; + + while (obj) { + if (uacpi_unlikely(uacpi_bugged_shareable(obj))) + return; + + uacpi_shareable_unref(obj); + + if (obj->type == UACPI_OBJECT_REFERENCE) { + obj = obj->inner_object; + } else { + obj = UACPI_NULL; + } + } + + if (uacpi_shareable_refcount(this_obj) == 0) + free_chain(this_obj); +} + +static uacpi_status buffer_alloc_and_store( + uacpi_object *obj, uacpi_size buf_size, + const void *src, uacpi_size src_size +) +{ + if (uacpi_unlikely(!buffer_alloc(obj, buf_size))) + return UACPI_STATUS_OUT_OF_MEMORY; + + uacpi_memcpy_zerout(obj->buffer->data, src, buf_size, src_size); + return UACPI_STATUS_OK; +} + +static uacpi_status assign_buffer(uacpi_object *dst, uacpi_object *src, + enum uacpi_assign_behavior behavior) +{ + if (behavior == UACPI_ASSIGN_BEHAVIOR_SHALLOW_COPY) { + dst->buffer = src->buffer; + uacpi_shareable_ref(dst->buffer); + return UACPI_STATUS_OK; + } + + return buffer_alloc_and_store(dst, src->buffer->size, + src->buffer->data, src->buffer->size); +} + +struct pkg_copy_req { + uacpi_object *dst; + uacpi_package *src; +}; + +DYNAMIC_ARRAY_WITH_INLINE_STORAGE(pkg_copy_reqs, struct pkg_copy_req, 2) +DYNAMIC_ARRAY_WITH_INLINE_STORAGE_IMPL( + pkg_copy_reqs, struct pkg_copy_req, static +) + +static uacpi_bool pkg_copy_reqs_push( + struct pkg_copy_reqs *reqs, + uacpi_object *dst, uacpi_package *pkg +) +{ + struct pkg_copy_req *req; + + req = pkg_copy_reqs_alloc(reqs); + if (uacpi_unlikely(req == UACPI_NULL)) + return UACPI_FALSE; + + req->dst = dst; + req->src = pkg; + + return UACPI_TRUE; +} + +static uacpi_status deep_copy_package_no_recurse( + uacpi_object *dst, uacpi_package *src, + struct pkg_copy_reqs *reqs +) +{ + uacpi_size i; + uacpi_package *dst_package; + + if (uacpi_unlikely(!package_alloc(dst, src->count, + UACPI_PREALLOC_OBJECTS_YES))) + return UACPI_STATUS_OUT_OF_MEMORY; + + dst->type = UACPI_OBJECT_PACKAGE; + dst_package = dst->package; + + for (i = 0; i < src->count; ++i) { + uacpi_status st; + uacpi_object *src_obj = src->objects[i]; + uacpi_object *dst_obj = dst_package->objects[i]; + + // Don't copy the internal package index reference + if (src_obj->type == UACPI_OBJECT_REFERENCE && + src_obj->flags == UACPI_REFERENCE_KIND_PKG_INDEX) + src_obj = src_obj->inner_object; + + if (src_obj->type == UACPI_OBJECT_PACKAGE) { + uacpi_bool ret; + + ret = pkg_copy_reqs_push(reqs, dst_obj, src_obj->package); + if (uacpi_unlikely(!ret)) + return UACPI_STATUS_OUT_OF_MEMORY; + + continue; + } + + st = uacpi_object_assign(dst_obj, src_obj, + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY); + if (uacpi_unlikely_error(st)) + return st; + } + + return UACPI_STATUS_OK; +} + +static uacpi_status deep_copy_package(uacpi_object *dst, uacpi_object *src) +{ + uacpi_status ret = UACPI_STATUS_OK; + struct pkg_copy_reqs reqs = { 0 }; + + pkg_copy_reqs_push(&reqs, dst, src->package); + + while (pkg_copy_reqs_size(&reqs) != 0) { + struct pkg_copy_req req; + + req = *pkg_copy_reqs_last(&reqs); + pkg_copy_reqs_pop(&reqs); + + ret = deep_copy_package_no_recurse(req.dst, req.src, &reqs); + if (uacpi_unlikely_error(ret)) + break; + } + + pkg_copy_reqs_clear(&reqs); + return ret; +} + +static uacpi_status assign_mutex(uacpi_object *dst, uacpi_object *src, + enum uacpi_assign_behavior behavior) +{ + if (behavior == UACPI_ASSIGN_BEHAVIOR_DEEP_COPY) { + if (uacpi_likely(mutex_alloc(dst))) { + dst->mutex->sync_level = src->mutex->sync_level; + return UACPI_STATUS_OK; + } + + return UACPI_STATUS_OUT_OF_MEMORY; + } + + dst->mutex = src->mutex; + uacpi_shareable_ref(dst->mutex); + + return UACPI_STATUS_OK; +} + +static uacpi_status assign_event(uacpi_object *dst, uacpi_object *src, + enum uacpi_assign_behavior behavior) +{ + if (behavior == UACPI_ASSIGN_BEHAVIOR_DEEP_COPY) { + if (uacpi_likely(event_alloc(dst))) + return UACPI_STATUS_OK; + + return UACPI_STATUS_OUT_OF_MEMORY; + } + + dst->event = src->event; + uacpi_shareable_ref(dst->event); + + return UACPI_STATUS_OK; +} + +static uacpi_status assign_package(uacpi_object *dst, uacpi_object *src, + enum uacpi_assign_behavior behavior) +{ + if (behavior == UACPI_ASSIGN_BEHAVIOR_SHALLOW_COPY) { + dst->package = src->package; + uacpi_shareable_ref(dst->package); + return UACPI_STATUS_OK; + } + + return deep_copy_package(dst, src); +} + +void uacpi_object_attach_child(uacpi_object *parent, uacpi_object *child) +{ + uacpi_u32 refs_to_add; + + parent->inner_object = child; + + if (uacpi_unlikely(uacpi_bugged_shareable(parent))) { + make_chain_bugged(child); + return; + } + + refs_to_add = uacpi_shareable_refcount(parent); + while (refs_to_add--) + uacpi_object_ref(child); +} + +void uacpi_object_detach_child(uacpi_object *parent) +{ + uacpi_u32 refs_to_remove; + uacpi_object *child; + + child = parent->inner_object; + parent->inner_object = UACPI_NULL; + + if (uacpi_unlikely(uacpi_bugged_shareable(parent))) + return; + + refs_to_remove = uacpi_shareable_refcount(parent); + while (refs_to_remove--) + uacpi_object_unref(child); +} + +uacpi_object_type uacpi_object_get_type(uacpi_object *obj) +{ + return obj->type; +} + +uacpi_object_type_bits uacpi_object_get_type_bit(uacpi_object *obj) +{ + return (1u << obj->type); +} + +uacpi_bool uacpi_object_is(uacpi_object *obj, uacpi_object_type type) +{ + return obj->type == type; +} + +uacpi_bool uacpi_object_is_one_of( + uacpi_object *obj, uacpi_object_type_bits type_mask +) +{ + return (uacpi_object_get_type_bit(obj) & type_mask) != 0; +} + +#define TYPE_CHECK_USER_OBJ_RET(obj, type_bits, ret) \ + do { \ + if (uacpi_unlikely(obj == UACPI_NULL || \ + !uacpi_object_is_one_of(obj, type_bits))) \ + return ret; \ + } while (0) + +#define TYPE_CHECK_USER_OBJ(obj, type_bits) \ + TYPE_CHECK_USER_OBJ_RET(obj, type_bits, UACPI_STATUS_INVALID_ARGUMENT) + +#define ENSURE_VALID_USER_OBJ_RET(obj, ret) \ + do { \ + if (uacpi_unlikely(obj == UACPI_NULL)) \ + return ret; \ + } while (0) + +#define ENSURE_VALID_USER_OBJ(obj) \ + ENSURE_VALID_USER_OBJ_RET(obj, UACPI_STATUS_INVALID_ARGUMENT) + +uacpi_status uacpi_object_get_integer(uacpi_object *obj, uacpi_u64 *out) +{ + TYPE_CHECK_USER_OBJ(obj, UACPI_OBJECT_INTEGER_BIT); + + *out = obj->integer; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_object_assign_integer(uacpi_object *obj, uacpi_u64 value) +{ + uacpi_object object = { 0 }; + + ENSURE_VALID_USER_OBJ(obj); + + object.type = UACPI_OBJECT_INTEGER; + object.integer = value; + + return uacpi_object_assign(obj, &object, UACPI_ASSIGN_BEHAVIOR_DEEP_COPY); +} + +void uacpi_buffer_to_view(uacpi_buffer *buf, uacpi_data_view *out_view) +{ + out_view->bytes = buf->byte_data; + out_view->length = buf->size; +} + +static uacpi_status uacpi_object_do_get_string_or_buffer( + uacpi_object *obj, uacpi_data_view *out, uacpi_u32 mask +) +{ + TYPE_CHECK_USER_OBJ(obj, mask); + + uacpi_buffer_to_view(obj->buffer, out); + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_object_get_string_or_buffer( + uacpi_object *obj, uacpi_data_view *out +) +{ + return uacpi_object_do_get_string_or_buffer( + obj, out, UACPI_OBJECT_STRING_BIT | UACPI_OBJECT_BUFFER_BIT + ); +} + +uacpi_status uacpi_object_get_string(uacpi_object *obj, uacpi_data_view *out) +{ + return uacpi_object_do_get_string_or_buffer( + obj, out, UACPI_OBJECT_STRING_BIT + ); +} + +uacpi_status uacpi_object_get_buffer(uacpi_object *obj, uacpi_data_view *out) +{ + return uacpi_object_do_get_string_or_buffer( + obj, out, UACPI_OBJECT_BUFFER_BIT + ); +} + +uacpi_bool uacpi_object_is_aml_namepath(uacpi_object *obj) +{ + TYPE_CHECK_USER_OBJ_RET(obj, UACPI_OBJECT_STRING_BIT, UACPI_FALSE); + return obj->flags == UACPI_STRING_KIND_PATH; +} + +uacpi_status uacpi_object_resolve_as_aml_namepath( + uacpi_object *obj, uacpi_namespace_node *scope, + uacpi_namespace_node **out_node +) +{ + uacpi_status ret; + uacpi_namespace_node *node; + + if (!uacpi_object_is_aml_namepath(obj)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_namespace_node_resolve_from_aml_namepath( + scope, obj->buffer->text, &node + ); + if (uacpi_likely_success(ret)) + *out_node = node; + return ret; +} + +static uacpi_status uacpi_object_do_assign_buffer( + uacpi_object *obj, uacpi_data_view in, uacpi_object_type type +) +{ + uacpi_status ret; + uacpi_object tmp_obj = { 0 }; + uacpi_size dst_buf_size = in.length; + + tmp_obj.type = type; + + ENSURE_VALID_USER_OBJ(obj); + + if (type == UACPI_OBJECT_STRING && (in.length == 0 || + in.const_bytes[in.length - 1] != 0x00)) + dst_buf_size++; + + ret = buffer_alloc_and_store( + &tmp_obj, dst_buf_size, in.const_bytes, in.length + ); + if (uacpi_unlikely_error(ret)) + return ret; + + ret = uacpi_object_assign( + obj, &tmp_obj, UACPI_ASSIGN_BEHAVIOR_SHALLOW_COPY + ); + uacpi_shareable_unref_and_delete_if_last(tmp_obj.buffer, free_buffer); + + return ret; +} + +uacpi_status uacpi_object_assign_string(uacpi_object *obj, uacpi_data_view in) +{ + return uacpi_object_do_assign_buffer(obj, in, UACPI_OBJECT_STRING); +} + +uacpi_status uacpi_object_assign_buffer(uacpi_object *obj, uacpi_data_view in) +{ + return uacpi_object_do_assign_buffer(obj, in, UACPI_OBJECT_BUFFER); +} + +uacpi_object *uacpi_object_create_uninitialized(void) +{ + return uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); +} + +uacpi_status uacpi_object_create_integer_safe( + uacpi_u64 value, uacpi_overflow_behavior behavior, uacpi_object **out_obj +) +{ + uacpi_status ret; + uacpi_u8 bitness; + uacpi_object *obj; + + ret = uacpi_get_aml_bitness(&bitness); + if (uacpi_unlikely_error(ret)) + return ret; + + switch (behavior) { + case UACPI_OVERFLOW_TRUNCATE: + case UACPI_OVERFLOW_DISALLOW: + if (bitness == 32 && value > 0xFFFFFFFF) { + if (behavior == UACPI_OVERFLOW_DISALLOW) + return UACPI_STATUS_INVALID_ARGUMENT; + + value &= 0xFFFFFFFF; + } + UACPI_FALLTHROUGH; + case UACPI_OVERFLOW_ALLOW: + obj = uacpi_object_create_integer(value); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + *out_obj = obj; + return ret; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } +} + +uacpi_object *uacpi_object_create_integer(uacpi_u64 value) +{ + uacpi_object *obj; + + obj = uacpi_create_object(UACPI_OBJECT_INTEGER); + if (uacpi_unlikely(obj == UACPI_NULL)) + return obj; + + obj->integer = value; + return obj; +} + +static uacpi_object *uacpi_object_do_create_string_or_buffer( + uacpi_data_view view, uacpi_object_type type +) +{ + uacpi_status ret; + uacpi_object *obj; + + obj = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_NULL; + + ret = uacpi_object_do_assign_buffer(obj, view, type); + if (uacpi_unlikely_error(ret)) { + uacpi_object_unref(obj); + return UACPI_NULL; + } + + return obj; +} + +uacpi_object *uacpi_object_create_string(uacpi_data_view view) +{ + return uacpi_object_do_create_string_or_buffer(view, UACPI_OBJECT_STRING); +} + +uacpi_object *uacpi_object_create_buffer(uacpi_data_view view) +{ + return uacpi_object_do_create_string_or_buffer(view, UACPI_OBJECT_BUFFER); +} + +uacpi_object *uacpi_object_create_cstring(const uacpi_char *str) +{ + uacpi_data_view data_view = { 0 }; + + data_view.const_text = str; + data_view.length = uacpi_strlen(str) + 1; + return uacpi_object_create_string(data_view); +} + +uacpi_status uacpi_object_get_package( + uacpi_object *obj, uacpi_object_array *out +) +{ + TYPE_CHECK_USER_OBJ(obj, UACPI_OBJECT_PACKAGE_BIT); + + out->objects = obj->package->objects; + out->count = obj->package->count; + return UACPI_STATUS_OK; +} + +uacpi_object *uacpi_object_create_reference(uacpi_object *child) +{ + uacpi_object *obj; + + ENSURE_VALID_USER_OBJ_RET(child, UACPI_NULL); + + obj = uacpi_create_object(UACPI_OBJECT_REFERENCE); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_NULL; + + uacpi_object_attach_child(obj, child); + obj->flags = UACPI_REFERENCE_KIND_ARG; + + return obj; +} + +uacpi_status uacpi_object_assign_reference( + uacpi_object *obj, uacpi_object *child +) +{ + uacpi_status ret; + uacpi_object object = { 0 }; + + ENSURE_VALID_USER_OBJ(obj); + ENSURE_VALID_USER_OBJ(child); + + // First clear out the object + object.type = UACPI_OBJECT_UNINITIALIZED; + ret = uacpi_object_assign( + obj, &object, + UACPI_ASSIGN_BEHAVIOR_DEEP_COPY + ); + if (uacpi_unlikely_error(ret)) + return ret; + + obj->type = UACPI_OBJECT_REFERENCE; + uacpi_object_attach_child(obj, child); + obj->flags = UACPI_REFERENCE_KIND_ARG; + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_object_get_dereferenced( + uacpi_object *obj, uacpi_object **out +) +{ + TYPE_CHECK_USER_OBJ(obj, UACPI_OBJECT_REFERENCE_BIT); + + *out = obj->inner_object; + uacpi_shareable_ref(*out); + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_object_get_processor_info( + uacpi_object *obj, uacpi_processor_info *out +) +{ + TYPE_CHECK_USER_OBJ(obj, UACPI_OBJECT_PROCESSOR_BIT); + + out->id = obj->processor->id; + out->block_address = obj->processor->block_address; + out->block_length = obj->processor->block_length; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_object_get_power_resource_info( + uacpi_object *obj, uacpi_power_resource_info *out +) +{ + TYPE_CHECK_USER_OBJ(obj, UACPI_OBJECT_POWER_RESOURCE_BIT); + + out->system_level = obj->power_resource.system_level; + out->resource_order = obj->power_resource.resource_order; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_object_assign_package( + uacpi_object *obj, uacpi_object_array in +) +{ + uacpi_status ret; + uacpi_size i; + uacpi_object tmp_obj = { + .type = UACPI_OBJECT_PACKAGE, + }; + + ENSURE_VALID_USER_OBJ(obj); + + if (uacpi_unlikely(!package_alloc(&tmp_obj, in.count, + UACPI_PREALLOC_OBJECTS_NO))) + return UACPI_STATUS_OUT_OF_MEMORY; + + obj->type = UACPI_OBJECT_PACKAGE; + + for (i = 0; i < in.count; ++i) { + tmp_obj.package->objects[i] = in.objects[i]; + uacpi_object_ref(tmp_obj.package->objects[i]); + } + + ret = uacpi_object_assign(obj, &tmp_obj, UACPI_ASSIGN_BEHAVIOR_SHALLOW_COPY); + uacpi_shareable_unref_and_delete_if_last(tmp_obj.package, free_package); + + return ret; +} + +uacpi_object *uacpi_object_create_package(uacpi_object_array in) +{ + uacpi_status ret; + uacpi_object *obj; + + obj = uacpi_object_create_uninitialized(); + if (uacpi_unlikely(obj == UACPI_NULL)) + return obj; + + ret = uacpi_object_assign_package(obj, in); + if (uacpi_unlikely_error(ret)) { + uacpi_object_unref(obj); + return UACPI_NULL; + } + + return obj; +} + +uacpi_status uacpi_object_assign(uacpi_object *dst, uacpi_object *src, + enum uacpi_assign_behavior behavior) +{ + uacpi_status ret = UACPI_STATUS_OK; + + if (src == dst) + return ret; + + switch (dst->type) { + case UACPI_OBJECT_REFERENCE: + uacpi_object_detach_child(dst); + break; + case UACPI_OBJECT_STRING: + case UACPI_OBJECT_BUFFER: + case UACPI_OBJECT_METHOD: + case UACPI_OBJECT_PACKAGE: + case UACPI_OBJECT_MUTEX: + case UACPI_OBJECT_EVENT: + case UACPI_OBJECT_PROCESSOR: + case UACPI_OBJECT_DEVICE: + case UACPI_OBJECT_THERMAL_ZONE: + free_object_storage(dst); + break; + default: + break; + } + + switch (src->type) { + case UACPI_OBJECT_UNINITIALIZED: + case UACPI_OBJECT_DEBUG: + break; + case UACPI_OBJECT_BUFFER: + case UACPI_OBJECT_STRING: + dst->flags = src->flags; + ret = assign_buffer(dst, src, behavior); + break; + case UACPI_OBJECT_BUFFER_FIELD: + dst->buffer_field = src->buffer_field; + uacpi_shareable_ref(dst->buffer_field.backing); + break; + case UACPI_OBJECT_BUFFER_INDEX: + dst->buffer_index = src->buffer_index; + uacpi_shareable_ref(dst->buffer_index.buffer); + break; + case UACPI_OBJECT_INTEGER: + dst->integer = src->integer; + break; + case UACPI_OBJECT_METHOD: + dst->method = src->method; + uacpi_shareable_ref(dst->method); + break; + case UACPI_OBJECT_MUTEX: + ret = assign_mutex(dst, src, behavior); + break; + case UACPI_OBJECT_EVENT: + ret = assign_event(dst, src, behavior); + break; + case UACPI_OBJECT_OPERATION_REGION: + dst->op_region = src->op_region; + uacpi_shareable_ref(dst->op_region); + break; + case UACPI_OBJECT_PACKAGE: + ret = assign_package(dst, src, behavior); + break; + case UACPI_OBJECT_FIELD_UNIT: + dst->field_unit = src->field_unit; + uacpi_shareable_ref(dst->field_unit); + break; + case UACPI_OBJECT_REFERENCE: + uacpi_object_attach_child(dst, src->inner_object); + break; + case UACPI_OBJECT_PROCESSOR: + dst->processor = src->processor; + uacpi_shareable_ref(dst->processor); + break; + case UACPI_OBJECT_DEVICE: + dst->device = src->device; + uacpi_shareable_ref(dst->device); + break; + case UACPI_OBJECT_THERMAL_ZONE: + dst->thermal_zone = src->thermal_zone; + uacpi_shareable_ref(dst->thermal_zone); + break; + default: + ret = UACPI_STATUS_UNIMPLEMENTED; + } + + if (ret == UACPI_STATUS_OK) + dst->type = src->type; + + return ret; +} + +struct uacpi_object *uacpi_create_internal_reference( + enum uacpi_reference_kind kind, uacpi_object *child +) +{ + uacpi_object *ret; + + ret = uacpi_create_object(UACPI_OBJECT_REFERENCE); + if (uacpi_unlikely(ret == UACPI_NULL)) + return ret; + + ret->flags = kind; + uacpi_object_attach_child(ret, child); + return ret; +} + +uacpi_object *uacpi_unwrap_internal_reference(uacpi_object *object) +{ + for (;;) { + if (object->type != UACPI_OBJECT_REFERENCE || + (object->flags == UACPI_REFERENCE_KIND_REFOF || + object->flags == UACPI_REFERENCE_KIND_PKG_INDEX)) + return object; + + object = object->inner_object; + } +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/uacpi.c b/kernel/hal/x86_64/uACPI/source/uacpi.c new file mode 100644 index 0000000..c6c569f --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/uacpi.c @@ -0,0 +1,998 @@ +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +struct uacpi_runtime_context g_uacpi_rt_ctx = { 0 }; + +void uacpi_context_set_log_level(uacpi_log_level lvl) +{ + if (lvl == 0) + lvl = UACPI_DEFAULT_LOG_LEVEL; + + g_uacpi_rt_ctx.log_level = lvl; +} + +void uacpi_logger_initialize(void) +{ + static uacpi_bool version_printed = UACPI_FALSE; + + if (g_uacpi_rt_ctx.log_level == 0) + uacpi_context_set_log_level(UACPI_DEFAULT_LOG_LEVEL); + + if (!version_printed) { + version_printed = UACPI_TRUE; + uacpi_info( + "starting uACPI, version %d.%d.%d\n", + UACPI_MAJOR, UACPI_MINOR, UACPI_PATCH + ); + } +} + +void uacpi_context_set_proactive_table_checksum(uacpi_bool setting) +{ + if (setting) + g_uacpi_rt_ctx.flags |= UACPI_FLAG_PROACTIVE_TBL_CSUM; + else + g_uacpi_rt_ctx.flags &= ~UACPI_FLAG_PROACTIVE_TBL_CSUM; +} + +const uacpi_char *uacpi_status_to_string(uacpi_status st) +{ + switch (st) { + case UACPI_STATUS_OK: + return "no error"; + case UACPI_STATUS_MAPPING_FAILED: + return "failed to map memory"; + case UACPI_STATUS_OUT_OF_MEMORY: + return "out of memory"; + case UACPI_STATUS_BAD_CHECKSUM: + return "bad table checksum"; + case UACPI_STATUS_INVALID_SIGNATURE: + return "invalid table signature"; + case UACPI_STATUS_INVALID_TABLE_LENGTH: + return "invalid table length"; + case UACPI_STATUS_NOT_FOUND: + return "not found"; + case UACPI_STATUS_INVALID_ARGUMENT: + return "invalid argument"; + case UACPI_STATUS_UNIMPLEMENTED: + return "unimplemented"; + case UACPI_STATUS_ALREADY_EXISTS: + return "already exists"; + case UACPI_STATUS_INTERNAL_ERROR: + return "internal error"; + case UACPI_STATUS_TYPE_MISMATCH: + return "object type mismatch"; + case UACPI_STATUS_INIT_LEVEL_MISMATCH: + return "init level too low/high for this action"; + case UACPI_STATUS_NAMESPACE_NODE_DANGLING: + return "attempting to use a dangling namespace node"; + case UACPI_STATUS_NO_HANDLER: + return "no handler found"; + case UACPI_STATUS_NO_RESOURCE_END_TAG: + return "resource template without an end tag"; + case UACPI_STATUS_COMPILED_OUT: + return "this functionality has been compiled out of this build"; + case UACPI_STATUS_HARDWARE_TIMEOUT: + return "timed out waiting for hardware response"; + case UACPI_STATUS_TIMEOUT: + return "wait timed out"; + case UACPI_STATUS_OVERRIDDEN: + return "the requested action has been overridden"; + case UACPI_STATUS_DENIED: + return "the requested action has been denied"; + + case UACPI_STATUS_AML_UNDEFINED_REFERENCE: + return "AML referenced an undefined object"; + case UACPI_STATUS_AML_INVALID_NAMESTRING: + return "invalid AML name string"; + case UACPI_STATUS_AML_OBJECT_ALREADY_EXISTS: + return "object already exists"; + case UACPI_STATUS_AML_INVALID_OPCODE: + return "invalid AML opcode"; + case UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE: + return "incompatible AML object type"; + case UACPI_STATUS_AML_BAD_ENCODING: + return "bad AML instruction encoding"; + case UACPI_STATUS_AML_OUT_OF_BOUNDS_INDEX: + return "out of bounds AML index"; + case UACPI_STATUS_AML_SYNC_LEVEL_TOO_HIGH: + return "AML attempted to acquire a mutex with a lower sync level"; + case UACPI_STATUS_AML_INVALID_RESOURCE: + return "invalid resource template encoding or type"; + case UACPI_STATUS_AML_LOOP_TIMEOUT: + return "hanging AML while loop"; + case UACPI_STATUS_AML_CALL_STACK_DEPTH_LIMIT: + return "reached maximum AML call stack depth"; + default: + return ""; + } +} + +void uacpi_state_reset(void) +{ +#ifndef UACPI_BAREBONES_MODE + uacpi_deinitialize_namespace(); + uacpi_deinitialize_interfaces(); + uacpi_deinitialize_events(); + uacpi_deinitialize_notify(); + uacpi_deinitialize_opregion(); +#endif + + uacpi_deinitialize_tables(); + +#ifndef UACPI_BAREBONES_MODE + +#ifndef UACPI_REDUCED_HARDWARE + if (g_uacpi_rt_ctx.was_in_legacy_mode) + uacpi_leave_acpi_mode(); +#endif + + uacpi_deinitialize_registers(); + +#ifndef UACPI_REDUCED_HARDWARE + if (g_uacpi_rt_ctx.global_lock_event) + uacpi_kernel_free_event(g_uacpi_rt_ctx.global_lock_event); + if (g_uacpi_rt_ctx.global_lock_spinlock) + uacpi_kernel_free_spinlock(g_uacpi_rt_ctx.global_lock_spinlock); +#endif + +#endif // !UACPI_BAREBONES_MODE + + uacpi_memzero(&g_uacpi_rt_ctx, sizeof(g_uacpi_rt_ctx)); + +#if defined(UACPI_KERNEL_INITIALIZATION) && !defined(UACPI_BAREBONES_MODE) + uacpi_kernel_deinitialize(); +#endif +} + +#ifndef UACPI_BAREBONES_MODE + +void uacpi_context_set_loop_timeout(uacpi_u32 seconds) +{ + if (seconds == 0) + seconds = UACPI_DEFAULT_LOOP_TIMEOUT_SECONDS; + + g_uacpi_rt_ctx.loop_timeout_seconds = seconds; +} + +void uacpi_context_set_max_call_stack_depth(uacpi_u32 depth) +{ + if (depth == 0) + depth = UACPI_DEFAULT_MAX_CALL_STACK_DEPTH; + + g_uacpi_rt_ctx.max_call_stack_depth = depth; +} + +uacpi_u32 uacpi_context_get_loop_timeout(void) +{ + return g_uacpi_rt_ctx.loop_timeout_seconds; +} + +#ifndef UACPI_REDUCED_HARDWARE +enum hw_mode { + HW_MODE_ACPI = 0, + HW_MODE_LEGACY = 1, +}; + +static enum hw_mode read_mode(void) +{ + uacpi_status ret; + uacpi_u64 raw_value; + struct acpi_fadt *fadt = &g_uacpi_rt_ctx.fadt; + + if (!fadt->smi_cmd) + return HW_MODE_ACPI; + + ret = uacpi_read_register_field(UACPI_REGISTER_FIELD_SCI_EN, &raw_value); + if (uacpi_unlikely_error(ret)) + return HW_MODE_LEGACY; + + return raw_value ? HW_MODE_ACPI : HW_MODE_LEGACY; +} + +static uacpi_status set_mode(enum hw_mode mode) +{ + uacpi_status ret; + uacpi_u64 raw_value, stalled_time = 0; + struct acpi_fadt *fadt = &g_uacpi_rt_ctx.fadt; + + if (uacpi_unlikely(!fadt->smi_cmd)) { + uacpi_error("SMI_CMD is not implemented by the firmware\n"); + return UACPI_STATUS_NOT_FOUND; + } + + if (uacpi_unlikely(!fadt->acpi_enable && !fadt->acpi_disable)) { + uacpi_error("mode transition is not implemented by the hardware\n"); + return UACPI_STATUS_NOT_FOUND; + } + + switch (mode) { + case HW_MODE_ACPI: + raw_value = fadt->acpi_enable; + break; + case HW_MODE_LEGACY: + raw_value = fadt->acpi_disable; + break; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } + + ret = uacpi_write_register(UACPI_REGISTER_SMI_CMD, raw_value); + if (uacpi_unlikely_error(ret)) + return ret; + + // Allow up to 5 seconds for the hardware to enter the desired mode + while (stalled_time < (5 * 1000 * 1000)) { + if (read_mode() == mode) + return UACPI_STATUS_OK; + + uacpi_kernel_stall(100); + stalled_time += 100; + } + + uacpi_error("hardware time out while changing modes\n"); + return UACPI_STATUS_HARDWARE_TIMEOUT; +} + +static uacpi_status enter_mode(enum hw_mode mode, uacpi_bool *did_change) +{ + uacpi_status ret; + const uacpi_char *mode_str; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + if (uacpi_is_hardware_reduced()) + return UACPI_STATUS_OK; + + mode_str = mode == HW_MODE_LEGACY ? "legacy" : "acpi"; + + if (read_mode() == mode) { + uacpi_trace("%s mode already enabled\n", mode_str); + return UACPI_STATUS_OK; + } + + ret = set_mode(mode); + if (uacpi_unlikely_error(ret)) { + uacpi_warn( + "unable to enter %s mode: %s\n", + mode_str, uacpi_status_to_string(ret) + ); + return ret; + } + + uacpi_trace("entered %s mode\n", mode_str); + if (did_change != UACPI_NULL) + *did_change = UACPI_TRUE; + + return ret; +} + +uacpi_status uacpi_enter_acpi_mode(void) +{ + return enter_mode(HW_MODE_ACPI, UACPI_NULL); +} + +uacpi_status uacpi_leave_acpi_mode(void) +{ + return enter_mode(HW_MODE_LEGACY, UACPI_NULL); +} + +static void enter_acpi_mode_initial(void) +{ + enter_mode(HW_MODE_ACPI, &g_uacpi_rt_ctx.was_in_legacy_mode); +} +#else +static void enter_acpi_mode_initial(void) { } +#endif + +uacpi_init_level uacpi_get_current_init_level(void) +{ + return g_uacpi_rt_ctx.init_level; +} + +uacpi_status uacpi_initialize(uacpi_u64 flags) +{ + uacpi_status ret; + + UACPI_ENSURE_INIT_LEVEL_IS(UACPI_INIT_LEVEL_EARLY); + +#ifdef UACPI_KERNEL_INITIALIZATION + ret = uacpi_kernel_initialize(UACPI_INIT_LEVEL_EARLY); + if (uacpi_unlikely_error(ret)) + return ret; +#endif + + g_uacpi_rt_ctx.init_level = UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED; + g_uacpi_rt_ctx.last_sleep_typ_a = UACPI_SLEEP_TYP_INVALID; + g_uacpi_rt_ctx.last_sleep_typ_b = UACPI_SLEEP_TYP_INVALID; + g_uacpi_rt_ctx.s0_sleep_typ_a = UACPI_SLEEP_TYP_INVALID; + g_uacpi_rt_ctx.s0_sleep_typ_b = UACPI_SLEEP_TYP_INVALID; + g_uacpi_rt_ctx.flags = flags; + + uacpi_logger_initialize(); + + if (g_uacpi_rt_ctx.loop_timeout_seconds == 0) + uacpi_context_set_loop_timeout(UACPI_DEFAULT_LOOP_TIMEOUT_SECONDS); + if (g_uacpi_rt_ctx.max_call_stack_depth == 0) + uacpi_context_set_max_call_stack_depth(UACPI_DEFAULT_MAX_CALL_STACK_DEPTH); + + ret = uacpi_initialize_tables(); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; + + ret = uacpi_initialize_registers(); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; + + ret = uacpi_initialize_events_early(); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; + + ret = uacpi_initialize_opregion(); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; + + ret = uacpi_initialize_interfaces(); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; + + ret = uacpi_initialize_namespace(); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; + + ret = uacpi_initialize_notify(); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; + + uacpi_install_default_address_space_handlers(); + + if (!uacpi_check_flag(UACPI_FLAG_NO_ACPI_MODE)) + enter_acpi_mode_initial(); + + return UACPI_STATUS_OK; + +out_fatal_error: + uacpi_state_reset(); + return ret; +} + +struct table_load_stats { + uacpi_u32 load_counter; + uacpi_u32 failure_counter; +}; + +static void trace_table_load_failure( + struct acpi_sdt_hdr *tbl, uacpi_log_level lvl, uacpi_status ret +) +{ + uacpi_log_lvl( + lvl, + "failed to load "UACPI_PRI_TBL_HDR": %s\n", + UACPI_FMT_TBL_HDR(tbl), uacpi_status_to_string(ret) + ); +} + +static uacpi_bool match_ssdt_or_psdt(struct uacpi_installed_table *tbl) +{ + if (tbl->flags & UACPI_TABLE_LOADED) + return UACPI_FALSE; + + return uacpi_signatures_match(tbl->hdr.signature, ACPI_SSDT_SIGNATURE) || + uacpi_signatures_match(tbl->hdr.signature, ACPI_PSDT_SIGNATURE); +} + +static uacpi_u64 elapsed_ms(uacpi_u64 begin_ns, uacpi_u64 end_ns) +{ + return (end_ns - begin_ns) / (1000ull * 1000ull); +} + +static uacpi_bool warn_on_bad_timesource(uacpi_u64 begin_ts, uacpi_u64 end_ts) +{ + const uacpi_char *reason; + + if (uacpi_unlikely(begin_ts == 0 && end_ts == 0)) { + reason = "uacpi_kernel_get_nanoseconds_since_boot() appears to be a stub"; + goto out_bad_timesource; + } + + if (uacpi_unlikely(begin_ts == end_ts)) { + reason = "poor time source precision detected"; + goto out_bad_timesource; + } + + if (uacpi_unlikely(end_ts < begin_ts)) { + reason = "time source backwards drift detected"; + goto out_bad_timesource; + } + + return UACPI_FALSE; + +out_bad_timesource: + uacpi_warn("%s, this may cause problems\n", reason); + return UACPI_TRUE; +} + +uacpi_status uacpi_namespace_load(void) +{ + struct uacpi_table tbl; + uacpi_status ret; + uacpi_u64 begin_ts, end_ts; + struct table_load_stats st = { 0 }; + uacpi_size cur_index; + + UACPI_ENSURE_INIT_LEVEL_IS(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + +#ifdef UACPI_KERNEL_INITIALIZATION + ret = uacpi_kernel_initialize(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + if (uacpi_unlikely_error(ret)) + goto out_fatal_error; +#endif + + begin_ts = uacpi_kernel_get_nanoseconds_since_boot(); + + ret = uacpi_table_find_by_signature(ACPI_DSDT_SIGNATURE, &tbl); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to find DSDT: %s\n", uacpi_status_to_string(ret)); + goto out_fatal_error; + } + + ret = uacpi_table_load_with_cause(tbl.index, UACPI_TABLE_LOAD_CAUSE_INIT); + if (uacpi_unlikely_error(ret)) { + trace_table_load_failure(tbl.hdr, UACPI_LOG_ERROR, ret); + st.failure_counter++; + } + st.load_counter++; + uacpi_table_unref(&tbl); + + for (cur_index = 0;; cur_index = tbl.index + 1) { + ret = uacpi_table_match(cur_index, match_ssdt_or_psdt, &tbl); + if (ret != UACPI_STATUS_OK) { + if (uacpi_unlikely(ret != UACPI_STATUS_NOT_FOUND)) + goto out_fatal_error; + + break; + } + + ret = uacpi_table_load_with_cause(tbl.index, UACPI_TABLE_LOAD_CAUSE_INIT); + if (uacpi_unlikely_error(ret)) { + trace_table_load_failure(tbl.hdr, UACPI_LOG_WARN, ret); + st.failure_counter++; + } + st.load_counter++; + uacpi_table_unref(&tbl); + } + + end_ts = uacpi_kernel_get_nanoseconds_since_boot(); + g_uacpi_rt_ctx.bad_timesource = warn_on_bad_timesource(begin_ts, end_ts); + + if (uacpi_unlikely(st.failure_counter != 0 || g_uacpi_rt_ctx.bad_timesource)) { + uacpi_info( + "loaded %u AML blob%s (%u error%s)\n", + st.load_counter, st.load_counter > 1 ? "s" : "", st.failure_counter, + st.failure_counter == 1 ? "" : "s" + ); + } else { + uacpi_u64 ops = g_uacpi_rt_ctx.opcodes_executed; + uacpi_u64 ops_per_sec = ops * UACPI_NANOSECONDS_PER_SEC; + + ops_per_sec /= end_ts - begin_ts; + + uacpi_info( + "successfully loaded %u AML blob%s, %"UACPI_PRIu64" ops in " + "%"UACPI_PRIu64"ms (avg %"UACPI_PRIu64"/s)\n", + st.load_counter, st.load_counter > 1 ? "s" : "", + UACPI_FMT64(ops), UACPI_FMT64(elapsed_ms(begin_ts, end_ts)), + UACPI_FMT64(ops_per_sec) + ); + } + + ret = uacpi_initialize_events(); + if (uacpi_unlikely_error(ret)) { + uacpi_error("event initialization failed: %s\n", + uacpi_status_to_string(ret)); + goto out_fatal_error; + } + + g_uacpi_rt_ctx.init_level = UACPI_INIT_LEVEL_NAMESPACE_LOADED; + return UACPI_STATUS_OK; + +out_fatal_error: + uacpi_state_reset(); + return ret; +} + +struct ns_init_context { + uacpi_size ini_executed; + uacpi_size ini_errors; + uacpi_size sta_executed; + uacpi_size sta_errors; + uacpi_size devices; + uacpi_size thermal_zones; +}; + +static void ini_eval(struct ns_init_context *ctx, uacpi_namespace_node *node) +{ + uacpi_status ret; + + ret = uacpi_eval(node, "_INI", UACPI_NULL, UACPI_NULL); + if (ret == UACPI_STATUS_NOT_FOUND) + return; + + ctx->ini_executed++; + if (uacpi_unlikely_error(ret)) + ctx->ini_errors++; +} + +static uacpi_status sta_eval( + struct ns_init_context *ctx, uacpi_namespace_node *node, + uacpi_u32 *value +) +{ + uacpi_status ret; + + ret = uacpi_eval_sta(node, value); + if (*value == 0xFFFFFFFF) + return ret; + + ctx->sta_executed++; + if (uacpi_unlikely_error(ret)) + ctx->sta_errors++; + + return ret; +} + +static uacpi_iteration_decision do_sta_ini( + void *opaque, uacpi_namespace_node *node, uacpi_u32 depth +) +{ + struct ns_init_context *ctx = opaque; + uacpi_status ret; + uacpi_object_type type = UACPI_OBJECT_UNINITIALIZED; + uacpi_u32 sta_ret; + + UACPI_UNUSED(depth); + + // We don't care about aliases + if (uacpi_namespace_node_is_alias(node)) + return UACPI_ITERATION_DECISION_NEXT_PEER; + + ret = uacpi_namespace_node_type(node, &type); + switch (type) { + case UACPI_OBJECT_DEVICE: + case UACPI_OBJECT_PROCESSOR: + ctx->devices++; + break; + case UACPI_OBJECT_THERMAL_ZONE: + ctx->thermal_zones++; + break; + default: + if (node != uacpi_namespace_get_predefined(UACPI_PREDEFINED_NAMESPACE_TZ)) + return UACPI_ITERATION_DECISION_CONTINUE; + } + + ret = sta_eval(ctx, node, &sta_ret); + if (uacpi_unlikely_error(ret)) + return UACPI_ITERATION_DECISION_CONTINUE; + + if (!(sta_ret & ACPI_STA_RESULT_DEVICE_PRESENT)) { + if (!(sta_ret & ACPI_STA_RESULT_DEVICE_FUNCTIONING)) + return UACPI_ITERATION_DECISION_NEXT_PEER; + + /* + * ACPI 6.5 specification: + * _STA may return bit 0 clear (not present) with bit [3] set (device + * is functional). This case is used to indicate a valid device for + * which no device driver should be loaded (for example, a bridge + * device.) Children of this device may be present and valid. OSPM + * should continue enumeration below a device whose _STA returns this + * bit combination. + */ + return UACPI_ITERATION_DECISION_CONTINUE; + } + + ini_eval(ctx, node); + + return UACPI_ITERATION_DECISION_CONTINUE; +} + +uacpi_status uacpi_namespace_initialize(void) +{ + struct ns_init_context ctx = { 0 }; + uacpi_namespace_node *root; + uacpi_u64 begin_ts, end_ts; + uacpi_address_space_handlers *handlers; + uacpi_address_space_handler *handler; + uacpi_status ret = UACPI_STATUS_OK; + + UACPI_ENSURE_INIT_LEVEL_IS(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + +#ifdef UACPI_KERNEL_INITIALIZATION + ret = uacpi_kernel_initialize(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + if (uacpi_unlikely_error(ret)) + goto out; +#endif + + /* + * Initialization order here is identical to ACPICA because ACPI + * specification doesn't really have any detailed steps that explain + * how to do it. + */ + + root = uacpi_namespace_root(); + + begin_ts = uacpi_kernel_get_nanoseconds_since_boot(); + + // Step 1 - Execute \_INI + ini_eval(&ctx, root); + + // Step 2 - Execute \_SB._INI + ini_eval( + &ctx, uacpi_namespace_get_predefined(UACPI_PREDEFINED_NAMESPACE_SB) + ); + + /* + * Step 3 - Run _REG methods for all globally installed + * address space handlers. + */ + handlers = uacpi_node_get_address_space_handlers(root); + if (handlers) { + handler = handlers->head; + + while (handler) { + if (uacpi_address_space_handler_is_default(handler)) + uacpi_reg_all_opregions(root, handler->space); + + handler = handler->next; + } + } + + // Step 4 - Run all other _STA and _INI methods + uacpi_namespace_for_each_child( + root, do_sta_ini, UACPI_NULL, + UACPI_OBJECT_ANY_BIT, UACPI_MAX_DEPTH_ANY, &ctx + ); + + end_ts = uacpi_kernel_get_nanoseconds_since_boot(); + + if (uacpi_likely(!g_uacpi_rt_ctx.bad_timesource)) { + uacpi_info( + "namespace initialization done in %"UACPI_PRIu64"ms: " + "%zu devices, %zu thermal zones\n", + UACPI_FMT64(elapsed_ms(begin_ts, end_ts)), + ctx.devices, ctx.thermal_zones + ); + } else { + uacpi_info( + "namespace initialization done: %zu devices, %zu thermal zones\n", + ctx.devices, ctx.thermal_zones + ); + } + + uacpi_trace( + "_STA calls: %zu (%zu errors), _INI calls: %zu (%zu errors)\n", + ctx.sta_executed, ctx.sta_errors, ctx.ini_executed, + ctx.ini_errors + ); + + g_uacpi_rt_ctx.init_level = UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED; +#ifdef UACPI_KERNEL_INITIALIZATION + ret = uacpi_kernel_initialize(UACPI_INIT_LEVEL_NAMESPACE_INITIALIZED); +out: + if (uacpi_unlikely_error(ret)) + uacpi_state_reset(); +#endif + return ret; +} + +uacpi_status uacpi_eval( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **out_obj +) +{ + struct uacpi_namespace_node *node; + uacpi_control_method *method; + uacpi_object *obj; + uacpi_status ret = UACPI_STATUS_INVALID_ARGUMENT; + + if (uacpi_unlikely(parent == UACPI_NULL && path == UACPI_NULL)) + return ret; + + ret = uacpi_namespace_read_lock(); + if (uacpi_unlikely_error(ret)) + return ret; + + if (path != UACPI_NULL) { + ret = uacpi_namespace_node_resolve( + parent, path, UACPI_SHOULD_LOCK_NO, + UACPI_MAY_SEARCH_ABOVE_PARENT_NO, UACPI_PERMANENT_ONLY_YES, + &node + ); + if (uacpi_unlikely_error(ret)) + goto out_read_unlock; + } else { + node = parent; + } + + obj = uacpi_namespace_node_get_object(node); + if (uacpi_unlikely(obj == UACPI_NULL)) { + ret = UACPI_STATUS_INVALID_ARGUMENT; + goto out_read_unlock; + } + + if (obj->type != UACPI_OBJECT_METHOD) { + uacpi_object *new_obj; + + if (uacpi_unlikely(out_obj == UACPI_NULL)) + goto out_read_unlock; + + new_obj = uacpi_create_object(UACPI_OBJECT_UNINITIALIZED); + if (uacpi_unlikely(new_obj == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out_read_unlock; + } + + ret = uacpi_object_assign( + new_obj, obj, UACPI_ASSIGN_BEHAVIOR_DEEP_COPY + ); + if (uacpi_unlikely_error(ret)) { + uacpi_object_unref(new_obj); + goto out_read_unlock; + } + *out_obj = new_obj; + + out_read_unlock: + uacpi_namespace_read_unlock(); + return ret; + } + + method = obj->method; + uacpi_shareable_ref(method); + uacpi_namespace_read_unlock(); + + // Upgrade to a write-lock since we're about to run a method + ret = uacpi_namespace_write_lock(); + if (uacpi_unlikely_error(ret)) + goto out_no_write_lock; + + ret = uacpi_execute_control_method(node, method, args, out_obj); + uacpi_namespace_write_unlock(); + +out_no_write_lock: + uacpi_method_unref(method); + return ret; +} + +uacpi_status uacpi_eval_simple( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +) +{ + return uacpi_eval(parent, path, UACPI_NULL, ret); +} + +uacpi_status uacpi_execute( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args +) +{ + return uacpi_eval(parent, path, args, UACPI_NULL); +} + +uacpi_status uacpi_execute_simple( + uacpi_namespace_node *parent, const uacpi_char *path +) +{ + return uacpi_eval(parent, path, UACPI_NULL, UACPI_NULL); +} + +#define TRACE_BAD_RET(path_fmt, type, ...) \ + uacpi_warn( \ + "unexpected '%s' object returned by method "path_fmt \ + ", expected type mask: %08X\n", uacpi_object_type_to_string(type), \ + __VA_ARGS__ \ + ) + +#define TRACE_NO_RET(path_fmt, ...) \ + uacpi_warn( \ + "no value returned from method "path_fmt", expected type mask: " \ + "%08X\n", __VA_ARGS__ \ + ) + +static void trace_invalid_return_type( + uacpi_namespace_node *parent, const uacpi_char *path, + uacpi_object_type_bits expected_mask, uacpi_object_type actual_type +) +{ + const uacpi_char *abs_path; + uacpi_bool dynamic_abs_path = UACPI_FALSE; + + if (parent == UACPI_NULL || (path != UACPI_NULL && path[0] == '\\')) { + abs_path = path; + } else { + abs_path = uacpi_namespace_node_generate_absolute_path(parent); + dynamic_abs_path = UACPI_TRUE; + } + + if (dynamic_abs_path && path != UACPI_NULL) { + if (actual_type == UACPI_OBJECT_UNINITIALIZED) + TRACE_NO_RET("%s.%s", abs_path, path, expected_mask); + else + TRACE_BAD_RET("%s.%s", actual_type, abs_path, path, expected_mask); + } else { + if (actual_type == UACPI_OBJECT_UNINITIALIZED) { + TRACE_NO_RET("%s", abs_path, expected_mask); + } else { + TRACE_BAD_RET("%s", actual_type, abs_path, expected_mask); + } + } + + if (dynamic_abs_path) + uacpi_free_dynamic_string(abs_path); +} + +uacpi_status uacpi_eval_typed( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object_type_bits ret_mask, + uacpi_object **out_obj +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_object_type returned_type = UACPI_OBJECT_UNINITIALIZED; + + if (uacpi_unlikely(out_obj == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_eval(parent, path, args, &obj); + if (uacpi_unlikely_error(ret)) + return ret; + + if (obj != UACPI_NULL) + returned_type = obj->type; + + if (ret_mask && (ret_mask & (1 << returned_type)) == 0) { + trace_invalid_return_type(parent, path, ret_mask, returned_type); + uacpi_object_unref(obj); + return UACPI_STATUS_TYPE_MISMATCH; + } + + *out_obj = obj; + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_eval_simple_typed( + uacpi_namespace_node *parent, const uacpi_char *path, + uacpi_object_type_bits ret_mask, uacpi_object **ret +) +{ + return uacpi_eval_typed(parent, path, UACPI_NULL, ret_mask, ret); +} + +uacpi_status uacpi_eval_integer( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_u64 *out_value +) +{ + uacpi_object *int_obj; + uacpi_status ret; + + ret = uacpi_eval_typed( + parent, path, args, UACPI_OBJECT_INTEGER_BIT, &int_obj + ); + if (uacpi_unlikely_error(ret)) + return ret; + + *out_value = int_obj->integer; + uacpi_object_unref(int_obj); + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_eval_simple_integer( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_u64 *out_value +) +{ + return uacpi_eval_integer(parent, path, UACPI_NULL, out_value); +} + +uacpi_status uacpi_eval_buffer_or_string( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, args, + UACPI_OBJECT_BUFFER_BIT | UACPI_OBJECT_STRING_BIT, + ret + ); +} + +uacpi_status uacpi_eval_simple_buffer_or_string( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, UACPI_NULL, + UACPI_OBJECT_BUFFER_BIT | UACPI_OBJECT_STRING_BIT, + ret + ); +} + +uacpi_status uacpi_eval_string( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, args, UACPI_OBJECT_STRING_BIT, ret + ); +} + +uacpi_status uacpi_eval_simple_string( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, UACPI_NULL, UACPI_OBJECT_STRING_BIT, ret + ); +} + +uacpi_status uacpi_eval_buffer( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, args, UACPI_OBJECT_BUFFER_BIT, ret + ); +} + +uacpi_status uacpi_eval_simple_buffer( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, UACPI_NULL, UACPI_OBJECT_BUFFER_BIT, ret + ); +} + +uacpi_status uacpi_eval_package( + uacpi_namespace_node *parent, const uacpi_char *path, + const uacpi_object_array *args, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, args, UACPI_OBJECT_PACKAGE_BIT, ret + ); +} + +uacpi_status uacpi_eval_simple_package( + uacpi_namespace_node *parent, const uacpi_char *path, uacpi_object **ret +) +{ + return uacpi_eval_typed( + parent, path, UACPI_NULL, UACPI_OBJECT_PACKAGE_BIT, ret + ); +} + +uacpi_status uacpi_get_aml_bitness(uacpi_u8 *out_bitness) +{ + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_SUBSYSTEM_INITIALIZED); + + *out_bitness = g_uacpi_rt_ctx.is_rev1 ? 32 : 64; + return UACPI_STATUS_OK; +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/source/utilities.c b/kernel/hal/x86_64/uACPI/source/utilities.c new file mode 100644 index 0000000..c7ca20a --- /dev/null +++ b/kernel/hal/x86_64/uACPI/source/utilities.c @@ -0,0 +1,1156 @@ +#include +#include +#include + +#include +#include +#include +#include + +enum char_type { + CHAR_TYPE_CONTROL = 1 << 0, + CHAR_TYPE_SPACE = 1 << 1, + CHAR_TYPE_BLANK = 1 << 2, + CHAR_TYPE_PUNCTUATION = 1 << 3, + CHAR_TYPE_LOWER = 1 << 4, + CHAR_TYPE_UPPER = 1 << 5, + CHAR_TYPE_DIGIT = 1 << 6, + CHAR_TYPE_HEX_DIGIT = 1 << 7, + CHAR_TYPE_ALPHA = CHAR_TYPE_LOWER | CHAR_TYPE_UPPER, + CHAR_TYPE_ALHEX = CHAR_TYPE_ALPHA | CHAR_TYPE_HEX_DIGIT, + CHAR_TYPE_ALNUM = CHAR_TYPE_ALPHA | CHAR_TYPE_DIGIT, +}; + +static const uacpi_u8 ascii_map[256] = { + CHAR_TYPE_CONTROL, // 0 + CHAR_TYPE_CONTROL, // 1 + CHAR_TYPE_CONTROL, // 2 + CHAR_TYPE_CONTROL, // 3 + CHAR_TYPE_CONTROL, // 4 + CHAR_TYPE_CONTROL, // 5 + CHAR_TYPE_CONTROL, // 6 + CHAR_TYPE_CONTROL, // 7 + CHAR_TYPE_CONTROL, // -> 8 control codes + + CHAR_TYPE_CONTROL | CHAR_TYPE_SPACE | CHAR_TYPE_BLANK, // 9 tab + + CHAR_TYPE_CONTROL | CHAR_TYPE_SPACE, // 10 + CHAR_TYPE_CONTROL | CHAR_TYPE_SPACE, // 11 + CHAR_TYPE_CONTROL | CHAR_TYPE_SPACE, // 12 + CHAR_TYPE_CONTROL | CHAR_TYPE_SPACE, // -> 13 whitespaces + + CHAR_TYPE_CONTROL, // 14 + CHAR_TYPE_CONTROL, // 15 + CHAR_TYPE_CONTROL, // 16 + CHAR_TYPE_CONTROL, // 17 + CHAR_TYPE_CONTROL, // 18 + CHAR_TYPE_CONTROL, // 19 + CHAR_TYPE_CONTROL, // 20 + CHAR_TYPE_CONTROL, // 21 + CHAR_TYPE_CONTROL, // 22 + CHAR_TYPE_CONTROL, // 23 + CHAR_TYPE_CONTROL, // 24 + CHAR_TYPE_CONTROL, // 25 + CHAR_TYPE_CONTROL, // 26 + CHAR_TYPE_CONTROL, // 27 + CHAR_TYPE_CONTROL, // 28 + CHAR_TYPE_CONTROL, // 29 + CHAR_TYPE_CONTROL, // 30 + CHAR_TYPE_CONTROL, // -> 31 control codes + + CHAR_TYPE_SPACE | CHAR_TYPE_BLANK, // 32 space + + CHAR_TYPE_PUNCTUATION, // 33 + CHAR_TYPE_PUNCTUATION, // 34 + CHAR_TYPE_PUNCTUATION, // 35 + CHAR_TYPE_PUNCTUATION, // 36 + CHAR_TYPE_PUNCTUATION, // 37 + CHAR_TYPE_PUNCTUATION, // 38 + CHAR_TYPE_PUNCTUATION, // 39 + CHAR_TYPE_PUNCTUATION, // 40 + CHAR_TYPE_PUNCTUATION, // 41 + CHAR_TYPE_PUNCTUATION, // 42 + CHAR_TYPE_PUNCTUATION, // 43 + CHAR_TYPE_PUNCTUATION, // 44 + CHAR_TYPE_PUNCTUATION, // 45 + CHAR_TYPE_PUNCTUATION, // 46 + CHAR_TYPE_PUNCTUATION, // -> 47 punctuation + + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 48 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 49 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 50 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 51 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 52 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 53 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 54 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 55 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // 56 + CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT, // -> 57 digits + + CHAR_TYPE_PUNCTUATION, // 58 + CHAR_TYPE_PUNCTUATION, // 59 + CHAR_TYPE_PUNCTUATION, // 60 + CHAR_TYPE_PUNCTUATION, // 61 + CHAR_TYPE_PUNCTUATION, // 62 + CHAR_TYPE_PUNCTUATION, // 63 + CHAR_TYPE_PUNCTUATION, // -> 64 punctuation + + CHAR_TYPE_UPPER | CHAR_TYPE_HEX_DIGIT, // 65 + CHAR_TYPE_UPPER | CHAR_TYPE_HEX_DIGIT, // 66 + CHAR_TYPE_UPPER | CHAR_TYPE_HEX_DIGIT, // 67 + CHAR_TYPE_UPPER | CHAR_TYPE_HEX_DIGIT, // 68 + CHAR_TYPE_UPPER | CHAR_TYPE_HEX_DIGIT, // 69 + CHAR_TYPE_UPPER | CHAR_TYPE_HEX_DIGIT, // -> 70 ABCDEF + + CHAR_TYPE_UPPER, // 71 + CHAR_TYPE_UPPER, // 72 + CHAR_TYPE_UPPER, // 73 + CHAR_TYPE_UPPER, // 74 + CHAR_TYPE_UPPER, // 75 + CHAR_TYPE_UPPER, // 76 + CHAR_TYPE_UPPER, // 77 + CHAR_TYPE_UPPER, // 78 + CHAR_TYPE_UPPER, // 79 + CHAR_TYPE_UPPER, // 80 + CHAR_TYPE_UPPER, // 81 + CHAR_TYPE_UPPER, // 82 + CHAR_TYPE_UPPER, // 83 + CHAR_TYPE_UPPER, // 84 + CHAR_TYPE_UPPER, // 85 + CHAR_TYPE_UPPER, // 86 + CHAR_TYPE_UPPER, // 87 + CHAR_TYPE_UPPER, // 88 + CHAR_TYPE_UPPER, // 89 + CHAR_TYPE_UPPER, // -> 90 the rest of UPPERCASE alphabet + + CHAR_TYPE_PUNCTUATION, // 91 + CHAR_TYPE_PUNCTUATION, // 92 + CHAR_TYPE_PUNCTUATION, // 93 + CHAR_TYPE_PUNCTUATION, // 94 + CHAR_TYPE_PUNCTUATION, // 95 + CHAR_TYPE_PUNCTUATION, // -> 96 punctuation + + CHAR_TYPE_LOWER | CHAR_TYPE_HEX_DIGIT, // 97 + CHAR_TYPE_LOWER | CHAR_TYPE_HEX_DIGIT, // 98 + CHAR_TYPE_LOWER | CHAR_TYPE_HEX_DIGIT, // 99 + CHAR_TYPE_LOWER | CHAR_TYPE_HEX_DIGIT, // 100 + CHAR_TYPE_LOWER | CHAR_TYPE_HEX_DIGIT, // 101 + CHAR_TYPE_LOWER | CHAR_TYPE_HEX_DIGIT, // -> 102 abcdef + + CHAR_TYPE_LOWER, // 103 + CHAR_TYPE_LOWER, // 104 + CHAR_TYPE_LOWER, // 105 + CHAR_TYPE_LOWER, // 106 + CHAR_TYPE_LOWER, // 107 + CHAR_TYPE_LOWER, // 108 + CHAR_TYPE_LOWER, // 109 + CHAR_TYPE_LOWER, // 110 + CHAR_TYPE_LOWER, // 111 + CHAR_TYPE_LOWER, // 112 + CHAR_TYPE_LOWER, // 113 + CHAR_TYPE_LOWER, // 114 + CHAR_TYPE_LOWER, // 115 + CHAR_TYPE_LOWER, // 116 + CHAR_TYPE_LOWER, // 117 + CHAR_TYPE_LOWER, // 118 + CHAR_TYPE_LOWER, // 119 + CHAR_TYPE_LOWER, // 120 + CHAR_TYPE_LOWER, // 121 + CHAR_TYPE_LOWER, // -> 122 the rest of UPPERCASE alphabet + + CHAR_TYPE_PUNCTUATION, // 123 + CHAR_TYPE_PUNCTUATION, // 124 + CHAR_TYPE_PUNCTUATION, // 125 + CHAR_TYPE_PUNCTUATION, // -> 126 punctuation + + CHAR_TYPE_CONTROL // 127 backspace +}; + +static uacpi_bool is_char(uacpi_char c, enum char_type type) +{ + return (ascii_map[(uacpi_u8)c] & type) == type; +} + +static uacpi_char to_lower(uacpi_char c) +{ + if (is_char(c, CHAR_TYPE_UPPER)) + return c + ('a' - 'A'); + + return c; +} + +static uacpi_bool peek_one( + const uacpi_char **str, const uacpi_size *size, uacpi_char *out_char +) +{ + if (*size == 0) + return UACPI_FALSE; + + *out_char = **str; + return UACPI_TRUE; +} + +static uacpi_bool consume_one( + const uacpi_char **str, uacpi_size *size, uacpi_char *out_char +) +{ + if (!peek_one(str, size, out_char)) + return UACPI_FALSE; + + *str += 1; + *size -= 1; + return UACPI_TRUE; +} + +static uacpi_bool consume_if( + const uacpi_char **str, uacpi_size *size, enum char_type type +) +{ + uacpi_char c; + + if (!peek_one(str, size, &c) || !is_char(c, type)) + return UACPI_FALSE; + + *str += 1; + *size -= 1; + return UACPI_TRUE; +} + +static uacpi_bool consume_if_equals( + const uacpi_char **str, uacpi_size *size, uacpi_char c +) +{ + uacpi_char c1; + + if (!peek_one(str, size, &c1) || to_lower(c1) != c) + return UACPI_FALSE; + + *str += 1; + *size -= 1; + return UACPI_TRUE; +} + +uacpi_status uacpi_string_to_integer( + const uacpi_char *str, uacpi_size max_chars, enum uacpi_base base, + uacpi_u64 *out_value +) +{ + uacpi_status ret = UACPI_STATUS_INVALID_ARGUMENT; + uacpi_bool negative = UACPI_FALSE; + uacpi_u64 next, value = 0; + uacpi_char c = '\0'; + + while (consume_if(&str, &max_chars, CHAR_TYPE_SPACE)); + + if (consume_if_equals(&str, &max_chars, '-')) + negative = UACPI_TRUE; + else + consume_if_equals(&str, &max_chars, '+'); + + if (base == UACPI_BASE_AUTO) { + base = UACPI_BASE_DEC; + + if (consume_if_equals(&str, &max_chars, '0')) { + base = UACPI_BASE_OCT; + if (consume_if_equals(&str, &max_chars, 'x')) + base = UACPI_BASE_HEX; + } + } + + while (consume_one(&str, &max_chars, &c)) { + switch (ascii_map[(uacpi_u8)c] & (CHAR_TYPE_DIGIT | CHAR_TYPE_ALHEX)) { + case CHAR_TYPE_DIGIT | CHAR_TYPE_HEX_DIGIT: + next = c - '0'; + if (base == UACPI_BASE_OCT && next > 7) + goto out; + break; + case CHAR_TYPE_LOWER | CHAR_TYPE_HEX_DIGIT: + case CHAR_TYPE_UPPER | CHAR_TYPE_HEX_DIGIT: + if (base != UACPI_BASE_HEX) + goto out; + next = 10 + (to_lower(c) - 'a'); + break; + default: + goto out; + } + + next = (value * base) + next; + if ((next / base) != value) { + value = 0xFFFFFFFFFFFFFFFF; + goto out; + } + + value = next; + } + +out: + if (negative) + value = -((uacpi_i64)value); + + *out_value = value; + if (max_chars == 0 || c == '\0') + ret = UACPI_STATUS_OK; + + return ret; +} + +#ifndef UACPI_BAREBONES_MODE + +static inline uacpi_bool is_valid_name_byte(uacpi_u8 c) +{ + // ‘_’ := 0x5F + if (c == 0x5F) + return UACPI_TRUE; + + /* + * LeadNameChar := ‘A’-‘Z’ | ‘_’ + * DigitChar := ‘0’ - ‘9’ + * NameChar := DigitChar | LeadNameChar + * ‘A’-‘Z’ := 0x41 - 0x5A + * ‘0’-‘9’ := 0x30 - 0x39 + */ + return (ascii_map[c] & (CHAR_TYPE_DIGIT | CHAR_TYPE_UPPER)) != 0; +} + +uacpi_bool uacpi_is_valid_nameseg(uacpi_u8 *nameseg) +{ + return is_valid_name_byte(nameseg[0]) && + is_valid_name_byte(nameseg[1]) && + is_valid_name_byte(nameseg[2]) && + is_valid_name_byte(nameseg[3]); +} + +void uacpi_eisa_id_to_string(uacpi_u32 id, uacpi_char *out_string) +{ + static uacpi_char hex_to_ascii[16] = { + '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', + 'A', 'B', 'C', 'D', 'E', 'F' + }; + + /* + * For whatever reason bits are encoded upper to lower here, swap + * them around so that we don't have to do ridiculous bit shifts + * everywhere. + */ + union { + uacpi_u8 bytes[4]; + uacpi_u32 dword; + } orig, swapped; + + orig.dword = id; + swapped.bytes[0] = orig.bytes[3]; + swapped.bytes[1] = orig.bytes[2]; + swapped.bytes[2] = orig.bytes[1]; + swapped.bytes[3] = orig.bytes[0]; + + /* + * Bit 16 - 20: 3rd character (- 0x40) of mfg code + * Bit 21 - 25: 2nd character (- 0x40) of mfg code + * Bit 26 - 30: 1st character (- 0x40) of mfg code + */ + out_string[0] = (uacpi_char)(0x40 + ((swapped.dword >> 26) & 0x1F)); + out_string[1] = (uacpi_char)(0x40 + ((swapped.dword >> 21) & 0x1F)); + out_string[2] = (uacpi_char)(0x40 + ((swapped.dword >> 16) & 0x1F)); + + /* + * Bit 0 - 3 : 4th hex digit of product number + * Bit 4 - 7 : 3rd hex digit of product number + * Bit 8 - 11: 2nd hex digit of product number + * Bit 12 - 15: 1st hex digit of product number + */ + out_string[3] = hex_to_ascii[(swapped.dword >> 12) & 0x0F]; + out_string[4] = hex_to_ascii[(swapped.dword >> 8 ) & 0x0F]; + out_string[5] = hex_to_ascii[(swapped.dword >> 4 ) & 0x0F]; + out_string[6] = hex_to_ascii[(swapped.dword >> 0 ) & 0x0F]; + + out_string[7] = '\0'; +} + +#define PNP_ID_LENGTH 8 + +uacpi_status uacpi_eval_hid(uacpi_namespace_node *node, uacpi_id_string **out_id) +{ + uacpi_status ret; + uacpi_object *hid_ret; + uacpi_id_string *id = UACPI_NULL; + uacpi_u32 size; + + ret = uacpi_eval_typed( + node, "_HID", UACPI_NULL, + UACPI_OBJECT_INTEGER_BIT | UACPI_OBJECT_STRING_BIT, + &hid_ret + ); + if (ret != UACPI_STATUS_OK) + return ret; + + size = sizeof(uacpi_id_string); + + switch (hid_ret->type) { + case UACPI_OBJECT_STRING: { + uacpi_buffer *buf = hid_ret->buffer; + + size += buf->size; + if (uacpi_unlikely(buf->size == 0 || size < buf->size)) { + uacpi_object_name name = uacpi_namespace_node_name(node); + + uacpi_error( + "%.4s._HID: empty/invalid EISA ID string (%zu bytes)\n", + name.text, buf->size + ); + ret = UACPI_STATUS_AML_BAD_ENCODING; + break; + } + + id = uacpi_kernel_alloc(size); + if (uacpi_unlikely(id == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + break; + } + id->size = buf->size; + id->value = UACPI_PTR_ADD(id, sizeof(uacpi_id_string)); + + uacpi_memcpy(id->value, buf->text, buf->size); + id->value[buf->size - 1] = '\0'; + break; + } + + case UACPI_OBJECT_INTEGER: + size += PNP_ID_LENGTH; + + id = uacpi_kernel_alloc(size); + if (uacpi_unlikely(id == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + break; + } + id->size = PNP_ID_LENGTH; + id->value = UACPI_PTR_ADD(id, sizeof(uacpi_id_string)); + + uacpi_eisa_id_to_string(hid_ret->integer, id->value); + break; + } + + uacpi_object_unref(hid_ret); + if (uacpi_likely_success(ret)) + *out_id = id; + return ret; +} + +void uacpi_free_id_string(uacpi_id_string *id) +{ + if (id == UACPI_NULL) + return; + + uacpi_free(id, sizeof(uacpi_id_string) + id->size); +} + +uacpi_status uacpi_eval_cid( + uacpi_namespace_node *node, uacpi_pnp_id_list **out_list +) +{ + uacpi_status ret; + uacpi_object *object, *cid_ret; + uacpi_object **objects; + uacpi_size num_ids, i; + uacpi_u32 size; + uacpi_id_string *id; + uacpi_char *id_buffer; + uacpi_pnp_id_list *list; + + ret = uacpi_eval_typed( + node, "_CID", UACPI_NULL, + UACPI_OBJECT_INTEGER_BIT | UACPI_OBJECT_STRING_BIT | + UACPI_OBJECT_PACKAGE_BIT, + &cid_ret + ); + if (ret != UACPI_STATUS_OK) + return ret; + + switch (cid_ret->type) { + case UACPI_OBJECT_PACKAGE: + objects = cid_ret->package->objects; + num_ids = cid_ret->package->count; + break; + default: + objects = &cid_ret; + num_ids = 1; + break; + } + + size = sizeof(uacpi_pnp_id_list); + size += num_ids * sizeof(uacpi_id_string); + + for (i = 0; i < num_ids; ++i) { + object = objects[i]; + + switch (object->type) { + case UACPI_OBJECT_STRING: { + uacpi_size buf_size = object->buffer->size; + + if (uacpi_unlikely(buf_size == 0)) { + uacpi_object_name name = uacpi_namespace_node_name(node); + + uacpi_error( + "%.4s._CID: empty EISA ID string (sub-object %zu)\n", + name.text, i + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + + size += buf_size; + if (uacpi_unlikely(size < buf_size)) { + uacpi_object_name name = uacpi_namespace_node_name(node); + + uacpi_error( + "%.4s._CID: buffer size overflow (+ %zu)\n", + name.text, buf_size + ); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + break; + } + + case UACPI_OBJECT_INTEGER: + size += PNP_ID_LENGTH; + break; + default: { + uacpi_object_name name = uacpi_namespace_node_name(node); + + uacpi_error( + "%.4s._CID: invalid package sub-object %zu type: %s\n", + name.text, i, + uacpi_object_type_to_string(object->type) + ); + return UACPI_STATUS_AML_INCOMPATIBLE_OBJECT_TYPE; + } + } + } + + list = uacpi_kernel_alloc(size); + if (uacpi_unlikely(list == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + list->num_ids = num_ids; + list->size = size - sizeof(uacpi_pnp_id_list); + + id_buffer = UACPI_PTR_ADD(list, sizeof(uacpi_pnp_id_list)); + id_buffer += num_ids * sizeof(uacpi_id_string); + + for (i = 0; i < num_ids; ++i) { + object = objects[i]; + id = &list->ids[i]; + + switch (object->type) { + case UACPI_OBJECT_STRING: { + uacpi_buffer *buf = object->buffer; + + id->size = buf->size; + id->value = id_buffer; + + uacpi_memcpy(id->value, buf->text, id->size); + id->value[id->size - 1] = '\0'; + break; + } + + case UACPI_OBJECT_INTEGER: + id->size = PNP_ID_LENGTH; + id->value = id_buffer; + uacpi_eisa_id_to_string(object->integer, id_buffer); + break; + } + + id_buffer += id->size; + } + + uacpi_object_unref(cid_ret); + *out_list = list; + return ret; +} + +void uacpi_free_pnp_id_list(uacpi_pnp_id_list *list) +{ + if (list == UACPI_NULL) + return; + + uacpi_free(list, sizeof(uacpi_pnp_id_list) + list->size); +} + +uacpi_status uacpi_eval_sta(uacpi_namespace_node *node, uacpi_u32 *flags) +{ + uacpi_status ret; + uacpi_u64 value = 0; + + ret = uacpi_eval_integer(node, "_STA", UACPI_NULL, &value); + + /* + * ACPI 6.5 specification: + * If a device object (including the processor object) does not have + * an _STA object, then OSPM assumes that all of the above bits are + * set (i.e., the device is present, enabled, shown in the UI, + * and functioning). + */ + if (ret == UACPI_STATUS_NOT_FOUND) { + value = 0xFFFFFFFF; + ret = UACPI_STATUS_OK; + } + + *flags = value; + return ret; +} + +uacpi_status uacpi_eval_adr(uacpi_namespace_node *node, uacpi_u64 *out) +{ + return uacpi_eval_integer(node, "_ADR", UACPI_NULL, out); +} + +#define CLS_REPR_SIZE 7 + +static uacpi_u8 extract_package_byte_or_zero(uacpi_package *pkg, uacpi_size i) +{ + uacpi_object *obj; + + if (uacpi_unlikely(pkg->count <= i)) + return 0; + + obj = pkg->objects[i]; + if (uacpi_unlikely(obj->type != UACPI_OBJECT_INTEGER)) + return 0; + + return obj->integer; +} + +uacpi_status uacpi_eval_cls( + uacpi_namespace_node *node, uacpi_id_string **out_id +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_package *pkg; + uacpi_u8 class_codes[3]; + uacpi_id_string *id_string; + + ret = uacpi_eval_typed( + node, "_CLS", UACPI_NULL, UACPI_OBJECT_PACKAGE_BIT, &obj + ); + if (ret != UACPI_STATUS_OK) + return ret; + + pkg = obj->package; + class_codes[0] = extract_package_byte_or_zero(pkg, 0); + class_codes[1] = extract_package_byte_or_zero(pkg, 1); + class_codes[2] = extract_package_byte_or_zero(pkg, 2); + + id_string = uacpi_kernel_alloc(sizeof(uacpi_id_string) + CLS_REPR_SIZE); + if (uacpi_unlikely(id_string == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + + id_string->size = CLS_REPR_SIZE; + id_string->value = UACPI_PTR_ADD(id_string, sizeof(uacpi_id_string)); + + uacpi_snprintf( + id_string->value, CLS_REPR_SIZE, "%02X%02X%02X", + class_codes[0], class_codes[1], class_codes[2] + ); + +out: + if (uacpi_likely_success(ret)) + *out_id = id_string; + + uacpi_object_unref(obj); + return ret; +} + +uacpi_status uacpi_eval_uid( + uacpi_namespace_node *node, uacpi_id_string **out_uid +) +{ + uacpi_status ret; + uacpi_object *obj; + uacpi_id_string *id_string; + uacpi_u32 size; + + ret = uacpi_eval_typed( + node, "_UID", UACPI_NULL, + UACPI_OBJECT_INTEGER_BIT | UACPI_OBJECT_STRING_BIT, + &obj + ); + if (ret != UACPI_STATUS_OK) + return ret; + + if (obj->type == UACPI_OBJECT_STRING) { + size = obj->buffer->size; + if (uacpi_unlikely(size == 0 || size > 0xE0000000)) { + uacpi_object_name name = uacpi_namespace_node_name(node); + + uacpi_error( + "invalid %.4s._UID string size: %u\n", + name.text, size + ); + ret = UACPI_STATUS_AML_BAD_ENCODING; + goto out; + } + } else { + size = uacpi_snprintf( + UACPI_NULL, 0, "%"UACPI_PRIu64, UACPI_FMT64(obj->integer) + ) + 1; + } + + id_string = uacpi_kernel_alloc(sizeof(uacpi_id_string) + size); + if (uacpi_unlikely(id_string == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + + id_string->value = UACPI_PTR_ADD(id_string, sizeof(uacpi_id_string)); + id_string->size = size; + + if (obj->type == UACPI_OBJECT_STRING) { + uacpi_memcpy(id_string->value, obj->buffer->text, size); + id_string->value[size - 1] = '\0'; + } else { + uacpi_snprintf( + id_string->value, id_string->size, "%"UACPI_PRIu64, + UACPI_FMT64(obj->integer) + ); + } + +out: + if (uacpi_likely_success(ret)) + *out_uid = id_string; + + uacpi_object_unref(obj); + return ret; +} + +static uacpi_bool matches_any( + uacpi_id_string *id, const uacpi_char *const *ids +) +{ + uacpi_size i; + + for (i = 0; ids[i]; ++i) { + if (uacpi_strcmp(id->value, ids[i]) == 0) + return UACPI_TRUE; + } + + return UACPI_FALSE; +} + +static uacpi_status uacpi_eval_dstate_method_template( + uacpi_namespace_node *parent, uacpi_char *template, uacpi_u8 num_methods, + uacpi_u8 *out_values +) +{ + uacpi_u8 i; + uacpi_status ret = UACPI_STATUS_NOT_FOUND, eval_ret; + uacpi_object *obj; + + // We expect either _SxD or _SxW, so increment template[2] + for (i = 0; i < num_methods; ++i, template[2]++) { + eval_ret = uacpi_eval_typed( + parent, template, UACPI_NULL, UACPI_OBJECT_INTEGER_BIT, &obj + ); + if (eval_ret == UACPI_STATUS_OK) { + ret = UACPI_STATUS_OK; + out_values[i] = obj->integer; + uacpi_object_unref(obj); + continue; + } + + out_values[i] = 0xFF; + if (uacpi_unlikely(eval_ret != UACPI_STATUS_NOT_FOUND)) { + const char *path; + + path = uacpi_namespace_node_generate_absolute_path(parent); + uacpi_warn( + "failed to evaluate %s.%s: %s\n", + path, template, uacpi_status_to_string(eval_ret) + ); + uacpi_free_dynamic_string(path); + } + } + + return ret; +} + +#define NODE_INFO_EVAL_ADD_ID(name) \ + if (uacpi_eval_##name(node, &name) == UACPI_STATUS_OK) { \ + size += name->size; \ + if (uacpi_unlikely(size < name->size)) { \ + ret = UACPI_STATUS_AML_BAD_ENCODING; \ + goto out; \ + } \ + } + +#define NODE_INFO_COPY_ID(name, flag) \ + if (name != UACPI_NULL) { \ + flags |= UACPI_NS_NODE_INFO_HAS_##flag; \ + info->name.value = cursor; \ + info->name.size = name->size; \ + uacpi_memcpy(cursor, name->value, name->size); \ + cursor += name->size; \ + } else { \ + uacpi_memzero(&info->name, sizeof(*name)); \ + } \ + +uacpi_status uacpi_get_namespace_node_info( + uacpi_namespace_node *node, uacpi_namespace_node_info **out_info +) +{ + uacpi_status ret = UACPI_STATUS_OK; + uacpi_u32 size = sizeof(uacpi_namespace_node_info); + uacpi_object *obj; + uacpi_namespace_node_info *info; + uacpi_id_string *hid = UACPI_NULL, *uid = UACPI_NULL, *cls = UACPI_NULL; + uacpi_pnp_id_list *cid = UACPI_NULL; + uacpi_char *cursor; + uacpi_u64 adr = 0; + uacpi_u8 flags = 0; + uacpi_u8 sxd[4], sxw[5]; + + obj = uacpi_namespace_node_get_object(node); + if (uacpi_unlikely(obj == UACPI_NULL)) + return UACPI_STATUS_INVALID_ARGUMENT; + + if (obj->type == UACPI_OBJECT_DEVICE || + obj->type == UACPI_OBJECT_PROCESSOR) { + char dstate_method_template[5] = { '_', 'S', '1', 'D', '\0' }; + + NODE_INFO_EVAL_ADD_ID(hid) + NODE_INFO_EVAL_ADD_ID(uid) + NODE_INFO_EVAL_ADD_ID(cls) + NODE_INFO_EVAL_ADD_ID(cid) + + if (uacpi_eval_adr(node, &adr) == UACPI_STATUS_OK) + flags |= UACPI_NS_NODE_INFO_HAS_ADR; + + if (uacpi_eval_dstate_method_template( + node, dstate_method_template, sizeof(sxd), sxd + ) == UACPI_STATUS_OK) + flags |= UACPI_NS_NODE_INFO_HAS_SXD; + + dstate_method_template[2] = '0'; + dstate_method_template[3] = 'W'; + + if (uacpi_eval_dstate_method_template( + node, dstate_method_template, sizeof(sxw), sxw + ) == UACPI_STATUS_OK) + flags |= UACPI_NS_NODE_INFO_HAS_SXW; + } + + info = uacpi_kernel_alloc(size); + if (uacpi_unlikely(info == UACPI_NULL)) { + ret = UACPI_STATUS_OUT_OF_MEMORY; + goto out; + } + info->size = size; + cursor = UACPI_PTR_ADD(info, sizeof(uacpi_namespace_node_info)); + info->name = uacpi_namespace_node_name(node); + info->type = obj->type; + info->num_params = info->type == UACPI_OBJECT_METHOD ? obj->method->args : 0; + + info->adr = adr; + if (flags & UACPI_NS_NODE_INFO_HAS_SXD) + uacpi_memcpy(info->sxd, sxd, sizeof(sxd)); + else + uacpi_memzero(info->sxd, sizeof(info->sxd)); + + if (flags & UACPI_NS_NODE_INFO_HAS_SXW) + uacpi_memcpy(info->sxw, sxw, sizeof(sxw)); + else + uacpi_memzero(info->sxw, sizeof(info->sxw)); + + if (cid != UACPI_NULL) { + uacpi_u32 i; + + uacpi_memcpy(&info->cid, cid, cid->size + sizeof(*cid)); + cursor += cid->num_ids * sizeof(uacpi_id_string); + + for (i = 0; i < cid->num_ids; ++i) { + info->cid.ids[i].value = cursor; + cursor += info->cid.ids[i].size; + } + + flags |= UACPI_NS_NODE_INFO_HAS_CID; + } else { + uacpi_memzero(&info->cid, sizeof(*cid)); + } + + NODE_INFO_COPY_ID(hid, HID) + NODE_INFO_COPY_ID(uid, UID) + NODE_INFO_COPY_ID(cls, CLS) + +out: + if (uacpi_likely_success(ret)) { + info->flags = flags; + *out_info = info; + } + + uacpi_free_id_string(hid); + uacpi_free_id_string(uid); + uacpi_free_id_string(cls); + uacpi_free_pnp_id_list(cid); + return ret; +} + +void uacpi_free_namespace_node_info(uacpi_namespace_node_info *info) +{ + if (info == UACPI_NULL) + return; + + uacpi_free(info, info->size); +} + +uacpi_bool uacpi_device_matches_pnp_id( + uacpi_namespace_node *node, const uacpi_char *const *ids +) +{ + uacpi_status st; + uacpi_bool ret = UACPI_FALSE; + uacpi_id_string *id = UACPI_NULL; + uacpi_pnp_id_list *id_list = UACPI_NULL; + + st = uacpi_eval_hid(node, &id); + if (st == UACPI_STATUS_OK && matches_any(id, ids)) { + ret = UACPI_TRUE; + goto out; + } + + st = uacpi_eval_cid(node, &id_list); + if (st == UACPI_STATUS_OK) { + uacpi_size i; + + for (i = 0; i < id_list->num_ids; ++i) { + if (matches_any(&id_list->ids[i], ids)) { + ret = UACPI_TRUE; + goto out; + } + } + } + +out: + uacpi_free_id_string(id); + uacpi_free_pnp_id_list(id_list); + return ret; +} + +struct device_find_ctx { + const uacpi_char *const *target_hids; + void *user; + uacpi_iteration_callback cb; +}; + +static uacpi_iteration_decision find_one_device( + void *opaque, uacpi_namespace_node *node, uacpi_u32 depth +) +{ + struct device_find_ctx *ctx = opaque; + uacpi_status ret; + uacpi_u32 flags; + + if (!uacpi_device_matches_pnp_id(node, ctx->target_hids)) + return UACPI_ITERATION_DECISION_CONTINUE; + + ret = uacpi_eval_sta(node, &flags); + if (uacpi_unlikely_error(ret)) + return UACPI_ITERATION_DECISION_NEXT_PEER; + + if (!(flags & ACPI_STA_RESULT_DEVICE_PRESENT) && + !(flags & ACPI_STA_RESULT_DEVICE_FUNCTIONING)) + return UACPI_ITERATION_DECISION_NEXT_PEER; + + return ctx->cb(ctx->user, node, depth); +} + + +uacpi_status uacpi_find_devices_at( + uacpi_namespace_node *parent, const uacpi_char *const *hids, + uacpi_iteration_callback cb, void *user +) +{ + struct device_find_ctx ctx = { 0 }; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + ctx.target_hids = hids; + ctx.user = user; + ctx.cb = cb; + + return uacpi_namespace_for_each_child( + parent, find_one_device, UACPI_NULL, UACPI_OBJECT_DEVICE_BIT, + UACPI_MAX_DEPTH_ANY, &ctx + ); +} + +uacpi_status uacpi_find_devices( + const uacpi_char *hid, uacpi_iteration_callback cb, void *user +) +{ + const uacpi_char *hids[2] = { + UACPI_NULL, UACPI_NULL + }; + + hids[0] = hid; + + return uacpi_find_devices_at(uacpi_namespace_root(), hids, cb, user); +} + +uacpi_status uacpi_set_interrupt_model(uacpi_interrupt_model model) +{ + uacpi_status ret; + uacpi_object *arg; + uacpi_object_array args; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + arg = uacpi_create_object(UACPI_OBJECT_INTEGER); + if (uacpi_unlikely(arg == UACPI_NULL)) + return UACPI_STATUS_OUT_OF_MEMORY; + + arg->integer = model; + args.objects = &arg; + args.count = 1; + + ret = uacpi_eval(uacpi_namespace_root(), "_PIC", &args, UACPI_NULL); + uacpi_object_unref(arg); + + if (ret == UACPI_STATUS_NOT_FOUND) + ret = UACPI_STATUS_OK; + + return ret; +} + +uacpi_status uacpi_get_pci_routing_table( + uacpi_namespace_node *parent, uacpi_pci_routing_table **out_table +) +{ + uacpi_status ret; + uacpi_object *obj, *entry_obj, *elem_obj; + uacpi_package *table_pkg, *entry_pkg; + uacpi_pci_routing_table_entry *entry; + uacpi_pci_routing_table *table; + uacpi_size size, i; + + UACPI_ENSURE_INIT_LEVEL_AT_LEAST(UACPI_INIT_LEVEL_NAMESPACE_LOADED); + + obj = uacpi_namespace_node_get_object(parent); + if (uacpi_unlikely(obj == UACPI_NULL || obj->type != UACPI_OBJECT_DEVICE)) + return UACPI_STATUS_INVALID_ARGUMENT; + + ret = uacpi_eval_typed( + parent, "_PRT", UACPI_NULL, UACPI_OBJECT_PACKAGE_BIT, &obj + ); + if (uacpi_unlikely_error(ret)) + return ret; + + table_pkg = obj->package; + if (uacpi_unlikely(table_pkg->count == 0 || table_pkg->count > 1024)) { + uacpi_error("invalid number of _PRT entries: %zu\n", table_pkg->count); + uacpi_object_unref(obj); + return UACPI_STATUS_AML_BAD_ENCODING; + } + + size = table_pkg->count * sizeof(uacpi_pci_routing_table_entry); + table = uacpi_kernel_alloc(sizeof(uacpi_pci_routing_table) + size); + if (uacpi_unlikely(table == UACPI_NULL)) { + uacpi_object_unref(obj); + return UACPI_STATUS_OUT_OF_MEMORY; + } + table->num_entries = table_pkg->count; + + for (i = 0; i < table_pkg->count; ++i) { + entry_obj = table_pkg->objects[i]; + + if (uacpi_unlikely(entry_obj->type != UACPI_OBJECT_PACKAGE)) { + uacpi_error("_PRT sub-object %zu is not a package: %s\n", + i, uacpi_object_type_to_string(entry_obj->type)); + goto out_bad_encoding; + } + + entry_pkg = entry_obj->package; + if (uacpi_unlikely(entry_pkg->count != 4)) { + uacpi_error("invalid _PRT sub-package entry count %zu\n", + entry_pkg->count); + goto out_bad_encoding; + } + + entry = &table->entries[i]; + + elem_obj = entry_pkg->objects[0]; + if (uacpi_unlikely(elem_obj->type != UACPI_OBJECT_INTEGER)) { + uacpi_error("invalid _PRT sub-package %zu address type: %s\n", + i, uacpi_object_type_to_string(elem_obj->type)); + goto out_bad_encoding; + } + entry->address = elem_obj->integer; + + elem_obj = entry_pkg->objects[1]; + if (uacpi_unlikely(elem_obj->type != UACPI_OBJECT_INTEGER)) { + uacpi_error("invalid _PRT sub-package %zu pin type: %s\n", + i, uacpi_object_type_to_string(elem_obj->type)); + goto out_bad_encoding; + } + entry->pin = elem_obj->integer; + + elem_obj = entry_pkg->objects[2]; + switch (elem_obj->type) { + case UACPI_OBJECT_STRING: + ret = uacpi_object_resolve_as_aml_namepath( + elem_obj, parent, &entry->source + ); + if (uacpi_unlikely_error(ret)) { + uacpi_error("unable to lookup _PRT source %s: %s\n", + elem_obj->buffer->text, uacpi_status_to_string(ret)); + goto out_bad_encoding; + } + break; + case UACPI_OBJECT_INTEGER: + entry->source = UACPI_NULL; + break; + default: + uacpi_error("invalid _PRT sub-package %zu source type: %s\n", + i, uacpi_object_type_to_string(elem_obj->type)); + goto out_bad_encoding; + } + + elem_obj = entry_pkg->objects[3]; + if (uacpi_unlikely(elem_obj->type != UACPI_OBJECT_INTEGER)) { + uacpi_error("invalid _PRT sub-package %zu source index type: %s\n", + i, uacpi_object_type_to_string(elem_obj->type)); + goto out_bad_encoding; + } + entry->index = elem_obj->integer; + } + + uacpi_object_unref(obj); + *out_table = table; + return UACPI_STATUS_OK; + +out_bad_encoding: + uacpi_object_unref(obj); + uacpi_free_pci_routing_table(table); + return UACPI_STATUS_AML_BAD_ENCODING; +} + +void uacpi_free_pci_routing_table(uacpi_pci_routing_table *table) +{ + if (table == UACPI_NULL) + return; + + uacpi_free( + table, + sizeof(uacpi_pci_routing_table) + + table->num_entries * sizeof(uacpi_pci_routing_table_entry) + ); +} + +void uacpi_free_dynamic_string(const uacpi_char *str) +{ + if (str == UACPI_NULL) + return; + + uacpi_free((void*)str, uacpi_strlen(str) + 1); +} + +#endif // !UACPI_BAREBONES_MODE diff --git a/kernel/hal/x86_64/uACPI/tests/generated_test_cases/__init__.py b/kernel/hal/x86_64/uACPI/tests/generated_test_cases/__init__.py new file mode 100644 index 0000000..e69de29 diff --git a/kernel/hal/x86_64/uACPI/tests/generated_test_cases/buffer_field.py b/kernel/hal/x86_64/uACPI/tests/generated_test_cases/buffer_field.py new file mode 100644 index 0000000..cefcd82 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/generated_test_cases/buffer_field.py @@ -0,0 +1,255 @@ +import os +import copy +import subprocess +from typing import List, Optional, Callable +from utilities.asl import ASL, ASLSource + + +ACPICA_BUFFER_PRINT_PREFIX = " 0000: " + + +def _parse_acpiexec_buffers(raw_output: str) -> List[List[int]]: + lines = raw_output.split("\n") + answers = [] + + for i, line in enumerate(lines): + if "Evaluating" in line: + lines = lines[i + 1:] + break + + for line in lines: + if not line.startswith(ACPICA_BUFFER_PRINT_PREFIX): + continue + + line = line.removeprefix(ACPICA_BUFFER_PRINT_PREFIX) + buffer_bytes = [] + + for x in line.split(" "): + # Buffers are printed out with ascii disassembly at the end. + # Skip as soon as we encounter empty space. + if x == "": + break + + buffer_bytes.append(int(x, base=16)) + + answers.append(buffer_bytes) + + return answers + + +def _generate_for_each_bit_combination( + src: ASLSource, per_combo_cb: Callable, + final_cb: Optional[Callable] = None +) -> None: + methods = [] + + for i in range(0, 64): + method_name = f"FT{i}" + methods.append(method_name) + + src.l(ASL.method(method_name)) + src.block_begin() + + for j in range(0, 65): + if (i >= j): + continue + + per_combo_cb(i, j, src) + + src.block_end() + + src.l(ASL.method("MAIN")) + src.block_begin() + for method in methods: + src.l(ASL.invoke(method)) + + if final_cb is not None: + final_cb(src) + + src.block_end() + src.finalize() + + +_READS_ANSWERS_NAME = "buffer-reads-answers" +_WRITES_ANSWERS_NAME = "buffer-writes-answers" + + +def _generate_buffer_reads_answers( + compiler: str, bin_dir: str, src: ASLSource +) -> List[List[int]]: + output_path = os.path.join(bin_dir, _READS_ANSWERS_NAME + ".aml") + if not os.path.exists(output_path): + _do_generate_buffer_reads_answers(compiler, bin_dir, src) + + raw_answers = subprocess.check_output( + ["acpiexec", "-b", "execute MAIN", output_path], + universal_newlines=True + ) + return _parse_acpiexec_buffers(raw_answers) + + +def _generate_buffer_writes_answers( + compiler: str, bin_dir: str, src: ASLSource +) -> List[List[int]]: + output_path = os.path.join(bin_dir, _WRITES_ANSWERS_NAME + ".aml") + if not os.path.exists(output_path): + _do_generate_buffer_writes_answers(compiler, bin_dir, src) + + raw_answers = subprocess.check_output( + ["acpiexec", "-b", "execute MAIN", output_path], + universal_newlines=True + ) + return _parse_acpiexec_buffers(raw_answers) + + +def _do_generate_buffer_reads_answers( + compiler: str, bin_dir: str, src: ASLSource +) -> None: + def gen_buffer_dump(i, j, src): + field_size = j - i + field_name = f"FI{field_size:02X}" + + src.l(ASL.create_field("BUFF", i, field_size, field_name)) + src.l(ASL.assign("Debug", field_name)) + + _generate_for_each_bit_combination(src, gen_buffer_dump) + + answers_src_path = os.path.join(bin_dir, _READS_ANSWERS_NAME + ".asl") + src.dump(answers_src_path) + ASLSource.compile(answers_src_path, compiler, bin_dir) + + +def _do_generate_buffer_writes_answers( + compiler: str, bin_dir: str, src: ASLSource +) -> None: + def gen_buffer_dump(i, j, src): + field_size = j - i + field_name = f"FI{field_size:02X}" + + src.l(ASL.create_field("BUFX", i, field_size, field_name)) + src.l(ASL.assign(field_name, "BUFF")) + src.l(ASL.assign("Debug", field_name)) + + _generate_for_each_bit_combination(src, gen_buffer_dump) + + writes_src_path = os.path.join(bin_dir, _WRITES_ANSWERS_NAME + ".asl") + src.dump(writes_src_path) + ASLSource.compile(writes_src_path, compiler, bin_dir) + + +_READS_TEST_NAME = "2080-buffer-reads" +_WRITES_TEST_NAME = "2080-buffer-writes" + + +def generate_buffer_reads_test(compiler: str, bin_dir: str) -> str: + output_path = os.path.join(bin_dir, _READS_TEST_NAME + ".asl") + if os.path.exists(output_path): + return output_path + + return _do_generate_buffer_reads_test(compiler, bin_dir) + + +def generate_buffer_writes_test(compiler: str, bin_dir: str) -> str: + output_path = os.path.join(bin_dir, _WRITES_TEST_NAME + ".asl") + if os.path.exists(output_path): + return output_path + + return _do_generate_buffer_writes_test(compiler, bin_dir) + + +def _generate_buffer_test_prologue() -> ASLSource: + src = ASLSource(2) + + src.l(ASL.name( + "BUFF", + ASL.buffer([0xAC, 0x12, 0x42, 0xCA, 0xDE, 0xFF, 0xCB, 0xDD]) + )) + src.l(ASL.name( + "BUFX", + ASL.buffer(count=8) + )) + + return src + + +def _generate_buffer_test_harness(src: ASLSource) -> None: + src.l(ASL.name("FAIL", 0)) + src.l(ASL.name("PASS", 0)) + + src.l(ASL.method("FDBG", 3)) + src.block_begin() + src.l(ASL.assign("Debug", "Arg0")) + src.l(ASL.assign("Debug", "Arg1")) + src.l(ASL.assign("Debug", "Arg2")) + src.l(ASL.increment("FAIL")) + src.block_end() + + +def _do_generate_buffer_reads_test(compiler: str, bin_dir: str) -> str: + src = _generate_buffer_test_prologue() + answers = _generate_buffer_reads_answers(compiler, bin_dir, + copy.deepcopy(src)) + + _generate_buffer_test_harness(src) + + answer_idx = 0 + + def gen_buffer_check(i, j, src): + nonlocal answer_idx + field_size = j - i + field_name = f"FI{field_size:02X}" + + src.l(ASL.create_field("BUFF", i, field_size, field_name)) + src.iff(ASL.equal(field_name, ASL.buffer(answers[answer_idx]))) + answer_idx += 1 + src.l(ASL.increment("PASS")) + src.elsee() + src.l(ASL.invoke("FDBG", [ + field_name, "__LINE__", f'"{field_name}"' + ])) + src.block_end() + + _generate_for_each_bit_combination(src, gen_buffer_check, + lambda src: src.l(ASL.returnn("FAIL"))) + + test_src_path = os.path.join(bin_dir, _READS_TEST_NAME + ".asl") + src.dump_as_test_case(test_src_path, "Reads from buffer fields", + "int", "0") + + return test_src_path + + +def _do_generate_buffer_writes_test(compiler: str, bin_dir: str) -> str: + src = _generate_buffer_test_prologue() + answers = _generate_buffer_writes_answers(compiler, bin_dir, + copy.deepcopy(src)) + + _generate_buffer_test_harness(src) + + answer_idx = 0 + + def gen_buffer_check(i, j, src): + nonlocal answer_idx + field_size = j - i + field_name = f"FI{field_size:02X}" + + src.l(ASL.create_field("BUFX", i, field_size, field_name)) + src.l(ASL.assign(field_name, "BUFF")) + src.iff(ASL.equal(field_name, ASL.buffer(answers[answer_idx]))) + answer_idx += 1 + src.l(ASL.increment("PASS")) + src.elsee() + src.l(ASL.invoke("FDBG", [ + field_name, "__LINE__", f'"{field_name}"' + ])) + src.block_end() + src.l(ASL.assign("BUFX", 0)) + + _generate_for_each_bit_combination(src, gen_buffer_check, + lambda src: src.l(ASL.returnn("FAIL"))) + + test_src_path = os.path.join(bin_dir, _WRITES_TEST_NAME + ".asl") + src.dump_as_test_case(test_src_path, "Writes to buffer fields", + "int", "0") + + return test_src_path diff --git a/kernel/hal/x86_64/uACPI/tests/run_tests.py b/kernel/hal/x86_64/uACPI/tests/run_tests.py new file mode 100755 index 0000000..0e41a40 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/run_tests.py @@ -0,0 +1,476 @@ +#!/usr/bin/python3 +import subprocess +import argparse +import os +import sys +import time +import platform +from multiprocessing import Manager, Pool, Queue +from typing import List, Tuple, Optional +from types import TracebackType +from abc import ABC, abstractmethod + +from utilities.asl import ASLSource +import generated_test_cases.buffer_field as bf + + +def abs_path_to_current_dir() -> str: + return os.path.dirname(os.path.abspath(__file__)) + + +def generate_test_cases(compiler: str, bin_dir: str) -> List[str]: + return [ + bf.generate_buffer_reads_test(compiler, bin_dir), + bf.generate_buffer_writes_test(compiler, bin_dir), + ] + + +ACPI_DUMPS_URL = "https://github.com/UltraOS/ACPIDumps.git" + + +class TestCase(ABC): + def __init__(self, path: str, name: str): + self.path = path + self.name = name + + @abstractmethod + def extra_runner_args(self) -> List[str]: + pass + + +class BarebonesTestCase(TestCase): + def __init__( + self, name: str + ) -> None: + super().__init__(name, name) + + def extra_runner_args(self) -> List[str]: + return [] + + +class TestCaseWithMain(TestCase): + def __init__( + self, path: str, name: str, rtype: str, value: str + ) -> None: + super().__init__(path, f"{os.path.basename(path)}:{name}") + self.rtype = rtype + self.value = value + + def extra_runner_args(self) -> List[str]: + return ["--expect", self.rtype, self.value] + + +class TestCaseHardwareBlob(TestCase): + def __init__(self, path: str) -> None: + dsdt_path = os.path.join(path, "dsdt.dat") + super().__init__(dsdt_path, os.path.basename(path)) + + self.ssdt_paths = [ + path for path in os.listdir(path) + if path.startswith("ssdt") and path.endswith(".dat") + ] + + def extract_ssdt_number(path: str) -> int: + number = "" + + assert path.startswith("ssdt") + for c in path[4:]: + if not c.isdigit(): + break + number += c + + # some blobs apparently come with just "ssdt.dat" and not + # "ssdtX.dat", take that into account here. + return 0 if not number else int(number) + + if self.ssdt_paths: + self.ssdt_paths.sort(key=extract_ssdt_number) + self.ssdt_paths = [ + os.path.join(path, ssdt_path) for ssdt_path in self.ssdt_paths + ] + + def extra_runner_args(self) -> List[str]: + args = ["--enumerate-namespace"] + + if self.ssdt_paths: + args.append("--extra-tables") + args.extend(self.ssdt_paths) + + return args + + +def generate_large_test_cases(extractor: str, bin_dir: str) -> List[TestCase]: + acpi_dumps_dir = os.path.join(abs_path_to_current_dir(), "acpi-dumps") + large_tests_dir = os.path.join(bin_dir, "large-tests") + + if not os.path.exists(acpi_dumps_dir): + subprocess.check_call(["git", "clone", ACPI_DUMPS_URL, acpi_dumps_dir]) + + os.makedirs(large_tests_dir, exist_ok=True) + test_cases = [] + + def recurse_one(path, depth=1): + for obj in os.listdir(path): + if obj.startswith("."): + continue + + obj_path = os.path.join(path, obj) + + if os.path.isdir(obj_path): + recurse_one(obj_path, depth + 1) + continue + + if depth == 1 or not obj.endswith(".bin"): + continue + + print(f"Preparing HW blob {obj_path}...") + + split_path = obj_path.split(os.path.sep)[-depth:] + fixed_up_path = [ + seg.replace(" ", "_").lower() for seg in split_path + ] + + test_case_name = "_".join(fixed_up_path).replace(".bin", "") + this_test_dir = os.path.join(large_tests_dir, test_case_name) + + if (not os.path.exists(this_test_dir) or not + os.path.exists(os.path.join(this_test_dir, "dsdt.dat"))): + os.makedirs(this_test_dir, exist_ok=True) + + # These are two separate invocations because of a bug in + # acpixtract where it exits with -1 when there isn't an SSDT + # inside a blob, even though it's specified as optional in + # code. Merge once https://github.com/acpica/acpica/pull/959 + # is shipped everywhere. + subprocess.check_call( + [extractor, "-sDSDT", obj_path], cwd=this_test_dir, + stdout=subprocess.DEVNULL + ) + subprocess.run( + [extractor, "-sSSDT", obj_path], cwd=this_test_dir, + stdout=subprocess.DEVNULL + ) + + test_cases.append(TestCaseHardwareBlob(this_test_dir)) + + recurse_one(acpi_dumps_dir) + return test_cases + + +def get_case_name_and_expected_result(case: str) -> Tuple[str, str, str]: + with open(case) as tc: + name = tc.readline() + name = name[name.find(":") + 1:].strip() + + expected_line = tc.readline() + expected_line = expected_line[expected_line.find(":") + 1:].strip() + expected = [val.strip() for val in expected_line.split("=>")] + + return name, expected[0], expected[1] + + +class TestHeaderFooter: + def __init__(self, text: str) -> None: + self.hdr = "{:=^80}".format(" " + text + " ") + + def __enter__(self) -> None: + print(self.hdr, flush=True) + + def __exit__( + self, exc_type: Optional[type[BaseException]], + ex: Optional[BaseException], traceback: Optional[TracebackType] + ) -> Optional[bool]: + print("=" * len(self.hdr), flush=True) + return None + + +def run_resource_tests(runner: str) -> int: + with TestHeaderFooter("Resource Conversion Tests"): + return subprocess.run([runner, "resource-tests"]).returncode + + +def compile_test_cases( + test_cases: List[str], compiler: str, bin_dir: str +) -> List[TestCase]: + compiled_cases: List[TestCase] = [] + + for case in test_cases: + print(f"Compiling {case}...", end="") + + # Skip the table loading test for old iASL, it prints bogus error + # messages and refuses to compile the test case no matter what I try: + # + # If (!Load(TABL)) { + # Error 6126 - syntax error ^ + # + if os.path.basename(case) == "table-loading-0.asl": + out = subprocess.check_output([compiler, "-v"], + universal_newlines=True) + # I don't know which versions it's broken for specifically, this + # one comes with Ubuntu 22.04, so hardcode it. + if "20200925" in out: + print("SKIPPED (bugged iASL)", flush=True) + continue + + compiled_cases.append( + TestCaseWithMain( + ASLSource.compile(case, compiler, bin_dir), + *get_case_name_and_expected_result(case) + ) + ) + print("") + + return compiled_cases + + +def run_single_test(case: TestCase, results: Queue, runner: str) -> bool: + timeout = False + start_time = time.time() + proc = subprocess.Popen( + [runner, case.path, *case.extra_runner_args()], + stdout=subprocess.PIPE, stderr=subprocess.PIPE, + universal_newlines=True + ) + + try: + stdout, stderr = proc.communicate(timeout=60) + elapsed_time = time.time() - start_time + except subprocess.TimeoutExpired: + proc.kill() + stdout, stderr = proc.communicate() + timeout = True + + elapsed_time = time.time() - start_time + + if proc.returncode == 0: + results.put((True, case, elapsed_time)) + return True + else: + results.put((False, case, elapsed_time, stdout, stderr, timeout)) + return False + + +def run_tests(cases: List[TestCase], runner: str, parallelism: int) -> bool: + pass_count = 0 + fail_count = 0 + start_time = time.time() + + def print_test_header(case: TestCase, success: bool, timeout: bool, + elapsed: float) -> None: + status_str = "OK" if success else "TIMEOUT" if timeout else "FAILED" + + print(f"[{pass_count}/{len(cases)}] {case.name} " + f"{status_str} in {elapsed:.2f}s", flush=True) + + def format_output(data: str) -> str: + return "\n".join(["\t" + line for line in data.split("\n")]) + + with Pool(processes=parallelism) as pool: + manager = Manager() + result_queue = manager.Queue() + + pool.starmap_async(run_single_test, + [(case, result_queue, runner) for case in cases]) + + while pass_count + fail_count < len(cases): + success, case, elapsed_time, *args = result_queue.get() + + if success: + pass_count += 1 + + print_test_header(case, True, False, elapsed_time) + else: + fail_count += 1 + stdout, stderr, timeout = args + + print_test_header(case, False, timeout, elapsed_time) + + stdout_output = format_output(stdout) + stderr_output = format_output(stderr) + + if stdout_output: + print(f"STDOUT FOR {case.name}:", flush=True) + print(stdout_output, flush=True) + else: + print(f"NO STDOUT FROM TEST {case.name}", flush=True) + + if stderr_output: + print(f"STDERR FOR {case.name}:", flush=True) + print(stderr_output, flush=True) + else: + print(f"NO STDERR FROM TEST {case.name}", flush=True) + + pool.close() + pool.join() + + elapsed_time = time.time() - start_time + + print(f"SUMMARY: {pass_count}/{len(cases)} in {elapsed_time:.2f}s", end="") + + if not fail_count: + print(" (ALL PASS!)") + else: + print(f" ({fail_count} FAILED)") + + return not fail_count + + +def test_relpath(*args: str) -> str: + return os.path.join(abs_path_to_current_dir(), *args) + + +def platform_name_for_binary(binary: str) -> str: + if platform.system() == "Windows": + binary += ".exe" + + return binary + + +def test_runner_binary() -> str: + return platform_name_for_binary("test-runner") + + +def barebones_test_runner_binary() -> str: + return platform_name_for_binary("barebones-test-runner") + + +def build_test_runner(bitness: int, watcom: bool) -> Tuple[str, str]: + build_dir = f"build-{platform.system().lower()}-{bitness}bits" + + if watcom: + build_dir = f"{build_dir}-watcom" + + runner_build_dir = test_relpath("runner", build_dir) + runner_exe = os.path.join(runner_build_dir, test_runner_binary()) + barebones_runner_exe = os.path.join( + runner_build_dir, barebones_test_runner_binary() + ) + use_ninja = False + + if platform.system() != "Windows": + try: + subprocess.run(["ninja", "--version"], check=True, + stdout=subprocess.DEVNULL) + use_ninja = True + except FileNotFoundError: + pass + + cmake_args: List[str] = ["cmake"] + + if watcom: + cmake_args.extend(["-G", "Watcom WMake"]) + elif use_ninja: + cmake_args.extend(["-G", "Ninja"]) + + cmake_args.append("..") + + if not watcom and bitness == 32: + if platform.system() == "Windows": + cmake_args.extend(["-A", "Win32"]) + else: + cmake_args.extend([ + "-DCMAKE_CXX_FLAGS=-m32", + "-DCMAKE_C_FLAGS=-m32" + ]) + + if not os.path.isdir(runner_build_dir): + os.makedirs(runner_build_dir, exist_ok=True) + subprocess.run(cmake_args, cwd=runner_build_dir, check=True) + + subprocess.run(["cmake", "--build", "."], cwd=runner_build_dir, check=True) + return barebones_runner_exe, runner_exe + + +def main() -> int: + parser = argparse.ArgumentParser(description="Run uACPI tests") + parser.add_argument("--asl-compiler", + help="Compiler to use to build test cases", + default="iasl") + parser.add_argument("--acpi-extractor", + help="ACPI extractor utility to use for ACPI dumps", + default="acpixtract") + parser.add_argument("--test-dir", + default=test_relpath("test-cases"), + help="The directory to run tests from, defaults to " + "'test-cases' in the same directory") + parser.add_argument("--test-runner", + help="The test runner binary to invoke") + parser.add_argument("--barebones-test-runner", + help="The barebones test runner binary to invoke") + parser.add_argument("--binary-directory", + default=test_relpath("bin"), + help="The directory to store intermediate files in, " + "created & deleted automatically. Defaults to " + "'bin' in the same directory") + parser.add_argument("--bitness", default=64, choices=[32, 64], type=int, + help="uACPI build bitness") + parser.add_argument("--large", action="store_true", + help="Run the large test suite as well") + parser.add_argument("--barebones", action="store_true", + help="Run the barebones test suite as well") + parser.add_argument("--parallelism", type=int, + default=os.cpu_count() or 1, + help="Number of test runners to run in parallel") + parser.add_argument("--watcom", action="store_true", + help="Use OpenWatcom to build test runners") + args = parser.parse_args() + + if args.watcom: + args.bitness = 32 + + test_compiler = args.asl_compiler + test_dir = args.test_dir + test_runner = args.test_runner + bare_test_runner = args.barebones_test_runner + + if test_runner is None or (args.barebones and bare_test_runner is None): + bare_runner_default, runner_default = build_test_runner(args.bitness, + args.watcom) + + if bare_test_runner is None: + bare_test_runner = bare_runner_default + if test_runner is None: + test_runner = runner_default + + ret = run_resource_tests(test_runner) + if ret != 0: + sys.exit(ret) + + bin_dir = args.binary_directory + os.makedirs(bin_dir, exist_ok=True) + + test_cases = [ + os.path.join(test_dir, f) + for f in os.listdir(test_dir) + if os.path.splitext(f)[1] == ".asl" + ] + test_cases.extend(generate_test_cases(test_compiler, bin_dir)) + + base_test_cases = compile_test_cases( + test_cases, test_compiler, bin_dir + ) + with TestHeaderFooter("AML Tests"): + ret = run_tests(base_test_cases, test_runner, args.parallelism) + + if ret and args.large: + large_test_cases = generate_large_test_cases( + args.acpi_extractor, bin_dir + ) + + with TestHeaderFooter("Large AML Tests"): + ret = run_tests(large_test_cases, test_runner, args.parallelism) + + if ret and args.barebones: + bare_cases: List[TestCase] = [ + BarebonesTestCase("basic-operation"), + BarebonesTestCase("table-installation"), + ] + + with TestHeaderFooter("Barebones Mode Tests"): + ret = run_tests(bare_cases, bare_test_runner, args.parallelism) + + sys.exit(not ret) + + +if __name__ == "__main__": + main() diff --git a/kernel/hal/x86_64/uACPI/tests/runner/.gitignore b/kernel/hal/x86_64/uACPI/tests/runner/.gitignore new file mode 100644 index 0000000..1964f99 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/.gitignore @@ -0,0 +1 @@ +build-* \ No newline at end of file diff --git a/kernel/hal/x86_64/uACPI/tests/runner/CMakeLists.txt b/kernel/hal/x86_64/uACPI/tests/runner/CMakeLists.txt new file mode 100644 index 0000000..3202dc1 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/CMakeLists.txt @@ -0,0 +1,168 @@ +cmake_minimum_required(VERSION 3.16) + +project(TestRunner C) + +set(CMAKE_C_STANDARD 17) +set(CMAKE_C_STANDARD_REQUIRED ON) + +include(${CMAKE_CURRENT_SOURCE_DIR}/../../uacpi.cmake) + +foreach(CONF_TYPE ${CMAKE_CONFIGURATION_TYPES}) + string(TOUPPER ${CONF_TYPE} CONF_TYPE) + set(CMAKE_RUNTIME_OUTPUT_DIRECTORY_${CONF_TYPE} ${CMAKE_BINARY_DIR}) +endforeach(CONF_TYPE ${CMAKE_CONFIGURATION_TYPES}) + +macro (define_test_runner NAME) + add_executable( + ${NAME} + ${ARGN} + ) + target_sources( + ${NAME} + PRIVATE + ${UACPI_SOURCES} + ) + + target_include_directories( + ${NAME} + PRIVATE + ${UACPI_INCLUDES} + ) + + if (WATCOM) + # Address sanitizer doesn't exist on Watcom. + target_compile_definitions( + ${NAME} + PRIVATE + _LINUX_SOURCE + ) + target_compile_options( + ${NAME} + PRIVATE + -we -wx + ) + elseif (MSVC) + # Address sanitizer on MSVC depends on a dynamic library that is not present in + # PATH by default. Lets just not enable it here. + target_compile_options( + ${NAME} + PRIVATE + /W3 /WX + /wd4200 /wd4267 /wd4244 + ) + else () + target_compile_definitions( + ${NAME} + PRIVATE + _GNU_SOURCE + ) + target_compile_options( + ${NAME} + PRIVATE + -fsanitize=address,undefined -g3 -Wall -Wextra -Werror + ) + target_link_options( + ${NAME} + PRIVATE + -fsanitize=address,undefined -g3 + ) + add_compile_options( + $<$:-Wstrict-prototypes> + ) + endif () +endmacro () + +define_test_runner( + test-runner + test_runner.c + helpers.c + interface_impl.c + resource_tests.c + api_tests.c +) +find_package(Threads REQUIRED) +target_link_libraries(test-runner PRIVATE Threads::Threads) + +define_test_runner( + barebones-test-runner + helpers.c + barebones_runner.c +) +target_compile_definitions( + barebones-test-runner + PRIVATE + -DUACPI_BAREBONES_MODE +) + +if (NOT REDUCED_HARDWARE_BUILD) + set(REDUCED_HARDWARE_BUILD 0) +endif() + +if (REDUCED_HARDWARE_BUILD) + target_compile_definitions( + test-runner + PRIVATE + -DUACPI_REDUCED_HARDWARE + ) +endif () + +if (NOT DEFINED SIZED_FREES_BUILD) + set(SIZED_FREES_BUILD 1) +endif() + +if (SIZED_FREES_BUILD) + target_compile_definitions( + test-runner + PRIVATE + -DUACPI_SIZED_FREES + ) +endif () + +if (NOT FORMATTED_LOGGING_BUILD) + set(FORMATTED_LOGGING_BUILD 0) +endif() + +if (FORMATTED_LOGGING_BUILD) + target_compile_definitions( + test-runner + PRIVATE + -DUACPI_FORMATTED_LOGGING + ) +endif () + + +if (NOT NATIVE_ALLOC_ZEROED) + set(NATIVE_ALLOC_ZEROED 0) +endif() + +if (NATIVE_ALLOC_ZEROED) + target_compile_definitions( + test-runner + PRIVATE + -DUACPI_NATIVE_ALLOC_ZEROED + ) +endif () + +if (NOT KERNEL_INITIALIZATION) + set(KERNEL_INITIALIZATION 1) +endif() + +if (KERNEL_INITIALIZATION) + target_compile_definitions( + test-runner + PRIVATE + -DUACPI_KERNEL_INITIALIZATION + ) +endif () + +if (NOT BUILTIN_STRING) + set(BUILTIN_STRING 0) +endif() + +if (BUILTIN_STRING) + target_compile_definitions( + test-runner + PRIVATE + -DUACPI_USE_BUILTIN_STRING + ) +endif () diff --git a/kernel/hal/x86_64/uACPI/tests/runner/api_tests.c b/kernel/hal/x86_64/uACPI/tests/runner/api_tests.c new file mode 100644 index 0000000..f216d8d --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/api_tests.c @@ -0,0 +1,475 @@ +#include "helpers.h" +#include +#include +#include +#include +#include + +static void check_ok(uacpi_object **objects, uacpi_object_array *arr) +{ + uacpi_u64 ret; + uacpi_status st = uacpi_eval_integer(UACPI_NULL, "CHEK", arr, &ret); + + ensure_ok_status(st); + if (!ret) + error("integer check failed"); + uacpi_object_unref(objects[1]); +} + +void test_object_api(void) +{ + uacpi_status st; + uacpi_object_array arr; + uacpi_object *objects[2]; + uacpi_data_view view; + uacpi_object *tmp; + uint8_t buffer[4] = { 0xDE, 0xAD, 0xBE, 0xEF }; + uacpi_object *pkg[3]; + uacpi_object_array arr1; + + arr.objects = objects; + arr.count = UACPI_ARRAY_SIZE(objects); + objects[0] = uacpi_object_create_integer(1); + + st = uacpi_object_create_integer_safe( + 0xDEADBEEFDEADBEEF, UACPI_OVERFLOW_DISALLOW, &objects[1] + ); + if (st != UACPI_STATUS_INVALID_ARGUMENT) + error("expected integer creation to fail"); + + objects[1] = uacpi_object_create_integer(0xDEADBEEF); + check_ok(objects, &arr); + + st = uacpi_object_assign_integer(objects[0], 2); + ensure_ok_status(st); + + objects[1] = uacpi_object_create_cstring("Hello World"); + uacpi_object_ref(objects[1]); + check_ok(objects, &arr); + + view.const_text = "Hello World"; + // Don't include the null byte to check if this is accounted for + view.length = 11; + + uacpi_object_assign_string(objects[1], view); + check_ok(objects, &arr); + + st = uacpi_object_assign_integer(objects[0], 3); + ensure_ok_status(st); + tmp = uacpi_object_create_cstring("XXXX"); + objects[1] = uacpi_object_create_reference(tmp); + uacpi_object_unref(tmp); + check_ok(objects, &arr); + + st = uacpi_object_assign_integer(objects[0], 4); + ensure_ok_status(st); + view.const_bytes = buffer; + view.length = sizeof(buffer); + objects[1] = uacpi_object_create_buffer(view); + check_ok(objects, &arr); + + st = uacpi_object_assign_integer(objects[0], 5); + ensure_ok_status(st); + + pkg[0] = uacpi_object_create_uninitialized(); + view.const_text = "First Element"; + view.length = strlen(view.const_text); + uacpi_object_assign_string(pkg[0], view); + + pkg[1] = uacpi_object_create_cstring("test"); + st = uacpi_object_assign_integer(pkg[1], 2); + ensure_ok_status(st); + + buffer[0] = 1; + buffer[1] = 2; + buffer[2] = 3; + view.const_bytes = buffer; + view.length = 3; + pkg[2] = uacpi_object_create_buffer(view); + st = uacpi_object_assign_buffer(pkg[2], view); + + arr1.objects = pkg; + arr1.count = 3; + objects[1] = uacpi_object_create_package(arr1); + uacpi_object_assign_package(objects[1], arr1); + check_ok(objects, &arr); + uacpi_object_unref(pkg[0]); + uacpi_object_unref(pkg[1]); + uacpi_object_unref(pkg[2]); + + uacpi_object_unref(objects[0]); +} + +#define CHECK_VALUE(x, y) \ + if ((x) != (y)) \ + error("check at %d failed", __LINE__); +#define CHECK_STRING(x, y) \ + if (strcmp((x), (y))) \ + error("check at %d failed", __LINE__); + +static void eval_one(uacpi_object *arg, uacpi_address_space type) +{ + uacpi_object_array arr = { 0 }; + uacpi_u64 out_value; + uacpi_status st; + + arr.objects = &arg; + arr.count = 1; + + st = uacpi_object_assign_integer(arg, type); + ensure_ok_status(st); + st = uacpi_eval_integer(NULL, "CHEK", &arr, &out_value); + ensure_ok_status(st); + + if (!out_value) + error("%s test failed", uacpi_address_space_to_string(type)); +} + +static uacpi_status ipmi_handler(uacpi_region_op op, uacpi_handle op_data) +{ + uacpi_region_ipmi_rw_data *ipmi = op_data; + uint64_t response; + const char *command; + + if (op == UACPI_REGION_OP_ATTACH || op == UACPI_REGION_OP_DETACH) + return UACPI_STATUS_OK; + CHECK_VALUE(op, UACPI_REGION_OP_IPMI_COMMAND); + + CHECK_VALUE(ipmi->in_out_message.length, 66); + + command = ipmi->in_out_message.const_text; + if (!strcmp(command, "IPMICommandDEADBEE0")) + response = 0xDEADBEE0; + else if (!strcmp(command, "IPMICommandDEADBEEF")) + response = 0xDEADBEEF; + else + error("invalid IPMI command %s", command); + + CHECK_VALUE(ipmi->command, response); + + memcpy(ipmi->in_out_message.data, &response, sizeof(response)); + return UACPI_STATUS_OK; +} + +static uacpi_status gpio_handler(uacpi_region_op op, uacpi_handle op_data) +{ + uacpi_region_gpio_rw_data *rw_data = op_data; + uacpi_resource *res; + uacpi_status ret; + uacpi_resource_gpio_connection *gpio; + uacpi_namespace_node *gpio_node; + uacpi_u64 bit_offset; + uacpi_u64 *state; + uacpi_u64 i; + + switch (op) { + case UACPI_REGION_OP_ATTACH: { + uacpi_region_attach_data *att_data = op_data; + + CHECK_VALUE(att_data->gpio_info.num_pins, 6); + att_data->out_region_context = do_calloc(1, sizeof(uint64_t)); + return UACPI_STATUS_OK; + } + case UACPI_REGION_OP_DETACH: { + uacpi_region_detach_data *det_data = op_data; + + free(det_data->region_context); + return UACPI_STATUS_OK; + } + default: + break; + } + + ret = uacpi_get_resource_from_buffer(rw_data->connection, &res); + ensure_ok_status(ret); + + CHECK_VALUE(res->type, UACPI_RESOURCE_TYPE_GPIO_CONNECTION); + gpio = &res->gpio_connection; + + ret = uacpi_namespace_node_find(NULL, gpio->source.string, &gpio_node); + ensure_ok_status(ret); + + ret = uacpi_eval_simple_integer(gpio_node, "_UID", &bit_offset); + ensure_ok_status(ret); + + bit_offset *= 16; + state = rw_data->region_context; + + if (rw_data->num_pins == 0 || rw_data->num_pins > 3) + error("bogus number of pins %d", rw_data->num_pins); + + if (op == UACPI_REGION_OP_GPIO_READ) + rw_data->value = 0; + + for (i = 0; i < rw_data->num_pins; ++i) { + uint64_t abs_pin = i + rw_data->pin_offset; + bool value; + + if (op == UACPI_REGION_OP_GPIO_READ) { + value = (*state >> bit_offset) & (1ull << abs_pin); + + if (value) + rw_data->value |= (1ull << i); + } else { + unsigned long long mask = 1ull << abs_pin; + + CHECK_VALUE(op, UACPI_REGION_OP_GPIO_WRITE); + value = rw_data->value & (1ull << i); + + if (value) + *state |= mask; + else + *state &= ~mask; + } + } + + uacpi_free_resource(res); + return UACPI_STATUS_OK; +} + +static uacpi_status pcc_handler(uacpi_region_op op, uacpi_handle op_data) +{ + uacpi_region_pcc_send_data *rw_data = op_data; + uint32_t x; + + if (op == UACPI_REGION_OP_ATTACH) { + uacpi_region_attach_data *att_data = op_data; + + CHECK_VALUE(att_data->pcc_info.buffer.length, 0xFF); + CHECK_VALUE(att_data->pcc_info.subspace_id, 0xCA) + + att_data->out_region_context = att_data->pcc_info.buffer.data; + return UACPI_STATUS_OK; + } + + if (op == UACPI_REGION_OP_DETACH) + return UACPI_STATUS_OK; + CHECK_VALUE(op, UACPI_REGION_OP_PCC_SEND); + + CHECK_VALUE(rw_data->buffer.data, rw_data->region_context); + CHECK_STRING(rw_data->buffer.const_text, "HELLO"); + + memcpy(&x, rw_data->buffer.bytes + 12, sizeof(x)); + CHECK_VALUE(x, 0xDEADBEEF); + + x = 0xBEEFDEAD; + memcpy(rw_data->buffer.bytes + 12, &x, sizeof(x)); + + return UACPI_STATUS_OK; +} + +static uacpi_status prm_handler(uacpi_region_op op, uacpi_handle op_data) +{ + static const char response[] = "goodbyeworld"; + uacpi_region_prm_rw_data *rw_data = op_data; + + if (op == UACPI_REGION_OP_ATTACH || op == UACPI_REGION_OP_DETACH) + return UACPI_STATUS_OK; + CHECK_VALUE(op, UACPI_REGION_OP_PRM_COMMAND); + + CHECK_VALUE(rw_data->in_out_message.length, 26); + CHECK_STRING(rw_data->in_out_message.const_text, "helloworld"); + + memcpy(rw_data->in_out_message.text, response, sizeof(response)); + + return UACPI_STATUS_OK; +} + +static uacpi_status ffixedhw_handler(uacpi_region_op op, uacpi_handle op_data) +{ + static const char response[] = "ok"; + uacpi_region_ffixedhw_rw_data *rw_data = op_data; + + if (op == UACPI_REGION_OP_ATTACH) { + uacpi_region_attach_data *att_data = op_data; + + CHECK_VALUE(att_data->generic_info.base, 0xCAFEBABE); + CHECK_VALUE(att_data->generic_info.length, 0xFEFECACA) + return UACPI_STATUS_OK; + } + + if (op == UACPI_REGION_OP_DETACH) + return UACPI_STATUS_OK; + CHECK_VALUE(op, UACPI_REGION_OP_FFIXEDHW_COMMAND); + + CHECK_VALUE(rw_data->in_out_message.length, 256); + CHECK_STRING(rw_data->in_out_message.const_text, "someguidandstuff"); + + memcpy(rw_data->in_out_message.text, "ok", sizeof(response)); + + return UACPI_STATUS_OK; +} + +static uacpi_status generic_serial_bus_handler( + uacpi_region_op op, uacpi_handle op_data +) +{ + uacpi_region_serial_rw_data *rw_data = op_data; + uacpi_resource *res; + uacpi_status ret; + uacpi_resource_i2c_connection *gpio; + uacpi_namespace_node *i2c_node; + uacpi_u64 i2c_offset; + uacpi_u16 response; + + if (op == UACPI_REGION_OP_ATTACH || op == UACPI_REGION_OP_DETACH) + return UACPI_STATUS_OK; + CHECK_VALUE( + true, (op == UACPI_REGION_OP_SERIAL_READ || + op == UACPI_REGION_OP_SERIAL_WRITE) + ); + + ret = uacpi_get_resource_from_buffer(rw_data->connection, &res); + ensure_ok_status(ret); + + CHECK_VALUE(res->type, UACPI_RESOURCE_TYPE_SERIAL_I2C_CONNECTION); + gpio = &res->i2c_connection; + + ret = uacpi_namespace_node_find( + NULL, gpio->common.source.string, &i2c_node + ); + ensure_ok_status(ret); + + ret = uacpi_eval_simple_integer(i2c_node, "_UID", &i2c_offset); + ensure_ok_status(ret); + + switch ((int)rw_data->command) { + case 0x111: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_WRITE); + CHECK_VALUE(i2c_offset, 0); + CHECK_VALUE(rw_data->in_out_buffer.length, 2); + CHECK_VALUE(rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_QUICK); + break; + case 0x121: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_WRITE); + CHECK_VALUE(i2c_offset, 0); + CHECK_VALUE(rw_data->in_out_buffer.length, 3); + CHECK_VALUE( + rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_SEND_RECEIVE + ); + break; + case 0x122: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_WRITE); + CHECK_VALUE(i2c_offset, 0); + CHECK_VALUE(rw_data->in_out_buffer.length, 3); + CHECK_VALUE(rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_BYTE); + break; + case 0x124: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_READ); + CHECK_VALUE(i2c_offset, 0); + CHECK_VALUE(rw_data->in_out_buffer.length, 4); + CHECK_VALUE(rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_WORD); + break; + case 0x128: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_READ); + CHECK_VALUE(i2c_offset, 0); + CHECK_VALUE(rw_data->in_out_buffer.length, 257); + CHECK_VALUE(rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_BLOCK); + break; + case 0x228: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_WRITE); + CHECK_VALUE(i2c_offset, 0); + CHECK_VALUE(rw_data->in_out_buffer.length, 4); + CHECK_VALUE( + rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_PROCESS_CALL + ); + break; + case 0x229: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_READ); + CHECK_VALUE(i2c_offset, 0); + CHECK_VALUE(rw_data->in_out_buffer.length, 257); + CHECK_VALUE( + rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_BLOCK_PROCESS_CALL + ); + break; + case 0x23B: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_WRITE); + CHECK_VALUE(i2c_offset, 1); + CHECK_VALUE(rw_data->in_out_buffer.length, 17); + CHECK_VALUE(rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_BYTES); + CHECK_VALUE(rw_data->access_length, 15); + break; + case 0x23C: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_READ); + CHECK_VALUE(i2c_offset, 1); + CHECK_VALUE(rw_data->in_out_buffer.length, 257); + CHECK_VALUE( + rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_RAW_BYTES + ); + CHECK_VALUE(rw_data->access_length, 255); + break; + case 0x23D: + CHECK_VALUE(op, UACPI_REGION_OP_SERIAL_READ); + CHECK_VALUE(i2c_offset, 1); + CHECK_VALUE(rw_data->in_out_buffer.length, 257); + CHECK_VALUE( + rw_data->access_attribute, UACPI_ACCESS_ATTRIBUTE_RAW_PROCESS_BYTES + ); + CHECK_VALUE(rw_data->access_length, 123); + break; + default: + error("bad serial command %" PRIu64, rw_data->command); + } + + if (op == UACPI_REGION_OP_SERIAL_WRITE) { + uacpi_u16 value; + + memcpy(&value, rw_data->in_out_buffer.const_bytes, sizeof(value)); + CHECK_VALUE(value, rw_data->command); + } + + response = rw_data->command + 1; + memcpy(rw_data->in_out_buffer.bytes, &response, sizeof(response)); + + uacpi_free_resource(res); + return UACPI_STATUS_OK; +} + +void test_address_spaces(void) +{ + uacpi_status st; + uacpi_object *arg; + + arg = uacpi_object_create_integer(0); + + st = uacpi_install_address_space_handler( + uacpi_namespace_root(), UACPI_ADDRESS_SPACE_IPMI, ipmi_handler, NULL + ); + ensure_ok_status(st); + eval_one(arg, UACPI_ADDRESS_SPACE_IPMI); + + st = uacpi_install_address_space_handler( + uacpi_namespace_root(), UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO, + gpio_handler, NULL + ); + ensure_ok_status(st); + eval_one(arg, UACPI_ADDRESS_SPACE_GENERAL_PURPOSE_IO); + + st = uacpi_install_address_space_handler( + uacpi_namespace_root(), UACPI_ADDRESS_SPACE_PCC, pcc_handler, NULL + ); + ensure_ok_status(st); + eval_one(arg, UACPI_ADDRESS_SPACE_PCC); + + st = uacpi_install_address_space_handler( + uacpi_namespace_root(), UACPI_ADDRESS_SPACE_PRM, prm_handler, NULL + ); + ensure_ok_status(st); + eval_one(arg, UACPI_ADDRESS_SPACE_PRM); + + st = uacpi_install_address_space_handler( + uacpi_namespace_root(), UACPI_ADDRESS_SPACE_FFIXEDHW, ffixedhw_handler, + NULL + ); + ensure_ok_status(st); + eval_one(arg, UACPI_ADDRESS_SPACE_FFIXEDHW); + + st = uacpi_install_address_space_handler( + uacpi_namespace_root(), UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS, + generic_serial_bus_handler, NULL + ); + ensure_ok_status(st); + eval_one(arg, UACPI_ADDRESS_SPACE_GENERIC_SERIAL_BUS); + + uacpi_object_unref(arg); +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/argparser.h b/kernel/hal/x86_64/uACPI/tests/runner/argparser.h new file mode 100644 index 0000000..a992d6a --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/argparser.h @@ -0,0 +1,219 @@ +#pragma once + +#include "helpers.h" +#include +#include + +typedef enum { + ARG_FLAG, + ARG_PARAM, + ARG_LIST, + ARG_HELP, + ARG_POSITIONAL, +} arg_type_t; + +typedef struct { + const char *as_full; + char as_short; + arg_type_t type; + const char *description; + bool is_optional; + bool parsed; + vector_t values; +} arg_spec_t; + +#define ARG_POS(name, desc) \ + { \ + .as_full = name, \ + .type = ARG_POSITIONAL, \ + .description = desc, \ + } +#define ARG_LIST(name, short, desc) \ + { \ + .as_full = name, \ + .as_short = short, \ + .type = ARG_LIST, \ + .description = desc, \ + .is_optional = true, \ + } +#define ARG_FLAG(name, short, desc) \ + { \ + .as_full = name, \ + .as_short = short, \ + .type = ARG_FLAG, \ + .description = desc, \ + .is_optional = true, \ + } +#define ARG_PARAM(name, short, desc) \ + { \ + .as_full = name, \ + .as_short = short, \ + .type = ARG_PARAM, \ + .description = desc, \ + .is_optional = true, \ + } +#define ARG_HELP(name, short, desc) \ + { \ + .as_full = name, \ + .as_short = short, \ + .type = ARG_HELP, \ + .description = desc, \ + .is_optional = true, \ + } + +typedef struct { + arg_spec_t *const *positional_args; + size_t num_positional_args; + arg_spec_t *const *option_args; + size_t num_option_args; +} arg_parser_t; + +static inline void print_help(const arg_parser_t *parser) +{ + size_t i; + + printf("uACPI test runner:\n"); + + for (i = 0; i < parser->num_positional_args; i++) + printf( + " [%s] %s\n", parser->positional_args[i]->as_full, + parser->positional_args[i]->description + ); + + for (i = 0; i < parser->num_option_args; i++) + printf( + "%s [--%s/-%c] %s\n", + parser->option_args[i]->is_optional ? "(optional)" : " ", + parser->option_args[i]->as_full, + parser->option_args[i]->as_short, + parser->option_args[i]->description + ); +} + +static inline bool is_arg(const char *arg) +{ + size_t length = strlen(arg); + + switch (length) { + case 0: + case 1: + return false; + case 2: + return arg[0] == '-'; + default: + return arg[0] == '-' && arg[1] == '-'; + } +} + +static inline void parse_args( + const arg_parser_t *parser, int argc, char *argv[] +) +{ + size_t num_args = argc; + arg_spec_t *active_spec = NULL; + size_t arg_index; + + if (num_args < 2) { + print_help(parser); + exit(1); + } + + if (parser->num_positional_args) { + if ((num_args - 1) < parser->num_positional_args) + error( + "expected at least %zu positional arguments", + parser->num_positional_args + ); + + for (arg_index = 0; arg_index < parser->num_positional_args; + ++arg_index) + vector_add( + &parser->positional_args[arg_index]->values, + argv[1 + arg_index], 0 + ); + } + + for (arg_index = 1 + parser->num_positional_args; arg_index < num_args; + ++arg_index) { + char *current_arg = argv[arg_index]; + bool is_new_arg = is_arg(current_arg); + arg_spec_t *new_spec = NULL; + size_t length; + + if (active_spec) { + if (!is_new_arg) { + if (active_spec->type == ARG_FLAG) + error("unexpected argument %s", current_arg); + + if (active_spec->type == ARG_PARAM && + active_spec->values.count == 1) + error("too many arguments for %s", active_spec->as_full); + + vector_add(&active_spec->values, current_arg, 0); + continue; + } + + if ((active_spec->type == ARG_PARAM || + active_spec->type == ARG_LIST) && + active_spec->values.count == 0) + error("expected an argument for %s", active_spec->as_full); + } + + length = strlen(current_arg); + + if (length >= 2) { + size_t i; + + for (i = 0; i < parser->num_option_args; i++) { + arg_spec_t *spec = parser->option_args[i]; + + if (length == 2 && spec->as_short == current_arg[1]) { + new_spec = spec; + break; + } else if (strcmp(spec->as_full, ¤t_arg[2]) == 0) { + new_spec = spec; + break; + } + } + } + + if (new_spec == NULL) + error("unexpected argument %s", current_arg); + + active_spec = new_spec; + if (active_spec->type == ARG_HELP) { + print_help(parser); + exit(1); + } + + active_spec->parsed = true; + } +} + +static inline bool is_set(const arg_spec_t *spec) +{ + return spec->parsed; +} + +static inline const char *get(const arg_spec_t *spec) +{ + if (spec->values.count == 0) + error("no argument provided for %s", spec->as_full); + + return spec->values.blobs[0].data; +} + +static inline uint64_t get_uint(const arg_spec_t *spec) +{ + return strtoull(get(spec), NULL, 10); +} + +static inline uint64_t get_uint_or( + const arg_spec_t *spec, uint64_t default_value +) +{ + if (is_set(spec)) + return get_uint(spec); + + return default_value; +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/barebones_runner.c b/kernel/hal/x86_64/uACPI/tests/runner/barebones_runner.c new file mode 100644 index 0000000..e500dbe --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/barebones_runner.c @@ -0,0 +1,170 @@ +#include "argparser.h" +#include "helpers.h" +#include +#include +#include +#include +#include +#include + +void uacpi_kernel_log(enum uacpi_log_level lvl, const char *text) +{ + printf("[%s] %s", uacpi_log_level_to_string(lvl), text); +} + +void *uacpi_kernel_map(uacpi_phys_addr addr, uacpi_size len) +{ + UACPI_UNUSED(len); + + return (void*)((uintptr_t)addr); +} + +void uacpi_kernel_unmap(void *ptr, uacpi_size len) +{ + UACPI_UNUSED(ptr); + UACPI_UNUSED(len); +} + +uacpi_phys_addr g_rsdp; + +uacpi_status uacpi_kernel_get_rsdp(uacpi_phys_addr *out_addr) +{ + *out_addr = g_rsdp; + return UACPI_STATUS_OK; +} + +static uint8_t test_dsdt[] = { + 0x53, 0x53, 0x44, 0x54, 0x35, 0x00, 0x00, 0x00, + 0x01, 0xa1, 0x75, 0x54, 0x45, 0x53, 0x54, 0x00, + 0x4f, 0x56, 0x45, 0x52, 0x52, 0x49, 0x44, 0x45, + 0xf0, 0xf0, 0xf0, 0xf0, 0x49, 0x4e, 0x54, 0x4c, + 0x25, 0x09, 0x20, 0x20, 0x08, 0x56, 0x41, 0x4c, + 0x5f, 0x0d, 0x54, 0x65, 0x73, 0x74, 0x52, 0x75, + 0x6e, 0x6e, 0x65, 0x72, 0x00 +}; + +static uint8_t test_mcfg[] = { + 0x4d, 0x43, 0x46, 0x47, 0x3c, 0x00, 0x00, 0x00, + 0x01, 0x39, 0x48, 0x50, 0x51, 0x4f, 0x45, 0x4d, + 0x38, 0x35, 0x34, 0x39, 0x20, 0x20, 0x20, 0x20, + 0x01, 0x00, 0x00, 0x00, 0x48, 0x50, 0x20, 0x20, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7f, + 0x00, 0x00, 0x00, 0x00 +}; + +static void ensure_signature_is(const char *signature, uacpi_table tbl) +{ + if (strncmp(tbl.hdr->signature, signature, 4) == 0) + return; + + error( + "incorrect table signature: expected %s got %.4s\n", signature, + tbl.hdr->signature + ); +} + +static void find_one_table(const char *signature) +{ + uacpi_table tbl; + uacpi_status st; + + st = uacpi_table_find_by_signature(signature, &tbl); + ensure_ok_status(st); + + ensure_signature_is(signature, tbl); + + printf("%4.4s OK\n", signature); + uacpi_table_unref(&tbl); +} + +static void test_basic_operation(void) +{ + find_one_table(ACPI_FADT_SIGNATURE); + find_one_table(ACPI_DSDT_SIGNATURE); +} + +static void test_table_installation(void) +{ + uacpi_status st; + uacpi_table tbl; + + st = uacpi_table_install(test_mcfg, &tbl); + ensure_ok_status(st); + ensure_signature_is(ACPI_MCFG_SIGNATURE, tbl); + uacpi_table_unref(&tbl); + + find_one_table(ACPI_MCFG_SIGNATURE); + + st = uacpi_table_install_physical( + (uacpi_phys_addr)((uintptr_t)test_mcfg), &tbl + ); + ensure_ok_status(st); + ensure_signature_is(ACPI_MCFG_SIGNATURE, tbl); + uacpi_table_unref(&tbl); +} + +static struct { + const char *name; + void (*func)(void); +} test_cases[] = { + { "basic-operation", test_basic_operation }, + { "table-installation", test_table_installation }, +}; + +static arg_spec_t TEST_CASE_ARG = ARG_POS("test-case", "name of the test case"); + +static arg_spec_t HELP_ARG = ARG_HELP( + "help", 'h', "Display this menu and exit" +); + +static arg_spec_t *const POSITIONAL_ARGS[] = { + &TEST_CASE_ARG, +}; + +static arg_spec_t *const OPTION_ARGS[] = { + &HELP_ARG, +}; + +static const arg_parser_t PARSER = { + .positional_args = POSITIONAL_ARGS, + .num_positional_args = UACPI_ARRAY_SIZE(POSITIONAL_ARGS), + .option_args = OPTION_ARGS, + .num_option_args = UACPI_ARRAY_SIZE(OPTION_ARGS), +}; + +int main(int argc, char *argv[]) +{ + static uint8_t early_table_buf[4096]; + struct acpi_rsdp rsdp = { 0 }; + struct full_xsdt *xsdt; + uacpi_status st; + const char *test_case; + size_t i; + + parse_args(&PARSER, argc, argv); + + xsdt = make_xsdt_blob(&rsdp, test_dsdt, sizeof(test_dsdt)); + + g_rsdp = (uacpi_phys_addr)((uintptr_t)&rsdp); + + st = uacpi_setup_early_table_access( + early_table_buf, sizeof(early_table_buf) + ); + ensure_ok_status(st); + + test_case = get(&TEST_CASE_ARG); + + for (i = 0; i < UACPI_ARRAY_SIZE(test_cases); i++) { + if (strcmp(test_case, test_cases[i].name) == 0) { + test_cases[i].func(); + uacpi_state_reset(); + delete_xsdt(xsdt, 0); + return 0; + } + } + + error("unknown test case '%s'", test_case); + return 1; +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/helpers.c b/kernel/hal/x86_64/uACPI/tests/runner/helpers.c new file mode 100644 index 0000000..f19403d --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/helpers.c @@ -0,0 +1,237 @@ +#include "helpers.h" +#include +#include +#include +#include +#include + +static uacpi_u8 gen_checksum(void *table, uacpi_size size) +{ + uacpi_u8 *bytes = table; + uacpi_u8 csum = 0; + uacpi_size i; + + for (i = 0; i < size; ++i) + csum += bytes[i]; + + return 256 - csum; +} + +void set_oem(char (*oemid)[6]) +{ + memcpy(oemid, "uOEMID", sizeof(*oemid)); +} + +void set_oem_table_id(char (*oemid_table_id)[8]) +{ + memcpy(oemid_table_id, "uTESTTBL", sizeof(*oemid_table_id)); +} + +static void get_table_path(blob_t *item, const char *path) +{ + *item = read_entire_file(path, sizeof(struct acpi_sdt_hdr)); +} + +static void get_table_blob(blob_t *item, const void *data, size_t size) +{ + item->data = do_malloc(size); + item->size = size; + memcpy(item->data, data, size); +} + +static struct full_xsdt *do_make_xsdt( + struct acpi_rsdp *rsdp, const blob_t *tables, size_t num_tables +) +{ + size_t xsdt_bytes = sizeof(struct full_xsdt); + struct full_xsdt *xsdt; + size_t i; + struct acpi_fadt *fadt; + struct acpi_facs *facs; + struct acpi_sdt_hdr *dsdt; + + memcpy( + &rsdp->signature, ACPI_RSDP_SIGNATURE, + sizeof(ACPI_RSDP_SIGNATURE) - 1 + ); + set_oem(&rsdp->oemid); + + xsdt_bytes += (num_tables - 1) * sizeof(struct acpi_sdt_hdr*); + + xsdt = do_calloc(xsdt_bytes, 1); + + set_oem(&xsdt->hdr.oemid); + set_oem_table_id(&xsdt->hdr.oem_table_id); + + for (i = 0; i < num_tables; ++i) { + struct acpi_sdt_hdr *hdr = tables[i].data; + char *signature = ACPI_DSDT_SIGNATURE; + + if (hdr->length > tables[i].size) + error("invalid table %zu size", i); + + if (i > 0) { + signature = ACPI_SSDT_SIGNATURE; + xsdt->ssdts[i - 1] = hdr; + } + + memcpy(hdr, signature, sizeof(uacpi_object_name)); + + hdr->checksum = 0; + hdr->checksum = gen_checksum(hdr, hdr->length); + } + + fadt = do_calloc(1, sizeof(*fadt)); + set_oem(&fadt->hdr.oemid); + set_oem_table_id(&fadt->hdr.oem_table_id); + + fadt->hdr.length = sizeof(*fadt); + fadt->hdr.revision = 6; + + fadt->pm1a_cnt_blk = 0xFFEE; + fadt->pm1_cnt_len = 2; + + fadt->pm1a_evt_blk = 0xDEAD; + fadt->pm1_evt_len = 4; + + fadt->pm2_cnt_blk = 0xCCDD; + fadt->pm2_cnt_len = 1; + + fadt->gpe0_blk_len = 0x20; + fadt->gpe0_blk = 0xDEAD; + + fadt->gpe1_base = 128; + fadt->gpe1_blk = 0xBEEF; + fadt->gpe1_blk_len = 0x20; + + fadt->x_dsdt = (uacpi_phys_addr)((uintptr_t)tables[0].data); + memcpy( + fadt->hdr.signature, ACPI_FADT_SIGNATURE, + sizeof(ACPI_FADT_SIGNATURE) - 1 + ); + + facs = do_calloc(1, sizeof(*facs)); + facs->length = sizeof(*facs); + memcpy( + facs->signature, ACPI_FACS_SIGNATURE, + sizeof(ACPI_FACS_SIGNATURE) - 1 + ); + + fadt->x_firmware_ctrl = (uintptr_t)facs; + + fadt->hdr.checksum = gen_checksum(fadt, sizeof(*fadt)); + + xsdt->fadt = fadt; + xsdt->hdr.length = sizeof(*xsdt) + + sizeof(struct acpi_sdt_hdr*) * (num_tables - 1); + + dsdt = tables[0].data; + xsdt->hdr.revision = dsdt->revision; + memcpy(xsdt->hdr.oemid, dsdt->oemid, sizeof(dsdt->oemid)); + xsdt->hdr.oem_revision = dsdt->oem_revision; + + if (sizeof(void*) == 4) { + memcpy( + xsdt->hdr.signature, ACPI_RSDT_SIGNATURE, + sizeof(ACPI_XSDT_SIGNATURE) - 1 + ); + + rsdp->rsdt_addr = (size_t)xsdt; + rsdp->revision = 1; + rsdp->checksum = gen_checksum(rsdp, offsetof(struct acpi_rsdp, length)); + } else { + memcpy( + xsdt->hdr.signature, ACPI_XSDT_SIGNATURE, + sizeof(ACPI_XSDT_SIGNATURE) - 1 + ); + + rsdp->xsdt_addr = (size_t)xsdt; + rsdp->length = sizeof(*rsdp); + rsdp->revision = 2; + rsdp->checksum = gen_checksum(rsdp, offsetof(struct acpi_rsdp, length)); + rsdp->extended_checksum = gen_checksum(rsdp, sizeof(*rsdp)); + } + xsdt->hdr.checksum = gen_checksum(xsdt, xsdt->hdr.length); + + return xsdt; +} + +struct full_xsdt *make_xsdt( + struct acpi_rsdp *rsdp, const char *dsdt_path, const vector_t *ssdts +) +{ + vector_t tables; + size_t i; + struct full_xsdt *xsdt; + + vector_init(&tables, ssdts->count + 1); + + get_table_path(&tables.blobs[0], dsdt_path); + + for (i = 0; i < ssdts->count; ++i) + get_table_path(&tables.blobs[1 + i], ssdts->blobs[i].data); + + xsdt = do_make_xsdt(rsdp, tables.blobs, tables.count); + vector_cleanup(&tables); + return xsdt; +} + +struct full_xsdt *make_xsdt_blob( + struct acpi_rsdp *rsdp, const void *dsdt, size_t dsdt_size +) +{ + blob_t blob; + + get_table_blob(&blob, dsdt, dsdt_size); + return do_make_xsdt(rsdp, &blob, 1); +} + +void delete_xsdt(struct full_xsdt *xsdt, size_t num_tables) +{ + size_t i; + + if (xsdt->fadt) { + free((void*)((uintptr_t)xsdt->fadt->x_dsdt)); + free((struct acpi_facs*)((uintptr_t)xsdt->fadt->x_firmware_ctrl)); + free(xsdt->fadt); + } + + for (i = 0; i < num_tables; i++) + free(xsdt->ssdts[i]); + + free(xsdt); +} + +blob_t read_entire_file(const char *path, size_t min_size) +{ + FILE *file = fopen(path, "rb"); + long size; + void *buf; + blob_t blob = { 0 }; + + if (!file) + error("failed to open file %s", path); + + if (fseek(file, 0, SEEK_END)) + error("failed to seek file %s", path); + + size = ftell(file); + if (size < 0) + error("failed to get size of file %s", path); + if (size < (long)min_size) + error("file %s is too small", path); + if (fseek(file, 0, SEEK_SET)) + error("failed to seek file %s", path); + + buf = do_malloc(size); + + if (fread(buf, size, 1, file) != 1) + error("failed to read from %s", path); + + if (fclose(file)) + error("failed to close file %s", path); + + blob.data = buf; + blob.size = size; + return blob; +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/helpers.h b/kernel/hal/x86_64/uACPI/tests/runner/helpers.h new file mode 100644 index 0000000..c4a4ad2 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/helpers.h @@ -0,0 +1,294 @@ +#pragma once + +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#ifdef __GNUC__ +#define NORETURN __attribute__((__noreturn__)) +#else +#define NORETURN +#endif + +NORETURN static inline void error(const char *format, ...) +{ + va_list args; + + fprintf(stderr, "unexpected error: "); + va_start(args, format); + vfprintf(stderr, format, args); + va_end(args); + fputc('\n', stderr); + uacpi_state_reset(); + exit(1); +} + +static inline void *do_malloc(size_t size) +{ + void *ptr = malloc(size); + + if (!ptr) + error("failed to allocate %zu bytes of memory", size); + return ptr; +} + +static inline void *do_calloc(size_t nmemb, size_t size) +{ + void *ptr = calloc(nmemb, size); + + if (!ptr) + error("failed to allocate %zu bytes of memory", nmemb * size); + return ptr; +} + +static inline void *do_realloc(void *ptr, size_t size) +{ + ptr = realloc(ptr, size); + + if (!ptr) + error("failed to allocate %zu bytes of memory", size); + return ptr; +} + +typedef struct { + void *data; + size_t size; +} blob_t; + +typedef struct { + blob_t *blobs; + size_t capacity; + size_t count; +} vector_t; + +static inline void vector_init(vector_t *vector, size_t items) +{ + vector->blobs = do_calloc(items, sizeof(*vector->blobs)); + vector->capacity = items; + vector->count = items; +} + +static inline void vector_add(vector_t *vector, void *data, size_t size) +{ + if (vector->count >= vector->capacity) { + vector->capacity = vector->capacity ? vector->capacity * 2 : 8; + vector->blobs = do_realloc( + vector->blobs, vector->capacity * sizeof(*vector->blobs) + ); + } + + vector->blobs[vector->count].data = data; + vector->blobs[vector->count].size = size; + vector->count += 1; +} + +static inline void vector_cleanup(vector_t *vector) +{ + free(vector->blobs); + vector->capacity = 0; + vector->count = 0; +} + +static inline void *get_container(void *value, size_t offset) +{ + return value ? (void*)((char*)value - offset) : NULL; +} + +#define CONTAINER(type, field, value) \ + ((type*)get_container((value), offsetof(type, field))) + +typedef struct hash_node { + struct hash_node *prev; + struct hash_node *next; + uint64_t key; +} hash_node_t; + +typedef struct { + hash_node_t **entries; + size_t capacity; + size_t count; +} hash_table_t; + +static inline uint64_t make_hash(uint64_t x) +{ + x *= 0xe9770214b82cf957; + x ^= x >> 47; + x *= 0x2bdd9d20d060fc9b; + x ^= x >> 44; + x *= 0x65c487023b406173; + return x; +} + +static inline hash_node_t *hash_table_find(hash_table_t *table, uint64_t key) +{ + hash_node_t *current; + + if (!table->capacity) + return NULL; + + current = table->entries[make_hash(key) % table->capacity]; + + while (current != NULL && current->key != key) + current = current->next; + + return current; +} + +#define HASH_TABLE_FIND(table, key, type, field) \ + CONTAINER(type, field, hash_table_find((table), (key))) + +static inline hash_node_t *hash_table_get_or_add( + hash_table_t *table, uint64_t key, size_t size, size_t offset +) +{ + uint64_t hash = make_hash(key); + void *value; + hash_node_t *node; + size_t bucket; + + if (table->capacity) { + hash_node_t *current = table->entries[hash % table->capacity]; + + while (current != NULL) { + if (current->key == key) + return current; + current = current->next; + } + } + + if (table->count >= table->capacity - (table->capacity / 4)) { + size_t new_cap = table->capacity ? table->capacity * 2 : 8; + hash_node_t **new_entries = do_calloc(new_cap, sizeof(*table->entries)); + size_t i; + + for (i = 0; i < table->capacity; i++) { + hash_node_t *current = table->entries[i]; + + while (current != NULL) { + hash_node_t *next = current->next; + size_t bucket = make_hash(current->key) % new_cap; + + current->prev = NULL; + current->next = new_entries[bucket]; + if (current->next) + current->next->prev = current; + new_entries[bucket] = current; + + current = next; + } + } + + free(table->entries); + table->entries = new_entries; + table->capacity = new_cap; + } + + value = do_calloc(1, size); + node = (void*)((char*)value + offset); + node->key = key; + + bucket = hash % table->capacity; + node->prev = NULL; + node->next = table->entries[bucket]; + if (node->next) + node->next->prev = node; + table->entries[bucket] = node; + + table->count += 1; + + return node; +} + +#define HASH_TABLE_GET_OR_ADD(table, key, type, field) \ + CONTAINER( \ + type, field, \ + hash_table_get_or_add( \ + (table), (key), sizeof(type), offsetof(type, field) \ + ) \ + ) + +static inline void hash_table_remove( + hash_table_t *table, hash_node_t *node, size_t offset +) +{ + if (node->prev) + node->prev->next = node->next; + else + table->entries[make_hash(node->key) % table->capacity] = node->next; + + if (node->next) + node->next->prev = node->prev; + + table->count -= 1; + free((void*)((char*)node - offset)); +} + +#define HASH_TABLE_REMOVE(table, value, type, field) \ + hash_table_remove((table), &(value)->field, offsetof(type, field)) + +static inline bool hash_table_empty(hash_table_t *table) +{ + return table->count == 0; +} + +static inline void hash_table_cleanup(hash_table_t *table) +{ + free(table->entries); + table->capacity = 0; + table->count = 0; +} + +extern bool g_expect_virtual_addresses; +extern uacpi_phys_addr g_rsdp; + +UACPI_PACKED(struct full_xsdt { + struct acpi_sdt_hdr hdr; + struct acpi_fadt *fadt; + struct acpi_sdt_hdr *ssdts[]; +}) + +void set_oem(char (*oemid)[6]); +void set_oem_table_id(char (*oemid_table_id)[8]); + +struct full_xsdt *make_xsdt( + struct acpi_rsdp *rsdp, const char *dsdt_path, const vector_t *ssdt_paths +); +struct full_xsdt *make_xsdt_blob( + struct acpi_rsdp *rsdp, const void *dsdt, size_t dsdt_size +); +void delete_xsdt(struct full_xsdt *xsdt, size_t num_tables); + +blob_t read_entire_file(const char *path, size_t min_size); + +static inline void ensure_ok_status(uacpi_status st) +{ + if (st == UACPI_STATUS_OK) + return; + + error("uACPI error: %s", uacpi_status_to_string(st)); +} + +static inline const char *uacpi_log_level_to_string(uacpi_log_level lvl) +{ + switch (lvl) { + case UACPI_LOG_DEBUG: + return "DEBUG"; + case UACPI_LOG_TRACE: + return "TRACE"; + case UACPI_LOG_INFO: + return "INFO"; + case UACPI_LOG_WARN: + return "WARN"; + case UACPI_LOG_ERROR: + return "ERROR"; + default: + abort(); + return NULL; + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/interface_impl.c b/kernel/hal/x86_64/uACPI/tests/runner/interface_impl.c new file mode 100644 index 0000000..472d70b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/interface_impl.c @@ -0,0 +1,605 @@ +#include "helpers.h" +#include "os.h" +#include +#include +#include +#include +#include +#include +#include +#include +#include + +uacpi_phys_addr g_rsdp; + +uacpi_status uacpi_kernel_get_rsdp(uacpi_phys_addr *out_rsdp_address) +{ + *out_rsdp_address = g_rsdp; + return UACPI_STATUS_OK; +} + +static uint8_t *io_space; + +#ifdef UACPI_KERNEL_INITIALIZATION +uacpi_status uacpi_kernel_initialize(uacpi_init_level lvl) +{ + if (lvl == UACPI_INIT_LEVEL_EARLY) + io_space = do_malloc(UINT16_MAX + 1); + return UACPI_STATUS_OK; +} + +void uacpi_kernel_deinitialize(void) +{ + free(io_space); + io_space = NULL; +} +#endif + +uacpi_status uacpi_kernel_io_map( + uacpi_io_addr base, uacpi_size len, uacpi_handle *out_handle +) +{ + UACPI_UNUSED(len); + + *out_handle = (uacpi_handle)((uintptr_t)base); + return UACPI_STATUS_OK; +} + +void uacpi_kernel_io_unmap(uacpi_handle handle) +{ + UACPI_UNUSED(handle); +} + +#define UACPI_IO_READ(bits) \ + uacpi_status uacpi_kernel_io_read##bits( \ + uacpi_handle handle, uacpi_size offset, uacpi_u##bits *out_value \ + ) \ + { \ + uacpi_io_addr addr = (uacpi_io_addr)((uintptr_t)handle) + offset; \ + \ + if (io_space && addr <= UINT16_MAX) \ + memcpy(out_value, &io_space[addr], bits / 8); \ + else \ + *out_value = (uacpi_u##bits)0xFFFFFFFFFFFFFFFF; \ + \ + return UACPI_STATUS_OK; \ + } + +#define UACPI_IO_WRITE(bits) \ + uacpi_status uacpi_kernel_io_write##bits( \ + uacpi_handle handle, uacpi_size offset, uacpi_u##bits in_value \ + ) \ + { \ + uacpi_io_addr addr = (uacpi_io_addr)((uintptr_t)handle) + offset; \ + \ + if (io_space && addr <= UINT16_MAX) \ + memcpy(&io_space[addr], &in_value, bits / 8); \ + \ + return UACPI_STATUS_OK; \ + } + +#define UACPI_PCI_READ(bits) \ + uacpi_status uacpi_kernel_pci_read##bits( \ + uacpi_handle handle, uacpi_size offset, uacpi_u##bits *value \ + ) \ + { \ + UACPI_UNUSED(handle); \ + UACPI_UNUSED(offset); \ + \ + *value = (uacpi_u##bits)0xFFFFFFFFFFFFFFFF; \ + return UACPI_STATUS_OK; \ + } + +#define UACPI_PCI_WRITE(bits) \ + uacpi_status uacpi_kernel_pci_write##bits( \ + uacpi_handle handle, uacpi_size offset, uacpi_u##bits value \ + ) \ + { \ + UACPI_UNUSED(handle); \ + UACPI_UNUSED(offset); \ + UACPI_UNUSED(value); \ + \ + return UACPI_STATUS_OK; \ + } + +UACPI_IO_READ(8) +UACPI_IO_READ(16) +UACPI_IO_READ(32) + +UACPI_IO_WRITE(8) +UACPI_IO_WRITE(16) +UACPI_IO_WRITE(32) + +UACPI_PCI_READ(8) +UACPI_PCI_READ(16) +UACPI_PCI_READ(32) + +UACPI_PCI_WRITE(8) +UACPI_PCI_WRITE(16) +UACPI_PCI_WRITE(32) + +uacpi_status uacpi_kernel_pci_device_open( + uacpi_pci_address address, uacpi_handle *out_handle +) +{ + UACPI_UNUSED(address); + + *out_handle = NULL; + return UACPI_STATUS_OK; +} + +void uacpi_kernel_pci_device_close(uacpi_handle handle) +{ + UACPI_UNUSED(handle); +} + +bool g_expect_virtual_addresses = true; + +typedef struct { + hash_node_t node; + uint64_t phys; + size_t references; +} virt_location_t; + +typedef struct { + hash_node_t node; + void *virt; +} mapping_t; + +typedef struct { + hash_node_t node; + hash_table_t mappings; +} phys_location_t; + +static hash_table_t virt_locations; +static hash_table_t phys_locations; + +void *uacpi_kernel_map(uacpi_phys_addr addr, uacpi_size len) +{ + if (!g_expect_virtual_addresses) { + phys_location_t *phys_location = HASH_TABLE_FIND( + &phys_locations, addr, phys_location_t, node + ); + void *virt; + virt_location_t *location; + mapping_t *mapping; + + if (phys_location != NULL) { + mapping = HASH_TABLE_FIND( + &phys_location->mappings, len, mapping_t, node + ); + + if (mapping != NULL) { + location = HASH_TABLE_FIND( + &virt_locations, (uintptr_t)mapping->virt, virt_location_t, + node + ); + + location->references += 1; + return mapping->virt; + } + + printf( + "WARN: remapping physical 0x%016" PRIX64 " with size %zu\n", + addr, len + ); + } + + virt = do_calloc(len, 1); + + location = HASH_TABLE_GET_OR_ADD( + &virt_locations, (uintptr_t)virt, virt_location_t, node + ); + location->phys = addr; + location->references = 1; + + phys_location = HASH_TABLE_GET_OR_ADD( + &phys_locations, addr, phys_location_t, node + ); + mapping = HASH_TABLE_GET_OR_ADD( + &phys_location->mappings, len, mapping_t, node + ); + mapping->virt = virt; + + return virt; + } + + return (void*)((uintptr_t)addr); +} + +void uacpi_kernel_unmap(void *addr, uacpi_size len) +{ + virt_location_t *virt_location = HASH_TABLE_FIND( + &virt_locations, (uintptr_t)addr, virt_location_t, node + ); + phys_location_t *phys_location; + mapping_t *mapping; + + if (!virt_location) + return; + if (--virt_location->references > 0) + return; + + phys_location = HASH_TABLE_FIND( + &phys_locations, virt_location->phys, phys_location_t, node + ); + mapping = HASH_TABLE_FIND(&phys_location->mappings, len, mapping_t, node); + if (!mapping) { + printf( + "WARN: cannot identify mapping virt=%p phys=0x%016" PRIX64 " with " + "size %zu\n", addr, phys_location->node.key, len + ); + return; + } + + HASH_TABLE_REMOVE(&phys_location->mappings, mapping, mapping_t, node); + if (hash_table_empty(&phys_location->mappings)) { + hash_table_cleanup(&phys_location->mappings); + HASH_TABLE_REMOVE( + &phys_locations, phys_location, phys_location_t, node + ); + } + + free((void*)((uintptr_t)virt_location->node.key)); + HASH_TABLE_REMOVE(&virt_locations, virt_location, virt_location_t, node); +} + +void interface_cleanup(void) +{ + size_t i; + + for (i = 0; i < phys_locations.capacity; i++) { + phys_location_t *location = CONTAINER( + phys_location_t, node, phys_locations.entries[i] + ); + + while (location) { + hash_table_cleanup(&location->mappings); + location = CONTAINER(phys_location_t, node, location->node.next); + } + } + + hash_table_cleanup(&phys_locations); + hash_table_cleanup(&virt_locations); +} + +#ifdef UACPI_SIZED_FREES + +typedef struct { + hash_node_t node; + size_t size; +} allocation_t; + +static hash_table_t allocations; + +void *uacpi_kernel_alloc(uacpi_size size) +{ + void *ret; + allocation_t *allocation; + + if (size == 0) + abort(); + + ret = malloc(size); + if (ret == NULL) + return ret; + + allocation = HASH_TABLE_GET_OR_ADD( + &allocations, (uintptr_t)ret, allocation_t, node + ); + allocation->size = size; + return ret; +} + +void uacpi_kernel_free(void *mem, uacpi_size size_hint) +{ + allocation_t *allocation; + + if (mem == NULL) + return; + + allocation = HASH_TABLE_FIND( + &allocations, (uintptr_t)mem, allocation_t, node + ); + if (!allocation) + error("unable to find heap allocation %p\n", mem); + + if (allocation->size != size_hint) + error( + "invalid free size: originally allocated %zu bytes, freeing as %zu", + allocation->size, size_hint + ); + + HASH_TABLE_REMOVE(&allocations, allocation, allocation_t, node); + free(mem); +} + +#else + +void *uacpi_kernel_alloc(uacpi_size size) +{ + if (size == 0) + error("attempted to allocate zero bytes"); + + return malloc(size); +} + +void uacpi_kernel_free(void *mem) +{ + free(mem); +} + +#endif + +#ifdef UACPI_NATIVE_ALLOC_ZEROED + +void *uacpi_kernel_alloc_zeroed(uacpi_size size) +{ + void *ret = uacpi_kernel_alloc(size); + + if (ret == NULL) + return ret; + + memset(ret, 0, size); + return ret; +} + +#endif + +#ifdef UACPI_FORMATTED_LOGGING + +void uacpi_kernel_vlog( + uacpi_log_level level, const uacpi_char *format, va_list args +) +{ + printf("[uACPI][%s] ", uacpi_log_level_to_string(level)); + vprintf(format, args); +} + +void uacpi_kernel_log(uacpi_log_level level, const uacpi_char *format, ...) +{ + va_list args; + va_start(args, format); + + uacpi_kernel_vlog(level, format, args); + + va_end(args); +} + +#else + +void uacpi_kernel_log(uacpi_log_level level, const uacpi_char *str) +{ + printf("[uACPI][%s] %s", uacpi_log_level_to_string(level), str); +} + +#endif + +uacpi_u64 uacpi_kernel_get_nanoseconds_since_boot(void) +{ + return get_nanosecond_timer(); +} + +void uacpi_kernel_stall(uacpi_u8 usec) +{ + uint64_t end = get_nanosecond_timer() + (uint64_t)usec * 1000; + + for (;;) + if (get_nanosecond_timer() >= end) + break; +} + +void uacpi_kernel_sleep(uacpi_u64 msec) +{ + millisecond_sleep(msec); +} + +uacpi_handle uacpi_kernel_create_mutex(void) +{ + mutex_t *mutex = do_malloc(sizeof(*mutex)); + + mutex_init(mutex); + return mutex; +} + +void uacpi_kernel_free_mutex(uacpi_handle handle) +{ + mutex_free(handle); + free(handle); +} + +uacpi_thread_id uacpi_kernel_get_thread_id(void) +{ + return get_thread_id(); +} + +uacpi_status uacpi_kernel_acquire_mutex(uacpi_handle handle, uacpi_u16 timeout) +{ + if (timeout == 0) + return mutex_try_lock(handle) ? UACPI_STATUS_OK : UACPI_STATUS_TIMEOUT; + + if (timeout == 0xFFFF) { + mutex_lock(handle); + return UACPI_STATUS_OK; + } + + if (mutex_lock_timeout(handle, timeout * 1000000ull)) + return UACPI_STATUS_OK; + + return UACPI_STATUS_TIMEOUT; +} + +void uacpi_kernel_release_mutex(uacpi_handle handle) +{ + mutex_unlock(handle); +} + +typedef struct { + mutex_t mutex; + condvar_t condvar; + size_t counter; +} event_t; + +uacpi_handle uacpi_kernel_create_event(void) +{ + event_t *event = do_calloc(1, sizeof(*event)); + + mutex_init(&event->mutex); + condvar_init(&event->condvar); + return event; +} + +void uacpi_kernel_free_event(uacpi_handle handle) +{ + event_t *event = handle; + + condvar_free(&event->condvar); + mutex_free(&event->mutex); + free(handle); +} + +static bool event_pred(void *ptr) +{ + event_t *event = ptr; + + return event->counter != 0; +} + +uacpi_bool uacpi_kernel_wait_for_event(uacpi_handle handle, uacpi_u16 timeout) +{ + event_t *event = handle; + bool ok; + + mutex_lock(&event->mutex); + + if (event->counter > 0) { + event->counter -= 1; + mutex_unlock(&event->mutex); + return UACPI_TRUE; + } + + if (timeout == 0) { + mutex_unlock(&event->mutex); + return UACPI_FALSE; + } + + if (timeout == 0xFFFF) { + condvar_wait(&event->condvar, &event->mutex, event_pred, event); + + event->counter -= 1; + mutex_unlock(&event->mutex); + return UACPI_TRUE; + } + + ok = condvar_wait_timeout( + &event->condvar, &event->mutex, event_pred, event, timeout * 1000000ull + ); + if (ok) + event->counter -= 1; + + mutex_unlock(&event->mutex); + return ok ? UACPI_TRUE : UACPI_FALSE; +} + +void uacpi_kernel_signal_event(uacpi_handle handle) +{ + event_t *event = handle; + + mutex_lock(&event->mutex); + + event->counter += 1; + condvar_signal(&event->condvar); + + mutex_unlock(&event->mutex); +} + +void uacpi_kernel_reset_event(uacpi_handle handle) +{ + event_t *event = handle; + + mutex_lock(&event->mutex); + + event->counter = 0; + + mutex_unlock(&event->mutex); +} + +uacpi_status uacpi_kernel_handle_firmware_request(uacpi_firmware_request *req) +{ + switch (req->type) { + case UACPI_FIRMWARE_REQUEST_TYPE_BREAKPOINT: + printf("Ignoring breakpoint\n"); + break; + case UACPI_FIRMWARE_REQUEST_TYPE_FATAL: + printf( + "Fatal firmware error: type: %" PRIx8 " code: %" PRIx32 " arg: " + "%" PRIx64 "\n", req->fatal.type, req->fatal.code, req->fatal.arg + ); + break; + default: + error("unknown firmware request type %d", req->type); + } + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_kernel_install_interrupt_handler( + uacpi_u32 irq, uacpi_interrupt_handler handler, uacpi_handle ctx, + uacpi_handle *out_irq_handle +) +{ + UACPI_UNUSED(irq); + UACPI_UNUSED(handler); + UACPI_UNUSED(ctx); + UACPI_UNUSED(out_irq_handle); + + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_kernel_uninstall_interrupt_handler( + uacpi_interrupt_handler handler, uacpi_handle irq_handle +) +{ + UACPI_UNUSED(handler); + UACPI_UNUSED(irq_handle); + + return UACPI_STATUS_OK; +} + +uacpi_handle uacpi_kernel_create_spinlock(void) +{ + return uacpi_kernel_create_mutex(); +} + +void uacpi_kernel_free_spinlock(uacpi_handle handle) +{ + uacpi_kernel_free_mutex(handle); +} + +uacpi_cpu_flags uacpi_kernel_lock_spinlock(uacpi_handle handle) +{ + uacpi_kernel_acquire_mutex(handle, 0xFFFF); + return 0; +} + +void uacpi_kernel_unlock_spinlock(uacpi_handle handle, uacpi_cpu_flags flags) +{ + UACPI_UNUSED(flags); + + uacpi_kernel_release_mutex(handle); +} + +uacpi_status uacpi_kernel_schedule_work( + uacpi_work_type type, uacpi_work_handler handler, uacpi_handle ctx +) +{ + UACPI_UNUSED(type); + + handler(ctx); + return UACPI_STATUS_OK; +} + +uacpi_status uacpi_kernel_wait_for_work_completion(void) +{ + return UACPI_STATUS_OK; +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/os.h b/kernel/hal/x86_64/uACPI/tests/runner/os.h new file mode 100644 index 0000000..f77741c --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/os.h @@ -0,0 +1,290 @@ +#pragma once + +#include "helpers.h" +#include +#include + +#ifdef _WIN32 +#define WIN32_LEAN_AND_MEAN +#include +#else +#ifdef __WATCOMC__ +#include // provides gettid +#elif defined(__APPLE__) +#include +#endif +#include +#include +#include +#include +#endif + +#ifdef _WIN32 +typedef CRITICAL_SECTION mutex_t; +typedef CONDITION_VARIABLE condvar_t; +#define HAVE_TIMED_WAIT 0 +#else +typedef pthread_mutex_t mutex_t; +typedef pthread_cond_t condvar_t; + +#if defined(__WATCOMC__) || defined(__APPLE__) +#define HAVE_TIMED_WAIT 0 +#else +#define HAVE_TIMED_WAIT 1 +#endif +#endif + +#define NANOSECONDS_PER_SECOND 1000000000ull + +static inline uint64_t get_nanosecond_timer(void) +{ +#ifdef _WIN32 + static LARGE_INTEGER frequency; + LARGE_INTEGER counter; + + if (frequency.QuadPart == 0) + if (!QueryPerformanceFrequency(&frequency)) + error("QueryPerformanceFrequency failed"); + + if (!QueryPerformanceCounter(&counter)) + error("QueryPerformanceCounter failed"); + + counter.QuadPart *= NANOSECONDS_PER_SECOND; + return counter.QuadPart / frequency.QuadPart; +#elif defined(__APPLE__) + static struct mach_timebase_info tb; + static bool initialized; + + if (!initialized) { + if (mach_timebase_info(&tb) != KERN_SUCCESS) + error("mach_timebase_info failed"); + initialized = true; + } + + return (mach_absolute_time() * tb.numer) / tb.denom; +#else + struct timespec ts; + + if (clock_gettime(CLOCK_MONOTONIC, &ts)) + error("clock_gettime failed"); + + return ts.tv_sec * NANOSECONDS_PER_SECOND + ts.tv_nsec; +#endif +} + +static inline void *get_thread_id(void) +{ +#ifdef _WIN32 + return (void*)((uintptr_t)GetCurrentThreadId()); +#elif defined(__APPLE__) + uint64_t id; + + if (pthread_threadid_np(NULL, &id)) + error("pthread_threadid_np failed"); + return (void*)id; +#else + return (void*)((uintptr_t)gettid()); +#endif +} + +static inline void millisecond_sleep(uint64_t milliseconds) +{ +#ifdef _WIN32 + Sleep(milliseconds); +#else + if (usleep(milliseconds * 1000)) + error("usleep failed"); +#endif +} + +static inline void mutex_init(mutex_t *mutex) +{ +#ifdef _WIN32 + InitializeCriticalSection(mutex); +#else + if (pthread_mutex_init(mutex, NULL)) + error("pthread_mutex_init failed"); +#endif +} + +static inline void mutex_free(mutex_t *mutex) +{ +#ifdef _WIN32 + DeleteCriticalSection(mutex); +#else + if (pthread_mutex_destroy(mutex)) + error("pthread_mutex_destroy failed"); +#endif +} + +static inline bool mutex_try_lock(mutex_t *mutex) +{ +#ifdef _WIN32 + return TryEnterCriticalSection(mutex); +#else + int err = pthread_mutex_trylock(mutex); + + if (err == 0) + return true; + if (err != EBUSY) + error("pthread_mutex_trylock failed"); + return false; +#endif +} + +static inline void mutex_lock(mutex_t *mutex) +{ +#ifdef _WIN32 + EnterCriticalSection(mutex); +#else + if (pthread_mutex_lock(mutex)) + error("pthread_mutex_lock failed"); +#endif +} + +static inline bool mutex_lock_timeout(mutex_t *mutex, uint64_t timeout_ns) +{ +#if !HAVE_TIMED_WAIT + uint64_t end = get_nanosecond_timer() + timeout_ns; + + do { + if (mutex_try_lock(mutex)) + return true; + millisecond_sleep(1); + } while (get_nanosecond_timer() < end); + + return false; +#else + struct timespec spec; + int err; + + if (clock_gettime(CLOCK_MONOTONIC, &spec)) + error("clock_gettime failed"); + + spec.tv_nsec += timeout_ns; + spec.tv_sec += spec.tv_nsec / NANOSECONDS_PER_SECOND; + spec.tv_nsec %= NANOSECONDS_PER_SECOND; + + err = pthread_mutex_clocklock(mutex, CLOCK_MONOTONIC, &spec); + if (err == 0) + return true; + if (err != ETIMEDOUT) + error("pthread_mutex_clocklock failed"); + return false; +#endif +} + +static inline void mutex_unlock(mutex_t *mutex) +{ +#ifdef _WIN32 + LeaveCriticalSection(mutex); +#else + if (pthread_mutex_unlock(mutex)) + error("pthread_mutex_unlock failed"); +#endif +} + +static inline void condvar_init(condvar_t *var) +{ +#ifdef _WIN32 + InitializeConditionVariable(var); +#else + if (pthread_cond_init(var, NULL)) + error("pthread_cond_init failed"); +#endif +} + +static inline void condvar_free(condvar_t *var) +{ +#ifdef _WIN32 + UACPI_UNUSED(var); +#else + if (pthread_cond_destroy(var)) + error("pthread_cond_destroy failed"); +#endif +} + +typedef bool (*condvar_pred_t)(void *ctx); + +static inline void condvar_wait( + condvar_t *var, mutex_t *mutex, condvar_pred_t pred, void *ctx +) +{ + while (!pred(ctx)) +#ifdef _WIN32 + if (!SleepConditionVariableCS(var, mutex, INFINITE)) + error("SleepConditionVariableCS failed"); +#else + if (pthread_cond_wait(var, mutex)) + error("pthread_cond_wait failed"); +#endif +} + +static inline bool condvar_wait_timeout( + condvar_t *var, mutex_t *mutex, condvar_pred_t pred, void *ctx, + uint64_t timeout_ns +) +{ +#if !HAVE_TIMED_WAIT + uint64_t end = get_nanosecond_timer() + timeout_ns; + + while (!pred(ctx)) { + uint64_t cur = get_nanosecond_timer(); +#ifdef _WIN32 + DWORD milliseconds; +#endif + + if (cur >= end) + return false; + +#ifdef _WIN32 + milliseconds = (end - cur) / 1000; + if (milliseconds == 0) + milliseconds = 1; + + if (!SleepConditionVariableCS(var, mutex, milliseconds) && + GetLastError() != ERROR_TIMEOUT) { + error("SleepConditionVariableCS failed"); + } +#else + UACPI_UNUSED(var); + mutex_unlock(mutex); + millisecond_sleep(1); + mutex_lock(mutex); +#endif + } + + return true; +#else + struct timespec spec; + + if (clock_gettime(CLOCK_MONOTONIC, &spec)) + error("clock_gettime failed"); + + spec.tv_nsec += timeout_ns; + spec.tv_sec += spec.tv_nsec / NANOSECONDS_PER_SECOND; + spec.tv_nsec %= NANOSECONDS_PER_SECOND; + + while (!pred(ctx)) { + int err = pthread_cond_clockwait(var, mutex, CLOCK_MONOTONIC, &spec); + + if (err == 0) + continue; + if (err != ETIMEDOUT) + error("pthread_cond_clockwait failed"); + return false; + } + + return true; +#endif +} + +static inline void condvar_signal(condvar_t *var) +{ +#ifdef _WIN32 + WakeConditionVariable(var); +#else + if (pthread_cond_signal(var)) + error("pthread_cond_signal failed"); +#endif +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/resource_tests.c b/kernel/hal/x86_64/uACPI/tests/runner/resource_tests.c new file mode 100644 index 0000000..197a6d6 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/resource_tests.c @@ -0,0 +1,2476 @@ +#include "helpers.h" +#include +#include +#include +#include // This is private API, but we have to use it for tests here. +#include + +struct test_case { + const char *name; + uint8_t *aml_bytes; + size_t num_aml_bytes; + uint8_t *native_bytes; + size_t num_native_bytes; + size_t *pointer_offsets; + size_t num_pointer_offsets; +}; + +#define AML_END_TAG 0x79, 0x00 +#define NATIVE_END_TAG \ + UACPI_RESOURCE_TYPE_END_TAG, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00 + +#define NATIVE_OFFSET(name, field) \ + ((sizeof(uint32_t) * 2) + offsetof(uacpi_resource_##name, field)) + +#define TEST_CASE_AML(name, ...) static uint8_t res_aml_##name[] = __VA_ARGS__; +#define TEST_CASE_NATIVE(name, ...) \ + static uint8_t res_native_##name[] = __VA_ARGS__; +#define TEST_CASE_POINTERS(name, ...) \ + static size_t res_pointers_##name[] = __VA_ARGS__; + +TEST_CASE_AML( + IRQ, + { + /* + * IRQNoFlags () + * {2, 3} + */ + 0x22, 0x0C, 0x00, + + /* + * IRQ (Level, ActiveLow, ExclusiveAndWake, NAM0) + * {1, 4, 5, 10} + */ + 0x23, 0x32, 0x04, 0x28, + + /* + * IRQ (Edge, ActiveHigh, SharedAndWake, NAM1) + * {1} + */ + 0x23, 0x02, 0x00, 0x31, + + /* + * IRQNoFlags () + * {15} + */ + 0x22, 0x00, 0x80, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + IRQ, + { + UACPI_RESOURCE_TYPE_IRQ, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x00, 0x00, 0x00, 0x02, 0x02, 0x03, + + UACPI_RESOURCE_TYPE_IRQ, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x02, 0x00, 0x01, 0x00, 0x01, 0x04, 0x01, 0x04, + 0x05, 0x0A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_IRQ, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x02, 0x01, 0x00, 0x01, 0x01, 0x01, 0x01, 0x00, + + UACPI_RESOURCE_TYPE_IRQ, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x00, 0x00, 0x00, 0x01, 0x0F, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + DMA, + { + /* + * DMA (Compatibility, NotBusMaster, Transfer8_16, NAM0) + * { 1, 2, 3 } + */ + 0x2A, 0x0E, 0x01, + + /* + * DMA (TypeA, BusMaster, Transfer8, NAM1) + * { 0 } + */ + 0x2A, 0x01, 0x24, + + /* + * DMA (TypeF, BusMaster, Transfer16, NAM2) + * { 1, 2, 3, 4, 5, 6, 7 } + */ + 0x2A, 0xFE, 0x66, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + DMA, + { + UACPI_RESOURCE_TYPE_DMA, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x03, 0x01, 0x02, 0x03, 0x00, + + UACPI_RESOURCE_TYPE_DMA, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x00, 0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_DMA, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x02, 0x01, 0x03, 0x07, 0x01, 0x02, 0x03, 0x04, + 0x05, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + Start_End_DependentFn, + { + /* + * StartDependentFn(2, 2) { + * IRQ (Level, ActiveLow, ExclusiveAndWake, NAM0) + * {1, 4, 5, 10} + * } + */ + 0x31, 0x0A, + 0x23, 0x32, 0x04, 0x28, + + /* + * StartDependentFnNoPri() { + * DMA (TypeF, BusMaster, Transfer16, NAM1) + * { 1, 2, 3, 4, 5, 6, 7 } + * } + */ + 0x30, + 0x2A, 0xFE, 0x66, + + /* + * StartDependentFn(0, 0) { + * IRQNoFlags () + * {15} + * } + */ + 0x31, 0x00, + 0x22, 0x00, 0x80, + + // EndDependentFn() + 0x38, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + Start_End_DependentFn, + { + UACPI_RESOURCE_TYPE_START_DEPENDENT, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_IRQ, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x02, 0x00, 0x01, 0x00, 0x01, 0x04, 0x01, 0x04, + 0x05, 0x0A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_START_DEPENDENT, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_AML_RESOURCE_DMA, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x02, 0x01, 0x03, 0x07, 0x01, 0x02, 0x03, 0x04, + 0x05, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_START_DEPENDENT, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_IRQ, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x00, 0x00, 0x00, 0x01, 0x0F, 0x00, + + UACPI_RESOURCE_TYPE_END_DEPENDENT, + 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + IO, + { + // IO (Decode10, 0xBEEF, 0xDEAD, 0x22, 0xEE, NAM0) + 0x47, 0x00, 0xEF, 0xBE, 0xAD, 0xDE, 0x22, 0xEE, + + // IO (Decode16, 0xBABE, 0xCAFE, 0xCC, 0x33, NAM1) + 0x47, 0x01, 0xBE, 0xBA, 0xFE, 0xCA, 0xCC, 0x33, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + IO, + { + UACPI_RESOURCE_TYPE_IO, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x00, 0x00, 0xEF, 0xBE, 0xAD, 0xDE, 0x22, 0xEE, + + UACPI_RESOURCE_TYPE_IO, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x01, 0x00, 0xBE, 0xBA, 0xFE, 0xCA, 0xCC, 0x33, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + FixedIO, + { + // FixedIO (0xBEEF, 0xDE, NAM0) + 0x4B, 0xEF, 0xBE, 0xAD, + + // FixedIO (0xCAFE, 0xBA, NAM1) + 0x4B, 0xFE, 0xCA, 0xBE, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + FixedIO, + { + UACPI_RESOURCE_TYPE_FIXED_IO, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0xEF, 0xBE, 0xAD, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_FIXED_IO, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0xFE, 0xCA, 0xBE, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + FixedDMA, + { + // FixedDMA (0xBEEF, 0xDEAD, Width8Bit, NAM0) + 0x55, 0xEF, 0xBE, 0xAD, 0xDE, 0x00, + + // FixedDMA (0xCAFE, 0xBABE, Width64Bit, NAM1) + 0x55, 0xFE, 0xCA, 0xBE, 0xBA, 0x03, + + // FixedDMA (0xDEAD, 0xC0DE, Width256Bit, NAM2) + 0x55, 0xAD, 0xDE, 0xDE, 0xC0, 0x05, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + FixedDMA, + { + UACPI_RESOURCE_TYPE_FIXED_DMA, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0xEF, 0xBE, 0xAD, 0xDE, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_FIXED_DMA, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0xFE, 0xCA, 0xBE, 0xBA, 0x03, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_FIXED_DMA, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0xAD, 0xDE, 0xDE, 0xC0, 0x05, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + Vendor_Short_Long, + { + /* + * VendorShort(NAM0) + * { 0xDE, 0xAD, 0xBE, 0xEF, 0xCA, 0xFE, 0xBA } + */ + 0x77, 0xDE, 0xAD, 0xBE, 0xEF, 0xCA, 0xFE, 0xBA, + + /* + * VendorShort(NAM1) + * { 0xFF } + */ + 0x71, 0xFF, + + /* + * VendorLong(NAM1) { + * 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0x0C, + * 0x65, 0x90, 0xB0, 0xE0, 0x10, 0xC8, 0x96, 0xA6, + * 0x96, 0x80, 0x5A, 0xA8, 0xA7, 0x06, 0xC5, 0x77, + * 0xD8, 0xA7, 0x67, 0x53, 0xE3, 0x86, 0x03, 0x39, + * 0xDC + * } + */ + 0x84, 0x21, 0x00, 0x44, 0xA6, 0x5A, 0x82, 0x83, + 0x57, 0x7D, 0x0C, 0x65, 0x90, 0xB0, 0xE0, 0x10, + 0xC8, 0x96, 0xA6, 0x96, 0x80, 0x5A, 0xA8, 0xA7, + 0x06, 0xC5, 0x77, 0xD8, 0xA7, 0x67, 0x53, 0xE3, + 0x86, 0x03, 0x39, 0xDC, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + Vendor_Short_Long, + { + UACPI_RESOURCE_TYPE_VENDOR_SMALL, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x07, 0xDE, 0xAD, 0xBE, 0xEF, 0xCA, 0xFE, 0xBA, + + UACPI_RESOURCE_TYPE_VENDOR_SMALL, + 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, + 0x01, 0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_VENDOR_LARGE, + 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, + 0x21, 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, + 0x0C, 0x65, 0x90, 0xB0, 0xE0, 0x10, 0xC8, 0x96, + 0xA6, 0x96, 0x80, 0x5A, 0xA8, 0xA7, 0x06, 0xC5, + 0x77, 0xD8, 0xA7, 0x67, 0x53, 0xE3, 0x86, 0x03, + 0x39, 0xDC, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + Memory_24_32_Fixed32, + { + // Memory24(ReadWrite, 0xBEEF, 0xDEAD, 0xCAFE, 0xBABE, NAM0) + 0x81, 0x09, 0x00, 0x01, 0xEF, 0xBE, 0xAD, 0xDE, + 0xFE, 0xCA, 0xBE, 0xBA, + + // Memory32(ReadOnly, 0xC0DE9876, 0x1234FEFE, 0x65653F4F, 0x33449988, NAM1) + 0x85, 0x11, 0x00, 0x00, 0x76, 0x98, 0xDE, 0xC0, + 0xFE, 0xFE, 0x34, 0x12, 0x4F, 0x3F, 0x65, 0x65, + 0x88, 0x99, 0x44, 0x33, + + // Memory32Fixed(ReadWrite, 0xC0DEDEAD, 0xFEFEBABE, NAM2) + 0x86, 0x09, 0x00, 0x01, 0xAD, 0xDE, 0xDE, 0xC0, + 0xBE, 0xBA, 0xFE, 0xFE, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + Memory_24_32_Fixed32, + { + UACPI_RESOURCE_TYPE_MEMORY24, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x01, 0x00, 0xEF, 0xBE, 0xAD, 0xDE, 0xFE, 0xCA, + 0xBE, 0xBA, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_MEMORY32, + 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x76, 0x98, 0xDE, 0xC0, + 0xFE, 0xFE, 0x34, 0x12, 0x4F, 0x3F, 0x65, 0x65, + 0x88, 0x99, 0x44, 0x33, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_FIXED_MEMORY32, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0xAD, 0xDE, 0xDE, 0xC0, + 0xBE, 0xBA, 0xFE, 0xFE, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + Register, + { + // Register(SMBus, 0xDE, 0xBE, 0xC0DE9876CAFEBABE, 0, NAM0) + 0x82, 0x0C, 0x00, 0x04, 0xDE, 0xBE, 0x00, 0xBE, + 0xBA, 0xFE, 0xCA, 0x76, 0x98, 0xDE, 0xC0, + + + // Register(SystemCMOS, 0xFF, 0x22, 0x11DE12345AFEDDBB, 4, NAM1) + 0x82, 0x0C, 0x00, 0x05, 0xFF, 0x22, 0x04, 0xBB, + 0xDD, 0xFE, 0x5A, 0x34, 0x12, 0xDE, 0x11, + + + // Register(FFixedHW, 0x11, 0x33, 0x452199FFAADCCDFF, 3, NAM2) + 0x82, 0x0C, 0x00, 0x7F, 0x11, 0x33, 0x03, 0xFF, + 0xCD, 0xDC, 0xAA, 0xFF, 0x99, 0x21, 0x45, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + Register, + { + UACPI_RESOURCE_TYPE_GENERIC_REGISTER, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x04, 0xDE, 0xBE, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xBE, 0xBA, 0xFE, 0xCA, 0x76, 0x98, 0xDE, 0xC0, + + UACPI_RESOURCE_TYPE_GENERIC_REGISTER, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x05, 0xFF, 0x22, 0x04, 0x00, 0x00, 0x00, 0x00, + 0xBB, 0xDD, 0xFE, 0x5A, 0x34, 0x12, 0xDE, 0x11, + + UACPI_RESOURCE_TYPE_GENERIC_REGISTER, + 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, + 0x7F, 0x11, 0x33, 0x03, 0x00, 0x00, 0x00, 0x00, + 0xFF, 0xCD, 0xDC, 0xAA, 0xFF, 0x99, 0x21, 0x45, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + ExtendedIO, + { + /* + * ExtendedIO( + * ResourceProducer, MinFixed, MaxNotFixed, PosDecode, + * EntireRange, 0x2E2F2E122CFA72B2, 0x567A6752EB92115A, + * 0x57BE4E08FE66A14C, 0x43E98758F80FBC69, + * 0xD6BD146354CC792C, 0x6D6A7C021238A28D, NAM0, + * TypeStatic, SparseTranslation + * ) + */ + 0x8B, 0x35, 0x00, 0x01, 0x04, 0x23, 0x01, 0x00, + 0xB2, 0x72, 0xFA, 0x2C, 0x12, 0x2E, 0x2F, 0x2E, + 0x5A, 0x11, 0x92, 0xEB, 0x52, 0x67, 0x7A, 0x56, + 0x4C, 0xA1, 0x66, 0xFE, 0x08, 0x4E, 0xBE, 0x57, + 0x69, 0xBC, 0x0F, 0xF8, 0x58, 0x87, 0xE9, 0x43, + 0x2C, 0x79, 0xCC, 0x54, 0x63, 0x14, 0xBD, 0xD6, + 0x8D, 0xA2, 0x38, 0x12, 0x02, 0x7C, 0x6A, 0x6D, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + ExtendedIO, + { + UACPI_RESOURCE_TYPE_ADDRESS64_EXTENDED, + 0x00, 0x00, 0x00, 0x48, 0x00, 0x00, 0x00, + 0x03, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00, 0x01, + 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xB2, 0x72, 0xFA, 0x2C, 0x12, 0x2E, 0x2F, 0x2E, + 0x5A, 0x11, 0x92, 0xEB, 0x52, 0x67, 0x7A, 0x56, + 0x4C, 0xA1, 0x66, 0xFE, 0x08, 0x4E, 0xBE, 0x57, + 0x69, 0xBC, 0x0F, 0xF8, 0x58, 0x87, 0xE9, 0x43, + 0x2C, 0x79, 0xCC, 0x54, 0x63, 0x14, 0xBD, 0xD6, + 0x8D, 0xA2, 0x38, 0x12, 0x02, 0x7C, 0x6A, 0x6D, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + ExtendedMemory, + { + /* + * ExtendedMemory( + * ResourceConsumer, SubDecode, MinNotFixed, MaxFixed, + * WriteCombining, ReadOnly, 0x567A6752EB92115A, + * 0x43E98758F80FBC69, 0xD6BD146354CC792C, 0x57BE4E08FE66A14C, + * 0x2E2F2E122CFA72B2, 0x4DE81A9EEA660878, NAM0, + * AddressRangeACPI, TypeStatic + * ) + */ + 0x8B, 0x35, 0x00, 0x00, 0x0B, 0x14, 0x01, 0x00, + 0x5A, 0x11, 0x92, 0xEB, 0x52, 0x67, 0x7A, 0x56, + 0x69, 0xBC, 0x0F, 0xF8, 0x58, 0x87, 0xE9, 0x43, + 0x2C, 0x79, 0xCC, 0x54, 0x63, 0x14, 0xBD, 0xD6, + 0x4C, 0xA1, 0x66, 0xFE, 0x08, 0x4E, 0xBE, 0x57, + 0xB2, 0x72, 0xFA, 0x2C, 0x12, 0x2E, 0x2F, 0x2E, + 0x78, 0x08, 0x66, 0xEA, 0x9E, 0x1A, 0xE8, 0x4D, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + ExtendedMemory, + { + UACPI_RESOURCE_TYPE_ADDRESS64_EXTENDED, + 0x00, 0x00, 0x00, 0x48, 0x00, 0x00, 0x00, + 0x00, 0x02, 0x02, 0x00, 0x00, 0x01, 0x01, 0x00, + 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x5A, 0x11, 0x92, 0xEB, 0x52, 0x67, 0x7A, 0x56, + 0x69, 0xBC, 0x0F, 0xF8, 0x58, 0x87, 0xE9, 0x43, + 0x2C, 0x79, 0xCC, 0x54, 0x63, 0x14, 0xBD, 0xD6, + 0x4C, 0xA1, 0x66, 0xFE, 0x08, 0x4E, 0xBE, 0x57, + 0xB2, 0x72, 0xFA, 0x2C, 0x12, 0x2E, 0x2F, 0x2E, + 0x78, 0x08, 0x66, 0xEA, 0x9E, 0x1A, 0xE8, 0x4D, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + ExtendedSpace, + { + /* + * ExtendedSpace( + * 0xCD, ResourceConsumer, PosDecode, MinFixed, + * MaxFixed, 0xEE, 0x13B531F2DEB2F64C, 0x261C82678FE9F9FE, + * 0xB32DF50E542CF6B2, 0x51FE96DA6EC52143, 0x5DA63B2994D3652E, + * 0x2EEE774C18842CC7, NAM0 + * ) + */ + 0x8B, 0x35, 0x00, 0xCD, 0x0D, 0xEE, 0x01, 0x00, + 0x4C, 0xF6, 0xB2, 0xDE, 0xF2, 0x31, 0xB5, 0x13, + 0xFE, 0xF9, 0xE9, 0x8F, 0x67, 0x82, 0x1C, 0x26, + 0xB2, 0xF6, 0x2C, 0x54, 0x0E, 0xF5, 0x2D, 0xB3, + 0x43, 0x21, 0xC5, 0x6E, 0xDA, 0x96, 0xFE, 0x51, + 0x2E, 0x65, 0xD3, 0x94, 0x29, 0x3B, 0xA6, 0x5D, + 0xC7, 0x2C, 0x84, 0x18, 0x4C, 0x77, 0xEE, 0x2E, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + ExtendedSpace, + { + UACPI_RESOURCE_TYPE_ADDRESS64_EXTENDED, + 0x00, 0x00, 0x00, 0x48, 0x00, 0x00, 0x00, + 0xEE, 0x00, 0x00, 0x00, 0xCD, 0x01, 0x00, 0x01, + 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x4C, 0xF6, 0xB2, 0xDE, 0xF2, 0x31, 0xB5, 0x13, + 0xFE, 0xF9, 0xE9, 0x8F, 0x67, 0x82, 0x1C, 0x26, + 0xB2, 0xF6, 0x2C, 0x54, 0x0E, 0xF5, 0x2D, 0xB3, + 0x43, 0x21, 0xC5, 0x6E, 0xDA, 0x96, 0xFE, 0x51, + 0x2E, 0x65, 0xD3, 0x94, 0x29, 0x3B, 0xA6, 0x5D, + 0xC7, 0x2C, 0x84, 0x18, 0x4C, 0x77, 0xEE, 0x2E, + + NATIVE_END_TAG, + } +) +TEST_CASE_AML( + WordBusNumber, + { + /* + * WordBusNumber( + * ResourceProducer, MinNotFixed, MaxFixed, PosDecode, + * 0xDEAD, 0xBEEF, 0xCAFE, 0xBABE, 0xFEFE, 4, + * "\\SOME.PATH", NAM0 + * ) + */ + 0x88, 0x19, 0x00, 0x02, 0x08, 0x00, 0xAD, 0xDE, + 0xEF, 0xBE, 0xFE, 0xCA, 0xBE, 0xBA, 0xFE, 0xFE, + 0x04, 0x5C, 0x53, 0x4F, 0x4D, 0x45, 0x2E, 0x50, + 0x41, 0x54, 0x48, 0x00, + + /* + * WordBusNumber( + * ResourceConsumer, MinFixed, MaxNotFixed, SubDecode, + * 0xC0DE, 0xDEAD, 0xFEFE, 0xCAFE, 0xBABE, , , NAM1 + * ) + */ + 0x88, 0x0D, 0x00, 0x02, 0x07, 0x00, 0xDE, 0xC0, + 0xAD, 0xDE, 0xFE, 0xFE, 0xFE, 0xCA, 0xBE, 0xBA, + 0x79, 0x00, + } +) +TEST_CASE_NATIVE( + WordBusNumber, + { + UACPI_RESOURCE_TYPE_ADDRESS16, + 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, + 0x01, 0x00, 0xAD, 0xDE, 0xEF, 0xBE, 0xFE, 0xCA, + 0xBE, 0xBA, 0xFE, 0xFE, 0x00, 0x00, 0x00, 0x00, + 0x04, 0x01, 0x0B, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x5C, 0x53, 0x4F, 0x4D, 0x45, 0x2E, 0x50, 0x41, + 0x54, 0x48, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + + UACPI_RESOURCE_TYPE_ADDRESS16, + 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x02, 0x01, 0x01, 0x01, + 0x00, 0x00, 0xDE, 0xC0, 0xAD, 0xDE, 0xFE, 0xFE, + 0xFE, 0xCA, 0xBE, 0xBA, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + WordBusNumber, + { + NATIVE_OFFSET(address16, source.string), + } +) +TEST_CASE_AML( + WordIO, + { + /* + * WordIO( + * ResourceProducer, MinNotFixed, MaxFixed, PosDecode, + * EntireRange, 0xDEAD, 0xBEEF, 0xCAFE, 0xBABE, 0xFEFE, 123, + * "^^^^^^^VERY.LONG.PATH.THAT.SHOU.LD.WORK", NAM0, TypeStatic, + * SparseTranslation + * ) + */ + 0x88, 0x36, 0x00, 0x01, 0x08, 0x23, 0xAD, 0xDE, + 0xEF, 0xBE, 0xFE, 0xCA, 0xBE, 0xBA, 0xFE, 0xFE, + 0x7B, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x56, 0x45, 0x52, 0x59, 0x2E, 0x4C, 0x4F, 0x4E, + 0x47, 0x2E, 0x50, 0x41, 0x54, 0x48, 0x2E, 0x54, + 0x48, 0x41, 0x54, 0x2E, 0x53, 0x48, 0x4F, 0x55, + 0x2E, 0x4C, 0x44, 0x2E, 0x57, 0x4F, 0x52, 0x4B, + 0x00, + + /* + * WordIO( + * ResourceConsumer, MinFixed, MaxNotFixed, SubDecode, + * EntireRange, 0xC0DE, 0xDEAD, 0xFEFE, 0xCAFE, 0xBABE, , , NAM1, + * TypeTranslation, DenseTranslation + * ) + */ + 0x88, 0x0D, 0x00, 0x01, 0x07, 0x13, 0xDE, 0xC0, + 0xAD, 0xDE, 0xFE, 0xFE, 0xFE, 0xCA, 0xBE, 0xBA, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + WordIO, + { + UACPI_RESOURCE_TYPE_ADDRESS16, + 0x00, 0x00, 0x00, 0x58, 0x00, 0x00, 0x00, + 0x03, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, + 0x01, 0x00, 0xAD, 0xDE, 0xEF, 0xBE, 0xFE, 0xCA, + 0xBE, 0xBA, 0xFE, 0xFE, 0x00, 0x00, 0x00, 0x00, + 0x7B, 0x01, 0x28, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x56, + 0x45, 0x52, 0x59, 0x2E, 0x4C, 0x4F, 0x4E, 0x47, + 0x2E, 0x50, 0x41, 0x54, 0x48, 0x2E, 0x54, 0x48, + 0x41, 0x54, 0x2E, 0x53, 0x48, 0x4F, 0x55, 0x2E, + 0x4C, 0x44, 0x2E, 0x57, 0x4F, 0x52, 0x4B, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS16, + 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, + 0x03, 0x00, 0x01, 0x00, 0x01, 0x01, 0x01, 0x01, + 0x00, 0x00, 0xDE, 0xC0, 0xAD, 0xDE, 0xFE, 0xFE, + 0xFE, 0xCA, 0xBE, 0xBA, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + WordIO, + { + NATIVE_OFFSET(address16, source.string), + } +) +TEST_CASE_AML( + WordSpace, + { + /* + * WordSpace( + * 0xCC, ResourceProducer, PosDecode, MinNotFixed, MaxFixed, + * 0xFF, 0xDEAD, 0xBEEF, 0xCAFE, 0xBABE, 0xFEFE, 222, + * "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NAME", + * NAM0 + * ) + */ + 0x88, 0x58, 0x00, 0xCC, 0x08, 0xFF, 0xAD, 0xDE, + 0xEF, 0xBE, 0xFE, 0xCA, 0xBE, 0xBA, 0xFE, 0xFE, + 0xDE, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x4E, 0x41, + 0x4D, 0x45, 0x00, + + /* + * WordSpace( + * 0xFF, ResourceConsumer, SubDecode, MinFixed, MaxNotFixed, + * 0xFE, 0xC0DE, 0xDEAD, 0xFEFE, 0xCAFE, 0xBABE, , , NAM1 + * ) + */ + 0x88, 0x0D, 0x00, 0xFF, 0x07, 0xFE, 0xDE, 0xC0, + 0xAD, 0xDE, 0xFE, 0xFE, 0xFE, 0xCA, 0xBE, 0xBA, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + WordSpace, + { + UACPI_RESOURCE_TYPE_ADDRESS16, + 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, + 0xFF, 0x00, 0x00, 0x00, 0xCC, 0x00, 0x00, 0x00, + 0x01, 0x00, 0xAD, 0xDE, 0xEF, 0xBE, 0xFE, 0xCA, + 0xBE, 0xBA, 0xFE, 0xFE, 0x00, 0x00, 0x00, 0x00, + 0xDE, 0x01, 0x4A, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x4E, 0x41, 0x4D, + 0x45, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS16, + 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, + 0xFE, 0x00, 0x00, 0x00, 0xFF, 0x01, 0x01, 0x01, + 0x00, 0x00, 0xDE, 0xC0, 0xAD, 0xDE, 0xFE, 0xFE, + 0xFE, 0xCA, 0xBE, 0xBA, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + WordSpace, + { + NATIVE_OFFSET(address16, source.string), + } +) +TEST_CASE_AML( + DWordIO, + { + /* + * DWordIO( + * ResourceProducer, MinNotFixed, MaxFixed, PosDecode, + * EntireRange, 0x2AE24C2F, 0x10F2D54B, 0x848D3687, + * 0x38A29766, 0x7F1205E0, 111, "X", NAM0, TypeStatic, + * SparseTranslation + * ) + */ + 0x87, 0x1A, 0x00, 0x01, 0x08, 0x23, 0x2F, 0x4C, + 0xE2, 0x2A, 0x4B, 0xD5, 0xF2, 0x10, 0x87, 0x36, + 0x8D, 0x84, 0x66, 0x97, 0xA2, 0x38, 0xE0, 0x05, + 0x12, 0x7F, 0x6F, 0x58, 0x00, + + /* + * DWordIO( + * ResourceConsumer, MinFixed, MaxNotFixed, SubDecode, + * EntireRange, 0xEA7A787E, 0x5F3C8592, 0xD42E05FD, + * 0xC889C763, 0xA078F607, , , NAM1, TypeTranslation, + * DenseTranslation + * ) + */ + 0x87, 0x17, 0x00, 0x01, 0x07, 0x13, 0x7E, 0x78, + 0x7A, 0xEA, 0x92, 0x85, 0x3C, 0x5F, 0xFD, 0x05, + 0x2E, 0xD4, 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, + 0x78, 0xA0, + + /* + * NOTE: + * This one is technically buggy as it doesn't include a source + * string but still has a valid source index. We support this + * use case as well. + * + * DWordIO( + * ResourceConsumer, MinFixed, MaxNotFixed, SubDecode, + * EntireRange, 0xEA7A787E, 0x5F3C8592, 0xD42E05FD, + * 0xC889C763, 0xA078F607, 222, , NAM1, TypeTranslation, + * DenseTranslation + * ) + */ + 0x87, 0x18, 0x00, 0x01, 0x07, 0x13, 0x7E, 0x78, + 0x7A, 0xEA, 0x92, 0x85, 0x3C, 0x5F, 0xFD, 0x05, + 0x2E, 0xD4, 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, + 0x78, 0xA0, 0xDE, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + DWordIO, + { + UACPI_RESOURCE_TYPE_ADDRESS32, + 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, + 0x03, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x2F, 0x4C, 0xE2, 0x2A, + 0x4B, 0xD5, 0xF2, 0x10, 0x87, 0x36, 0x8D, 0x84, + 0x66, 0x97, 0xA2, 0x38, 0xE0, 0x05, 0x12, 0x7F, + 0x6F, 0x01, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x58, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS32, + 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, + 0x03, 0x00, 0x01, 0x00, 0x01, 0x01, 0x01, 0x01, + 0x00, 0x00, 0x00, 0x00, 0x7E, 0x78, 0x7A, 0xEA, + 0x92, 0x85, 0x3C, 0x5F, 0xFD, 0x05, 0x2E, 0xD4, + 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, 0x78, 0xA0, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS32, + 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, + 0x03, 0x00, 0x01, 0x00, 0x01, 0x01, 0x01, 0x01, + 0x00, 0x00, 0x00, 0x00, 0x7E, 0x78, 0x7A, 0xEA, + 0x92, 0x85, 0x3C, 0x5F, 0xFD, 0x05, 0x2E, 0xD4, + 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, 0x78, 0xA0, + 0xDE, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + DWordIO, + { + NATIVE_OFFSET(address32, source.string), + } +) +TEST_CASE_AML( + DWordMemory, + { + /* + * DWordMemory( + * ResourceConsumer, SubDecode, MinFixed, MaxNotFixed, NonCacheable, + * ReadOnly, 0xEA7A787E, 0x5F3C8592, 0xD42E05FD, 0xC889C763, + * 0xA078F607, , , NAM0, AddressRangeMemory, TypeStatic + * ) + */ + 0x87, 0x17, 0x00, 0x00, 0x07, 0x00, 0x7E, 0x78, + 0x7A, 0xEA, 0x92, 0x85, 0x3C, 0x5F, 0xFD, 0x05, + 0x2E, 0xD4, 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, + 0x78, 0xA0, + + /* + * DWordMemory( + * ResourceProducer, PosDecode, MinNotFixed, MaxFixed, Prefetchable, + * ReadWrite, 0x2AE24C2F, 0x10F2D54B, 0x848D3687, 0x38A29766, + * 0x2AE24C2F, 5, "XXXX.YYYY.ZZZZ.VVVV.YYYY", NAM1, + * AddressRangeNVS, TypeTranslation + * ) + */ + 0x87, 0x31, 0x00, 0x00, 0x08, 0x3F, 0x2F, 0x4C, + 0xE2, 0x2A, 0x4B, 0xD5, 0xF2, 0x10, 0x87, 0x36, + 0x8D, 0x84, 0x66, 0x97, 0xA2, 0x38, 0x2F, 0x4C, + 0xE2, 0x2A, 0x05, 0x58, 0x58, 0x58, 0x58, 0x2E, + 0x59, 0x59, 0x59, 0x59, 0x2E, 0x5A, 0x5A, 0x5A, + 0x5A, 0x2E, 0x56, 0x56, 0x56, 0x56, 0x2E, 0x59, + 0x59, 0x59, 0x59, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + DWordMemory, + { + UACPI_RESOURCE_TYPE_ADDRESS32, + 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, + 0x00, 0x00, 0x00, 0x00, 0x7E, 0x78, 0x7A, 0xEA, + 0x92, 0x85, 0x3C, 0x5F, 0xFD, 0x05, 0x2E, 0xD4, + 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, 0x78, 0xA0, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS32, + 0x00, 0x00, 0x00, 0x58, 0x00, 0x00, 0x00, + 0x01, 0x03, 0x03, 0x01, 0x00, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x2F, 0x4C, 0xE2, 0x2A, + 0x4B, 0xD5, 0xF2, 0x10, 0x87, 0x36, 0x8D, 0x84, + 0x66, 0x97, 0xA2, 0x38, 0x2F, 0x4C, 0xE2, 0x2A, + 0x05, 0x01, 0x19, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x58, 0x58, 0x58, 0x58, 0x2E, 0x59, 0x59, 0x59, + 0x59, 0x2E, 0x5A, 0x5A, 0x5A, 0x5A, 0x2E, 0x56, + 0x56, 0x56, 0x56, 0x2E, 0x59, 0x59, 0x59, 0x59, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + DWordMemory, + { + 0x38 + NATIVE_OFFSET(address32, source.string), + } +) +TEST_CASE_AML( + DWordSpace, + { + /* + * DWordSpace( + * 0xEE, ResourceProducer, PosDecode, MinNotFixed, MaxFixed, + * 0xFF, 0x38A29766, 0x7F1205E0, 0x2AE24C2F, 0x10F2D54B, + * 0x848D3687, 99, "\\_ABC.DEFG.HIJK.LMNO.PQRS.T123", NAM0 + * ) + */ + 0x87, 0x37, 0x00, 0xEE, 0x08, 0xFF, 0x66, 0x97, + 0xA2, 0x38, 0xE0, 0x05, 0x12, 0x7F, 0x2F, 0x4C, + 0xE2, 0x2A, 0x4B, 0xD5, 0xF2, 0x10, 0x87, 0x36, + 0x8D, 0x84, 0x63, 0x5C, 0x5F, 0x41, 0x42, 0x43, + 0x2E, 0x44, 0x45, 0x46, 0x47, 0x2E, 0x48, 0x49, + 0x4A, 0x4B, 0x2E, 0x4C, 0x4D, 0x4E, 0x4F, 0x2E, + 0x50, 0x51, 0x52, 0x53, 0x2E, 0x54, 0x31, 0x32, + 0x33, 0x00, + + /* + * DWordSpace( + * 0xAA, ResourceConsumer, SubDecode, MinFixed, MaxNotFixed, + * 0xFE, 0xEA7A787E, 0xD42E05FD, 0x5F3C8592, 0xC889C763, + * 0xA078F607, , , NAM1 + * ) + */ + 0x87, 0x17, 0x00, 0xAA, 0x07, 0xFE, 0x7E, 0x78, + 0x7A, 0xEA, 0xFD, 0x05, 0x2E, 0xD4, 0x92, 0x85, + 0x3C, 0x5F, 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, + 0x78, 0xA0, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + DWordSpace, + { + UACPI_RESOURCE_TYPE_ADDRESS32, + 0x00, 0x00, 0x00, 0x58, 0x00, 0x00, 0x00, + 0xFF, 0x00, 0x00, 0x00, 0xEE, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x66, 0x97, 0xA2, 0x38, + 0xE0, 0x05, 0x12, 0x7F, 0x2F, 0x4C, 0xE2, 0x2A, + 0x4B, 0xD5, 0xF2, 0x10, 0x87, 0x36, 0x8D, 0x84, + 0x63, 0x01, 0x1F, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x5C, 0x5F, 0x41, 0x42, 0x43, 0x2E, 0x44, 0x45, + 0x46, 0x47, 0x2E, 0x48, 0x49, 0x4A, 0x4B, 0x2E, + 0x4C, 0x4D, 0x4E, 0x4F, 0x2E, 0x50, 0x51, 0x52, + 0x53, 0x2E, 0x54, 0x31, 0x32, 0x33, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS32, + 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, + 0xFE, 0x00, 0x00, 0x00, 0xAA, 0x01, 0x01, 0x01, + 0x00, 0x00, 0x00, 0x00, 0x7E, 0x78, 0x7A, 0xEA, + 0xFD, 0x05, 0x2E, 0xD4, 0x92, 0x85, 0x3C, 0x5F, + 0x63, 0xC7, 0x89, 0xC8, 0x07, 0xF6, 0x78, 0xA0, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + DWordSpace, + { + NATIVE_OFFSET(address32, source.string), + } +) +TEST_CASE_AML( + QWordIO, + { + /* + * QWordIO( + * ResourceProducer, MinNotFixed, MaxFixed, PosDecode, + * EntireRange, 0xD401ABB6C6048FA9, 0xF3F20E18BD15E1D5, + * 0x31BBE56235B1AB20, 0xA43E084A1A3BC70C, + * 0xCC3968467E68A405, 22, "1234.5678.9101.1112.1314.1516", + * NAM0, TypeStatic, SparseTranslation + * ) + */ + 0x8A, 0x4A, 0x00, 0x01, 0x08, 0x23, 0xA9, 0x8F, + 0x04, 0xC6, 0xB6, 0xAB, 0x01, 0xD4, 0xD5, 0xE1, + 0x15, 0xBD, 0x18, 0x0E, 0xF2, 0xF3, 0x20, 0xAB, + 0xB1, 0x35, 0x62, 0xE5, 0xBB, 0x31, 0x0C, 0xC7, + 0x3B, 0x1A, 0x4A, 0x08, 0x3E, 0xA4, 0x05, 0xA4, + 0x68, 0x7E, 0x46, 0x68, 0x39, 0xCC, 0x16, 0x31, + 0x32, 0x33, 0x34, 0x2E, 0x35, 0x36, 0x37, 0x38, + 0x2E, 0x39, 0x31, 0x30, 0x31, 0x2E, 0x31, 0x31, + 0x31, 0x32, 0x2E, 0x31, 0x33, 0x31, 0x34, 0x2E, + 0x31, 0x35, 0x31, 0x36, 0x00, + + /* + * QWordIO( + * ResourceConsumer, MinFixed, MaxNotFixed, SubDecode, + * EntireRange, 0xC7EBB6149085DF40, 0x837954DC2A5C8993, + * 0xEBEBB9FBC5BCE78E, 0x5EE869DAFB934632, + * 0xB39AD97AB253D0ED, , , NAM1, TypeTranslation, + * DenseTranslation + * ) + */ + 0x8A, 0x2B, 0x00, 0x01, 0x07, 0x13, 0x40, 0xDF, + 0x85, 0x90, 0x14, 0xB6, 0xEB, 0xC7, 0x93, 0x89, + 0x5C, 0x2A, 0xDC, 0x54, 0x79, 0x83, 0x8E, 0xE7, + 0xBC, 0xC5, 0xFB, 0xB9, 0xEB, 0xEB, 0x32, 0x46, + 0x93, 0xFB, 0xDA, 0x69, 0xE8, 0x5E, 0xED, 0xD0, + 0x53, 0xB2, 0x7A, 0xD9, 0x9A, 0xB3, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + QWordIO, + { + UACPI_RESOURCE_TYPE_ADDRESS64, + 0x00, 0x00, 0x00, 0x70, 0x00, 0x00, 0x00, + 0x03, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xA9, 0x8F, 0x04, 0xC6, 0xB6, 0xAB, 0x01, 0xD4, + 0xD5, 0xE1, 0x15, 0xBD, 0x18, 0x0E, 0xF2, 0xF3, + 0x20, 0xAB, 0xB1, 0x35, 0x62, 0xE5, 0xBB, 0x31, + 0x0C, 0xC7, 0x3B, 0x1A, 0x4A, 0x08, 0x3E, 0xA4, + 0x05, 0xA4, 0x68, 0x7E, 0x46, 0x68, 0x39, 0xCC, + 0x16, 0x01, 0x1E, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x31, 0x32, 0x33, 0x34, 0x2E, 0x35, 0x36, 0x37, + 0x38, 0x2E, 0x39, 0x31, 0x30, 0x31, 0x2E, 0x31, + 0x31, 0x31, 0x32, 0x2E, 0x31, 0x33, 0x31, 0x34, + 0x2E, 0x31, 0x35, 0x31, 0x36, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS64, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0x03, 0x00, 0x01, 0x00, 0x01, 0x01, 0x01, 0x01, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x40, 0xDF, 0x85, 0x90, 0x14, 0xB6, 0xEB, 0xC7, + 0x93, 0x89, 0x5C, 0x2A, 0xDC, 0x54, 0x79, 0x83, + 0x8E, 0xE7, 0xBC, 0xC5, 0xFB, 0xB9, 0xEB, 0xEB, + 0x32, 0x46, 0x93, 0xFB, 0xDA, 0x69, 0xE8, 0x5E, + 0xED, 0xD0, 0x53, 0xB2, 0x7A, 0xD9, 0x9A, 0xB3, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + QWordIO, + { + NATIVE_OFFSET(address64, source.string), + } +) +TEST_CASE_AML( + QWordMemory, + { + /* + * QWordMemory( + * ResourceConsumer, SubDecode, MinFixed, MaxNotFixed, NonCacheable, + * ReadOnly, 0xB89195AC379E0043, 0xB149B98A0A8B4D0D, 0x2DF22DCD9553E2F9, + * 0x7F5CD9F6D6598FC1, 0xE3D4EF59D1C7A0A0, , , NAM0, + * AddressRangeMemory, TypeStatic + * ) + */ + 0x8A, 0x2B, 0x00, 0x00, 0x07, 0x00, 0x43, 0x00, + 0x9E, 0x37, 0xAC, 0x95, 0x91, 0xB8, 0x0D, 0x4D, + 0x8B, 0x0A, 0x8A, 0xB9, 0x49, 0xB1, 0xF9, 0xE2, + 0x53, 0x95, 0xCD, 0x2D, 0xF2, 0x2D, 0xC1, 0x8F, + 0x59, 0xD6, 0xF6, 0xD9, 0x5C, 0x7F, 0xA0, 0xA0, + 0xC7, 0xD1, 0x59, 0xEF, 0xD4, 0xE3, + + /* + * QWordMemory( + * ResourceProducer, PosDecode, MinNotFixed, MaxFixed, + * Prefetchable, ReadWrite, 0xAA0E73E09AE07CF2, + * 0x6C1F50103DD99E4F, 0xF8C74B28E1868B3A, 0x685F884F24BC550B, + * 0x881CF673FE4DA1A6, 15, "^^^^^VVVV.VVVV.VVVV", NAM1, + * AddressRangeReserved, TypeTranslation + * ) + */ + 0x8A, 0x40, 0x00, 0x00, 0x08, 0x2F, 0xF2, 0x7C, + 0xE0, 0x9A, 0xE0, 0x73, 0x0E, 0xAA, 0x4F, 0x9E, + 0xD9, 0x3D, 0x10, 0x50, 0x1F, 0x6C, 0x3A, 0x8B, + 0x86, 0xE1, 0x28, 0x4B, 0xC7, 0xF8, 0x0B, 0x55, + 0xBC, 0x24, 0x4F, 0x88, 0x5F, 0x68, 0xA6, 0xA1, + 0x4D, 0xFE, 0x73, 0xF6, 0x1C, 0x88, 0x0F, 0x5E, + 0x5E, 0x5E, 0x5E, 0x5E, 0x56, 0x56, 0x56, 0x56, + 0x2E, 0x56, 0x56, 0x56, 0x56, 0x2E, 0x56, 0x56, + 0x56, 0x56, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + QWordMemory, + { + UACPI_RESOURCE_TYPE_ADDRESS64, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x43, 0x00, 0x9E, 0x37, 0xAC, 0x95, 0x91, 0xB8, + 0x0D, 0x4D, 0x8B, 0x0A, 0x8A, 0xB9, 0x49, 0xB1, + 0xF9, 0xE2, 0x53, 0x95, 0xCD, 0x2D, 0xF2, 0x2D, + 0xC1, 0x8F, 0x59, 0xD6, 0xF6, 0xD9, 0x5C, 0x7F, + 0xA0, 0xA0, 0xC7, 0xD1, 0x59, 0xEF, 0xD4, 0xE3, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS64, + 0x00, 0x00, 0x00, 0x68, 0x00, 0x00, 0x00, + 0x01, 0x03, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xF2, 0x7C, 0xE0, 0x9A, 0xE0, 0x73, 0x0E, 0xAA, + 0x4F, 0x9E, 0xD9, 0x3D, 0x10, 0x50, 0x1F, 0x6C, + 0x3A, 0x8B, 0x86, 0xE1, 0x28, 0x4B, 0xC7, 0xF8, + 0x0B, 0x55, 0xBC, 0x24, 0x4F, 0x88, 0x5F, 0x68, + 0xA6, 0xA1, 0x4D, 0xFE, 0x73, 0xF6, 0x1C, 0x88, + 0x0F, 0x01, 0x14, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x5E, 0x5E, 0x5E, 0x5E, 0x5E, 0x56, 0x56, 0x56, + 0x56, 0x2E, 0x56, 0x56, 0x56, 0x56, 0x2E, 0x56, + 0x56, 0x56, 0x56, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + QWordMemory, + { + 0x50 + NATIVE_OFFSET(address64, source.string), + } +) +TEST_CASE_AML( + QWordSpace, + { + /* + * QWordSpace( + * 0xFA, ResourceProducer, PosDecode, MinNotFixed, MaxFixed, + * 0xFF, 0x3FC5C670EA0D6EC7, 0xC892FC19A82058A7, + * 0x38DD3AB3668E965B, 0xD03B1D464E9B869C, + * 0xB10BD395D90D5F21, 232, "\\", NAM0 + * ) + */ + 0x8A, 0x2E, 0x00, 0xFA, 0x08, 0xFF, 0xC7, 0x6E, + 0x0D, 0xEA, 0x70, 0xC6, 0xC5, 0x3F, 0xA7, 0x58, + 0x20, 0xA8, 0x19, 0xFC, 0x92, 0xC8, 0x5B, 0x96, + 0x8E, 0x66, 0xB3, 0x3A, 0xDD, 0x38, 0x9C, 0x86, + 0x9B, 0x4E, 0x46, 0x1D, 0x3B, 0xD0, 0x21, 0x5F, + 0x0D, 0xD9, 0x95, 0xD3, 0x0B, 0xB1, 0xE8, 0x5C, + 0x00, + + /* + * QWordSpace( + * 0xCF, ResourceConsumer, SubDecode, MinFixed, MaxNotFixed, + * 0xFE, 0xB8201019AA9411D8, 0x80E930538B5BAC9D, + * 0xAD10C2465E6A44E2, 0x1D3221B49795163F, + * 0x5D3B10D8FB2F1760, , , NAM1 + * ) + */ + 0x8A, 0x2B, 0x00, 0xCF, 0x07, 0xFE, 0xD8, 0x11, + 0x94, 0xAA, 0x19, 0x10, 0x20, 0xB8, 0x9D, 0xAC, + 0x5B, 0x8B, 0x53, 0x30, 0xE9, 0x80, 0xE2, 0x44, + 0x6A, 0x5E, 0x46, 0xC2, 0x10, 0xAD, 0x3F, 0x16, + 0x95, 0x97, 0xB4, 0x21, 0x32, 0x1D, 0x60, 0x17, + 0x2F, 0xFB, 0xD8, 0x10, 0x3B, 0x5D, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + QWordSpace, + { + UACPI_RESOURCE_TYPE_ADDRESS64, + 0x00, 0x00, 0x00, 0x58, 0x00, 0x00, 0x00, + 0xFF, 0x00, 0x00, 0x00, 0xFA, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xC7, 0x6E, 0x0D, 0xEA, 0x70, 0xC6, 0xC5, 0x3F, + 0xA7, 0x58, 0x20, 0xA8, 0x19, 0xFC, 0x92, 0xC8, + 0x5B, 0x96, 0x8E, 0x66, 0xB3, 0x3A, 0xDD, 0x38, + 0x9C, 0x86, 0x9B, 0x4E, 0x46, 0x1D, 0x3B, 0xD0, + 0x21, 0x5F, 0x0D, 0xD9, 0x95, 0xD3, 0x0B, 0xB1, + 0xE8, 0x01, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x5C, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_ADDRESS64, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0xFE, 0x00, 0x00, 0x00, 0xCF, 0x01, 0x01, 0x01, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xD8, 0x11, 0x94, 0xAA, 0x19, 0x10, 0x20, 0xB8, + 0x9D, 0xAC, 0x5B, 0x8B, 0x53, 0x30, 0xE9, 0x80, + 0xE2, 0x44, 0x6A, 0x5E, 0x46, 0xC2, 0x10, 0xAD, + 0x3F, 0x16, 0x95, 0x97, 0xB4, 0x21, 0x32, 0x1D, + 0x60, 0x17, 0x2F, 0xFB, 0xD8, 0x10, 0x3B, 0x5D, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + QWordSpace, + { + NATIVE_OFFSET(address64, source.string), + } +) +TEST_CASE_AML( + ClockInput, + { + /* + * ClockInput(0xDEADBEEF, 0xC0DE, MHz, Variable, + * "\\PATH.XXXX.YYYY", 123) + */ + 0x93, 0x1A, 0x00, 0x01, 0x05, 0x00, 0xDE, 0xC0, + 0xEF, 0xBE, 0xAD, 0xDE, 0x7B, 0x5C, 0x50, 0x41, + 0x54, 0x48, 0x2E, 0x58, 0x58, 0x58, 0x58, 0x2E, + 0x59, 0x59, 0x59, 0x59, 0x00, + + // ClockInput(0xCAFEBABE, 0xBABA, kHz, Fixed, , ) + 0x93, 0x0A, 0x00, 0x01, 0x02, 0x00, 0xBA, 0xBA, + 0xBE, 0xBA, 0xFE, 0xCA, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + ClockInput, + { + UACPI_RESOURCE_TYPE_CLOCK_INPUT, + 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x02, 0x00, 0xDE, 0xC0, 0x00, 0x00, + 0xEF, 0xBE, 0xAD, 0xDE, 0x00, 0x00, 0x00, 0x00, + 0x7B, 0x01, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x5C, 0x50, 0x41, 0x54, 0x48, 0x2E, 0x58, 0x58, + 0x58, 0x58, 0x2E, 0x59, 0x59, 0x59, 0x59, 0x00, + + UACPI_RESOURCE_TYPE_CLOCK_INPUT, + 0x00, 0x00, 0x00, 0x28, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x01, 0x00, 0xBA, 0xBA, 0x00, 0x00, + 0xBE, 0xBA, 0xFE, 0xCA, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + ClockInput, + { + NATIVE_OFFSET(clock_input, source.string), + } +) +TEST_CASE_AML( + Interrupt, + { + /* + * Interrupt (ResourceConsumer, Level, ActiveHigh, ExclusiveAndWake, + * 0xFF, "\\1234.5678.AAAA.BBBB", NAM0) + * { 1, 2, 3, 4, 0xDEADBEEF, 0xFFFFFFFF, 0 } + */ + 0x89, 0x34, 0x00, 0x11, 0x07, 0x01, 0x00, 0x00, + 0x00, 0x02, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, + 0x00, 0x04, 0x00, 0x00, 0x00, 0xEF, 0xBE, 0xAD, + 0xDE, 0xFF, 0xFF, 0xFF, 0xFF, 0x00, 0x00, 0x00, + 0x00, 0xFF, 0x5C, 0x31, 0x32, 0x33, 0x34, 0x2E, + 0x35, 0x36, 0x37, 0x38, 0x2E, 0x41, 0x41, 0x41, + 0x41, 0x2E, 0x42, 0x42, 0x42, 0x42, 0x00, + + /* + * NOTE: + * This one is buggy as well, but should be supported as iasl allows + * generating it just fine. + * + * Interrupt (ResourceProducer, Edge, ActiveLow, SharedAndWake, + * 0xEE, , NAM1) + * { 1 } + */ + 0x89, 0x07, 0x00, 0x1E, 0x01, 0x01, 0x00, 0x00, + 0x00, 0xEE, + + /* + * Interrupt (ResourceProducer, Edge, ActiveLow, Exclusive, + * , , NAM2) + * { 0xFFFFFFFF } + */ + 0x89, 0x06, 0x00, 0x06, 0x01, 0xFF, 0xFF, 0xFF, + 0xFF, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + Interrupt, + { + UACPI_RESOURCE_TYPE_EXTENDED_IRQ, + 0x00, 0x00, 0x00, 0x58, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x01, 0x07, 0x00, 0x00, + 0xFF, 0x01, 0x15, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x01, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, + 0x03, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, + 0xEF, 0xBE, 0xAD, 0xDE, 0xFF, 0xFF, 0xFF, 0xFF, + 0x00, 0x00, 0x00, 0x00, 0x5C, 0x31, 0x32, 0x33, + 0x34, 0x2E, 0x35, 0x36, 0x37, 0x38, 0x2E, 0x41, + 0x41, 0x41, 0x41, 0x2E, 0x42, 0x42, 0x42, 0x42, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_EXTENDED_IRQ, + 0x00, 0x00, 0x00, 0x28, 0x00, 0x00, 0x00, + 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x00, 0x00, + 0xEE, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_EXTENDED_IRQ, + 0x00, 0x00, 0x00, 0x28, 0x00, 0x00, 0x00, + 0x00, 0x01, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xFF, 0xFF, 0xFF, 0xFF, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + Interrupt, + { + NATIVE_OFFSET(extended_irq, source.string), + } +) +TEST_CASE_AML( + GpioIO, + { + /* + * GpioIo(Shared, PullUp, 0xCAFE, 0xBABE, IoRestrictionOutputOnly, + * "\\1234.5678.AAAA.BBBB", 0xFA, ResourceConsumer, NAM0, + * RawDataBuffer (34) { + * 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0x0C, + * 0x65, 0x90, 0xB0, 0xE0, 0x10, 0xC8, 0x96, 0xA6, + * 0x96, 0x80, 0x5A, 0xA8, 0xA7, 0x06, 0xC5, 0x77, + * 0xD8, 0xA7, 0x67, 0x53, 0xE3, 0x86, 0x03, 0x39, + * 0xDC, 0xBE, + * }) + * { 0xACDC, 0, 1, 0xFFFF, 0xDEAD } + */ + 0x8C, 0x55, 0x00, 0x01, 0x01, 0x01, 0x00, 0x0A, + 0x00, 0x01, 0xBE, 0xBA, 0xFE, 0xCA, 0x17, 0x00, + 0xFA, 0x21, 0x00, 0x36, 0x00, 0x22, 0x00, 0xDC, + 0xAC, 0x00, 0x00, 0x01, 0x00, 0xFF, 0xFF, 0xAD, + 0xDE, 0x5C, 0x31, 0x32, 0x33, 0x34, 0x2E, 0x35, + 0x36, 0x37, 0x38, 0x2E, 0x41, 0x41, 0x41, 0x41, + 0x2E, 0x42, 0x42, 0x42, 0x42, 0x00, 0x44, 0xA6, + 0x5A, 0x82, 0x83, 0x57, 0x7D, 0x0C, 0x65, 0x90, + 0xB0, 0xE0, 0x10, 0xC8, 0x96, 0xA6, 0x96, 0x80, + 0x5A, 0xA8, 0xA7, 0x06, 0xC5, 0x77, 0xD8, 0xA7, + 0x67, 0x53, 0xE3, 0x86, 0x03, 0x39, 0xDC, 0xBE, + + /* + * GpioIo(Exclusive, PullNone, 0xDEAD, 0xBEEF, + * IORestrictionNoneAndPreserve, "\\BBBB", + * 0xDD, ResourceConsumer, NAM0, ) + * { 0xACDC, 0, 1, 0xFFFF, 0xDEAD } + */ + 0x8C, 0x24, 0x00, 0x01, 0x01, 0x01, 0x00, 0x03, + 0x00, 0x03, 0xEF, 0xBE, 0xAD, 0xDE, 0x17, 0x00, + 0xDD, 0x21, 0x00, 0x27, 0x00, 0x00, 0x00, 0xDC, + 0xAC, 0x00, 0x00, 0x01, 0x00, 0xFF, 0xFF, 0xAD, + 0xDE, 0x5C, 0x42, 0x42, 0x42, 0x42, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + GpioIO, + { + UACPI_RESOURCE_TYPE_GPIO_CONNECTION, + 0x00, 0x00, 0x00, 0x88, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x01, 0x00, 0x02, 0x01, 0x00, 0x00, + 0x01, 0x00, 0xBE, 0xBA, 0xFE, 0xCA, 0x22, 0x00, + 0x05, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xFA, 0x01, 0x15, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0xDC, 0xAC, 0x00, 0x00, 0x01, 0x00, 0xFF, 0xFF, + 0xAD, 0xDE, 0x5C, 0x31, 0x32, 0x33, 0x34, 0x2E, + 0x35, 0x36, 0x37, 0x38, 0x2E, 0x41, 0x41, 0x41, + 0x41, 0x2E, 0x42, 0x42, 0x42, 0x42, 0x00, 0x44, + 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0x0C, 0x65, + 0x90, 0xB0, 0xE0, 0x10, 0xC8, 0x96, 0xA6, 0x96, + 0x80, 0x5A, 0xA8, 0xA7, 0x06, 0xC5, 0x77, 0xD8, + 0xA7, 0x67, 0x53, 0xE3, 0x86, 0x03, 0x39, 0xDC, + 0xBE, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_GPIO_CONNECTION, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x01, 0x00, 0x03, 0x00, 0x00, 0x00, + 0x03, 0x00, 0xEF, 0xBE, 0xAD, 0xDE, 0x00, 0x00, + 0x05, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xDD, 0x01, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xDC, 0xAC, 0x00, 0x00, 0x01, 0x00, 0xFF, 0xFF, + 0xAD, 0xDE, 0x5C, 0x42, 0x42, 0x42, 0x42, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + GpioIO, + { + NATIVE_OFFSET(gpio_connection, source.string), + NATIVE_OFFSET(gpio_connection, pin_table), + NATIVE_OFFSET(gpio_connection, vendor_data), + + 0x88 + NATIVE_OFFSET(gpio_connection, source.string), + 0x88 + NATIVE_OFFSET(gpio_connection, pin_table), + } +) +TEST_CASE_AML( + GpioInt, + { + /* + * GpioInt (Edge , ActiveBoth, ExclusiveAndWake, PullUp, 0xAABB, + * "^^^ABCD.EFGH.IJKL", 0xFE, ResourceConsumer, NAM0, + * RawDataBuffer (34) { + * 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0x0C, + * 0x65, 0x90, 0xB0, 0xE0, 0x10, 0xC8, 0x96, 0xA6, + * 0x96, 0x80, 0x5A, 0xA8, 0xA7, 0x06, 0xC5, 0x77, + * 0xD8, 0xA7, 0x67, 0x53, 0xE3, 0x86, 0x03, 0x39, + * 0xDC, 0xBE, + * }) + * { 0xC0DE } + */ + 0x8C, 0x4A, 0x00, 0x01, 0x00, 0x01, 0x00, 0x15, + 0x00, 0x01, 0x00, 0x00, 0xBB, 0xAA, 0x17, 0x00, + 0xFE, 0x19, 0x00, 0x2B, 0x00, 0x22, 0x00, 0xDE, + 0xC0, 0x5E, 0x5E, 0x5E, 0x41, 0x42, 0x43, 0x44, + 0x2E, 0x45, 0x46, 0x47, 0x48, 0x2E, 0x49, 0x4A, + 0x4B, 0x4C, 0x00, 0x44, 0xA6, 0x5A, 0x82, 0x83, + 0x57, 0x7D, 0x0C, 0x65, 0x90, 0xB0, 0xE0, 0x10, + 0xC8, 0x96, 0xA6, 0x96, 0x80, 0x5A, 0xA8, 0xA7, + 0x06, 0xC5, 0x77, 0xD8, 0xA7, 0x67, 0x53, 0xE3, + 0x86, 0x03, 0x39, 0xDC, 0xBE, + + /* + * GpioInt (Edge, ActiveBoth, ExclusiveAndWake, PullUp, 0xAABB, + * "X", 0xAB, ResourceConsumer, NAM0) + * { 0xDEAD } + */ + 0x8C, 0x18, 0x00, 0x01, 0x00, 0x01, 0x00, 0x15, + 0x00, 0x01, 0x00, 0x00, 0xBB, 0xAA, 0x17, 0x00, + 0xAB, 0x19, 0x00, 0x1B, 0x00, 0x00, 0x00, 0xAD, + 0xDE, 0x58, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + GpioInt, + { + UACPI_RESOURCE_TYPE_GPIO_CONNECTION, + 0x00, 0x00, 0x00, 0x78, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x01, 0x00, 0x01, 0x02, 0x00, 0x01, + 0x01, 0x00, 0x00, 0x00, 0xBB, 0xAA, 0x22, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xFE, 0x01, 0x12, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x32, 0x86, 0x64, 0xE2, 0xCD, 0x01, 0x00, 0x00, + 0x30, 0x86, 0x64, 0xE2, 0xCD, 0x01, 0x00, 0x00, + 0x44, 0x86, 0x64, 0xE2, 0xCD, 0x01, 0x00, 0x00, + 0xDE, 0xC0, 0x5E, 0x5E, 0x5E, 0x41, 0x42, 0x43, + 0x44, 0x2E, 0x45, 0x46, 0x47, 0x48, 0x2E, 0x49, + 0x4A, 0x4B, 0x4C, 0x00, 0x44, 0xA6, 0x5A, 0x82, + 0x83, 0x57, 0x7D, 0x0C, 0x65, 0x90, 0xB0, 0xE0, + 0x10, 0xC8, 0x96, 0xA6, 0x96, 0x80, 0x5A, 0xA8, + 0xA7, 0x06, 0xC5, 0x77, 0xD8, 0xA7, 0x67, 0x53, + 0xE3, 0x86, 0x03, 0x39, 0xDC, 0xBE, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_GPIO_CONNECTION, + 0x00, 0x00, 0x00, 0x48, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x01, 0x00, 0x01, 0x02, 0x00, 0x01, + 0x01, 0x00, 0x00, 0x00, 0xBB, 0xAA, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xAB, 0x01, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xAA, 0x86, 0x64, 0xE2, 0xCD, 0x01, 0x00, 0x00, + 0xA8, 0x86, 0x64, 0xE2, 0xCD, 0x01, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xAD, 0xDE, 0x58, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + GpioInt, + { + NATIVE_OFFSET(gpio_connection, source.string), + NATIVE_OFFSET(gpio_connection, pin_table), + NATIVE_OFFSET(gpio_connection, vendor_data), + + 0x78 + NATIVE_OFFSET(gpio_connection, source.string), + 0x78 + NATIVE_OFFSET(gpio_connection, pin_table), + } +) +TEST_CASE_AML( + PinFunction, + { + /* + * PinFunction( + * Exclusive, PullDefault, 0xDEAD, + * "string which uniquely identifies the GPIO controller + * referred to by this descriptor", , ResourceConsumer, , ) + * { + * 0x4453, 0x4454, 0x4A02, 0xF075, + * 0x5445, 0x5354, 0x5453, 0x5454, + * 0x41 + * } + */ + 0x8D, 0x75, 0x00, 0x01, 0x00, 0x00, 0x00, 0xAD, + 0xDE, 0x12, 0x00, 0x00, 0x24, 0x00, 0x78, 0x00, + 0x00, 0x00, 0x53, 0x44, 0x54, 0x44, 0x02, 0x4A, + 0x75, 0xF0, 0x45, 0x54, 0x54, 0x53, 0x53, 0x54, + 0x54, 0x54, 0x41, 0x00, 0x73, 0x74, 0x72, 0x69, + 0x6E, 0x67, 0x20, 0x77, 0x68, 0x69, 0x63, 0x68, + 0x20, 0x75, 0x6E, 0x69, 0x71, 0x75, 0x65, 0x6C, + 0x79, 0x20, 0x69, 0x64, 0x65, 0x6E, 0x74, 0x69, + 0x66, 0x69, 0x65, 0x73, 0x20, 0x74, 0x68, 0x65, + 0x20, 0x47, 0x50, 0x49, 0x4F, 0x20, 0x63, 0x6F, + 0x6E, 0x74, 0x72, 0x6F, 0x6C, 0x6C, 0x65, 0x72, + 0x20, 0x72, 0x65, 0x66, 0x65, 0x72, 0x72, 0x65, + 0x64, 0x20, 0x74, 0x6F, 0x20, 0x62, 0x79, 0x20, + 0x74, 0x68, 0x69, 0x73, 0x20, 0x64, 0x65, 0x73, + 0x63, 0x72, 0x69, 0x70, 0x74, 0x6F, 0x72, 0x00, + + /* + * PinFunction( + * Exclusive, PullDefault, 0xDEAD, + * "", 0xFF, ResourceConsumer, , + * RawDataBuffer (9) { + * 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, + * 0xDC, 0xBE, + * }) + * { + * 0xDEAD, 0xC0DE, 0xBEEF, 0xCAFE + * } + */ + 0x8D, 0x21, 0x00, 0x01, 0x00, 0x00, 0x00, 0xAD, + 0xDE, 0x12, 0x00, 0xFF, 0x1A, 0x00, 0x1B, 0x00, + 0x09, 0x00, 0xAD, 0xDE, 0xDE, 0xC0, 0xEF, 0xBE, + 0xFE, 0xCA, 0x00, 0x44, 0xA6, 0x5A, 0x82, 0x83, + 0x57, 0x7D, 0xDC, 0xBE, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + PinFunction, + { + UACPI_RESOURCE_TYPE_PIN_FUNCTION, + 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0xAD, 0xDE, 0x09, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x01, 0x54, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x53, 0x44, 0x54, 0x44, 0x02, 0x4A, 0x75, 0xF0, + 0x45, 0x54, 0x54, 0x53, 0x53, 0x54, 0x54, 0x54, + 0x41, 0x00, 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, + 0x20, 0x77, 0x68, 0x69, 0x63, 0x68, 0x20, 0x75, + 0x6E, 0x69, 0x71, 0x75, 0x65, 0x6C, 0x79, 0x20, + 0x69, 0x64, 0x65, 0x6E, 0x74, 0x69, 0x66, 0x69, + 0x65, 0x73, 0x20, 0x74, 0x68, 0x65, 0x20, 0x47, + 0x50, 0x49, 0x4F, 0x20, 0x63, 0x6F, 0x6E, 0x74, + 0x72, 0x6F, 0x6C, 0x6C, 0x65, 0x72, 0x20, 0x72, + 0x65, 0x66, 0x65, 0x72, 0x72, 0x65, 0x64, 0x20, + 0x74, 0x6F, 0x20, 0x62, 0x79, 0x20, 0x74, 0x68, + 0x69, 0x73, 0x20, 0x64, 0x65, 0x73, 0x63, 0x72, + 0x69, 0x70, 0x74, 0x6F, 0x72, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_PIN_FUNCTION, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0xAD, 0xDE, 0x04, 0x00, + 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xFF, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0xAD, 0xDE, 0xDE, 0xC0, 0xEF, 0xBE, 0xFE, 0xCA, + 0x00, 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, + 0xDC, 0xBE, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + PinFunction, + { + NATIVE_OFFSET(pin_function, source.string), + NATIVE_OFFSET(pin_function, pin_table), + + 0xA0 + NATIVE_OFFSET(pin_function, source.string), + 0xA0 + NATIVE_OFFSET(pin_function, pin_table), + 0xA0 + NATIVE_OFFSET(pin_function, vendor_data), + } +) +TEST_CASE_AML( + PinConfig, + { + /* + * PinConfig( + * Exclusive, 0x0B, 0xDEADBEEF, + * "\\DEAD.BEEF", 0xAB, ResourceConsumer, , + * RawDataBuffer (9) { + * 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, + * 0xDC, 0xBE, + * }) + * { + * 0xDEAD, 0xC0DE + * } + */ + 0x8F, 0x29, 0x00, 0x01, 0x02, 0x00, 0x0B, 0xEF, + 0xBE, 0xAD, 0xDE, 0x14, 0x00, 0xAB, 0x18, 0x00, + 0x23, 0x00, 0x09, 0x00, 0xAD, 0xDE, 0xDE, 0xC0, + 0x5C, 0x44, 0x45, 0x41, 0x44, 0x2E, 0x42, 0x45, + 0x45, 0x46, 0x00, 0x44, 0xA6, 0x5A, 0x82, 0x83, + 0x57, 0x7D, 0xDC, 0xBE, + + /* + * PinConfig( + * Shared, 0x05, 0xCAFEBABE, + * "123", 0xCD, ResourceConsumer, , ) + * { + * 0 + * } + */ + 0x8F, 0x17, 0x00, 0x01, 0x03, 0x00, 0x05, 0xBE, + 0xBA, 0xFE, 0xCA, 0x14, 0x00, 0xCD, 0x16, 0x00, + 0x1A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x31, 0x32, + 0x33, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + PinConfig, + { + UACPI_RESOURCE_TYPE_PIN_CONFIGURATION, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x01, 0x0B, 0xEF, 0xBE, 0xAD, 0xDE, + 0x02, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xAB, 0x01, 0x0B, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0xAD, 0xDE, 0xDE, 0xC0, 0x5C, 0x44, 0x45, 0x41, + 0x44, 0x2E, 0x42, 0x45, 0x45, 0x46, 0x00, 0x44, + 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, 0xBE, + + UACPI_RESOURCE_TYPE_PIN_CONFIGURATION, + 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x01, 0x05, 0xBE, 0xBA, 0xFE, 0xCA, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xCD, 0x01, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x31, 0x32, 0x33, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + PinConfig, + { + NATIVE_OFFSET(pin_configuration, source.string), + NATIVE_OFFSET(pin_configuration, pin_table), + NATIVE_OFFSET(pin_configuration, vendor_data), + + 0x50 + NATIVE_OFFSET(pin_function, source.string), + 0x50 + NATIVE_OFFSET(pin_function, pin_table), + } +) +TEST_CASE_AML( + PinGroup, + { + /* + * PinGroup( + * "arbitrary, non-empty string that uniquely identifies this + * particular PinGroup", + * ResourceProducer , , RawDataBuffer (9) { + * 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, + * 0xDC, 0xBE, + * }) + * { 0xDEAD } + */ + 0x90, 0x64, 0x00, 0x01, 0x00, 0x00, 0x0E, 0x00, + 0x10, 0x00, 0x5E, 0x00, 0x09, 0x00, 0xAD, 0xDE, + 0x61, 0x72, 0x62, 0x69, 0x74, 0x72, 0x61, 0x72, + 0x79, 0x2C, 0x20, 0x6E, 0x6F, 0x6E, 0x2D, 0x65, + 0x6D, 0x70, 0x74, 0x79, 0x20, 0x73, 0x74, 0x72, + 0x69, 0x6E, 0x67, 0x20, 0x74, 0x68, 0x61, 0x74, + 0x20, 0x75, 0x6E, 0x69, 0x71, 0x75, 0x65, 0x6C, + 0x79, 0x20, 0x69, 0x64, 0x65, 0x6E, 0x74, 0x69, + 0x66, 0x69, 0x65, 0x73, 0x20, 0x74, 0x68, 0x69, + 0x73, 0x20, 0x70, 0x61, 0x72, 0x74, 0x69, 0x63, + 0x75, 0x6C, 0x61, 0x72, 0x20, 0x50, 0x69, 0x6E, + 0x47, 0x72, 0x6F, 0x75, 0x70, 0x00, 0x44, 0xA6, + 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, 0xBE, + + /* + * PinGroup("PinGroup", ResourceProducer , , ) + * { 0xDEAD, 0xBEEF, 0xCAFE, 0xBABE } + */ + 0x90, 0x1C, 0x00, 0x01, 0x00, 0x00, 0x0E, 0x00, + 0x16, 0x00, 0x1F, 0x00, 0x00, 0x00, 0xAD, 0xDE, + 0xEF, 0xBE, 0xFE, 0xCA, 0xBE, 0xBA, 0x50, 0x69, + 0x6E, 0x47, 0x72, 0x6F, 0x75, 0x70, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + PinGroup, + { + UACPI_RESOURCE_TYPE_PIN_GROUP, + 0x00, 0x00, 0x00, 0x90, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x01, 0x00, 0x09, 0x00, 0x00, 0x00, + 0x4E, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // label.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0xAD, 0xDE, 0x61, 0x72, 0x62, 0x69, 0x74, 0x72, + 0x61, 0x72, 0x79, 0x2C, 0x20, 0x6E, 0x6F, 0x6E, + 0x2D, 0x65, 0x6D, 0x70, 0x74, 0x79, 0x20, 0x73, + 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, 0x74, 0x68, + 0x61, 0x74, 0x20, 0x75, 0x6E, 0x69, 0x71, 0x75, + 0x65, 0x6C, 0x79, 0x20, 0x69, 0x64, 0x65, 0x6E, + 0x74, 0x69, 0x66, 0x69, 0x65, 0x73, 0x20, 0x74, + 0x68, 0x69, 0x73, 0x20, 0x70, 0x61, 0x72, 0x74, + 0x69, 0x63, 0x75, 0x6C, 0x61, 0x72, 0x20, 0x50, + 0x69, 0x6E, 0x47, 0x72, 0x6F, 0x75, 0x70, 0x00, + 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, + 0xBE, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_PIN_GROUP, + 0x00, 0x00, 0x00, 0x48, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // label.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // pin_table + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xAD, 0xDE, 0xEF, 0xBE, 0xFE, 0xCA, 0xBE, 0xBA, + 0x50, 0x69, 0x6E, 0x47, 0x72, 0x6F, 0x75, 0x70, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + PinGroup, + { + NATIVE_OFFSET(pin_group, label.string), + NATIVE_OFFSET(pin_group, pin_table), + NATIVE_OFFSET(pin_group, vendor_data), + + 0x90 + NATIVE_OFFSET(pin_group, label.string), + 0x90 + NATIVE_OFFSET(pin_group, pin_table), + } +) +TEST_CASE_AML( + PinGroupFunction, + { + /* + * PinGroupFunction( + * Exclusive, 0xDEAD, + * "string that uniquely identifies the GPIO controller", 0xFE, + * "non-empty string argument that matches ResourceLabel + * of a PinGroup", + * ResourceConsumer, , RawDataBuffer (9) { + * 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, + * 0xDC, 0xBE, + * }) + */ + 0x91, 0x8E, 0x00, 0x01, 0x02, 0x00, 0xAD, 0xDE, + 0xFE, 0x11, 0x00, 0x45, 0x00, 0x88, 0x00, 0x09, + 0x00, 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, + 0x74, 0x68, 0x61, 0x74, 0x20, 0x75, 0x6E, 0x69, + 0x71, 0x75, 0x65, 0x6C, 0x79, 0x20, 0x69, 0x64, + 0x65, 0x6E, 0x74, 0x69, 0x66, 0x69, 0x65, 0x73, + 0x20, 0x74, 0x68, 0x65, 0x20, 0x47, 0x50, 0x49, + 0x4F, 0x20, 0x63, 0x6F, 0x6E, 0x74, 0x72, 0x6F, + 0x6C, 0x6C, 0x65, 0x72, 0x00, 0x6E, 0x6F, 0x6E, + 0x2D, 0x65, 0x6D, 0x70, 0x74, 0x79, 0x20, 0x73, + 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, 0x61, 0x72, + 0x67, 0x75, 0x6D, 0x65, 0x6E, 0x74, 0x20, 0x74, + 0x68, 0x61, 0x74, 0x20, 0x6D, 0x61, 0x74, 0x63, + 0x68, 0x65, 0x73, 0x20, 0x52, 0x65, 0x73, 0x6F, + 0x75, 0x72, 0x63, 0x65, 0x4C, 0x61, 0x62, 0x65, + 0x6C, 0x20, 0x6F, 0x66, 0x20, 0x61, 0x20, 0x50, + 0x69, 0x6E, 0x47, 0x72, 0x6F, 0x75, 0x70, 0x00, + 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, + 0xBE, + + /* + * PinGroupFunction( + * Shared, 0xBEEF, "asdisdfp", 0xCA, "dsadfodp", + * ResourceConsumer, , + * ) + */ + 0x91, 0x20, 0x00, 0x01, 0x03, 0x00, 0xEF, 0xBE, + 0xCA, 0x11, 0x00, 0x1A, 0x00, 0x23, 0x00, 0x00, + 0x00, 0x61, 0x73, 0x64, 0x69, 0x73, 0x64, 0x66, + 0x70, 0x00, 0x64, 0x73, 0x61, 0x64, 0x66, 0x6F, + 0x64, 0x70, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + PinGroupFunction, + { + UACPI_RESOURCE_TYPE_PIN_GROUP_FUNCTION, + 0x00, 0x00, 0x00, 0xB8, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x01, 0x00, 0xAD, 0xDE, 0x09, 0x00, + 0xFE, 0x01, 0x34, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x43, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // label.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, 0x74, + 0x68, 0x61, 0x74, 0x20, 0x75, 0x6E, 0x69, 0x71, + 0x75, 0x65, 0x6C, 0x79, 0x20, 0x69, 0x64, 0x65, + 0x6E, 0x74, 0x69, 0x66, 0x69, 0x65, 0x73, 0x20, + 0x74, 0x68, 0x65, 0x20, 0x47, 0x50, 0x49, 0x4F, + 0x20, 0x63, 0x6F, 0x6E, 0x74, 0x72, 0x6F, 0x6C, + 0x6C, 0x65, 0x72, 0x00, 0x6E, 0x6F, 0x6E, 0x2D, + 0x65, 0x6D, 0x70, 0x74, 0x79, 0x20, 0x73, 0x74, + 0x72, 0x69, 0x6E, 0x67, 0x20, 0x61, 0x72, 0x67, + 0x75, 0x6D, 0x65, 0x6E, 0x74, 0x20, 0x74, 0x68, + 0x61, 0x74, 0x20, 0x6D, 0x61, 0x74, 0x63, 0x68, + 0x65, 0x73, 0x20, 0x52, 0x65, 0x73, 0x6F, 0x75, + 0x72, 0x63, 0x65, 0x4C, 0x61, 0x62, 0x65, 0x6C, + 0x20, 0x6F, 0x66, 0x20, 0x61, 0x20, 0x50, 0x69, + 0x6E, 0x47, 0x72, 0x6F, 0x75, 0x70, 0x00, 0x44, + 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, 0xBE, + + UACPI_RESOURCE_TYPE_PIN_GROUP_FUNCTION, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x01, 0x00, 0xEF, 0xBE, 0x00, 0x00, + 0xCA, 0x01, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // label.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x61, 0x73, 0x64, 0x69, 0x73, 0x64, 0x66, 0x70, + 0x00, 0x64, 0x73, 0x61, 0x64, 0x66, 0x6F, 0x64, + 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + PinGroupFunction, + { + NATIVE_OFFSET(pin_group_function, source.string), + NATIVE_OFFSET(pin_group_function, label.string), + NATIVE_OFFSET(pin_group_function, vendor_data), + + 0xB8 + NATIVE_OFFSET(pin_group_function, source.string), + 0xB8 + NATIVE_OFFSET(pin_group_function, label.string), + } +) +TEST_CASE_AML( + PinGroupConfig, + { + /* + * PinGroupConfig( + * Exclusive, 0x06, 0xDEADBEEF, + * "string that uniquely identifies the GPIO controller", 0xAB, + * "non-empty string argument that matches ResourceLabel + * of a PinGroup", + * ResourceConsumer, , RawDataBuffer (2) { + * 0x44, 0xA6 + * }) + */ + 0x92, 0x8A, 0x00, 0x01, 0x02, 0x00, 0x06, 0xEF, + 0xBE, 0xAD, 0xDE, 0xAB, 0x14, 0x00, 0x48, 0x00, + 0x8B, 0x00, 0x02, 0x00, 0x73, 0x74, 0x72, 0x69, + 0x6E, 0x67, 0x20, 0x74, 0x68, 0x61, 0x74, 0x20, + 0x75, 0x6E, 0x69, 0x71, 0x75, 0x65, 0x6C, 0x79, + 0x20, 0x69, 0x64, 0x65, 0x6E, 0x74, 0x69, 0x66, + 0x69, 0x65, 0x73, 0x20, 0x74, 0x68, 0x65, 0x20, + 0x47, 0x50, 0x49, 0x4F, 0x20, 0x63, 0x6F, 0x6E, + 0x74, 0x72, 0x6F, 0x6C, 0x6C, 0x65, 0x72, 0x00, + 0x6E, 0x6F, 0x6E, 0x2D, 0x65, 0x6D, 0x70, 0x74, + 0x79, 0x20, 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, + 0x20, 0x61, 0x72, 0x67, 0x75, 0x6D, 0x65, 0x6E, + 0x74, 0x20, 0x74, 0x68, 0x61, 0x74, 0x20, 0x6D, + 0x61, 0x74, 0x63, 0x68, 0x65, 0x73, 0x20, 0x52, + 0x65, 0x73, 0x6F, 0x75, 0x72, 0x63, 0x65, 0x4C, + 0x61, 0x62, 0x65, 0x6C, 0x20, 0x6F, 0x66, 0x20, + 0x61, 0x20, 0x50, 0x69, 0x6E, 0x47, 0x72, 0x6F, + 0x75, 0x70, 0x00, 0x44, 0xA6, + + /* + * PinGroupConfig( + * Shared, 0x0D, 0xCAFEBABE, "dsadfodp", 0xDF, "x", + * ResourceConsumer, , + * ) + */ + 0x92, 0x1C, 0x00, 0x01, 0x03, 0x00, 0x0D, 0xBE, + 0xBA, 0xFE, 0xCA, 0xDF, 0x14, 0x00, 0x1D, 0x00, + 0x1F, 0x00, 0x00, 0x00, 0x64, 0x73, 0x61, 0x64, + 0x66, 0x6F, 0x64, 0x70, 0x00, 0x78, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + PinGroupConfig, + { + UACPI_RESOURCE_TYPE_PIN_GROUP_CONFIGURATION, + 0x00, 0x00, 0x00, 0xC0, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x01, 0x06, 0xEF, 0xBE, 0xAD, 0xDE, + 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xAB, 0x01, 0x34, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x43, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // label.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, 0x74, + 0x68, 0x61, 0x74, 0x20, 0x75, 0x6E, 0x69, 0x71, + 0x75, 0x65, 0x6C, 0x79, 0x20, 0x69, 0x64, 0x65, + 0x6E, 0x74, 0x69, 0x66, 0x69, 0x65, 0x73, 0x20, + 0x74, 0x68, 0x65, 0x20, 0x47, 0x50, 0x49, 0x4F, + 0x20, 0x63, 0x6F, 0x6E, 0x74, 0x72, 0x6F, 0x6C, + 0x6C, 0x65, 0x72, 0x00, 0x6E, 0x6F, 0x6E, 0x2D, + 0x65, 0x6D, 0x70, 0x74, 0x79, 0x20, 0x73, 0x74, + 0x72, 0x69, 0x6E, 0x67, 0x20, 0x61, 0x72, 0x67, + 0x75, 0x6D, 0x65, 0x6E, 0x74, 0x20, 0x74, 0x68, + 0x61, 0x74, 0x20, 0x6D, 0x61, 0x74, 0x63, 0x68, + 0x65, 0x73, 0x20, 0x52, 0x65, 0x73, 0x6F, 0x75, + 0x72, 0x63, 0x65, 0x4C, 0x61, 0x62, 0x65, 0x6C, + 0x20, 0x6F, 0x66, 0x20, 0x61, 0x20, 0x50, 0x69, + 0x6E, 0x47, 0x72, 0x6F, 0x75, 0x70, 0x00, 0x44, + 0xA6, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_PIN_GROUP_CONFIGURATION, + 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, + 0x01, 0x01, 0x01, 0x0D, 0xBE, 0xBA, 0xFE, 0xCA, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xDF, 0x01, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // label.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x64, 0x73, 0x61, 0x64, 0x66, 0x6F, 0x64, 0x70, + 0x00, 0x78, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + PinGroupConfig, + { + NATIVE_OFFSET(pin_group_configuration, source.string), + NATIVE_OFFSET(pin_group_configuration, label.string), + NATIVE_OFFSET(pin_group_configuration, vendor_data), + + 0xC0 + NATIVE_OFFSET(pin_group_configuration, source.string), + 0xC0 + NATIVE_OFFSET(pin_group_configuration, label.string), + + } +) +TEST_CASE_AML( + I2CSerialBusV2, + { + /* + * I2cSerialBusV2( + * 0xFF68, ControllerInitiated, 0xABC61A8F, + * AddressingMode7Bit, + * "string which uniquely identifies the I2C bus controller", + * 0x11, ResourceConsumer, , Exclusive, + * RawDataBuffer (9) { + * 0x44, 0xA6, 0x5A, 0x82, + * 0x83, 0x57, 0x7D, 0xDC, + * 0xBE, + * } + * ) + */ + 0x8E, 0x50, 0x00, 0x02, 0x11, 0x01, 0x02, 0x00, + 0x00, 0x01, 0x0F, 0x00, 0x8F, 0x1A, 0xC6, 0xAB, + 0x68, 0xFF, 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, + 0x7D, 0xDC, 0xBE, 0x73, 0x74, 0x72, 0x69, 0x6E, + 0x67, 0x20, 0x77, 0x68, 0x69, 0x63, 0x68, 0x20, + 0x75, 0x6E, 0x69, 0x71, 0x75, 0x65, 0x6C, 0x79, + 0x20, 0x69, 0x64, 0x65, 0x6E, 0x74, 0x69, 0x66, + 0x69, 0x65, 0x73, 0x20, 0x74, 0x68, 0x65, 0x20, + 0x49, 0x32, 0x43, 0x20, 0x62, 0x75, 0x73, 0x20, + 0x63, 0x6F, 0x6E, 0x74, 0x72, 0x6F, 0x6C, 0x6C, + 0x65, 0x72, 0x00, + + /* + * I2cSerialBusV2( + * 0x1199, DeviceInitiated, 0x23456789, + * AddressingMode10Bit, "", + * 0x22, ResourceConsumer, , Shared, + * ) + */ + 0x8E, 0x10, 0x00, 0x02, 0x22, 0x01, 0x07, 0x01, + 0x00, 0x01, 0x06, 0x00, 0x89, 0x67, 0x45, 0x23, + 0x99, 0x11, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + I2CSerialBusV2, + { + UACPI_RESOURCE_TYPE_SERIAL_I2C_CONNECTION, + 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, + 0x02, 0x01, 0x00, 0x01, 0x00, 0x01, 0x0F, 0x00, + 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x11, 0x01, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0x00, 0x00, 0x68, 0xFF, 0x8F, 0x1A, 0xC6, 0xAB, + 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, + 0xBE, 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, + 0x77, 0x68, 0x69, 0x63, 0x68, 0x20, 0x75, 0x6E, + 0x69, 0x71, 0x75, 0x65, 0x6C, 0x79, 0x20, 0x69, + 0x64, 0x65, 0x6E, 0x74, 0x69, 0x66, 0x69, 0x65, + 0x73, 0x20, 0x74, 0x68, 0x65, 0x20, 0x49, 0x32, + 0x43, 0x20, 0x62, 0x75, 0x73, 0x20, 0x63, 0x6F, + 0x6E, 0x74, 0x72, 0x6F, 0x6C, 0x6C, 0x65, 0x72, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_SERIAL_I2C_CONNECTION, + 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, + 0x02, 0x01, 0x01, 0x01, 0x01, 0x01, 0x06, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x22, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x99, 0x11, 0x89, 0x67, 0x45, 0x23, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + I2CSerialBusV2, + { + NATIVE_OFFSET(serial_bus_common, source.string), + NATIVE_OFFSET(serial_bus_common, vendor_data), + + 0x80 + NATIVE_OFFSET(serial_bus_common, source.string), + } +) +TEST_CASE_AML( + SPISerialBusV2, + { + /* + * SPISerialBusV2( + * 0xFF68, PolarityHigh, ThreeWireMode, + * 0xFE, DeviceInitiated, 0xDEADBEEF, + * ClockPolarityLow, ClockPhaseFirst, + * "string which uniquely identifies the SPI bus controller", + * 0xCA, ResourceConsumer, , Exclusive, + * RawDataBuffer (9) { + * 0x44, 0xA6, 0x5A, 0x82, + * 0x83, 0x57, 0x7D, 0xDC, + * 0xBE, + * } + * ) + */ + 0x8E, 0x53, 0x00, 0x02, 0xCA, 0x02, 0x03, 0x03, + 0x00, 0x01, 0x12, 0x00, 0xEF, 0xBE, 0xAD, 0xDE, + 0xFE, 0x00, 0x00, 0x68, 0xFF, 0x44, 0xA6, 0x5A, + 0x82, 0x83, 0x57, 0x7D, 0xDC, 0xBE, 0x73, 0x74, + 0x72, 0x69, 0x6E, 0x67, 0x20, 0x77, 0x68, 0x69, + 0x63, 0x68, 0x20, 0x75, 0x6E, 0x69, 0x71, 0x75, + 0x65, 0x6C, 0x79, 0x20, 0x69, 0x64, 0x65, 0x6E, + 0x74, 0x69, 0x66, 0x69, 0x65, 0x73, 0x20, 0x74, + 0x68, 0x65, 0x20, 0x53, 0x50, 0x49, 0x20, 0x62, + 0x75, 0x73, 0x20, 0x63, 0x6F, 0x6E, 0x74, 0x72, + 0x6F, 0x6C, 0x6C, 0x65, 0x72, 0x00, + + /* + * SPISerialBusV2( + * 0xDABE, PolarityLow, FourWireMode, + * 0x13, ControllerInitiated, 0x87341812, + * ClockPolarityHigh, ClockPhaseSecond, "", + * 0xCB, ResourceConsumer, , Shared, + * ) + */ + 0x8E, 0x13, 0x00, 0x02, 0xCB, 0x02, 0x06, 0x00, + 0x00, 0x01, 0x09, 0x00, 0x12, 0x18, 0x34, 0x87, + 0x13, 0x01, 0x01, 0xBE, 0xDA, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + SPISerialBusV2, + { + UACPI_RESOURCE_TYPE_SERIAL_SPI_CONNECTION, + 0x00, 0x00, 0x00, 0x88, 0x00, 0x00, 0x00, + 0x02, 0x02, 0x01, 0x01, 0x00, 0x01, 0x12, 0x00, + 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xCA, 0x01, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0x01, 0x01, 0xFE, 0x00, 0x00, 0x68, 0xFF, 0x00, + 0xEF, 0xBE, 0xAD, 0xDE, 0x00, 0x00, 0x00, 0x00, + 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, + 0xBE, 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, + 0x77, 0x68, 0x69, 0x63, 0x68, 0x20, 0x75, 0x6E, + 0x69, 0x71, 0x75, 0x65, 0x6C, 0x79, 0x20, 0x69, + 0x64, 0x65, 0x6E, 0x74, 0x69, 0x66, 0x69, 0x65, + 0x73, 0x20, 0x74, 0x68, 0x65, 0x20, 0x53, 0x50, + 0x49, 0x20, 0x62, 0x75, 0x73, 0x20, 0x63, 0x6F, + 0x6E, 0x74, 0x72, 0x6F, 0x6C, 0x6C, 0x65, 0x72, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_SERIAL_SPI_CONNECTION, + 0x00, 0x00, 0x00, 0x48, 0x00, 0x00, 0x00, + 0x02, 0x02, 0x00, 0x01, 0x01, 0x01, 0x09, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xCB, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x13, 0x01, 0x01, 0xBE, 0xDA, 0x00, + 0x12, 0x18, 0x34, 0x87, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + 0x1D, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, + } +) +TEST_CASE_POINTERS( + SPISerialBusV2, + { + NATIVE_OFFSET(serial_bus_common, source.string), + NATIVE_OFFSET(serial_bus_common, vendor_data), + + 0x88 + NATIVE_OFFSET(serial_bus_common, source.string), + } +) +TEST_CASE_AML( + UARTSerialBusV2, + { + /* + * UARTSerialBusV2( + * 0xCAFEBABE, DataBitsFive, StopBitsZero, 0x19, + * LittleEndian, ParityTypeMark, FlowControlHardware, 0xABEC, + * 0xC3BB, "?", 0xCA, ResourceConsumer, , Exclusive, + * ) + */ + 0x8E, 0x15, 0x00, 0x02, 0xCA, 0x03, 0x02, 0x01, + 0x00, 0x01, 0x0A, 0x00, 0xBE, 0xBA, 0xFE, 0xCA, + 0xEC, 0xAB, 0xBB, 0xC3, 0x03, 0x19, 0x3F, 0x00, + + /* + * UARTSerialBusV2( + * 0xDEADBEEF, DataBitsNine, StopBitsOnePlusHalf, 0x70, + * BigEndian, ParityTypeEven, FlowControlXON, 0xBACE, + * 0xC1AB, "string which uniquely identifies the UART", + * 0xB2, ResourceConsumer, , Shared, RawDataBuffer (16) { + * 0x44, 0xA6, 0x5A, 0x82, + * 0x83, 0x57, 0x7D, 0xDC, + * 0x84, 0x56, 0x7A, 0xDD, + * 0x85, 0x58, 0x7E, 0xDB, + * }) + */ + 0x8E, 0x4D, 0x00, 0x02, 0xB2, 0x03, 0x06, 0xCA, + 0x00, 0x01, 0x1A, 0x00, 0xEF, 0xBE, 0xAD, 0xDE, + 0xCE, 0xBA, 0xAB, 0xC1, 0x01, 0x70, 0x44, 0xA6, + 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, 0x84, 0x56, + 0x7A, 0xDD, 0x85, 0x58, 0x7E, 0xDB, 0x73, 0x74, + 0x72, 0x69, 0x6E, 0x67, 0x20, 0x77, 0x68, 0x69, + 0x63, 0x68, 0x20, 0x75, 0x6E, 0x69, 0x71, 0x75, + 0x65, 0x6C, 0x79, 0x20, 0x69, 0x64, 0x65, 0x6E, + 0x74, 0x69, 0x66, 0x69, 0x65, 0x73, 0x20, 0x74, + 0x68, 0x65, 0x20, 0x55, 0x41, 0x52, 0x54, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + UARTSerialBusV2, + { + UACPI_RESOURCE_TYPE_SERIAL_UART_CONNECTION, + 0x00, 0x00, 0x00, 0x48, 0x00, 0x00, 0x00, + 0x02, 0x03, 0x00, 0x01, 0x00, 0x01, 0x0A, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xCA, 0x01, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x03, 0x19, 0x01, 0x00, 0x00, + 0xBE, 0xBA, 0xFE, 0xCA, 0xEC, 0xAB, 0xBB, 0xC3, + 0x3F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_SERIAL_UART_CONNECTION, + 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, + 0x02, 0x03, 0x00, 0x01, 0x01, 0x01, 0x1A, 0x00, + 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xB2, 0x01, 0x2A, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0x02, 0x04, 0x01, 0x01, 0x70, 0x02, 0x00, 0x00, + 0xEF, 0xBE, 0xAD, 0xDE, 0xCE, 0xBA, 0xAB, 0xC1, + 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, + 0x84, 0x56, 0x7A, 0xDD, 0x85, 0x58, 0x7E, 0xDB, + 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, 0x20, 0x77, + 0x68, 0x69, 0x63, 0x68, 0x20, 0x75, 0x6E, 0x69, + 0x71, 0x75, 0x65, 0x6C, 0x79, 0x20, 0x69, 0x64, + 0x65, 0x6E, 0x74, 0x69, 0x66, 0x69, 0x65, 0x73, + 0x20, 0x74, 0x68, 0x65, 0x20, 0x55, 0x41, 0x52, + 0x54, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + UARTSerialBusV2, + { + NATIVE_OFFSET(serial_bus_common, source.string), + + 0x48 + NATIVE_OFFSET(serial_bus_common, source.string), + 0x48 + NATIVE_OFFSET(serial_bus_common, vendor_data), + } +) +TEST_CASE_AML( + CSI2Bus, + { + /* + * CSI2Bus( + * DeviceInitiated, 3, 0x2D, + * "the remote CSI-2 receiver referred to by this descriptor.", + * 0x38, ResourceConsumer, , + * RawDataBuffer (16) { + * 0x44, 0xA6, 0x5A, 0x82, + * 0x83, 0x57, 0x7D, 0xDC, + * 0x84, 0x56, 0x7A, 0xDD, + * 0x85, 0x58, 0x7E, 0xDB, + * }) + */ + 0x8E, 0x53, 0x00, 0x01, 0x38, 0x04, 0x03, 0x2F, + 0x00, 0x01, 0x10, 0x00, 0x44, 0xA6, 0x5A, 0x82, + 0x83, 0x57, 0x7D, 0xDC, 0x84, 0x56, 0x7A, 0xDD, + 0x85, 0x58, 0x7E, 0xDB, 0x74, 0x68, 0x65, 0x20, + 0x72, 0x65, 0x6D, 0x6F, 0x74, 0x65, 0x20, 0x43, + 0x53, 0x49, 0x2D, 0x32, 0x20, 0x72, 0x65, 0x63, + 0x65, 0x69, 0x76, 0x65, 0x72, 0x20, 0x72, 0x65, + 0x66, 0x65, 0x72, 0x72, 0x65, 0x64, 0x20, 0x74, + 0x6F, 0x20, 0x62, 0x79, 0x20, 0x74, 0x68, 0x69, + 0x73, 0x20, 0x64, 0x65, 0x73, 0x63, 0x72, 0x69, + 0x70, 0x74, 0x6F, 0x72, 0x2E, 0x00, + + /* + * CSI2Bus( + * ControllerInitiated, 2, 0x11, " ", + * 0x29, ResourceConsumer, , + * ) + */ + 0x8E, 0x0B, 0x00, 0x01, 0x29, 0x04, 0x02, 0x13, + 0x00, 0x01, 0x00, 0x00, 0x20, 0x00, + + AML_END_TAG, + } +) +TEST_CASE_NATIVE( + CSI2Bus, + { + UACPI_RESOURCE_TYPE_SERIAL_CSI2_CONNECTION, + 0x00, 0x00, 0x00, 0x88, 0x00, 0x00, 0x00, + 0x01, 0x04, 0x01, 0x01, 0x00, 0x01, 0x10, 0x00, + 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x38, 0x01, 0x3A, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // vendor_data + 0x03, 0x0B, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x44, 0xA6, 0x5A, 0x82, 0x83, 0x57, 0x7D, 0xDC, + 0x84, 0x56, 0x7A, 0xDD, 0x85, 0x58, 0x7E, 0xDB, + 0x74, 0x68, 0x65, 0x20, 0x72, 0x65, 0x6D, 0x6F, + 0x74, 0x65, 0x20, 0x43, 0x53, 0x49, 0x2D, 0x32, + 0x20, 0x72, 0x65, 0x63, 0x65, 0x69, 0x76, 0x65, + 0x72, 0x20, 0x72, 0x65, 0x66, 0x65, 0x72, 0x72, + 0x65, 0x64, 0x20, 0x74, 0x6F, 0x20, 0x62, 0x79, + 0x20, 0x74, 0x68, 0x69, 0x73, 0x20, 0x64, 0x65, + 0x73, 0x63, 0x72, 0x69, 0x70, 0x74, 0x6F, 0x72, + 0x2E, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + UACPI_RESOURCE_TYPE_SERIAL_CSI2_CONNECTION, + 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, + 0x01, 0x04, 0x00, 0x01, 0x00, 0x01, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x29, 0x01, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // source.string + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x03, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + + NATIVE_END_TAG, + } +) +TEST_CASE_POINTERS( + CSI2Bus, + { + NATIVE_OFFSET(serial_bus_common, source.string), + NATIVE_OFFSET(serial_bus_common, vendor_data), + + 0x88 + NATIVE_OFFSET(serial_bus_common, source.string), + } +) + +#define TEST_CASE(name) \ + { \ + #name, \ + res_aml_##name, \ + UACPI_ARRAY_SIZE(res_aml_##name), \ + res_native_##name, \ + UACPI_ARRAY_SIZE(res_native_##name), \ + NULL, \ + 0, \ + } +#define TEST_CASE_PTRS(name) \ + { \ + #name, \ + res_aml_##name, \ + UACPI_ARRAY_SIZE(res_aml_##name), \ + res_native_##name, \ + UACPI_ARRAY_SIZE(res_native_##name), \ + res_pointers_##name, \ + UACPI_ARRAY_SIZE(res_pointers_##name), \ + } + +static const struct test_case test_cases[] = { + TEST_CASE(IRQ), + TEST_CASE(DMA), + TEST_CASE(Start_End_DependentFn), + TEST_CASE(IO), + TEST_CASE(FixedIO), + TEST_CASE(FixedDMA), + TEST_CASE(Vendor_Short_Long), + TEST_CASE(Memory_24_32_Fixed32), + TEST_CASE(Register), + TEST_CASE(ExtendedIO), + TEST_CASE(ExtendedMemory), + TEST_CASE(ExtendedSpace), + TEST_CASE_PTRS(WordBusNumber), + TEST_CASE_PTRS(WordIO), + TEST_CASE_PTRS(WordSpace), + TEST_CASE_PTRS(DWordIO), + TEST_CASE_PTRS(DWordMemory), + TEST_CASE_PTRS(DWordSpace), + TEST_CASE_PTRS(QWordIO), + TEST_CASE_PTRS(QWordMemory), + TEST_CASE_PTRS(QWordSpace), + TEST_CASE_PTRS(ClockInput), + TEST_CASE_PTRS(Interrupt), + TEST_CASE_PTRS(GpioIO), + TEST_CASE_PTRS(GpioInt), + TEST_CASE_PTRS(PinFunction), + TEST_CASE_PTRS(PinConfig), + TEST_CASE_PTRS(PinGroup), + TEST_CASE_PTRS(PinGroupFunction), + TEST_CASE_PTRS(PinGroupConfig), + TEST_CASE_PTRS(I2CSerialBusV2), + TEST_CASE_PTRS(SPISerialBusV2), + TEST_CASE_PTRS(UARTSerialBusV2), + TEST_CASE_PTRS(CSI2Bus), +}; + +static bool have_offset(const struct test_case *test, size_t offset) +{ + size_t i; + + for (i = 0; i < test->num_pointer_offsets; i++) + if (test->pointer_offsets[i] == offset) + return true; + + return false; +} + +void run_resource_tests(void) +{ + size_t fail_count = 0; + size_t i; + + if (sizeof(void*) == 4) { + /* + * Since resource tests do byte-by-byte memcmps it's too much work to + * make them support multiple bit widths. The current implementation + * is targeting 64-bit platforms. + */ + printf("Resource tests only support 64-bit platforms\n"); + return; + } + + for (i = 0; i < UACPI_ARRAY_SIZE(test_cases); i++) { + const struct test_case *test = &test_cases[i]; + uacpi_resources *resources; + uacpi_data_view aml_buffer; + uint8_t *bytes; + uacpi_status ret; + uacpi_object *resource_template = NULL; + size_t i; + + printf("Running resource test '%s'...", test->name); + + aml_buffer.bytes = test->aml_bytes; + aml_buffer.length = test->num_aml_bytes; + + ret = uacpi_native_resources_from_aml(aml_buffer, &resources); + if (uacpi_unlikely_error(ret)) { + printf("from_aml error: %s\n", uacpi_status_to_string(ret)); + fail_count++; + goto next_test; + } + + if (resources->length != test->num_native_bytes) { + printf( + "unexpected native length %zu (expected %zu)\n", + resources->length, test->num_native_bytes + ); + fail_count++; + goto next_test; + } + + bytes = (uint8_t*)resources->entries; + for (i = 0; i < resources->length; ++i) { + if ((i & (sizeof(void*) - 1)) == 0 && have_offset(test, i)) { + i += sizeof(void*) - 1; + continue; + } + + if (bytes[i] != test->native_bytes[i]) { + printf( + "native byte[%zu] mismatch, expected 0x%02X, got 0x%02X\n", + i, test->native_bytes[i], bytes[i] + ); + fail_count++; + goto next_test; + } + } + + ret = uacpi_native_resources_to_aml(resources, &resource_template); + if (uacpi_unlikely_error(ret)) { + printf("to_aml error: %s\n", uacpi_status_to_string(ret)); + fail_count++; + goto next_test; + } + + if (resource_template->buffer->size != test->num_aml_bytes) { + printf( + "unexpected AML length %zu (expected %zu)\n", + resource_template->buffer->size, test->num_aml_bytes + ); + fail_count++; + goto next_test; + } + + for (i = 0; i < resource_template->buffer->size; ++i) + if (resource_template->buffer->byte_data[i] != test->aml_bytes[i]) { + printf( + "AML byte[%zu] mismatch, expected 0x%02X, got 0x%02X\n", + i, test->aml_bytes[i], + resource_template->buffer->byte_data[i] + ); + fail_count++; + goto next_test; + } + + puts("OK"); + + next_test: + uacpi_free_resources(resources); + uacpi_object_unref(resource_template); + } + + if (fail_count) + error("one or more resource tests failed"); +} diff --git a/kernel/hal/x86_64/uACPI/tests/runner/test_runner.c b/kernel/hal/x86_64/uACPI/tests/runner/test_runner.c new file mode 100644 index 0000000..d69eb7c --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/runner/test_runner.c @@ -0,0 +1,570 @@ +#include "argparser.h" +#include "helpers.h" +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +void run_resource_tests(void); +void test_object_api(void); +void test_address_spaces(void); +void interface_cleanup(void); + +static uacpi_object_type string_to_object_type(const char *str) +{ + if (strcmp(str, "int") == 0) + return UACPI_OBJECT_INTEGER; + if (strcmp(str, "str") == 0) + return UACPI_OBJECT_STRING; + + error("Unsupported type for validation: %s", str); + return UACPI_OBJECT_UNINITIALIZED; +} + +static void validate_ret_against_expected( + uacpi_object *obj, uacpi_object_type expected_type, const char *expected_val +) +{ + uacpi_object_type type = uacpi_object_get_type(obj); + + if (type != expected_type) + error( + "returned type '%s' doesn't match expected '%s", + uacpi_object_type_to_string(expected_type), + uacpi_object_type_to_string(type) + ); + + switch (type) { + case UACPI_OBJECT_INTEGER: { + uacpi_u64 expected_int = strtoull(expected_val, NULL, 0); + uacpi_u64 actual_int; + + uacpi_object_get_integer(obj, &actual_int); + + if (expected_int != actual_int) + error( + "returned value '%" PRIu64 "' doesn't match expected '%" PRIu64 + "'", actual_int, expected_int + ); + + break; + } + case UACPI_OBJECT_STRING: { + uacpi_data_view view; + const char *actual_str; + + uacpi_object_get_string_or_buffer(obj, &view); + actual_str = view.text; + + if (strcmp(expected_val, actual_str) != 0) + error( + "returned value '%s' doesn't match expected '%s'", + actual_str, expected_val + ); + + break; + } + default: + abort(); + } +} + +static void nested_printf(uacpi_u32 depth, const char *fmt, ...) +{ + va_list va; + size_t padding = depth * 4; + + while (padding-- > 0) + printf(" "); + + va_start(va, fmt); + vprintf(fmt, va); + va_end(va); +} + +static void dump_resources( + uacpi_u32 depth, uacpi_namespace_node *node, + uacpi_status (*cb)(uacpi_namespace_node *, uacpi_resources **), + const char *name +) +{ + uacpi_resources *res; + uacpi_status ret = cb(node, &res); + + if (ret == UACPI_STATUS_OK) { + // TODO: dump resources here + nested_printf(depth, " %s: <%u bytes>\n", name, res->length); + uacpi_free_resources(res); + } else if (ret != UACPI_STATUS_NOT_FOUND) + nested_printf( + depth, " %s: unable to evaluate (%s)\n", name, + uacpi_status_to_string(ret) + ); +} + +static uacpi_iteration_decision dump_one_node( + void *ptr, uacpi_namespace_node *node, uacpi_u32 depth +) +{ + struct uacpi_namespace_node_info *info; + uacpi_status ret = uacpi_get_namespace_node_info(node, &info); + const char *path; + + UACPI_UNUSED(ptr); + + if (uacpi_unlikely_error(ret)) { + uacpi_object_name name = uacpi_namespace_node_name(node); + + fprintf( + stderr, "unable to get node %.4s info: %s\n", name.text, + uacpi_status_to_string(ret) + ); + exit(1); + } + + path = uacpi_namespace_node_generate_absolute_path(node); + nested_printf( + depth, "%s [%s]", path, uacpi_object_type_to_string(info->type) + ); + uacpi_free_absolute_path(path); + + if (info->type == UACPI_OBJECT_METHOD) + printf(" (%d args)", info->num_params); + + if (info->flags) + printf(" {\n"); + + if (info->flags) + nested_printf(depth, " _ADR: %016" PRIX64 "\n", info->adr); + + if (info->flags & UACPI_NS_NODE_INFO_HAS_HID) + nested_printf(depth, " _HID: %s\n", info->hid.value); + + if (info->flags & UACPI_NS_NODE_INFO_HAS_CID) { + size_t i; + + nested_printf(depth, " _CID: "); + for (i = 0; i < info->cid.num_ids; ++i) + printf("%s ", info->cid.ids[i].value); + + printf("\n"); + } + + if (info->flags & UACPI_NS_NODE_INFO_HAS_UID) + nested_printf(depth, " _UID: %s\n", info->uid.value); + + if (info->flags & UACPI_NS_NODE_INFO_HAS_CLS) + nested_printf(depth, " _CLS: %s\n", info->cls.value); + + if (info->flags & UACPI_NS_NODE_INFO_HAS_SXD) + nested_printf( + depth, " _SxD: S1->D%d S2->D%d S3->D%d S4->D%d\n", info->sxd[0], + info->sxd[1], info->sxd[2], info->sxd[3] + ); + + if (info->flags & UACPI_NS_NODE_INFO_HAS_SXW) + nested_printf( + depth, " _SxW: S0->D%d S1->D%d S2->D%d S3->D%d S4->D%d\n", + info->sxw[0], info->sxw[1], info->sxw[2], info->sxw[3], info->sxw[4] + ); + + if (info->flags) { + if (info->type == UACPI_OBJECT_DEVICE) { + dump_resources(depth, node, uacpi_get_current_resources, "_CRS"); + dump_resources(depth, node, uacpi_get_possible_resources, "_PRS"); + } + + nested_printf(depth, "}\n"); + } else + printf("\n"); + + uacpi_free_namespace_node_info(info); + return UACPI_ITERATION_DECISION_CONTINUE; +} + +static void enumerate_namespace(void) +{ + uacpi_namespace_node *root = uacpi_namespace_root(); + + dump_one_node(NULL, root, 0); + uacpi_namespace_for_each_child_simple(root, dump_one_node, NULL); +} + +/* + * DefinitionBlock ("x.aml", "SSDT", 1, "uTEST", "OVERRIDE", 0xF0F0F0F0) + * { + * Name (VAL, "TestRunner") + * } + */ +static uint8_t table_override[] = { + 0x53, 0x53, 0x44, 0x54, 0x35, 0x00, 0x00, 0x00, + 0x01, 0xa1, 0x75, 0x54, 0x45, 0x53, 0x54, 0x00, + 0x4f, 0x56, 0x45, 0x52, 0x52, 0x49, 0x44, 0x45, + 0xf0, 0xf0, 0xf0, 0xf0, 0x49, 0x4e, 0x54, 0x4c, + 0x25, 0x09, 0x20, 0x20, 0x08, 0x56, 0x41, 0x4c, + 0x5f, 0x0d, 0x54, 0x65, 0x73, 0x74, 0x52, 0x75, + 0x6e, 0x6e, 0x65, 0x72, 0x00 +}; + +/* + * DefinitionBlock ("x.aml", "SSDT", 1, "uTEST", "RUNRIDTB", 0xF0F0F0F0) + * { + * Name (\_SI.TID, "uACPI") + * Printf("TestRunner ID SSDT loaded!") + * } + */ +static uint8_t runner_id_table[] = { + 0x53, 0x53, 0x44, 0x54, 0x55, 0x00, 0x00, 0x00, + 0x01, 0x45, 0x75, 0x54, 0x45, 0x53, 0x54, 0x00, + 0x52, 0x55, 0x4e, 0x52, 0x49, 0x44, 0x54, 0x42, + 0xf0, 0xf0, 0xf0, 0xf0, 0x49, 0x4e, 0x54, 0x4c, + 0x25, 0x09, 0x20, 0x20, 0x08, 0x5c, 0x2e, 0x5f, + 0x53, 0x49, 0x5f, 0x54, 0x49, 0x44, 0x5f, 0x0d, + 0x75, 0x41, 0x43, 0x50, 0x49, 0x00, 0x70, 0x0d, + 0x54, 0x65, 0x73, 0x74, 0x52, 0x75, 0x6e, 0x6e, + 0x65, 0x72, 0x20, 0x49, 0x44, 0x20, 0x53, 0x53, + 0x44, 0x54, 0x20, 0x6c, 0x6f, 0x61, 0x64, 0x65, + 0x64, 0x21, 0x00, 0x5b, 0x31 +}; + +static uacpi_table_installation_disposition handle_table_install( + struct acpi_sdt_hdr *hdr, uacpi_u64 *out_override +) +{ + if (!strncmp(hdr->oem_table_id, "DENYTABL", sizeof(hdr->oem_table_id))) + return UACPI_TABLE_INSTALLATION_DISPOSITON_DENY; + + if (strncmp(hdr->oem_table_id, "OVERTABL", sizeof(hdr->oem_table_id))) + return UACPI_TABLE_INSTALLATION_DISPOSITON_ALLOW; + + *out_override = (uacpi_virt_addr)table_override; + return UACPI_TABLE_INSTALLATION_DISPOSITON_VIRTUAL_OVERRIDE; +} + +static uacpi_status handle_notify( + uacpi_handle handle, uacpi_namespace_node *node, uacpi_u64 value +) +{ + const char *path = uacpi_namespace_node_generate_absolute_path(node); + + UACPI_UNUSED(handle); + + printf("Received a notification from %s %" PRIx64 "\n", path, value); + + free((void*)path); + return UACPI_STATUS_OK; +} + +static uacpi_status handle_ec(uacpi_region_op op, uacpi_handle op_data) +{ + switch (op) { + case UACPI_REGION_OP_READ: { + uacpi_region_rw_data *rw_data = (uacpi_region_rw_data*)op_data; + + rw_data->value = 0; + UACPI_FALLTHROUGH; + } + case UACPI_REGION_OP_ATTACH: + case UACPI_REGION_OP_DETACH: + case UACPI_REGION_OP_WRITE: + return UACPI_STATUS_OK; + default: + return UACPI_STATUS_INVALID_ARGUMENT; + } +} + +static uacpi_interrupt_ret handle_gpe( + uacpi_handle handle, uacpi_namespace_node *node, uint16_t idx +) +{ + UACPI_UNUSED(handle); + UACPI_UNUSED(node); + UACPI_UNUSED(idx); + + return UACPI_INTERRUPT_HANDLED | UACPI_GPE_REENABLE; +} + +static void run_test( + const char *dsdt_path, const vector_t *ssdt_paths, + uacpi_object_type expected_type, const char *expected_value, + bool dump_namespace +) +{ + static uint8_t early_table_buf[4096]; + struct acpi_rsdp rsdp = { 0 }; + struct full_xsdt *xsdt = make_xsdt(&rsdp, dsdt_path, ssdt_paths); + uacpi_status st; + uacpi_table tbl; + bool is_test_mode; + uacpi_object *ret = NULL; + + g_rsdp = (uacpi_phys_addr)((uintptr_t)&rsdp); + + st = uacpi_setup_early_table_access( + early_table_buf, sizeof(early_table_buf) + ); + ensure_ok_status(st); + + st = uacpi_table_find_by_signature(ACPI_DSDT_SIGNATURE, &tbl); + ensure_ok_status(st); + + if (strncmp(tbl.hdr->signature, ACPI_DSDT_SIGNATURE, 4) != 0) + error("broken early table access!"); + + st = uacpi_table_unref(&tbl); + ensure_ok_status(st); + + st = uacpi_initialize(UACPI_FLAG_NO_ACPI_MODE); + ensure_ok_status(st); + + /* + * Go through all AML tables and manually bump their reference counts here + * so that they're mapped before the call to uacpi_namespace_load(). The + * reason we need this is to disambiguate calls to uacpi_kernel_map() with + * a synthetic physical address (that is actually a virtual address for + * tables that we constructed earlier) or a real physical address that comes + * from some operation region or any other AML code or action. + */ + uacpi_table_find_by_signature(ACPI_DSDT_SIGNATURE, &tbl); + + st = uacpi_table_find_by_signature(ACPI_SSDT_SIGNATURE, &tbl); + while (st == UACPI_STATUS_OK) { + uacpi_table_ref(&tbl); + st = uacpi_table_find_next_with_same_signature(&tbl); + } + + g_expect_virtual_addresses = false; + + st = uacpi_install_notify_handler( + uacpi_namespace_root(), handle_notify, NULL + ); + ensure_ok_status(st); + + st = uacpi_set_table_installation_handler(handle_table_install); + ensure_ok_status(st); + + st = uacpi_install_interface("TestRunner", UACPI_INTERFACE_KIND_FEATURE); + ensure_ok_status(st); + + st = uacpi_uninstall_interface("Windows 2006"); + ensure_ok_status(st); + + st = uacpi_uninstall_interface("Windows 2006"); + if (st != UACPI_STATUS_NOT_FOUND) + error("couldn't uninstall interface"); + + st = uacpi_enable_host_interface(UACPI_HOST_INTERFACE_3_0_THERMAL_MODEL); + ensure_ok_status(st); + + st = uacpi_enable_host_interface(UACPI_HOST_INTERFACE_MODULE_DEVICE); + ensure_ok_status(st); + + is_test_mode = expected_type != UACPI_OBJECT_UNINITIALIZED; + if (is_test_mode) { + st = uacpi_table_install(runner_id_table, NULL); + ensure_ok_status(st); + } + + st = uacpi_namespace_load(); + ensure_ok_status(st); + + if (is_test_mode) { + uacpi_object *runner_id = UACPI_NULL; + uacpi_data_view view; + + st = uacpi_eval_typed( + UACPI_NULL, "\\_SI.TID", UACPI_NULL, UACPI_OBJECT_STRING_BIT, + &runner_id + ); + ensure_ok_status(st); + + st = uacpi_object_get_string_or_buffer(runner_id, &view); + ensure_ok_status(st); + + if (strcmp(view.text, "uACPI") != 0) + error("invalid test runner id"); + uacpi_object_unref(runner_id); + } + + st = uacpi_install_address_space_handler( + uacpi_namespace_root(), UACPI_ADDRESS_SPACE_EMBEDDED_CONTROLLER, + handle_ec, NULL + ); + ensure_ok_status(st); + + st = uacpi_install_gpe_handler( + UACPI_NULL, 123, UACPI_GPE_TRIGGERING_EDGE, handle_gpe, NULL + ); + ensure_ok_status(st); + + st = uacpi_enable_gpe(UACPI_NULL, 123); + ensure_ok_status(st); + + st = uacpi_disable_gpe(UACPI_NULL, 123); + ensure_ok_status(st); + + st = uacpi_uninstall_gpe_handler(UACPI_NULL, 123, handle_gpe); + ensure_ok_status(st); + + st = uacpi_namespace_initialize(); + ensure_ok_status(st); + + if (dump_namespace) + enumerate_namespace(); + + if (!is_test_mode) + goto done; + + if (strcmp(expected_value, "check-object-api-works") == 0) { + test_object_api(); + goto done; + } + + if (strcmp(expected_value, "check-address-spaces-work") == 0) { + test_address_spaces(); + goto done; + } + + st = uacpi_eval(UACPI_NULL, "\\MAIN", UACPI_NULL, &ret); + + ensure_ok_status(st); + if (ret == NULL) + error("\\MAIN didn't return a value"); + validate_ret_against_expected(ret, expected_type, expected_value); + + uacpi_object_unref(ret); +done: + uacpi_state_reset(); + delete_xsdt(xsdt, ssdt_paths->count); + interface_cleanup(); +} + +static uacpi_log_level log_level_from_string(const char *arg) +{ + static struct { + const char *str; + uacpi_log_level level; + } log_levels[] = { + { "debug", UACPI_LOG_DEBUG }, + { "trace", UACPI_LOG_TRACE }, + { "info", UACPI_LOG_INFO }, + { "warning", UACPI_LOG_WARN }, + { "error", UACPI_LOG_ERROR }, + }; + size_t i; + + for (i = 0; i < UACPI_ARRAY_SIZE(log_levels); i++) + if (strcmp(log_levels[i].str, arg) == 0) + return log_levels[i].level; + + error("invalid log level %s", arg); + return UACPI_LOG_INFO; +} + +static arg_spec_t DSDT_PATH_ARG = ARG_POS( + "dsdt-path-or-keyword", + "path to the DSDT to run or \"resource-tests\" to run the resource tests" +); + +static arg_spec_t EXPECT_ARG = ARG_LIST( + "expect", 'r', + "test mode, evaluate \\MAIN and expect " +); +static arg_spec_t EXTRA_TABLES_ARG = ARG_LIST( + "extra-tables", 'x', "a list of extra SSDTs to load" +); +static arg_spec_t ENUMERATE_NAMESPACE_ARG = ARG_FLAG( + "enumerate-namespace", 'd', "dump the entire namespace after loading it" +); +static arg_spec_t WHILE_LOOP_TIMEOUT_ARG = ARG_PARAM( + "while-loop-timeout", 't', + "number of seconds to use for the while loop timeout" +); +static arg_spec_t LOG_LEVEL_ARG = ARG_PARAM( + "log-level", 'l', + "log level to set, one of: debug, trace, info, warning, error" +); +static arg_spec_t HELP_ARG = ARG_HELP( + "help", 'h', "Display this menu and exit" +); + +static arg_spec_t *const POSITIONAL_ARGS[] = { + &DSDT_PATH_ARG, +}; + +static arg_spec_t *const OPTION_ARGS[] = { + &EXPECT_ARG, + &EXTRA_TABLES_ARG, + &ENUMERATE_NAMESPACE_ARG, + &WHILE_LOOP_TIMEOUT_ARG, + &LOG_LEVEL_ARG, + &HELP_ARG, +}; + +static const arg_parser_t PARSER = { + .positional_args = POSITIONAL_ARGS, + .num_positional_args = UACPI_ARRAY_SIZE(POSITIONAL_ARGS), + .option_args = OPTION_ARGS, + .num_option_args = UACPI_ARRAY_SIZE(OPTION_ARGS), +}; + +int main(int argc, char *argv[]) +{ + const char *dsdt_path_or_keyword; + const char *expected_value = NULL; + uacpi_object_type expected_type = UACPI_OBJECT_UNINITIALIZED; + bool dump_namespace; + uacpi_log_level log_level; + + parse_args(&PARSER, argc, argv); + + uacpi_context_set_loop_timeout(get_uint_or(&WHILE_LOOP_TIMEOUT_ARG, 3)); + + dsdt_path_or_keyword = get(&DSDT_PATH_ARG); + if (strcmp(dsdt_path_or_keyword, "resource-tests") == 0) { + run_resource_tests(); + return 0; + } + + if (is_set(&EXPECT_ARG)) { + if (EXPECT_ARG.values.count != 2) + error("bad --expect format"); + + expected_type = string_to_object_type(EXPECT_ARG.values.blobs[0].data); + expected_value = EXPECT_ARG.values.blobs[1].data; + } + + dump_namespace = is_set(&ENUMERATE_NAMESPACE_ARG); + // Don't spam the log with traces if enumeration is enabled + log_level = dump_namespace ? UACPI_LOG_INFO : UACPI_LOG_TRACE; + + if (is_set(&LOG_LEVEL_ARG)) + log_level = log_level_from_string(get(&LOG_LEVEL_ARG)); + + uacpi_context_set_log_level(log_level); + + run_test( + dsdt_path_or_keyword, &EXTRA_TABLES_ARG.values, expected_type, + expected_value, dump_namespace + ); + + return 0; +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/address-spaces-work.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/address-spaces-work.asl new file mode 100644 index 0000000..979da1b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/address-spaces-work.asl @@ -0,0 +1,415 @@ +// Name: Support for various address spaces works +// Expect: str => check-address-spaces-work + +DefinitionBlock ("x.aml", "SSDT", 1, "uTEST", "ASPTESTS", 0xF0F0F0F0) +{ + Method (MAIN) { + // Skip for non-uacpi test runners + Return ("check-address-spaces-work") + } + + Method (DOIP, 1, Serialized) { + If (Arg0 == 0) { + Local0 = "DEADBEE0" + Local1 = 0xDEADBEE0 + } Else { + Local0 = "DEADBEEF" + Local1 = 0xDEADBEEF + } + + OperationRegion (IPMR, IPMI, 0xDEADBEE0, 10) + Field (IPMR, BufferAcc, NoLock, Preserve) { + CMD0, 120, + + // Offset = base + 0xF + CMD1, 1234, + } + + Name (REQ, Buffer (32) { }) + Name (RET, 0) + + REQ = Concatenate("IPMICommand", Local0) + + If (Arg0 == 0) { + Local0 = CMD0 = REQ + } Else { + Local0 = CMD1 = REQ + } + + If (SizeOf(Local0) != 66) { + Printf("Unexpected IPMI response size %o", SizeOf(Local0)) + Return (Zero) + } + + RET = Local0 + If (RET != Local1) { + Printf("Unexpected IMPI response %o, expected %o", RET, Local1) + Return (Zero) + } + + Return (Ones) + } + + Device (GPO0) + { + Name (_HID, "INT33FC" /* Intel Baytrail GPIO Controller */) + Name (_DDN, "ValleyView General Purpose Input/Output (GPIO) controller") + Name (_UID, 0) + } + + Device (GPO1) + { + Name (_HID, "INT33FC" /* Intel Baytrail GPIO Controller */) + Name (_DDN, "ValleyView GPNCORE controller") + Name (_UID, 1) + } + + Method (DGIO, 0, Serialized) { + OperationRegion (GPOP, GeneralPurposeIo, Zero, 0x06) + Field (GPOP, ByteAcc, NoLock, Preserve) + { + Connection ( + GpioIo (Exclusive, PullDefault, 0x0000, 0x0000, IoRestrictionOutputOnly, + "\\GPO0", 0x00, ResourceConsumer, , + ) + { // Pin list + 0x0002, 0x0003, 0x0004, 0x0005, 0x0006 + } + ), + CCU0, 1, + CCU1, 3, + CCU2, 1, + Connection ( + GpioIo (Exclusive, PullDefault, 0x0000, 0x0000, IoRestrictionOutputOnly, + "\\GPO1", 0x00, ResourceConsumer, , + ) + { // Pin list + 0x005F + } + ), + CCU3, 1 + } + + CCU0 = 1 + CCU1 = 2 + CCU2 = 0 + + Local0 = CCU0 + If (Local0 != 1) { + Printf("Bad CCU0 return %o", Local0) + Return (Zero) + } + + Local0 = CCU1 + If (Local0 != 2) { + Printf ("Bad CCU1 return %o", Local0) + Return (Zero) + } + + Local0 = CCU2 + If (Local0 != 0) { + Printf ("Bad CCU2 return %o", Local0) + Return (Zero) + } + + Local0 = CCU3 + if (Local0 != 0) { + Printf ("Bad CCU3 value %o", Local0) + Return (Zero) + } + + Return (Ones) + } + + Method (DPCC, 0, Serialized) { + OperationRegion (GPOP, PCC, 0xCA, 0xFF) + Field (GPOP, DWordAcc, NoLock, Preserve) + { + H, 8, + E, 8, + L0, 8, + L1, 8, + O, 8, + Offset(12), + CMD, 32, + } + + Field (GPOP, DWordAcc, NoLock, Preserve) + { + HELL, 48, + } + + H = "H" + E = "E" + L0 = "L" + L1 = "L" + O = "O" + + If (ToString(HELL) != "HELLO") { + Printf ("Unexpected HELL value %o", ToString(HELL)) + Return (Zero) + } + + // Invoke the test runner handler + CMD = 0xDEADBEEF + + // We expect it to modify the CMD field as a response + If (CMD != 0xBEEFDEAD) { + Printf ("Unexpected CMD value %o", CMD) + Return (Zero) + } + + Return (Ones) + } + + Method (DPRM, 0, Serialized) { + OperationRegion (GPOP, PlatformRtMechanism, 0x00, 0xFF) + Field (GPOP, BufferAcc, NoLock, Preserve) + { + DEAD, 80, + } + + Local0 = DEAD = "helloworld" + Printf("Got a PRM response: %o", Local0) + + If (SizeOf(Local0) != 26) { + Printf ("Unexpected Local0 size %o", SizeOf(Local0)) + Return (Zero) + } + + If (ToString(Local0) != "goodbyeworld") { + Printf ("Unexpected Local0 value %o", ToString(Local0)) + Return (Zero) + } + + Return (Ones) + } + + + Method (DFHW, 0, Serialized) { + OperationRegion (GPOP, FFixedHW, 0xCAFEBABE, 0xFEFECACA) + Field (GPOP, BufferAcc, NoLock, Preserve) + { + X, 1, + } + + Local0 = X = "someguidandstuff" + Printf("Got a FFixedHW response: %o", Local0) + + If (SizeOf(Local0) != 256) { + Printf ("Unexpected Local0 size %o", SizeOf(Local0)) + Return (Zero) + } + + If (ToString(Local0) != "ok") { + Printf ("Unexpected Local0 value %o", ToString(Local0)) + Return (Zero) + } + + Return (Ones) + } + + Scope (_SB) { + Device (I2C0) + { + Name (_HID, "INT34B2") + Name (_UID, 0) + } + + Device (I2C1) + { + Name (_HID, "80860F41" /* Intel Baytrail I2C Host Controller */) + Name (_CID, "80860F41" /* Intel Baytrail I2C Host Controller */) + Name (_DDN, "Intel(R) I2C Controller #5 - 80860F45") + Name (_UID, 1) + } + } + + Name (RES1, ResourceTemplate () + { + I2cSerialBusV2 (0x0008, ControllerInitiated, 0x00061A80, + AddressingMode7Bit, "\\_SB.I2C0", + 0x00, ResourceConsumer, , Exclusive, + ) + }) + Name (RES2, ResourceTemplate () + { + I2cSerialBusV2 (0x0040, ControllerInitiated, 0x00061A80, + AddressingMode7Bit, "\\_SB.I2C1", + 0x00, ResourceConsumer, , Exclusive, + ) + }) + + Method (DGSB, 0, Serialized) { + Method (CHEK, 3) { + If (SizeOf(Arg0) != Arg1) { + Printf( + "Bad resulting buffer length %o, expected %o", + SizeOf(Arg0), Arg1 + ) + + Return (Zero) + } + + Name (INT, 0) + INT = Arg0 + + If (INT != Arg2) { + Printf("Unexpected response %o, expected %o", INT, Arg2) + Return (Zero) + } + + Return (Ones) + } + + + OperationRegion (RCH1, GenericSerialBus, 0x100, 0x0100) + Field (RCH1, BufferAcc, NoLock, Preserve) + { + Connection (RES1), + Offset (0x11), + + // Command == 0x111 + AccessAs (BufferAcc, AttribQuick), + CMD0, 128, + + // Command == 0x121 + AccessAs (BufferAcc, AttribSendReceive), + CMD1, 8, + + // Command == 0x122 + AccessAs (BufferAcc, AttribByte), + CMD2, 16, + + // Command == 0x124 + AccessAs (BufferAcc, AttribWord), + CMD3, 32, + + // Command == 0x128 + AccessAs (BufferAcc, AttribBlock), + CMD4, 2048, + + // Command == 0x228 + AccessAs (BufferAcc, AttribProcessCall), + CMD5, 8, + + // Command == 0x229 + AccessAs (BufferAcc, AttribBlockProcessCall), + CMD6, 144, + + Connection (RES2), + + // Command == 0x23B + AccessAs (BufferAcc, AttribBytes(15)), + CMD7, 8, + + // Command == 0x23C + AccessAs (BufferAcc, AttribRawBytes(255)), + CMD8, 8, + + // Command == 0x23D + AccessAs (BufferAcc, AttribRawProcessBytes(123)), + CMD9, 8, + } + + Local0 = CMD0 = 0x111 + If (CHEK(Local0, 2, 0x112) != Ones) { + Return (Zero) + } + + Local0 = 0x121 + Local0 = CMD1 = Local0 + If (CHEK(Local0, 3, 0x122) != Ones) { + Return (Zero) + } + + Local0 = CMD2 = 0x122 + If (CHEK(Local0, 3, 0x123) != Ones) { + Return (Zero) + } + + Local0 = CMD3 + If (CHEK(Local0, 4, 0x125) != Ones) { + Return (Zero) + } + + Local0 = CMD4 + If (CHEK(Local0, 257, 0x129) != Ones) { + Return (Zero) + } + + Local0 = CMD5 = 0x228 + If (CHEK(Local0, 4, 0x229) != Ones) { + Return (Zero) + } + + Local0 = CMD6 + If (CHEK(Local0, 257, 0x22A) != Ones) { + Return (Zero) + } + + Local0 = CMD7 = 0x23B + If (CHEK(Local0, 15 + 2, 0x23C) != Ones) { + Return (Zero) + } + + Local0 = CMD8 + If (CHEK(Local0, 255 + 2, 0x23D) != Ones) { + Return (Zero) + } + + Local0 = CMD9 + If (CHEK(Local0, 255 + 2, 0x23E) != Ones) { + Return (Zero) + } + + Return (Ones) + } + + /* + * Arg0 -> The address space type + * Return -> Ones on succeess, Zero on failure + */ + Method (CHEK, 1, Serialized) { + Switch (Arg0) { + Case (7) { // IPMI + Local0 = DOIP(0) + If (Local0 != Ones) { + Break + } + + Local0 = DOIP(1) + Break + } + Case (8) { // General Purpose IO + Local0 = DGIO() + Break + } + Case (9) { // Generic Serial Bus + Local0 = DGSB() + Break + } + Case (0x0A) { // PCC + Local0 = DPCC() + Break + } + Case (0x0B) { // PRM + Local0 = DPRM() + Break + } + Case (0x7F) { // FFixedHW + Local0 = DFHW() + Break + } + } + + If (Local0 != Ones) { + Printf("Address space %o failed: expected '%o', got '%o'!", + Arg0, Ones, Local0) + Return (Zero) + } + + Printf("Address space %o OK", ToHexString(Arg0)) + Return (Ones) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/complex-package.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/complex-package.asl new file mode 100644 index 0000000..77365b9 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/complex-package.asl @@ -0,0 +1,71 @@ +// Name: Nested Package Doesn't Leak Memory +// Expect: int => 1 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method(GPKG) { + Local1 = 10 + Local0 = Package (Local1) { + 0x123, + 0x321, + Package { + 0x321, + "123", + Package { + 0x321, + Package { + 0x321, + "123", + Package { + 0x321, + "123", + Package { + 0x321, + Package { + 0x321, + "123", + Package (Local1) { + 0x321, + "123", + 999, + }, + 999, + }, + "123", + 999, + }, + 999, + }, + 999, + }, + "123", + 999, + }, + 999, + }, + "Hello world", + Package { + 0x321, + "Hello", + }, + Package { + 0x321, + "World", + }, + Package { + Buffer (Local1) { 0xFF }, + 0xDEADBEEF, + }, + Buffer { 1, 2, 3 } + } + + Return (Local0) + } + + Method (MAIN) { + Local0 = GPKG() + Debug = Local0 + Local0 = 1 + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/concat-res.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/concat-res.asl new file mode 100644 index 0000000..fe7a41e --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/concat-res.asl @@ -0,0 +1,127 @@ +// Name: Concatenate Resources +// Expect: int => 1 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (BUF0, ResourceTemplate () + { + WordBusNumber (ResourceProducer, MinFixed, MaxFixed, PosDecode, + 0x0000, + 0x0000, + 0x00FF, + 0x0000, + 0x0100, + ,, _Y00) + DWordIO (ResourceProducer, MinFixed, MaxFixed, PosDecode, EntireRange, + 0x00000000, + 0x00000000, + 0x00000CF7, + 0x00000000, + 0x00000CF8, + 1, "\\SOME.PATH",, TypeStatic, DenseTranslation) + IO (Decode16, + 0x0CF8, + 0x0CF8, + 0x01, + 0x08, + ) + DWordMemory (ResourceProducer, PosDecode, MinFixed, MaxFixed, Cacheable, ReadWrite, + 0x00000000, + 0x000A0000, + 0x000BFFFF, + 0x00000000, + 0x00020000, + 123, "^^^^^^^^^ANOT.ER.PATH", , AddressRangeMemory, TypeStatic) + }) + + Name (IIC0, ResourceTemplate () + { + I2cSerialBusV2 (0x0000, ControllerInitiated, 0x00061A80, + AddressingMode7Bit, "\\_SB.PCI0.I2C0", + 0x00, ResourceConsumer, _Y10, Exclusive, + ) + }) + + Name (RBUF, ResourceTemplate () + { + I2cSerialBusV2 (0x0029, ControllerInitiated, 0x00061A80, + AddressingMode7Bit, "\\_SB.PCI0.I2C0", + 0x00, ResourceConsumer, , Exclusive, + ) + GpioInt (Level, ActiveHigh, Exclusive, PullNone, 0x0000, + "\\_SB.PCI0.GPI0", 0x00, ResourceConsumer, , + ) + { + 0x012A + } + GpioIo (Exclusive, PullDefault, 0x0000, 0x0000, IoRestrictionOutputOnly, + "\\_SB.PCI0.GPI0", 0x00, ResourceConsumer, , + ) + { + 0x002F + } + GpioIo (Exclusive, PullDefault, 0x0000, 0x0000, IoRestrictionOutputOnly, + "\\_SB.PCI0.GPI0", 0x00, ResourceConsumer, , + ) + { + 0x0124 + } + }) + + // src0, src1, dst + Method (CHEK, 3) + { + Local0 = (SizeOf(Arg0) + SizeOf(Arg1)) - 2 + + If (Local0 != SizeOf(Arg2)) { + Printf("Invalid final buffer size: %o, expected %o", + Local0, SizeOf(Arg2)) + Return (0) + } + + Local0 = 0 + Local1 = 0 + + While (Local0 < (SizeOf(Arg0) - 2)) { + Local2 = DerefOf(Arg0[Local0]) + Local3 = DerefOf(Arg2[Local1]) + + If (Local2 != Local3) { + Printf("Byte src=%o (dst=%o) mismatch, expected %o got %o", + Local0, Local1, ToHexString(Local2), ToHexString(Local3)) + Return (0) + } + + Local0 += 1 + Local1 += 1 + } + + Local0 = 0 + While (Local0 < SizeOf(Arg1)) { + Local2 = DerefOf(Arg1[Local0]) + Local3 = DerefOf(Arg2[Local1]) + + If (Local2 != Local3) { + Printf("Byte src=%o (dst=%o) mismatch, expected %o got %o", + Local0, Local1, ToHexString(Local2), ToHexString(Local3)) + Return (0) + } + + Local0 += 1 + Local1 += 1 + } + + Return (1) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = ConcatenateResTemplate(BUF0, IIC0) + If (CHEK(BUF0, IIC0, Local0) != 1) { + Return (0) + } + + Local1 = ConcatenateResTemplate(Local0, RBUF) + Return(CHEK(Local0, RBUF, Local1)) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/copy-a-method.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-a-method.asl new file mode 100644 index 0000000..251e479 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-a-method.asl @@ -0,0 +1,34 @@ +// Name: Copy a local method and execute it +// Expect: int => 3735928559 + +DefinitionBlock ("x.aml", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (TEST, "Hello world!") + + Method (GETX) { + Return (1) + } + + Method (COPY) { + Method (GETX, 1, Serialized) { + Name (Y, 0xDEAD0000) + Y += Arg0 + Return (Y) + } + + Return (RefOf(GETX)) + } + + Method (COP1) { + Local0 = COPY() + Return (DerefOf(Local0)) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = COP1() + CopyObject(Local0, TEST) + + Return (TEST(0xBEEF)) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-opregion.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-opregion.asl new file mode 100644 index 0000000..6089c7b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-opregion.asl @@ -0,0 +1,70 @@ +// Name: CopyObject with Operation Region works +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (REPL, 1) { + Arg0 = 123 + } + + Method (CAS0) { + OperationRegion(MYRE, SystemMemory, 0, 128) + Field (MYRE, AnyAcc, NoLock) { + FILD, 32 + } + FILD = 1 + + CopyObject(123, MYRE) + } + CAS0() + + Method (CAS1) { + OperationRegion(MYRE, SystemMemory, 0, 128) + Field (MYRE, AnyAcc, NoLock) { + FILD, 32 + } + FILD = 1 + + REPL(RefOf(MYRE)) + } + CAS1() + + Method (CAS2) { + OperationRegion(MYRE, SystemMemory, 0, 128) + Field (MYRE, AnyAcc, NoLock) { + FILD, 32 + } + FILD = 1 + + Name (FAKE, 123) + CopyObject(MYRE, FAKE) + Field (FAKE, AnyAcc, NoLock) { + FAKF, 32 + } + + REPL(RefOf(MYRE)) + FAKF = 1 + } + CAS2() + + Method (CAS3) { + OperationRegion(MYR0, SystemMemory, 0, 128) + OperationRegion(MYR1, SystemMemory, 0, 128) + CopyObject(123, MYR1) + } + CAS3() + + Method (CAS4) { + OperationRegion(MYRE, SystemMemory, 0, 128) + Field (MYRE, AnyAcc, NoLock) { + FILD, 32 + } + + FILD = 1 + CopyObject(FILD, MYRE) + FILD = 1 + } + CAS4() + + Name (MAIN, 0) +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-self.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-self.asl new file mode 100644 index 0000000..6871e40 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-self.asl @@ -0,0 +1,27 @@ +// Name: CopyObject on yourself works +// Expect: str => Hello World + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (BAR, 1, Serialized) { + Debug = "Enter BAR" + CopyObject (Arg0, BAR) + Debug = "Leave BAR" + } + + Method (FOO) { + Debug = "Enter FOO" + CopyObject("Hello", FOO) + BAR(" World") + Debug = "Leave FOO" + + Return (0x123) + } + + Method (MAIN) { + Local0 = FOO() + Printf("First invocation of FOO returned %o", Local0) + + Return (Concatenate(FOO, BAR)) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-to-predefined.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-to-predefined.asl new file mode 100644 index 0000000..a25a40c --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/copy-object-to-predefined.asl @@ -0,0 +1,31 @@ +// Name: CopyObject to predefined works +// Expect: str => HelloWorld + +DefinitionBlock ("x.aml", "SSDT", 1, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (HELO) { + Return ("Hello") + } + + Method (WRLD) { + Return ("World") + } + + Method (MAIN) { + OperationRegion(NVSM, SystemMemory, 0x100000, 128) + Field (NVSM, ByteAcc, Lock, WriteAsZeros) { + FILD, 8, + } + + FILD = 0xFF + + CopyObject(HELO, \) + CopyObject(WRLD, _GL) + + If (FILD != 0xFF) { + Return ("Locked field read-back failed") + } + + Return (Concatenate(\(), _GL())) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/duplicate-named.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/duplicate-named.asl new file mode 100644 index 0000000..e76a9eb --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/duplicate-named.asl @@ -0,0 +1,84 @@ +// Name: Duplicate named objects are skipped correctly +// Expect: int => 11 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (MAIN, 0) + + Name (TEST, "Hello World") + Device (FOO) { + ThermalZone (BAR) { + Name (TEST, "Hello World") + } + } + + // These all attempt to create duplicate objects + Name (FOO.BAR.TEST, "duplicated test") + MAIN += 1 + Method (TEST, 0, Serialized) { + Debug = "Why is this executed?" + Name (TEST, 123) + CopyObject("Method didn't get skipped", MAIN) + Return (333) + } + + Debug = "Ok, still here" + MAIN += 1 + + ThermalZone (TEST) { + Local0 = 123 + Debug = Local0 + CopyObject("???", MAIN) + } + ThermalZone (TEST) { } + MAIN += 1 + + Processor (FOO.BAR.TEST, 0x02, 0x00000410, 0x06) { } + MAIN += 1 + Processor (\TEST, 0x01, 0x00000410, 0x06) { + Local2 = Package { 1, 2, 3 } + Debug = Local2 + } + + Device (\FOO.BAR.TEST) + { + Name (_HID, EisaId ("PNP0C0D")) + } + + MAIN += 1 + Device (\TEST) { } + + // Alias to an object that doesn't exist, but new name is valid + Alias(ZOO, BAR) + Alias(PATH.THAT.DOES.NOT.EXIS.T, \BAZ) + MAIN += 1 + // Alias to an object that does exist, but new name alrady exists + Alias(\TEST, \MAIN) + + // Alias to a non existant object and name also already exists + Alias(ZOO, \TEST) + Alias(PATH.THAT.DOES.NOT.EXIS.T, \FOO.BAR.TEST) + + MAIN += 1 + Mutex(TEST, 15) + + Debug = "Just a bit left" + + Event(TEST) + MAIN += 1 + OperationRegion(TEST, SystemMemory, 0x100000, 128) + DataTableRegion(FOO.BAR.TEST, "DSDT", "", "") + + Local0 = Buffer (256) { } + + CreateBitField(Local0, 111, TEST) + CreateByteField(Local0, 111, TEST) + MAIN += 1 + CreateDWordField(Local0, 111, TEST) + CreateQWordField(Local0, 111, TEST) + MAIN += 1 + CreateField(Local0, 111, 11, FOO.BAR.TEST) + + MAIN += 1 + Debug = "Made it to the end!" +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/empty-objects.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/empty-objects.asl new file mode 100644 index 0000000..d17c567 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/empty-objects.asl @@ -0,0 +1,21 @@ +// Name: Empty objects behave correctly +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (EMPT) { } + + Method (MAIN) { + Local0 = EMPT() + Debug = Local0 + + Local0 = Package (0) { } + Debug = Local0 + + Local0 = 0 + Local1 = Package(Local0) { } + Debug = Local1 + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/eval-supports-plain-objects.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/eval-supports-plain-objects.asl new file mode 100644 index 0000000..1135264 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/eval-supports-plain-objects.asl @@ -0,0 +1,7 @@ +// Name: Eval supports plain objects +// Expect: str => This is a plain string, not a method + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (MAIN, "This is a plain string, not a method") +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/event.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/event.asl new file mode 100644 index 0000000..aa3ec7b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/event.asl @@ -0,0 +1,31 @@ +// Name: Event signal & wait +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, Serialized) + { + Event (EVET) + + Local0 = 5 + While (Local0--) { + Signal(EVET) + } + + Local0 = 5 + While (Local0--) { + Local1 = Wait(EVET, 0xFFFD + Local0) + If (Local1 != Zero) { + Return (Local1) + } + } + + // This should fail + Local1 = Wait(EVET, Zero) + If (Local1 == Zero) { + Return (One) + } + + Return (Zero) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/global-lock.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/global-lock.asl new file mode 100644 index 0000000..f339bea --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/global-lock.asl @@ -0,0 +1,48 @@ +// Name: Global lock works +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (CHEK, 1, Serialized, 15) + { + If (Arg0 != 0) { + Debug = "Failed to acquire the global lock!" + Return (1) + } + + Return (0) + } + + Method (MAIN, 0, Serialized) + { + Local0 = 0 + + Debug = "Acquiring the lock manually!" + + Local0 += CHEK(Acquire (_GL, 0xFFFF)) + Local0 += CHEK(Acquire (_GL, 0xFFFF)) + Local0 += CHEK(Acquire (_GL, 0xFFFF)) + Local0 += CHEK(Acquire (_GL, 0xFFFF)) + + Debug = "Doing a field write..." + + OperationRegion(NVSM, SystemMemory, 0x100000, 128) + Field (NVSM, AnyAcc, Lock, WriteAsZeros) { + FILD, 1, + } + + FILD = 1 + + Debug = "Write done, we should still be holding the lock!" + Release(_GL) + Release(_GL) + Release(_GL) + + Debug = "Should release NOW!" + Release(_GL) + + // TODO? Would be nice to have some way to actually verify that a lock is held... + + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/hanging-while.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/hanging-while.asl new file mode 100644 index 0000000..aeecafb --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/hanging-while.asl @@ -0,0 +1,24 @@ +// Name: Infinite While loops eventually ends +// Expect: int => 1 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (LOOP, 0) + + Method (HANG) { + LOOP = 1 + While (LOOP++) { } + } + + HANG() + + Method (MAIN) { + Printf("Looped %o times before getting aborted", ToDecimalString(LOOP)) + + If (LOOP < 100) { + Return (0) + } + + Return (1) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/increment-fields.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/increment-fields.asl new file mode 100644 index 0000000..b0454ec --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/increment-fields.asl @@ -0,0 +1,60 @@ +// Name: Increment And Decrement Fields & Indices +// Expect: int => 150 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (BROK, 2) { + Printf ("%o increment is broken", Arg0) + Return (Arg1) + } + + Method (MAIN, 0, Serialized) + { + Local0 = Buffer { 1 } + Local1 = Package { + 123, 22 + } + + Debug = Increment(Local0[0]) + Debug = Decrement(Local1[0]) + + Local2 = Local1[1] + Debug = Increment(Local2) + + OperationRegion(NVSM, SystemMemory, 0x100000, 128) + Field (NVSM, AnyAcc, NoLock, WriteAsZeros) { + FILD, 1, + } + FILD = 0 + + Debug = Increment(FILD) + + // We get a 2 here but write back 0 because field is one bit + Local3 = Increment(FILD) + If (FILD != 0) { + Return (BROK("Field unit", 0xDEADBEEF)) + } + + Local4 = Increment(FILD) + If (FILD != 1) { + Return (BROK("Field unit", 0xBEEFDEAD)) + } + + If (DerefOf(Local2) != DerefOf(Local1[1])) { + Return (BROK("Buffer index", 0xCAFEBABE)) + } + + Return ( + // 2 + DerefOf(Local0[0]) + + // 122 + DerefOf(Local1[0]) + + // 23 + DerefOf(Local2) + + // 2 + Local3 + + // 1 + Local4 + ) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/indices-0.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/indices-0.asl new file mode 100644 index 0000000..21e3fc9 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/indices-0.asl @@ -0,0 +1,39 @@ +// Name: Buffer Indices +// Expect: str => HfVXoWorld + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (FAIL, 2) + { + Printf("Invalid string %o, expected %o", Arg0, Arg1) + Return(1) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "HelloWorld" + Local0[3] = "X" + + Local1 = "HelXoWorld" + If (Local0 != Local1) { + Return(FAIL(Local0, Local1)) + } + + Local2 = RefOf(Index(Local0, 2)) + Local2 = "V" + + Local1 = "HeVXoWorld" + If (Local0 != Local1) { + Return(FAIL(Local0, Local1)) + } + + CopyObject(Index(Local0, 1), Local2) + Local0[1] = 0x66 + + If (DerefOf(Local2) != 0x66) { + Return(1) + } + + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/indices-1.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/indices-1.asl new file mode 100644 index 0000000..b208d90 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/indices-1.asl @@ -0,0 +1,52 @@ +// Name: Dump Package Contents +// Expect: str => { HelloWorld, 123, deadbeef, { some string, { ffffffffeeeeeeee, middle package }, cafebabe } } + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (DUMP, 1) + { + Local0 = 0 + Local1 = "{ " + + While (Local0 < SizeOf(Arg0)) { + // If package, invoke DUMP recursively + If (ObjectType(DerefOf(Arg0[Local0])) == 4) { + Fprintf(Local1, "%o, %o", Local1, DUMP(DerefOf(Arg0[Local0]))) + Local0 += 1 + Continue; + } + + If (Local0 == 0) { + Local3 = "" + } Else { + Local3 = ", " + } + + Fprintf(Local1, "%o%o%o", Local1, Local3, DerefOf(Arg0[Local0])) + Local0 += 1 + } + + Fprintf(Local1, "%o }", Local1) + Return(Local1) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = Package { + "HelloWorld", + 0x123, + 0xDEADBEEF, + Package { + "some string", + Package { + 0xFFFFFFFFEEEEEEEE, + "middle package", + }, + 0xCAFEBABE, + }, + } + + Local1 = DUMP(Local0) + Return(Local1) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/indices-2.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/indices-2.asl new file mode 100644 index 0000000..59d762b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/indices-2.asl @@ -0,0 +1,50 @@ +// Name: Package Indices w/ References +// Expect: int => 1062815831 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1) + { + Local0 = Package { + 1, 2, 3, "String" + } + Local1 = 0 + + Arg0[1] = RefOf(Local0) + Arg0[2] = RefOf(Local1) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = Package { + "HelloWorld", + 0x123, + 0xDEADBEEF, + Package { + "some string", + 0xCAFEBABE + } + } + + TEST(Local0) + + Local1 = DerefOf(DerefOf(Local0[1])[3]) + If (Local1 != "String") { + Printf("Invalid value at nested package %o", Local1) + Return (1) + } + + Local0[2] = "WHY?" + Local2 = DerefOf(Local0[2]) + + // Why in little-endian ascii + Local3 = 1062815831 + + If (Local2 != Local3) { + Printf("Failed to implicit cast, expected %o, got %o", Local3, Local2) + Return (1) + } + + Return (Local2) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/infinite-recursion.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/infinite-recursion.asl new file mode 100644 index 0000000..f5973a0 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/infinite-recursion.asl @@ -0,0 +1,22 @@ +// Name: Infinite recursion eventually ends +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (MAIN, 0xDEADBEEF) + Name (ITER, 0) + + Method (HANG) { + ITER++ + HANG() + } + + HANG() + Printf("Recursed %o times before stopping", ToDecimalString(ITER)) + + If (ITER > 64) { + MAIN = 0 + } Else { + Debug = "Recursion depth was too small" + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/local0.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/local0.asl new file mode 100644 index 0000000..5b3c075 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/local0.asl @@ -0,0 +1,12 @@ +// Name: Return Integer Using Local0 +// Expect: int => 0x123 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Local0 = 0x123 + Debug = Local0 + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/local0_string.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/local0_string.asl new file mode 100644 index 0000000..046b9b4 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/local0_string.asl @@ -0,0 +1,11 @@ +// Name: Return String Using Local0 +// Expect: str => hello world + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Debug = (Local0 = "hello world") + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/method-calls.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/method-calls.asl new file mode 100644 index 0000000..f6adcc6 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/method-calls.asl @@ -0,0 +1,61 @@ +// Name: Call methods with every ArgX +// Expect: int => 8 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method(TES7, 7) { + Local0 = Arg0 + Arg1 + Arg2 + Arg3 + Arg4 + Arg5 + Arg6 + If (Local0 != (1 + 2 + 3 + 4 + 5 + 6 + 7)) { Return (Local0) } + Return (1) + } + + Method(TES6, 6) { + Local0 = Arg0 + Arg1 + Arg2 + Arg3 + Arg4 + Arg5 + If (Local0 != (1 + 2 + 3 + 4 + 5 + 6)) { Return (Local0) } + Return (1) + } + + Method(TES5, 5) { + Local0 = Arg0 + Arg1 + Arg2 + Arg3 + Arg4 + If (Local0 != (1 + 2 + 3 + 4 + 5)) { Return (Local0) } + Return (1) + } + + Method(TES4, 4) { + Local0 = Arg0 + Arg1 + Arg2 + Arg3 + If (Local0 != (1 + 2 + 3 + 4)) { Return (Local0) } + Return (1) + } + + Method(TES3, 3) { + Local0 = Arg0 + Arg1 + Arg2 + If (Local0 != (1 + 2 + 3)) { Return (Local0) } + Return (1) + } + + Method(TES2, 2) { + Local0 = Arg0 + Arg1 + If (Local0 != (1 + 2)) { Return (Local0) } + Return (1) + } + + Method(TES1, 1) { + Local0 = Arg0 + If (Local0 != (1 + 2)) { Return (Local0) } + Return (1) + } + + Method(TES0, 0) { Return (1) } + + Method (MAIN) + { + Return(TES7(1, 2, 3, 4, 5, 6, 7) + + TES6(1, 2, 3, 4, 5, 6) + + TES5(1, 2, 3, 4, 5) + + TES4(1, 2, 3, 4) + + TES3(1, 2, 3) + + TES2(1, 2) + + TES1(1) + + TES0()) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/multilevel_ref.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/multilevel_ref.asl new file mode 100644 index 0000000..29864bf --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/multilevel_ref.asl @@ -0,0 +1,34 @@ +// Name: Multilevel reference w/ Increment +// Expect: int => 0xDEAD0005 + +DefinitionBlock ("", "DSDT", 1, "uTTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Local0 = 0xDEAD0000 + + Local1 = RefOf(Local0) + Debug = Local1 + + Local2 = RefOf(Local1) + Debug = Local2 + + Local3 = RefOf(Local2) + Debug = Local3 + + Local4 = RefOf(Local3) + Debug = Local4 + + Local5 = RefOf(Local4) + Debug = Local5 + + Debug = Increment(Local1) + Debug = Increment(Local2) + Debug = Increment(Local3) + Debug = Increment(Local4) + Debug = Increment(Local5) + + Debug = Local0 + Return (DerefOf(Local5)) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-1.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-1.asl new file mode 100644 index 0000000..a343223 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-1.asl @@ -0,0 +1,55 @@ +// Name: Automatic mutex release +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (CHEK, 1, Serialized, 15) + { + If (Arg0 != 0) { + Debug = "Failed to acquire mutex!" + Return (1) + } + + Return (0) + } + + Method (MAIN, 0, Serialized) + { + Mutex(MUT0, 0) + Mutex(MUT1, 1) + Mutex(MUT2, 2) + Mutex(MUT3, 3) + Mutex(MUT4, 4) + Mutex(MUT5, 5) + Mutex(MUT6, 6) + Mutex(MUT7, 7) + Mutex(MUT8, 8) + Mutex(MUT9, 9) + Mutex(MUTA, 10) + Mutex(MUTB, 11) + Mutex(MUTC, 12) + Mutex(MUTD, 13) + Mutex(MUTE, 14) + Mutex(MUTF, 15) + + Local0 = 0 + Local0 += CHEK(Acquire(MUT0, 0)) + Local0 += CHEK(Acquire(MUT1, 0)) + Local0 += CHEK(Acquire(MUT2, 0)) + Local0 += CHEK(Acquire(MUT3, 0)) + Local0 += CHEK(Acquire(MUT4, 0)) + Local0 += CHEK(Acquire(MUT5, 0)) + Local0 += CHEK(Acquire(MUT6, 0)) + Local0 += CHEK(Acquire(MUT7, 0)) + Local0 += CHEK(Acquire(MUT8, 0)) + Local0 += CHEK(Acquire(MUT9, 0)) + Local0 += CHEK(Acquire(MUTA, 0)) + Local0 += CHEK(Acquire(MUTB, 0)) + Local0 += CHEK(Acquire(MUTC, 0)) + Local0 += CHEK(Acquire(MUTD, 0xFFFE)) + Local0 += CHEK(Acquire(MUTE, 0xFFFD)) + Local0 += CHEK(Acquire(MUTF, 0xFFFF)) + + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-2.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-2.asl new file mode 100644 index 0000000..edb2a27 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-2.asl @@ -0,0 +1,64 @@ +// Name: Out of order mutex release +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (CHEK, 1, Serialized, 15) + { + If (Arg0 != 0) { + Debug = "Failed to acquire mutex!" + Return (1) + } + + Return (0) + } + + Method (MAIN, 0, Serialized) + { + Mutex(MUT0) + Mutex(MUT1) + Mutex(MUT2) + Mutex(MUT3) + Mutex(MUT4) + Mutex(MUT5) + Mutex(MUT6) + Mutex(MUT7) + Mutex(MUT8) + Mutex(MUT9) + Mutex(MUTA) + Mutex(MUTB) + Mutex(MUTC) + Mutex(MUTD) + Mutex(MUTE) + Mutex(MUTF) + + Local0 = 0 + Local0 += CHEK(Acquire(MUT0, 0)) + Local0 += CHEK(Acquire(MUT1, 0)) + Local0 += CHEK(Acquire(MUT2, 0)) + Local0 += CHEK(Acquire(MUT3, 0)) + Local0 += CHEK(Acquire(MUT4, 0)) + Local0 += CHEK(Acquire(MUT5, 0)) + Local0 += CHEK(Acquire(MUT6, 0)) + Local0 += CHEK(Acquire(MUT7, 0)) + Local0 += CHEK(Acquire(MUT8, 0)) + Local0 += CHEK(Acquire(MUT9, 0xF)) + Local0 += CHEK(Acquire(MUTA, 0)) + Local0 += CHEK(Acquire(MUTB, 3)) + Local0 += CHEK(Acquire(MUTC, 123)) + Local0 += CHEK(Acquire(MUTD, 0xFFFE)) + Local0 += CHEK(Acquire(MUTE, 0xFFFD)) + Local0 += CHEK(Acquire(MUTF, 0xFFFF)) + + Release(MUTA) + Release(MUT9) + Release(MUTC) + Release(MUT1) + Release(MUT7) + Release(MUTE) + Release(MUTD) + + // The rest are released automatically when we exit the outermost method + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-3.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-3.asl new file mode 100644 index 0000000..4a9fa09 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/mutex-3.asl @@ -0,0 +1,37 @@ +// Name: Recursive mutex +// Expect: int => 253 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (CHEK, 1, Serialized, 15) + { + If (Arg0 != 0) { + Debug = "Failed to acquire mutex!" + Return (1) + } + + Return (0) + } + + Mutex (MUTX) + + Method (ACQ, 1, Serialized) { + CHEK(Acquire(MUTX, 0xFFFF)) + + Local0 = 0 + + If (Arg0 < 22) { + Local0 += Arg0 + ACQ(Arg0 + 1) + } Else { + Local0 += Arg0 + } + + Release(MUTX) + Return (Local0) + } + + Method (MAIN, 0, Serialized) + { + Return (ACQ(0)) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/notifications-and-requests.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/notifications-and-requests.asl new file mode 100644 index 0000000..0e4f988 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/notifications-and-requests.asl @@ -0,0 +1,25 @@ +// Name: Notifications & Requests +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (FATL, 1) + { + Fatal(0xFF, 0xDEADBEEF, ToInteger(Arg0)) + } + + Device (PSP) { + Name (_HID, "ACPI0000") + } + + Method (MAIN, 0, NotSerialized) + { + Breakpoint + FATL("0xCAFEBABEC0DEDEAD") + Breakpoint + + Notify(PSP, 0x10) + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/object-api-works.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/object-api-works.asl new file mode 100644 index 0000000..5d94b2b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/object-api-works.asl @@ -0,0 +1,80 @@ +// Name: Public API for object mutation works +// Expect: str => check-object-api-works + +DefinitionBlock ("x.aml", "SSDT", 1, "uTEST", "APITESTS", 0xF0F0F0F0) +{ + Method (MAIN) { + // Skip for non-uacpi test runners + Return ("check-object-api-works") + } + + /* + * Arg0 -> Expected case + * Arg1 -> The actual value + * Return -> Ones on succeess, Zero on failure + */ + Method (CHEK, 2) { + Switch (Arg0) { + Case (1) { + Local0 = 0xDEADBEEF + Break + } + Case (2) { + Local0 = "Hello World" + Break + } + Case (3) { + Local0 = "TEST" + + /* + * Arg1 is expected to be a reference to a string XXXX, store + * into it here to invoke implicit case semantics. + */ + Arg1 = Local0 + Break + } + Case (4) { + Local0 = Buffer { 0xDE, 0xAD, 0xBE, 0xEF } + Break + } + Case (5) { + If (ObjectType(Arg1) != 4) { + Printf("Expected a Package, got %o", Arg1) + Return (Zero) + } + + If (SizeOf(Arg1) != 3) { + Printf("Expected a Package of 3 elements, got %o", SizeOf(Arg1)) + Return (Zero) + } + + Local0 = Package { + "First Element", + 2, + Buffer { 1, 2, 3 }, + } + Local1 = 0 + + While (Local1 < 3) { + If (DerefOf(Local0[Local1]) != DerefOf(Arg1[Local1])) { + Printf("Expected %o, got %o!", DerefOf(Local0[Local1]), DerefOf(Arg1[Local1])) + Return (Zero) + } + + Printf("Object %o OK", Local1) + Local1++ + } + + Return (Ones) + } + } + + If (Local0 != Arg1) { + Printf("Expected '%o', got '%o'!", Local0, Arg1) + Return (Zero) + } + + Printf("Comparison %o OK", Arg0) + Return (Ones) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/osi.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/osi.asl new file mode 100644 index 0000000..f3c9605 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/osi.asl @@ -0,0 +1,81 @@ +// Name: _OSI works correctly +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (CHEK, 2) { + Local0 = _OSI(Arg0) + + If (Local0 != Arg1) { + Printf("_OSI(%o) failed (expected %o, got %o)", Arg0, Arg1, Local0) + Return (1) + } + + Return (0) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = 0 + + If (!CondRefOf(_OSI)) { + Debug = "No _OSI method!" + Return (1111111) + } + + Local0 += CHEK("Windows 2000", Ones) + Local0 += CHEK("Windows 2001", Ones) + Local0 += CHEK("Windows 2001 SP1", Ones) + Local0 += CHEK("Windows 2001.1", Ones) + Local0 += CHEK("Windows 2001 SP2", Ones) + Local0 += CHEK("Windows 2001.1 SP1", Ones) + Local0 += CHEK("Windows 2006.1", Ones) + Local0 += CHEK("Windows 2006 SP1", Ones) + Local0 += CHEK("Windows 2006 SP2", Ones) + Local0 += CHEK("Windows 2009", Ones) + Local0 += CHEK("Windows 2012", Ones) + Local0 += CHEK("Windows 2013", Ones) + Local0 += CHEK("Windows 2015", Ones) + Local0 += CHEK("Windows 2016", Ones) + Local0 += CHEK("Windows 2017", Ones) + Local0 += CHEK("Windows 2017.2", Ones) + Local0 += CHEK("Windows 2018", Ones) + Local0 += CHEK("Windows 2018.2", Ones) + Local0 += CHEK("Windows 2019", Ones) + + // ACPICA acpiexec + If (_OSI("AnotherTestString")) { + // do nothing + Debug = "ACPICA acpiexec detected" + } ElseIf (_OSI("TestRunner")) { + Debug = "uACPI test runner detected" + + // These are only enabled in uACPI test runner + Local0 += CHEK("3.0 Thermal Model", Ones) + Local0 += CHEK("Module Device", Ones) + + // Don't check these in ACPICA, it might be too old to have these + Local0 += CHEK("Windows 2020", Ones) + Local0 += CHEK("Windows 2021", Ones) + Local0 += CHEK("Windows 2022", Ones) + } Else { + Debug = "Neither uACPI nor ACPICA were detected, aborting test" + Return (123321) + } + + // This is removed in both uACPI and ACPICA test runners + Local0 += CHEK("Windows 2006", Zero) + + Local0 += CHEK("Extended Address Space Descriptor", Ones) + + Local0 += CHEK("Processor Aggregator Device", Zero) + Local0 += CHEK("3.0 _SCP Extensions", Zero) + Local0 += CHEK("Processor Device", Zero) + Local0 += CHEK("", Zero) + Local0 += CHEK("Windows 99999", Zero) + Local0 += CHEK("Windows 2014", Zero) + Local0 += CHEK("Linux", Zero) + + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/read-from-deleted-field.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/read-from-deleted-field.asl new file mode 100644 index 0000000..74fc32a --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/read-from-deleted-field.asl @@ -0,0 +1,40 @@ +// Name: IO from deleted fields doesn't crash +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + External(MAIN) + + If (!CondRefOf(MAIN)) { + Name (MAIN, Ones) + + /* + * Load ourselves again, we won't enter this branch a second time. + * We expect this LoadTable call to fail because of the invalid + * field store. + */ + MAIN = LoadTable("DSDT", "uTEST", "TESTTABL", "", "", 0) + Return (0) + } + + Method (TEST) { + OperationRegion(MYRE, SystemMemory, 0, 128) + Field (MYRE, AnyAcc, NoLock) { + FILD, 32 + } + + FILD = 1 + Return (RefOf(FILD)) + } + + Name (X, "") + + /* + * Get a dangling field object and make X be this field. + * Then attempt to perform a read from it. + */ + Local0 = TEST() + CopyObject(DerefOf(Local0), X) + + Debug = X +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_indirect.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_indirect.asl new file mode 100644 index 0000000..be80c53 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_indirect.asl @@ -0,0 +1,14 @@ +// Name: Modify Local0 Using RefOf Local1 +// Expect: int => 0x124 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Local0 = RefOf(Local1) + Local0 = 0x123 + Debug = Local0 + Debug = Local1 + Return(Local1++) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_via_method_call.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_via_method_call.asl new file mode 100644 index 0000000..b0ef1da --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/ref_modify_via_method_call.asl @@ -0,0 +1,19 @@ +// Name: Modify Local0 Using Arg0 +// Expect: int => 124 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + Local0 = RefOf(Arg0) + Local0 = 123 + Arg0++ + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = 200 + TEST(RefOf(Local0)) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-0.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-0.asl new file mode 100644 index 0000000..99a67d9 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-0.asl @@ -0,0 +1,17 @@ +// Name: Call-by-value w/ Store() doesn't modify Local +// Expect: str => MyString + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + Arg0 = 0xDEADBEEF + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "MyString" + TEST(Local0) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-1.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-1.asl new file mode 100644 index 0000000..8bf1fb2 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-1.asl @@ -0,0 +1,17 @@ +// Name: Call-by-value w/ CopyObject() doesn't modify Local +// Expect: str => MyString + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + CopyObject(0xDEADBEEF, Arg0) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "MyString" + TEST(Local0) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-10.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-10.asl new file mode 100644 index 0000000..981f9cf --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-10.asl @@ -0,0 +1,24 @@ +// Name: Recursively modify ArgX +// Expect: int => 0x100A + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 2, NotSerialized) + { + Local0 = RefOf(Arg0) + Local0++ + + Debug = Arg1 + Debug = DerefOf(Local0) + If (Arg1--) { + TEST(RefOf(Arg0), Arg1) + } + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = 0x1000 + TEST(RefOf(Local0), 10) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-3.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-3.asl new file mode 100644 index 0000000..1387900 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-3.asl @@ -0,0 +1,23 @@ +// Name: Call-by-value w/ Store() modifies strings through a reference +// Expect: str => WHY? +// NOTE: +// This test seems bogus but it's actually corrrect, it produces +// the same output on NT. + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + Local0 = RefOf(Arg0) + + // WHY? in little-endian ASCII + Local0 = 0x3F594857 + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "MyST" + TEST(Local0) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-4.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-4.asl new file mode 100644 index 0000000..691bb70 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-4.asl @@ -0,0 +1,18 @@ +// Name: Call-by-value w/ Store() does NOT modify integers even through a reference +// Expect: int => 0x123 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + Local0 = RefOf(Arg0) + Local0 = 0xDEADBEEF + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = 0x123 + TEST(Local0) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-5.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-5.asl new file mode 100644 index 0000000..d0886e1 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-5.asl @@ -0,0 +1,21 @@ +// Name: LocalX reference is rebindable via CopyObject +// Expect: str => Modified + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + Local0 = RefOf(Arg0) + Local0 = "Modified String" + + CopyObject("Wrong String", Local0) + Local0 = 0xDEADBEEF + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "MyString" + TEST(Local0) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-6.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-6.asl new file mode 100644 index 0000000..649c9b5 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-6.asl @@ -0,0 +1,18 @@ +// Name: ArgX reference is not rebindable via CopyObject +// Expect: int => 0xDEADBEEF + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + CopyObject(0xDEADC0DE, Arg0) + CopyObject(0xDEADBEEF, Arg0) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "MyString" + TEST(RefOf(Local0)) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-7.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-7.asl new file mode 100644 index 0000000..36c1207 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-7.asl @@ -0,0 +1,25 @@ +// Name: ArgX non-reference is rebindable +// Expect: str => MyString + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TES0, 1, NotSerialized) + { + CopyObject("Hello World", Arg0) + Debug = Arg0 + } + + Method (TES1, 1, NotSerialized) + { + Arg0 = 0x123 + Debug = Arg0 + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "MyString" + TES0(Local0) + TES1(Local0) + Return(Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-8.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-8.asl new file mode 100644 index 0000000..c624dbd --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-8.asl @@ -0,0 +1,18 @@ +// Name: ArgX reference is not rebindable via Store +// Expect: int => 0xDEADBEEF + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + Store(0xDEADC0DE, Arg0) + Store(0xDEADBEEF, Arg0) + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = "MyString" + TEST(RefOf(Local0)) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/references-9.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/references-9.asl new file mode 100644 index 0000000..e1fea40 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/references-9.asl @@ -0,0 +1,18 @@ +// Name: Modification via LocalX reference implict-casts (string->int64) +// Expect: int => 0x676E6F6C79726576 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (TEST, 1, NotSerialized) + { + Local0 = RefOf(Arg0) + Local0 = "verylongstringbiggerthanint" + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = 0xDEADC0DEDEADBEEF + TEST(RefOf(Local0)) + Return (Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/reg-devices.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/reg-devices.asl new file mode 100644 index 0000000..ecf0022 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/reg-devices.asl @@ -0,0 +1,147 @@ +// Name: _REG gets called correctly +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (RET, 0) + + Device (PCI0) { + Name (_HID, "PNP0000") + + Method (_CID) { + Local0 = Package { + "idk", + 0x000A2E4F, + "badid", + 0x02002E4F, + 0x030FD041, + 0x130FD041, + 0x120FD041, + + // PCI Express root bridge + "PNP0A08" + } + Return (Local0) + } + + Name (_SEG, 0x1) + Name (_BBN, 0x10) + + Device (HPET) { + Name (_HID, "PNP0103") + + OperationRegion(LOLX, SystemMemory, 0xDEADBEEF, 123) + + Method (_REG, 2) { + Debug = "HPET._REG shouldn't have been called" + RET += 1 + } + } + + Name (STAT, 0) + + Device (UHCI) { + Name (_ADR, 0x0001000F) + + Method (TEST, 1, Serialized) { + Method (_REG, 2, Serialized) { + Printf("PCIR _REG(%o, %o) called", Arg0, Arg1) + + If (Arg0 != 2) { + Printf("Invalid space value %o", Arg0) + RET += 1 + } + + Switch (Arg1) { + Case (0) { + If (STAT != 1) { + Debug = "Trying to _REG(disconnect) before _REG(connect)" + RET += 1 + Break + } + + STAT += 1 + Break + + } + Case (1) { + If (STAT != 0) { + Debug = "Trying to run _REG(connect) twice" + RET += 1 + Break + } + + STAT += 1 + Break + } + } + } + + OperationRegion(PCIR, PCI_Config, 0x00, Arg0) + Field (PCIR, AnyAcc, NoLock) { + REG0, 8 + } + + If (STAT != 1) { + Debug = "No one ever called _REG on PCIR, giving up" + RET += 1 + Return () + } + + REG0 = 123 + } + } + } + + Device (PCI1) { + Name (STAT, 0) + + // PCI root bus + Name (_HID, "PNP0A03") + + Device (XHCI) { + Name (_ADR, 0x00030002) + + OperationRegion(HREG, PCI_Config, 0x04, 0xF0) + Field (HREG, AnyAcc, NoLock) { + REG2, 8 + } + + // This can only be called after loading the namespace + Method (_REG, 2) { + Printf("HREG _REG(%o, %o) called", Arg0, Arg1) + + If (Arg0 != 2) { + Printf("Invalid space value %o", Arg0) + RET += 1 + } + + If (Arg1 != 1 || STAT != 0) { + Printf("Invalid Arg1 (%o) for state %o", Arg1, STAT) + RET += 1 + } + + STAT += 1 + } + + Method (WRIT, 1) { + REG2 = Arg0 + Return (Arg0) + } + } + + } + + Method (MAIN) { + \PCI0.UHCI.TEST(0xFF) + Local0 = 1 + + If (\PCI1.STAT == 1) { + Local0 -= \PCI1.XHCI.WRIT(1) + } Else { + Debug = "PCI1.XHCI._REG was never called!" + } + + Return (RET + Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/return0_indirect.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/return0_indirect.asl new file mode 100644 index 0000000..480172d --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/return0_indirect.asl @@ -0,0 +1,15 @@ +// Name: Return Integer 0 (Indirect) +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (HELP, 0, NotSerialized) + { + Return (0) + } + + Method (MAIN, 0, NotSerialized) + { + Return (HELP()) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/return1_using_ifs.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/return1_using_ifs.asl new file mode 100644 index 0000000..7455ca3 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/return1_using_ifs.asl @@ -0,0 +1,32 @@ +// Name: Return Integer 1 Using Ifs +// Expect: int => 1 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (GET0, 1, NotSerialized) + { + Debug = "GET0 called" + Return(Arg0) + } + + Method (MAIN, 0, NotSerialized) + { + If (GET0(0)) { + Debug = "We shouldn't be here..." + } Else { + Local0 = 0 + + If (GET0(1)) { + Debug = "Branch worked" + Local0 = 1 + } Else { + Debug = "Shouldn't see this either" + Local0 = 2 + } + + Return(Local0) + } + + Return (3) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/return_0xdead_double_indirect.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/return_0xdead_double_indirect.asl new file mode 100644 index 0000000..f4a1ebc --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/return_0xdead_double_indirect.asl @@ -0,0 +1,20 @@ +// Name: Return Integer 0xDEAD (Double Indirect) +// Expect: int => 0xDEAD + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (HELP, 0, NotSerialized) + { + Return (0xDEAD) + } + + Method (INDI, 0, NotSerialized) + { + Return (HELP()) + } + + Method (MAIN, 0, NotSerialized) + { + Return (INDI()) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/return_byte.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/return_byte.asl new file mode 100644 index 0000000..76de0ab --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/return_byte.asl @@ -0,0 +1,10 @@ +// Name: Return Integer (Byte 0xCA) +// Expect: int => 0xCA + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Return (0xCA) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/return_dword.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/return_dword.asl new file mode 100644 index 0000000..69a0a47 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/return_dword.asl @@ -0,0 +1,10 @@ +// Name: Return Integer (DWord 0xCAFEBABE) +// Expect: int => 0xCAFEBABE + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Return (0xCAFEBABE) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/return_qword.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/return_qword.asl new file mode 100644 index 0000000..f8cb6e2 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/return_qword.asl @@ -0,0 +1,10 @@ +// Name: Return Integer (QWord 0xCAFEBABEDEADC0DE) +// Expect: int => 0xCAFEBABEDEADC0DE + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Return (0xCAFEBABEDEADC0DE) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/return_word.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/return_word.asl new file mode 100644 index 0000000..82cbca7 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/return_word.asl @@ -0,0 +1,10 @@ +// Name: Return Integer (Word 0xCAFE) +// Expect: int => 0xCAFE + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Return (0xCAFE) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/scope.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/scope.asl new file mode 100644 index 0000000..3b6324e --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/scope.asl @@ -0,0 +1,32 @@ +// Name: Scopes and undefined references +// Expect: int => 13 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name (MAIN, 0) + + Scope (\PATH.THAT.DOES.NOT.EXIS.T) { + Debug = "Why are we here" + MAIN += 1 + } + + Scope (\_SB) { + MAIN += 3 + + Scope (^ANOT.HER) { + MAIN += 4 + } + + Scope (\_GPE) { + MAIN += 10 + + Scope (PATH) { + MAIN += 200 + } + } + + Scope (FAIL.TOO) { + MAIN += 300 + } + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/sleep.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/sleep.asl new file mode 100644 index 0000000..b2641b3 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/sleep.asl @@ -0,0 +1,50 @@ +// Name: Sleep & Stall +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (CHEK, 4) + { + Local0 = Arg2 - Arg1 + + If (Local0 < Arg3) { + Printf("%o finished too soon, elapsed %o, expected at least %o", + Arg0, ToDecimalString(Local0), ToDecimalString(Arg3)) + Return (1) + } + + Return (0) + } + + Method (STAL, 1) { + Local1 = 0 + + While (Local1 < Arg0) { + Stall(100) + Local1 += 1 + } + } + + Method (MAIN, 0, Serialized) + { + Local0 = Timer + + // Stall for 10 * 100 microseconds (aka 1ms) + STAL(10) + + If (CHEK("Stall", Local0, Timer, 10000) != 0) { + Return (1) + } + + Local0 = Timer + + // Sleep for 2ms + Sleep(2) + + If (CHEK("Sleep", Local0, Timer, 20000) != 0) { + Return (1) + } + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/store-copies-buffer.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/store-copies-buffer.asl new file mode 100644 index 0000000..933f757 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/store-copies-buffer.asl @@ -0,0 +1,26 @@ +// Name: Store Copies The Buffer +// Expect: str => Hello + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MODF, 0, NotSerialized) + { + Local1 = Store("Hello", Local0) + Return (Local1) + } + + Method (MAIN, 0, NotSerialized) + { + Local1 = Store(MODF(), Local0) + + // Modify the string at Local1 + Local2 = RefOf(Local1) + Local2 = "Goodbye" + + Debug = Local0 + Debug = Local1 + + // Local0 should still have the same value + Return(Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-0.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-0.asl new file mode 100644 index 0000000..8b2e842 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-0.asl @@ -0,0 +1,61 @@ +// Name: Load tables from buffers +// Expect: str => Hello World 123 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, Serialized) + { + Name (WRLD, "World") + + /* + * Method (PRT0, 0, NotSerialized) + * { + * Return(Concatenate("Hello ", \MAIN.WRLD)) + * } + */ + External(\PRT0, MethodObj) + Name (TABL, Buffer { + 0x53,0x53,0x44,0x54,0x40,0x00,0x00,0x00, /* 00000000 "SSDT@..." */ + 0x02,0x86,0x75,0x54,0x45,0x53,0x54,0x00, /* 00000008 "..uTEST." */ + 0x54,0x45,0x53,0x54,0x54,0x41,0x42,0x4C, /* 00000010 "TESTTAB0" */ + 0xF0,0xF0,0xF0,0xF0,0x49,0x4E,0x54,0x4C, /* 00000018 "....INTL" */ + 0x31,0x03,0x22,0x20,0x14,0x1B,0x50,0x52, /* 00000020 "1." ..PR" */ + 0x54,0x30,0x00,0xA4,0x73,0x0D,0x48,0x65, /* 00000028 "T0..s.He" */ + 0x6C,0x6C,0x6F,0x20,0x00,0x5C,0x2E,0x4D, /* 00000030 "llo .\.M" */ + 0x41,0x49,0x4E,0x57,0x52,0x4C,0x44,0x00 /* 00000038 "AINWRLD." */ + }) + + If (!Load(TABL)) { + Return ("Table 0 load failed") + } + + /* + * Name (O123, "123") + * + * Method (PRT1, 2, NotSerialized) + * { + * Return(Concatenate(Concatenate(Arg0, " "), Arg1)) + * } + */ + External(\PRT1, MethodObj) + External(\O123, StrObj) + Name (TAB1, Buffer { + 0x53,0x53,0x44,0x54,0x3F,0x00,0x00,0x00, /* 00000000 "SSDT?..." */ + 0x02,0x97,0x75,0x54,0x45,0x53,0x54,0x00, /* 00000008 "..uTEST." */ + 0x54,0x45,0x53,0x54,0x54,0x41,0x42,0x4C, /* 00000010 "TESTTAB1" */ + 0xF0,0xF0,0xF0,0xF0,0x49,0x4E,0x54,0x4C, /* 00000018 "....INTL" */ + 0x31,0x03,0x22,0x20,0x08,0x4F,0x31,0x32, /* 00000020 "1." .O12" */ + 0x33,0x0D,0x31,0x32,0x33,0x00,0x14,0x10, /* 00000028 "3.123..." */ + 0x50,0x52,0x54,0x31,0x02,0xA4,0x73,0x73, /* 00000030 "PRT1..ss" */ + 0x68,0x0D,0x20,0x00,0x00,0x69,0x00 /* 00000038 "h. ..i." */ + }) + + Load(TAB1, Local1) + If (!Local1) { + Return ("Table 1 load failed") + } + + Local0 = PRT0() + Return (PRT1(Local0, O123)) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-1.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-1.asl new file mode 100644 index 0000000..5e783fe --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-1.asl @@ -0,0 +1,76 @@ +// Name: Load tables from opregions & fields +// Expect: str => Hello World 123 + +DefinitionBlock ("", "SSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, Serialized) + { + Name (WRLD, "World") + + /* + * Method (PRT0, 0, NotSerialized) + * { + * Return(Concatenate("Hello ", \MAIN.WRLD)) + * } + */ + External(\PRT0, MethodObj) + Name (TAB0, Buffer { + 0x53,0x53,0x44,0x54,0x40,0x00,0x00,0x00, /* 00000000 "SSDT@..." */ + 0x02,0x86,0x75,0x54,0x45,0x53,0x54,0x00, /* 00000008 "..uTEST." */ + 0x54,0x45,0x53,0x54,0x54,0x41,0x42,0x4C, /* 00000010 "TESTTAB0" */ + 0xF0,0xF0,0xF0,0xF0,0x49,0x4E,0x54,0x4C, /* 00000018 "....INTL" */ + 0x31,0x03,0x22,0x20,0x14,0x1B,0x50,0x52, /* 00000020 "1." ..PR" */ + 0x54,0x30,0x00,0xA4,0x73,0x0D,0x48,0x65, /* 00000028 "T0..s.He" */ + 0x6C,0x6C,0x6F,0x20,0x00,0x5C,0x2E,0x4D, /* 00000030 "llo .\.M" */ + 0x41,0x49,0x4E,0x57,0x52,0x4C,0x44,0x00 /* 00000038 "AINWRLD." */ + }) + OperationRegion(TABR, SystemMemory, 0xDEADBEE0, SizeOf(TAB0)) + Field (TABR, WordAcc, NoLock, WriteAsOnes) { + COPY, 512, + } + COPY = TAB0 + + Load(TABR, Local0) + If (!Local0) { + Return ("Table 0 load failed") + } + + /* + * Name (O123, "123") + * + * Method (PRT1, 2, NotSerialized) + * { + * Return(Concatenate(Concatenate(Arg0, " "), Arg1)) + * } + */ + External(\PRT1, MethodObj) + External(\O123, StrObj) + Name (TAB1, Buffer { + 0x53,0x53,0x44,0x54,0x3F,0x00,0x00,0x00, /* 00000000 "SSDT?..." */ + 0x02,0x97,0x75,0x54,0x45,0x53,0x54,0x00, /* 00000008 "..uTEST." */ + 0x54,0x45,0x53,0x54,0x54,0x41,0x42,0x4C, /* 00000010 "TESTTAB1" */ + 0xF0,0xF0,0xF0,0xF0,0x49,0x4E,0x54,0x4C, /* 00000018 "....INTL" */ + 0x31,0x03,0x22,0x20,0x08,0x4F,0x31,0x32, /* 00000020 "1." .O12" */ + 0x33,0x0D,0x31,0x32,0x33,0x00,0x14,0x10, /* 00000028 "3.123..." */ + 0x50,0x52,0x54,0x31,0x02,0xA4,0x73,0x73, /* 00000030 "PRT1..ss" */ + 0x68,0x0D,0x20,0x00,0x00,0x69,0x00,0x00 /* 00000038 "h. ..i." */ + }) + OperationRegion(TABX, SystemMemory, 0xCAFEBAB0, SizeOf(TAB1)) + Field (TABX, DWordAcc, NoLock, Preserve) { + BLOB, 512, + } + + // Copy the table into the operation region + BLOB = TAB1 + + Load(BLOB, Local1) + If (!Local1) { + Return ("Table 1 load failed") + } + + Local0 = PRT0() + Return (PRT1(Local0, O123)) + } + + Debug = MAIN() +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-2.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-2.asl new file mode 100644 index 0000000..f9f5ded --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-2.asl @@ -0,0 +1,113 @@ +// Name: Recursive table loads +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + // Number of started table loads + Name (NUMB, 0) + + // Number of finished table loads + Name (NUMA, 0) + + /* + * DefinitionBlock ("", "SSDT", 1, "uTEST", "TESTTABL", 0xF0F0F0F0) + * { + * External(NUMA, IntObj) + * External(NUMB, IntObj) + * External(ITEM, IntObj) + * External(TABL, IntObj) + * + * // Recursively start 10 table loads + * If (NUMB < 10) { + * // Create an ITEM here to prove to the caller that we got invoked + * If (!CondRefOf(ITEM)) { + * Name (ITEM, 123) + * } + * + * NUMB += 1 + * Local0 = Load(TABL) + * + * // The last load is expected to fail, everything before should succeed + * If (!Local0) { + * If (NUMB != 10) { + * NUMA = 0xDEADBEEF + * Printf("Table load %o failed", NUMB) + * } + * } Else { + * NUMA += 1 + * } + * + * + * // Return something bogus here to make sure the return value isn't + * // propagated to the caller of Load. + * Return (Package { 1, 2 ,3}) + * } + * + * // We're the last table load, do something naughty to cause an error + * Local0 = Package { 1 } + * Local1 = RefOf(Local0) + * + * // This code specifically attempts to perform a bogus implicit cast + * Local1 = "Hello World" + * } + */ + Name (TABL, Buffer { + 0x53, 0x53, 0x44, 0x54, 0xdc, 0x00, 0x00, 0x00, + 0x01, 0x33, 0x75, 0x54, 0x45, 0x53, 0x54, 0x00, + 0x54, 0x45, 0x53, 0x54, 0x54, 0x41, 0x42, 0x4c, + 0xf0, 0xf0, 0xf0, 0xf0, 0x49, 0x4e, 0x54, 0x4c, + 0x28, 0x06, 0x23, 0x20, 0xa0, 0x22, 0x00, 0x15, + 0x5c, 0x4e, 0x55, 0x4d, 0x41, 0x01, 0x00, 0x15, + 0x5c, 0x4e, 0x55, 0x4d, 0x42, 0x01, 0x00, 0x15, + 0x5c, 0x49, 0x54, 0x45, 0x4d, 0x01, 0x00, 0x15, + 0x5c, 0x54, 0x41, 0x42, 0x4c, 0x01, 0x00, 0xa0, + 0x4b, 0x07, 0x95, 0x4e, 0x55, 0x4d, 0x42, 0x0a, + 0x0a, 0xa0, 0x10, 0x92, 0x5b, 0x12, 0x49, 0x54, + 0x45, 0x4d, 0x00, 0x08, 0x49, 0x54, 0x45, 0x4d, + 0x0a, 0x7b, 0x72, 0x4e, 0x55, 0x4d, 0x42, 0x01, + 0x4e, 0x55, 0x4d, 0x42, 0x70, 0x5b, 0x20, 0x54, + 0x41, 0x42, 0x4c, 0x00, 0x60, 0xa0, 0x38, 0x92, + 0x60, 0xa0, 0x34, 0x92, 0x93, 0x4e, 0x55, 0x4d, + 0x42, 0x0a, 0x0a, 0x70, 0x0c, 0xef, 0xbe, 0xad, + 0xde, 0x4e, 0x55, 0x4d, 0x41, 0x70, 0x73, 0x73, + 0x0d, 0x54, 0x61, 0x62, 0x6c, 0x65, 0x20, 0x6c, + 0x6f, 0x61, 0x64, 0x20, 0x00, 0x4e, 0x55, 0x4d, + 0x42, 0x00, 0x0d, 0x20, 0x66, 0x61, 0x69, 0x6c, + 0x65, 0x64, 0x00, 0x00, 0x5b, 0x31, 0xa1, 0x0b, + 0x72, 0x4e, 0x55, 0x4d, 0x41, 0x01, 0x4e, 0x55, + 0x4d, 0x41, 0xa4, 0x12, 0x07, 0x03, 0x01, 0x0a, + 0x02, 0x0a, 0x03, 0x70, 0x12, 0x03, 0x01, 0x01, + 0x60, 0x70, 0x71, 0x60, 0x61, 0x70, 0x0d, 0x48, + 0x65, 0x6c, 0x6c, 0x6f, 0x20, 0x57, 0x6f, 0x72, + 0x6c, 0x64, 0x00, 0x61 + }) + + Method (MAIN, 0, Serialized) + { + Load(TABL, Local0) + Printf("Recursive loads finished!") + + If (!Local0) { + Printf("Table load failed!") + Return (0xCAFEBABE) + } + + External(ITEM, IntObj) + If (ITEM != 123) { + Printf("ITEM has incorrect value %o", ITEM) + Return (0xDEADBEEF) + } + + If (NUMB != 10) { + Printf("Invalid NUMB value %o", ToDecimalString(NUMB)) + Return (0xEEFFAABB) + } + + If (NUMA != 9) { + Printf("Invalid NUMA value %o", ToDecimalString(NUMA)) + Return (0x11223344) + } + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-3.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-3.asl new file mode 100644 index 0000000..c9a09e9 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-3.asl @@ -0,0 +1,106 @@ +// Name: Recursive table loads with LoadTable +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + External(ITEM, IntObj) + External(NUMB, IntObj) + External(NUMA, IntObj) + External(VISI, IntObj) + + // All dynamic loads branch into here + If (CondRefOf(ITEM)) { + // Recursively start 10 table loads + If (NUMB < 10) { + NUMB += 1 + Local0 = NUMB + + If (NUMB == 3) { + Local0 = LoadTable("DSDT", "uTEST", "", "", "PARA", Local0) + VISI += 1 + } ElseIf (NUMB == 5) { + Local0 = LoadTable("DSDT", "", "", "", "PARA", Local0) + VISI += 10 + } ElseIf (NUMB == 7) { + Local0 = LoadTable("DSDT", "", "TESTTABL", "", "", Local0) + VISI += 100 + } Else { + Local0 = LoadTable("DSDT", "uTEST", "TESTTABL", "", "PARA", Local0) + VISI += 1000 + } + + // The last load is expected to fail, everything before should succeed + If (!Local0) { + If (NUMB != 10) { + NUMA = 0xDEADBEEF + Printf("Table load %o failed", NUMB) + } + } Else { + NUMA += 1 + } + + // Return something bogus here to make sure the return value isn't + // propagated to the caller of Load. + Return (Package { 1, 2 ,3}) + } + + // We're the last table load, do something naughty to cause an error + Local0 = Package { 1 } + Local1 = RefOf(Local0) + + // This code specifically attempts to perform a bogus implicit cast + Local1 = "Hello World" + } + + Name (ITEM, 123) + + // Number of started table loads + Name (NUMB, 0) + + // Number of finished table loads + Name (NUMA, 0) + + // Visited branches + Name (VISI, 0) + + Name (PARA, 0) + Name (PASS, "FAIL") + + Method (MAIN, 0, Serialized) + { + Local0 = LoadTable("DSDT", "uTEST", "TESTTABL", "", "PASS", 0x53534150) + Printf("Recursive loads finished!") + + If (!Local0) { + Printf("Table load failed!") + Return (0xCAFEBABE) + } + + If (NUMB != 10) { + Printf("Invalid NUMB value %o", ToDecimalString(NUMB)) + Return (0xEEFFAABB) + } + + If (VISI != 7111) { + Printf("Invalid VISI value %o", ToDecimalString(VISI)) + Return (0xAFFAAFFA) + } + + If (NUMA != 9) { + Printf("Invalid NUMA value %o", ToDecimalString(NUMA)) + Return (0x11223344) + } + + If (PARA != 1) { + Printf("Invalid PARA value %o", ToDecimalString(PARA)) + Return (0xDDFFBBCC) + } + + If (PASS != "PASS") { + Printf("Invalid PASS value %o", PASS) + Return (0xECECECEC) + } + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-4.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-4.asl new file mode 100644 index 0000000..b0dd783 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-4.asl @@ -0,0 +1,124 @@ +// Name: LoadTable scoping rules are correct +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + External(SSDT, IntObj) + External(VAL, IntObj) + + // All dynamic loads branch into here + If (CondRefOf(SSDT)) { + Name (TEST, 0) + TEST = VAL + Return (Package { 1 }) + } + + Name (SSDT, 123) + Name (VAL, 1) + + Device (DEV0) { + Name (LRES, 0) + } + + Device (DEV1) { } + Scope (_SB) { + Device (DEV1) { + Name (LRES, "XX") + Device (DEV1) { } + } + } + + Name (LRES, 99) + Device (DEV2) { + Name (LRES, 123) + } + + Method (LDTB, 3) { + Local0 = LoadTable("DSDT", "uTEST", "TESTTABL", Arg0, Arg1, Arg2) + VAL += 1 + + If (!Local0) { + Printf("Table load failed!") + Return (0) + } + + Return (1) + } + + Method (MAIN) + { + /* + * DEV0 is the scope, LRES should be evaluated relative to it. + * TEST is expected to be loaded there as well. + */ + If (!LDTB("DEV0", "LRES", 0xFEBEFEBE)) { + Return (1) + } + If (!CondRefOf(\DEV0.TEST, Local0)) { + Printf("No TEST under \\DEV0") + Return (1) + } + If (DerefOf(Local0) != 1) { + Printf("Incorrect \\DEV0.TEST value %o", DerefOf(Local0)) + Return (1) + } + If (\DEV0.LRES != 0xFEBEFEBE) { + Printf("\\DEV0.LRES has an incorrect value %o", \DEV0.LRES) + Return (1) + } + + CopyObject(0, Local0) + + Scope (\_SB.DEV1) { + /* + * We're already inside \_SB.DEV1, so this DEV1 should match + * \_SB.DEV1.DEV1, note that there's also \DEV1, that shouldn't + * get matched here. + * + * There's, however, no \_SB.DEV1.DEV1.LRES, so this should resolve + * into \_SB.DEV1.LRES instead. + */ + Local0 = LoadTable("DSDT", "uTEST", "TESTTABL", "DEV1", "LRES", 0x4B4F) + If (!Local0) { + Printf("Table load failed!") + Return (0) + } + VAL += 1 + } + If (!CondRefOf(\_SB.DEV1.DEV1.TEST, Local0)) { + Printf("No TEST under _SB.DEV1.DEV1") + Return (1) + } + If (DerefOf(Local0) != 2) { + Printf("Incorrect \\_SB.DEV1.DEV1.TEST value %o", DerefOf(Local0)) + } + If (\_SB.DEV1.LRES != "OK") { + Printf("DEV1.LRES has an incorrect value %o", \_SB.DEV1.LRES) + Return (1) + } + + CopyObject(0, Local0) + + /* + * DEV2 relative load, however, LRES is specified as an absolute path + * so it shouldn't get resolved to DEV2.LRES. + */ + If (!LDTB("DEV2", "\\LRES", 0xCAFEBABE)) { + Return (1) + } + If (!CondRefOf(\DEV2.TEST, Local0)) { + Printf("No TEST under \\DEV2") + Return (1) + } + If (DerefOf(Local0) != 3) { + Printf("Incorrect \\DEV2.TEST value %o", DerefOf(Local0)) + Return (1) + } + If (\LRES != 0xCAFEBABE) { + Printf("\\LRES has an incorrect value %o", \LRES) + Return (1) + } + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-5.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-5.asl new file mode 100644 index 0000000..2e489f0 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/table-loading-5.asl @@ -0,0 +1,64 @@ +// Name: Load/LoadTable handle bogus-sized tables correctly +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + External(\SSDT, IntObj) + External(\OK, IntObj) + External(\TYPE, IntObj) + + // All dynamic loads branch into here + If (CondRefOf(\OK)) { + if (TYPE == 0) { + Local0 = Load(\SSDT) + } Else { + DataTableRegion (DSDT, "DSDT", "uTEST", "TESTTABL") + Field (DSDT, DwordAcc, NoLock, Preserve) { + SIGN, 32, + LENG, 32, + } + + // Make our own length bogus, then try to load ourselves, this should fail + LENG = 3 + LoadTable("DSDT", "uTEST", "TESTTABL", "", "", 0) + } + + // Should be unreachable, we expect the Load above to abort us + OK += 1 + Return (0) + } + + Name (SSDT, Buffer { + 0x53, 0x53, 0x44, 0x54, 0x2a, 0x00, 0x00, 0x00, + 0x01, 0x89, 0x75, 0x54, 0x45, 0x53, 0x54, 0x00, + 0x42, 0x41, 0x44, 0x54, 0x42, 0x4c, 0x00, 0x00, + 0xf0, 0xf0, 0xf0, 0xf0, 0x49, 0x4e, 0x54, 0x4c, + 0x28, 0x06, 0x23, 0x20, 0x70, 0x0d, 0x3f, 0x00, + 0x5b, 0x31 + }) + Name (OK, 0) + Name (TYPE, 0) + + Method (MAIN) { + // Make the size something bogus + SSDT[4] = 0x11 + SSDT[5] = 0 + SSDT[6] = 0 + SSDT[7] = 0 + + // Try Load'ing a bogus length SSDT + TYPE = 0 + Local0 = LoadTable("DSDT", "uTEST", "TESTTABL", "", "", 0) + + // Now try LoadTable ourselves, after corrupting our own length + TYPE = 1 + Local0 = LoadTable("DSDT", "uTEST", "TESTTABL", "", "", 0) + + // Expect the above to fail + if (Local0 || OK) { + Return (1) + } + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/table-overrides.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/table-overrides.asl new file mode 100644 index 0000000..d4f0e05 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/table-overrides.asl @@ -0,0 +1,70 @@ +// Name: Table overrides work +// Expect: int => 0 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + /* + * We expect this table to be denied by the test-runner because it denies + * anything with "DENYTABL" in OEM table id. + * + * DefinitionBlock ("x.aml", "SSDT", 1, "uTEST", "DENYTABL", 0xF0F0F0F0) + * { + * Name (BUG, 1) + * } + */ + Name (TAB0, Buffer { + 0x53, 0x53, 0x44, 0x54, 0x2a, 0x00, 0x00, 0x00, + 0x01, 0xe1, 0x75, 0x54, 0x45, 0x53, 0x54, 0x00, + 0x44, 0x45, 0x4e, 0x59, 0x54, 0x41, 0x42, 0x4c, + 0xf0, 0xf0, 0xf0, 0xf0, 0x49, 0x4e, 0x54, 0x4c, + 0x28, 0x06, 0x23, 0x20, 0x08, 0x42, 0x55, 0x47, + 0x5f, 0x01 + }) + + /* + * We expect this table to be overriden by the test-runner because it + * overrides anything with "OVERTABL" in OEM table id. The override it + * provides has a Name(VAL, "TestRunner") + * + * DefinitionBlock ("x.aml", "SSDT", 1, "uTEST", "OVERTABL", 0xF0F0F0F0) + * { + * Name (VAL, "Hello") + * } + */ + Name (TAB1, Buffer { + 0x53, 0x53, 0x44, 0x54, 0x30, 0x00, 0x00, 0x00, + 0x01, 0xcd, 0x75, 0x54, 0x45, 0x53, 0x54, 0x00, + 0x4f, 0x56, 0x45, 0x52, 0x54, 0x41, 0x42, 0x4c, + 0xf0, 0xf0, 0xf0, 0xf0, 0x49, 0x4e, 0x54, 0x4c, + 0x25, 0x09, 0x20, 0x20, 0x08, 0x56, 0x41, 0x4c, + 0x5f, 0x0d, 0x48, 0x65, 0x6c, 0x6c, 0x6f, 0x00 + }) + + Method (MAIN, 0, NotSerialized) + { + Load(TAB0, Local0) + If (Local0) { + Debug = "Table was not denied load" + Return (0xDEAD) + } + + If (CondRefOf(BUG)) { + Debug = "Table was not loaded but the BUG object exists" + Return (0xDEAD) + } + + Load(TAB1, Local0) + If (!Local0) { + Debug = "Failed to load table" + Return (0xDEAD) + } + + If (VAL != "TestRunner") { + Printf("Table didn't get overriden correctly: expected %o got %o", + "TestRunner", VAL) + Return (0xDEAD) + } + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/to-integer.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/to-integer.asl new file mode 100644 index 0000000..2622b3b --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/to-integer.asl @@ -0,0 +1,113 @@ +// Name: ToInteger produces correct results +// Expect: int => 0 + +DefinitionBlock ("", "SSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name(FCNT, 0) + + Method (CHEK, 3) + { + If (Arg0 != Arg1) { + FCNT++ + Printf("On line %o: invalid number %o, expected %o", + ToDecimalString(Arg2), ToHexString(Arg0), ToHexString(Arg1)) + } + } + + Method (MAIN, 0, NotSerialized) + { + Local0 = ToInteger(123) + Local1 = 123 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("123") + Local1 = 123 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger(" \t\t\t\v 123") + Local1 = 123 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("123abcd") + Local1 = 123 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0x123abcd") + Local1 = 0x123abcd + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("") + Local1 = 0 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0X") + Local1 = 0 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0x") + Local1 = 0 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0") + Local1 = 0 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0xDeAdBeeF") + Local1 = 0xDEADBEEF + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0XDeAdBeeFCafeBabeHelloWorld") + Local1 = 0xDEADBEEFCAFEBABE + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger(Buffer { 0xDE, 0xAD, 0xBE, 0xEF }) + Local1 = 0xEFBEADDE + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger(Buffer { 1 }) + Local1 = 1 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger(Buffer { 0 }) + Local1 = 0 + CHEK(Local0, Local1, __LINE__) + + + Local0 = ToInteger(Buffer { 0xDE, 0xAD, 0xBE, 0xEF, 0xCA, 0xFE, 0xBA, 0xBE }) + Local1 = 0xBEBAFECAEFBEADDE + CHEK(Local0, Local1, __LINE__) + + // These are incompatible with ACPICA, skip if it's detected + If (ToHexString(0xF) == "0xF") { + Local0 = ToInteger("99999999999999999999999999999999999999999999999") + Local1 = 0xFFFFFFFFFFFFFFFF + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0xDEADBEEFCAFEBABE1") + Local1 = 0xFFFFFFFFFFFFFFFF + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("+123") + Local1 = 123 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("-123") + Local1 = 0xFFFFFFFFFFFFFF85 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("-0xDEADBEF HELLOWORLD") + Local1 = 0xFFFFFFFFF2152411 + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("+0XC0D\t123") + Local1 = 0xC0D + CHEK(Local0, Local1, __LINE__) + + Local0 = ToInteger("0123") + Local1 = 83 + CHEK(Local0, Local1, __LINE__) + } + + Return (FCNT) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/to-x.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/to-x.asl new file mode 100644 index 0000000..4bdf975 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/to-x.asl @@ -0,0 +1,99 @@ +// Name: ToX produces correct results +// Expect: int => 0 + +DefinitionBlock ("", "SSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Name(FCNT, 0) + + Method (CHEK, 2) + { + If (ObjectType(Arg0) == 3) { + Arg0 = ToHexString(Arg0) + } + + If (ObjectType(Arg1) == 3) { + Arg1 = ToHexString(Arg1) + } + + If (Arg0 != Arg1) { + FCNT++ + Printf("Invalid string %o, expected %o", Arg0, Arg1) + } + } + + Method (MAIN, 0, NotSerialized) + { + // Dec string + Local0 = ToDecimalString(123) + Local1 = "123" + CHEK(Local0, Local1) + + Local0 = ToDecimalString(Buffer { 1, 2, 222, 33, 45, 192, 3, 255 }) + Local1 = "1,2,222,33,45,192,3,255" + CHEK(Local0, Local1) + + Local0 = ToDecimalString("") + Local1 = "" + CHEK(Local0, Local1) + + Local0 = ToDecimalString("123") + Local1 = "123" + CHEK(Local0, Local1) + + Local0 = ToDecimalString(0xFFFFFFFFFFFFFFFF) + Local1 = "18446744073709551615" + CHEK(Local0, Local1) + + // Hex string + Local0 = ToHexString(123) + Local1 = "0x7B" + CHEK(Local0, Local1) + + Local0 = ToHexString(Buffer { 1, 2, 222, 33, 45, 192, 3, 255 }) + Local1 = "0x01,0x02,0xDE,0x21,0x2D,0xC0,0x03,0xFF" + CHEK(Local0, Local1) + + Local0 = ToHexString("") + Local1 = "" + CHEK(Local0, Local1) + + Local0 = ToHexString("123") + Local1 = "123" + CHEK(Local0, Local1) + + Local0 = ToHexString(0xF) + Local1 = "0xF" + CHEK(Local0, Local1) + + Local0 = ToHexString(0xFF) + Local1 = "0xFF" + CHEK(Local0, Local1) + + Local0 = ToHexString(0xFFF) + Local1 = "0xFFF" + CHEK(Local0, Local1) + + Local0 = ToHexString(0xFFFFF) + Local1 = "0xFFFFF" + CHEK(Local0, Local1) + + Local0 = ToHexString(0xFFFFFFFFFFFFFFFF) + Local1 = "0xFFFFFFFFFFFFFFFF" + CHEK(Local0, Local1) + + // Buffer + Local0 = ToBuffer(Buffer { 1, 2, 3 }) + Local1 = Buffer { 1, 2, 3 } + CHEK(Local0, Local1) + + Local0 = ToBuffer("Hello") + Local1 = Buffer { 0x48, 0x65, 0x6C, 0x6C, 0x6F, 0x00 } + CHEK(Local0, Local1) + + Local0 = ToBuffer(0xDEADBEEFCAFEBABE) + Local1 = Buffer { 0xBE, 0xBA, 0xFE, 0xCA, 0xEF, 0xBE, 0xAD, 0xDE } + CHEK(Local0, Local1) + + Return (FCNT) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/unresolved-paths.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/unresolved-paths.asl new file mode 100644 index 0000000..6197828 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/unresolved-paths.asl @@ -0,0 +1,30 @@ +// Name: Unresolved paths don't error out when needed +// Expect: int => 1 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Local0 = Package { + 321, + PATH.THAT.DOES.NOT_.EXIS.T, + 123, + \OK, + \MAIN, + } + Debug = Local0 + + If (CondRefOf(ANOT.HER_.PATH.THAT.DOES.NOT.EXIS.T, Local0) || + CondRefOf(\TEST) || CondRefOf(^TEST) || CondRefOf(^TEST.JEST) || + CondRefOf(\TEST.JEST)) { + Return (0) + } + + If (CondRefOf(^MAIN, Local1)) { + Debug = Local1 + Return (1) + } + + Return (0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/while-break.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/while-break.asl new file mode 100644 index 0000000..dd8b2a0 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/while-break.asl @@ -0,0 +1,24 @@ +// Name: While With Break +// Expect: int => 10 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Local0 = 1 + Local1 = 10 + + While (Local0) { + If (Local1--) { + Debug = "Incrementing Local0" + Local0++ + Debug = Local0 + } Else { + Debug = "Local1 is 0, breaking" + Break + } + } + + Return(Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/while-continue.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/while-continue.asl new file mode 100644 index 0000000..205de0d --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/while-continue.asl @@ -0,0 +1,25 @@ +// Name: While With Continue +// Expect: int => 10 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Local0 = 1 + Local1 = 10 + + While (Local0) { + If (Local1--) { + Debug = "Incrementing Local0 & continuing" + Local0++ + Debug = Local0 + Continue + } + + Debug = "Local1 is 0, breaking" + Break + } + + Return(Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/test-cases/while-dec-inc.asl b/kernel/hal/x86_64/uACPI/tests/test-cases/while-dec-inc.asl new file mode 100644 index 0000000..e87244e --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/test-cases/while-dec-inc.asl @@ -0,0 +1,20 @@ +// Name: Increment/Decrement With While +// Expect: int => 10 + +DefinitionBlock ("", "DSDT", 2, "uTEST", "TESTTABL", 0xF0F0F0F0) +{ + Method (MAIN, 0, NotSerialized) + { + Local0 = 1 + Local1 = 10 + + While (Local1--) { + Debug = "Iteration" + Debug = Local0 + + Local0++ + } + + Return(Local0) + } +} diff --git a/kernel/hal/x86_64/uACPI/tests/utilities/__init__.py b/kernel/hal/x86_64/uACPI/tests/utilities/__init__.py new file mode 100644 index 0000000..e69de29 diff --git a/kernel/hal/x86_64/uACPI/tests/utilities/asl.py b/kernel/hal/x86_64/uACPI/tests/utilities/asl.py new file mode 100644 index 0000000..468578f --- /dev/null +++ b/kernel/hal/x86_64/uACPI/tests/utilities/asl.py @@ -0,0 +1,217 @@ +import os +import subprocess +from typing import List, Optional, Union + + +class ASL: + @staticmethod + def definition_block(kind: str, revision: int) -> str: + block = "DefinitionBlock " + block += f'("", "{kind}", {revision}, ' + block += '"uTEST", "TESTTABL", 0xF0F0F0F0)' + + return block + + @staticmethod + def name(name: str, term_arg: Union[str, int]) -> str: + return f"Name({name}, {term_arg})" + + @staticmethod + def buffer( + initializers: Optional[List[int]] = None, + count: Optional[int] = None + ) -> str: + if count is not None: + buf_len = count + elif initializers is not None: + buf_len = len(initializers) + else: + buf_len = 0 + + buf = f"Buffer({buf_len})" + + buf += " { " + if initializers is not None: + buf += ", ".join([str(x) for x in initializers]) + buf += " }" + + return buf + + @staticmethod + def method(name: str, num_args: Optional[int] = None) -> str: + method = f"Method ({name}" + if num_args is not None: + method += f", {num_args}" + method += ")" + + return method + + @staticmethod + def invoke(name: str, args: List[str] = []) -> str: + invocation = f"{name}(" + invocation += ", ".join(args) + invocation += ")" + return invocation + + @staticmethod + def end_block() -> str: + return "}" + + @staticmethod + def assign(dst: str, src: str) -> str: + return f"{dst} = {src}" + + @staticmethod + def increment(name: str) -> str: + return f"{name}++" + + @staticmethod + def create_field(buf: str, idx: int, field_size: int, + field_name: str) -> str: + return f"CreateField({buf}, {idx}, {field_size}, {field_name})" + + @staticmethod + def iff(arg: str) -> str: + return f"If ({arg})" + + @staticmethod + def elsee() -> str: + return "Else" + + @staticmethod + def equal(arg0: str, arg1: str) -> str: + return f"{arg0} == {arg1}" + + @staticmethod + def returnn(arg: str) -> str: + return f"Return ({arg})" + + +class ASLSource: + def __init__(self, revision: int = 0): + self.lines: List[str] = [] + self.revision = revision + self.indentation = 0 + + self.l(ASL.definition_block("DSDT", 2)) + self.block_begin() + + def l(self, line: str) -> None: + line = " " * (self.indentation * 4) + line + self.lines.append(line) + + def block_begin(self) -> None: + self.l("{") + self.indentation += 1 + + def block_end(self) -> None: + self.indentation -= 1 + self.l("}\n") + + def iff(self, arg: str) -> None: + self.l(ASL.iff(arg) + " {") + self.indentation += 1 + + def elsee(self) -> None: + self.indentation -= 1 + self.l("} Else {") + self.indentation += 1 + + def finalize(self) -> None: + self.block_end() + + def dump(self, path: str) -> None: + with open(path, "w") as f: + f.write("\n".join(self.lines)) + + def dump_as_test_case( + self, path: str, case_name: str, + expected_type: str, expected_value: Union[str, int] + ) -> None: + with open(path, "w") as f: + f.write(f"// Name: (generated) {case_name}\n") + f.write(f"// Expect: {expected_type} => {expected_value}\n") + f.write("\n".join(self.lines)) + + @staticmethod + def compile(path: str, compiler: str, bin_dir: str) -> str: + case_aml_name = os.path.basename(path).rsplit(".", 1)[0] + ".aml" + out_case = os.path.join(bin_dir, case_aml_name) + + ignored_warnings = [ + # Warning 3144 Method Local is set but never used + "-vw", "3144", + # Remark 2098 Recursive method call + "-vw", "2098", + + # Invalid type [Reference] found, RefOf operator requires + # [Integer|String|Buffer|Package|FieldUnit|Device|Event| + # Method|Mutex|Region|Power|Processor|Thermal|BufferField| + # DdbHandle|DebugObject] + "-vw", "6058", + + # One or more objects within the Pathname do not exist + "-vw", "6161", + # Too few arguments + "-vw", "6005", + # Called method returns no value + "-vw", "6080", + # Object does not exist + "-vw", "6084", + + # Not a control method, cannot invoke + "-vw", "6086", + + # Object is not referenced + "-vw", "2089", + + # Creation of named objects within a method is highly inefficient + "-vw", "2173", + + # Existing object has invalid type for Scope operator + "-vw", "6117", + + # Switch expression is not a static Integer/Buffer/String data + "-vw", "3124", + + # Static OperationRegion should be declared outside control method + "-vw", "3175", + + # Missing dependency + # (for some reason it has two different error codes) + "-vw", "3141", + "-vw", "6141", + + # Field Unit extends beyond region limit + "-vw", "6031", + + # Name already exists in scope + "-vw", "6074", + + # Object not found or not accessible from current scope + "-vw", "6085", + + # Legacy Processor() keyword detected. Use Device() keyword instead + "-vw", "3168", + + # Local or Arg used outside a control method + "-vw", "2067", + ] + + args = [compiler, *ignored_warnings, "-oa", "-p", out_case, path] + proc = subprocess.Popen(args, stdout=subprocess.PIPE, + stderr=subprocess.PIPE, + universal_newlines=True) + + proc.wait(10) + + stdout = proc.stdout + assert stdout + stderr = proc.stderr + assert stderr + + if proc.returncode != 0: + raise RuntimeError(f"Compiler error:\nstdout:\n{stdout.read()}" + f"\nstderr:\n{stderr.read()}") + + return out_case diff --git a/kernel/hal/x86_64/uACPI/uacpi.cmake b/kernel/hal/x86_64/uACPI/uacpi.cmake new file mode 100644 index 0000000..01cc611 --- /dev/null +++ b/kernel/hal/x86_64/uACPI/uacpi.cmake @@ -0,0 +1,34 @@ +# This cmake file is not meant to be used to actually build the project. +# Instead, it is supposed to be included via 'include()' by the actual +# CMakeLists.txt file, which intends to use uACPI. This file takes care of +# accumulating all sources & includes into well-defined exported variables +# that the parent cmake file is supposed to make use of. + +# ======== Exported public variables ========= + +# A list that contains all of the compilable files that must be compiled along +# with all other source files (added via target_sources etc). +set(UACPI_SOURCES "") + +# A list that contains all of the include paths that must be appended to the +# parent include directories (via target_include_directories etc). +set(UACPI_INCLUDES "") + +# absolute path to the uACPI root directory +set(UACPI_ROOT_DIR "${CMAKE_CURRENT_LIST_DIR}") + +# ============================================ + +list(APPEND UACPI_INCLUDES "${UACPI_ROOT_DIR}/include") + +macro(uacpi_add_sources) + foreach (SOURCE_FILE ${ARGV}) + list(APPEND UACPI_SOURCES "${CMAKE_CURRENT_LIST_DIR}/${SOURCE_FILE}") + endforeach() +endmacro() + +macro(uacpi_subdir SUBDIR) + include("${UACPI_ROOT_DIR}/${SUBDIR}/files.cmake") +endmacro() + +uacpi_subdir(source) diff --git a/kernel/kmain.c b/kernel/kmain.c index 29f7bc2..c9ffa8a 100644 --- a/kernel/kmain.c +++ b/kernel/kmain.c @@ -10,6 +10,43 @@ #include "vfs/vfs.h" #include "baseimg/baseimg.h" #include "storedev/storedev.h" +#include "util/util.h" + +const char *human_size(uint64_t bytes, char *buf, size_t bufsize) { + static const char *units[] = { "B", "KiB", "MiB", "GiB", "TiB", "PiB" }; + int unit = 0; + + // Scale down until value fits nicely + uint64_t rem = 0; + while (bytes >= 1024 && unit < (int)(sizeof(units)/sizeof(units[0])) - 1) { + rem = bytes % 1024; + bytes /= 1024; + unit++; + } + + if (unit == 0) { + // Just bytes + ksnprintf(buf, bufsize, "%llu %s", (unsigned long long)bytes, units[unit]); + } else { + // Show one decimal place without using floats + // Multiply remainder by 10 to get first decimal digit + uint64_t frac = (rem * 10 + 512) / 1024; // rounded + if (frac == 10) { // handle carry, e.g. 1023.9 -> 1024.0 + bytes++; + frac = 0; + } + + if (frac > 0) ksnprintf(buf, bufsize, "%llu.%llu %s", (unsigned long long)bytes, (unsigned long long)frac, units[unit]); + else ksnprintf(buf, bufsize, "%llu %s", (unsigned long long)bytes, units[unit]); + } + + return buf; +} + +void log_bootinfo(void) { + char buf[100]; + LOG("kmain", "Memory total = %s\n", human_size(BOOT_INFO.memmap_total, buf, sizeof(buf))); +} static volatile LIMINE_BASE_REVISION(2); @@ -20,10 +57,12 @@ void kmain(void) { bootinfo_init(); term_init(); + log_bootinfo(); hal_init(); pmm_init(); paging_init(); dlmalloc_check(); + hal_init_withmalloc(); storedev_init(); baseimg_init(); vfs_init();