diff options
author | Marco Peereboom <marco@cvs.openbsd.org> | 2010-08-05 17:33:14 +0000 |
---|---|---|
committer | Marco Peereboom <marco@cvs.openbsd.org> | 2010-08-05 17:33:14 +0000 |
commit | 01e60ce4b43b4751018af47fe743f5074766207b (patch) | |
tree | 31e7094165c7fec9afef6575dfe0427212babb18 | |
parent | ac45fd1c3a30c28eeac0c5f048367cbbfd138433 (diff) |
die aml parser die
ok deraadt
-rw-r--r-- | usr.sbin/acpidump/aml/aml_amlmem.c | 91 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_amlmem.h | 66 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_common.c | 734 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_common.h | 165 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_env.h | 47 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_evalobj.c | 436 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_evalobj.h | 49 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_memman.c | 477 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_memman.h | 172 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_name.c | 483 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_name.h | 89 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_obj.c | 267 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_obj.h | 232 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_parse.c | 2089 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_parse.h | 37 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_region.h | 93 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_status.h | 42 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_store.c | 351 | ||||
-rw-r--r-- | usr.sbin/acpidump/aml/aml_store.h | 40 |
19 files changed, 0 insertions, 5960 deletions
diff --git a/usr.sbin/acpidump/aml/aml_amlmem.c b/usr.sbin/acpidump/aml/aml_amlmem.c deleted file mode 100644 index b696465ba64..00000000000 --- a/usr.sbin/acpidump/aml/aml_amlmem.c +++ /dev/null @@ -1,91 +0,0 @@ -/* $OpenBSD: aml_amlmem.c,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_amlmem.c,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_amlmem.c,v 1.2 2000/11/09 06:24:45 iwasaki Exp $ - */ - -/* - * AML Namespace Memory Management - */ -#include <sys/types.h> -#include <aml/aml_env.h> -#include <aml/aml_memman.h> -#include <aml/aml_name.h> - -MEMMAN_INITIALSTORAGE_DESC(struct aml_namestr, _aml_namestr_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_num, _aml_num_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_string, _aml_string_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_buffer, _aml_buffer_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_package, _aml_package_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_field, _aml_field_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_method, _aml_method_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_mutex, _aml_mutex_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_opregion, _aml_opregion_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_powerres, _aml_powerres_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_processor, _aml_processor_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_bufferfield, _aml_bufferfield_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_event, _aml_event_storage); -MEMMAN_INITIALSTORAGE_DESC(enum aml_objtype, _aml_objtype_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_name, _aml_name_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_name_group, _aml_name_group_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_objref, _aml_objref_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_regfield, _aml_regfield_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_environ, _aml_environ_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_local_stack, _aml_local_stack_storage); -MEMMAN_INITIALSTORAGE_DESC(struct aml_mutex_queue, _aml_mutex_queue_storage); - -struct memman_blockman aml_blockman[] = { - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_namestr), _aml_namestr_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_num), _aml_num_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_string), _aml_string_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_buffer), _aml_buffer_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_package), _aml_package_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_field), _aml_field_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_method), _aml_method_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_mutex), _aml_mutex_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_opregion), _aml_opregion_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_powerres), _aml_powerres_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_processor), _aml_processor_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_bufferfield), _aml_bufferfield_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_event), _aml_event_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(enum aml_objtype), _aml_objtype_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_name), _aml_name_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_name_group), _aml_name_group_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_objref), _aml_objref_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_regfield), _aml_regfield_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_environ), _aml_environ_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_local_stack), _aml_local_stack_storage), - MEMMAN_MEMBLOCK_DESC(sizeof(struct aml_mutex_queue), _aml_mutex_queue_storage), -}; - -struct memman_histogram aml_histogram[MEMMAN_HISTOGRAM_SIZE]; - -static struct memman _aml_memman = MEMMAN_MEMMANAGER_DESC(aml_blockman, 21, - aml_histogram, 1); - -struct memman *aml_memman = &_aml_memman; - diff --git a/usr.sbin/acpidump/aml/aml_amlmem.h b/usr.sbin/acpidump/aml/aml_amlmem.h deleted file mode 100644 index 354c6522547..00000000000 --- a/usr.sbin/acpidump/aml/aml_amlmem.h +++ /dev/null @@ -1,66 +0,0 @@ -/* $OpenBSD: aml_amlmem.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_amlmem.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_amlmem.h,v 1.2 2000/11/09 06:24:45 iwasaki Exp $ - */ - -#ifndef _AML_AMLMEM_H_ -#define _AML_AMLMEM_H_ - -/* - * AML Namespace Memory Management - */ - -#include <aml/aml_memman.h> - -enum { - memid_aml_namestr = 0, - memid_aml_num, - memid_aml_string, - memid_aml_buffer, - memid_aml_package, - memid_aml_field, - memid_aml_method, - memid_aml_mutex, - memid_aml_opregion, - memid_aml_powerres, - memid_aml_processor, - memid_aml_bufferfield, - memid_aml_event, - memid_aml_objtype, - memid_aml_name, - memid_aml_name_group, - memid_aml_objref, - memid_aml_regfield, - memid_aml_environ, - memid_aml_local_stack, - memid_aml_mutex_queue, -}; - -extern struct memman *aml_memman; - -#endif /* !_AML_AMLMEM_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_common.c b/usr.sbin/acpidump/aml/aml_common.c deleted file mode 100644 index b5f4c3f68e2..00000000000 --- a/usr.sbin/acpidump/aml/aml_common.c +++ /dev/null @@ -1,734 +0,0 @@ -/* $OpenBSD: aml_common.c,v 1.2 2008/09/10 14:59:53 miod Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_common.c,v 1.2 2008/09/10 14:59:53 miod Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_common.c,v 1.6 2000/11/09 06:24:45 iwasaki Exp $ - */ -#include <sys/types.h> -#ifndef _KERNEL -#include <assert.h> -#include <err.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <unistd.h> -#else /* _KERNEL */ -#include "opt_acpi.h" -#include <sys/kernel.h> -#include <sys/sysctl.h> -#include <sys/systm.h> -#include <sys/bus.h> -#include <machine/bus.h> -#include <dev/acpi/acpireg.h> -#include <dev/acpi/acpivar.h> -#ifndef ACPI_NO_OSDFUNC_INLINE -#include <machine/acpica_osd.h> -#endif /* !ACPI_NO_OSDFUNC_INLINE */ -#endif /* !_KERNEL */ - -#include <aml/aml_common.h> -#include <aml/aml_env.h> -#include <aml/aml_evalobj.h> -#include <aml/aml_name.h> -#include <aml/aml_obj.h> -#include <aml/aml_parse.h> -#include <aml/aml_status.h> -#include <aml/aml_store.h> - -/* for debugging */ -#ifdef AML_DEBUG -int aml_debug = 1; -#else /* !AML_DEBUG */ -int aml_debug = 0; -#endif /* AML_DEBUG */ -#ifdef _KERNEL -SYSCTL_INT(_debug, OID_AUTO, aml_debug, CTLFLAG_RW, &aml_debug, 1, ""); -#endif /* _KERNEL */ - -static void aml_print_nameseg(u_int8_t *dp); - -static void -aml_print_nameseg(u_int8_t *dp) -{ - - if (dp[3] != '_') { - AML_DEBUGPRINT("%c%c%c%c", dp[0], dp[1], dp[2], dp[3]); - } else if (dp[2] != '_') { - AML_DEBUGPRINT("%c%c%c_", dp[0], dp[1], dp[2]); - } else if (dp[1] != '_') { - AML_DEBUGPRINT("%c%c__", dp[0], dp[1]); - } else if (dp[0] != '_') { - AML_DEBUGPRINT("%c___", dp[0]); - } -} - -void -aml_print_namestring(u_int8_t *dp) -{ - int segcount; - int i; - - if (dp[0] == '\\') { - AML_DEBUGPRINT("%c", dp[0]); - dp++; - } else if (dp[0] == '^') { - while (dp[0] == '^') { - AML_DEBUGPRINT("%c", dp[0]); - dp++; - } - } - if (dp[0] == 0x00) { /* NullName */ - /* AML_DEBUGPRINT("<null>"); */ - dp++; - } else if (dp[0] == 0x2e) { /* DualNamePrefix */ - aml_print_nameseg(dp + 1); - AML_DEBUGPRINT("%c", '.'); - aml_print_nameseg(dp + 5); - } else if (dp[0] == 0x2f) { /* MultiNamePrefix */ - segcount = dp[1]; - for (i = 0, dp += 2; i < segcount; i++, dp += 4) { - if (i > 0) { - AML_DEBUGPRINT("%c", '.'); - } - aml_print_nameseg(dp); - } - } else /* NameSeg */ - aml_print_nameseg(dp); -} - -int -aml_print_curname(struct aml_name *name) -{ - struct aml_name *root; - - root = aml_get_rootname(); - if (name == root) { - AML_DEBUGPRINT("\\"); - return (0); - } else { - aml_print_curname(name->parent); - } - aml_print_nameseg(name->name); - AML_DEBUGPRINT("."); - return (0); -} - -void -aml_print_indent(int indent) -{ - int i; - - for (i = 0; i < indent; i++) - AML_DEBUGPRINT(" "); -} - -void -aml_showobject(union aml_object * obj) -{ - int debug; - int i; - - if (obj == NULL) { - printf("NO object\n"); - return; - } - debug = aml_debug; - aml_debug = 1; - switch (obj->type) { - case aml_t_num: - printf("Num:0x%x\n", obj->num.number); - break; - case aml_t_processor: - printf("Processor:No %d,Port 0x%x length 0x%x\n", - obj->proc.id, obj->proc.addr, obj->proc.len); - break; - case aml_t_mutex: - printf("Mutex:Level %d\n", obj->mutex.level); - break; - case aml_t_powerres: - printf("PowerResource:Level %d Order %d\n", - obj->pres.level, obj->pres.order); - break; - case aml_t_opregion: - printf("OprationRegion:Busspace%d, Offset 0x%x Length 0x%x\n", - obj->opregion.space, obj->opregion.offset, - obj->opregion.length); - break; - case aml_t_field: - printf("Fieldelement:flag 0x%x offset 0x%x len 0x%x {", - obj->field.flags, obj->field.bitoffset, - obj->field.bitlen); - switch (obj->field.f.ftype) { - case f_t_field: - aml_print_namestring(obj->field.f.fld.regname); - break; - case f_t_index: - aml_print_namestring(obj->field.f.ifld.indexname); - printf(" "); - aml_print_namestring(obj->field.f.ifld.dataname); - break; - case f_t_bank: - aml_print_namestring(obj->field.f.bfld.regname); - printf(" "); - aml_print_namestring(obj->field.f.bfld.bankname); - printf("0x%x", obj->field.f.bfld.bankvalue); - break; - } - printf("}\n"); - break; - case aml_t_method: - printf("Method: Arg %d From %p To %p\n", obj->meth.argnum, - obj->meth.from, obj->meth.to); - break; - case aml_t_buffer: - printf("Buffer: size:0x%x Data %p\n", obj->buffer.size, - obj->buffer.data); - break; - case aml_t_device: - printf("Device\n"); - break; - case aml_t_bufferfield: - printf("Bufferfield:offset 0x%x len 0x%x Origin %p\n", - obj->bfld.bitoffset, obj->bfld.bitlen, obj->bfld.origin); - break; - case aml_t_string: - printf("String:%s\n", obj->str.string); - break; - case aml_t_package: - printf("Package:elements %d \n", obj->package.elements); - for (i = 0; i < obj->package.elements; i++) { - if (obj->package.objects[i] == NULL) { - break; - } - if (obj->package.objects[i]->type < 0) { - continue; - } - printf(" "); - aml_showobject(obj->package.objects[i]); - } - break; - case aml_t_therm: - printf("Thermalzone\n"); - break; - case aml_t_event: - printf("Event\n"); - break; - case aml_t_ddbhandle: - printf("DDBHANDLE\n"); - break; - case aml_t_objref: - if (obj->objref.alias == 1) { - printf("Alias"); - } else { - printf("Object reference"); - if (obj->objref.offset >= 0) { - printf(" (offset 0x%x)", obj->objref.offset); - } - } - printf(" of "); - aml_showobject(obj->objref.ref); - break; - default: - printf("UNK ID=%d\n", obj->type); - } - - aml_debug = debug; -} - -void -aml_showtree(struct aml_name * aname, int lev) -{ - int i; - struct aml_name *ptr; - char name[5]; - - for (i = 0; i < lev; i++) { - printf(" "); - } - strncpy(name, aname->name, 4); - name[4] = 0; - printf("%s ", name); - if (aname->property != NULL) { - aml_showobject(aname->property); - } else { - printf("\n"); - } - for (ptr = aname->child; ptr; ptr = ptr->brother) - aml_showtree(ptr, lev + 1); -} - -/* - * Common Region I/O Stuff - */ - -static __inline u_int64_t -aml_adjust_bitmask(u_int32_t flags, u_int32_t bitlen) -{ - u_int64_t bitmask; - - switch (AML_FIELDFLAGS_ACCESSTYPE(flags)) { - case AML_FIELDFLAGS_ACCESS_ANYACC: - if (bitlen <= 8) { - bitmask = 0x000000ff; - break; - } - if (bitlen <= 16) { - bitmask = 0x0000ffff; - break; - } - bitmask = 0xffffffff; - break; - case AML_FIELDFLAGS_ACCESS_BYTEACC: - bitmask = 0x000000ff; - break; - case AML_FIELDFLAGS_ACCESS_WORDACC: - bitmask = 0x0000ffff; - break; - case AML_FIELDFLAGS_ACCESS_DWORDACC: - default: - bitmask = 0xffffffff; - break; - } - - switch (bitlen) { - case 16: - bitmask |= 0x0000ffff; - break; - case 32: - bitmask |= 0xffffffff; - break; - } - - return (bitmask); -} - -u_int32_t -aml_adjust_readvalue(u_int32_t flags, u_int32_t bitoffset, u_int32_t bitlen, - u_int32_t orgval) -{ - u_int32_t offset, retval; - u_int64_t bitmask; - - offset = bitoffset; /* XXX bitoffset may change in this function! */ - bitmask = aml_adjust_bitmask(flags, bitlen); - retval = (orgval >> offset) & (~(bitmask << bitlen)) & bitmask; - - return (retval); -} - -u_int32_t -aml_adjust_updatevalue(u_int32_t flags, u_int32_t bitoffset, u_int32_t bitlen, - u_int32_t orgval, u_int32_t value) -{ - u_int32_t offset, retval; - u_int64_t bitmask; - - offset = bitoffset; /* XXX bitoffset may change in this function! */ - bitmask = aml_adjust_bitmask(flags, bitlen); - retval = orgval; - switch (AML_FIELDFLAGS_UPDATERULE(flags)) { - case AML_FIELDFLAGS_UPDATE_PRESERVE: - retval &= (~(((u_int64_t)1 << bitlen) - 1) << offset) | - (~(bitmask << offset)); - break; - case AML_FIELDFLAGS_UPDATE_WRITEASONES: - retval = (~(((u_int64_t)1 << bitlen) - 1) << offset) | - (~(bitmask << offset)); - retval &= bitmask; /* trim the upper bits */ - break; - case AML_FIELDFLAGS_UPDATE_WRITEASZEROS: - retval = 0; - break; - default: - printf("illegal update rule: %d\n", flags); - return (orgval); - } - - retval |= (value << (offset & bitmask)); - return (retval); -} - -/* - * BufferField I/O - */ - -#define AML_BUFFER_INPUT 0 -#define AML_BUFFER_OUTPUT 1 - -static int aml_bufferfield_io(int io, u_int32_t *valuep, - u_int8_t *origin, u_int32_t bitoffset, - u_int32_t bitlen); - -static int -aml_bufferfield_io(int io, u_int32_t *valuep, u_int8_t *origin, - u_int32_t bitoffset, u_int32_t bitlen) -{ - u_int8_t val, tmp, masklow, maskhigh; - u_int8_t offsetlow, offsethigh; - u_int8_t *addr; - int i; - u_int32_t value, readval; - u_int32_t byteoffset, bytelen; - - masklow = maskhigh = 0xff; - val = readval = 0; - value = *valuep; - - byteoffset = bitoffset / 8; - bytelen = bitlen / 8 + ((bitlen % 8) ? 1 : 0); - addr = origin + byteoffset; - - /* simple I/O ? */ - if (bitlen <= 8 || bitlen == 16 || bitlen == 32) { - bcopy(addr, &readval, bytelen); - AML_DEBUGPRINT("\n\t[bufferfield:0x%x@%p:%d,%d]", - readval, addr, bitoffset % 8, bitlen); - switch (io) { - case AML_BUFFER_INPUT: - value = aml_adjust_readvalue(AML_FIELDFLAGS_ACCESS_BYTEACC, - bitoffset % 8, bitlen, readval); - *valuep = value; - AML_DEBUGPRINT("\n[read(bufferfield, %p)&mask:0x%x]\n", - addr, value); - break; - case AML_BUFFER_OUTPUT: - value = aml_adjust_updatevalue(AML_FIELDFLAGS_ACCESS_BYTEACC, - bitoffset % 8, bitlen, readval, value); - bcopy(&value, addr, bytelen); - AML_DEBUGPRINT("->[bufferfield:0x%x@%p:%d,%d]", - value, addr, bitoffset % 8, bitlen); - break; - } - goto out; - } - - offsetlow = bitoffset % 8; - if (bytelen > 1) { - offsethigh = (bitlen - (8 - offsetlow)) % 8; - } else { - offsethigh = 0; - } - - if (offsetlow) { - masklow = (~((1 << bitlen) - 1) << offsetlow) | ~(0xff << offsetlow); - AML_DEBUGPRINT("\t[offsetlow = 0x%x, masklow = 0x%x, ~masklow = 0x%x]\n", - offsetlow, masklow, ~masklow & 0xff); - } - if (offsethigh) { - maskhigh = 0xff << offsethigh; - AML_DEBUGPRINT("\t[offsethigh = 0x%x, maskhigh = 0x%x, ~maskhigh = 0x%x]\n", - offsethigh, maskhigh, ~maskhigh & 0xff); - } - for (i = bytelen; i > 0; i--, addr++) { - val = *addr; - - AML_DEBUGPRINT("\t[bufferfield:0x%02x@%p]", val, addr); - - switch (io) { - case AML_BUFFER_INPUT: - tmp = val; - /* the lowest byte? */ - if (i == bytelen) { - if (offsetlow) { - readval = tmp & ~masklow; - } else { - readval = tmp; - } - } else { - if (i == 1 && offsethigh) { - tmp = tmp & ~maskhigh; - } - readval = (tmp << (8 * (bytelen - i))) | readval; - } - - AML_DEBUGPRINT("\n"); - /* goto to next byte... */ - if (i > 1) { - continue; - } - /* final adjustment before finishing region access */ - if (offsetlow) { - readval = readval >> offsetlow; - } - AML_DEBUGPRINT("[read(bufferfield, %p)&mask:0x%x]\n", - addr, readval); - *valuep = readval; - - break; - - case AML_BUFFER_OUTPUT: - tmp = value & 0xff; - /* the lowest byte? */ - if (i == bytelen) { - if (offsetlow) { - tmp = (val & masklow) | tmp << offsetlow; - } - value = value >> (8 - offsetlow); - } else { - if (i == 1 && offsethigh) { - tmp = (val & maskhigh) | tmp; - } - value = value >> 8; - } - - AML_DEBUGPRINT("->[bufferfield:0x%02x@%p]\n", - tmp, addr); - *addr = tmp; - } - } -out: - return (0); -} - -u_int32_t -aml_bufferfield_read(u_int8_t *origin, u_int32_t bitoffset, - u_int32_t bitlen) -{ - int value; - - value = 0; - aml_bufferfield_io(AML_BUFFER_INPUT, &value, origin, - bitoffset, bitlen); - return (value); -} - -int -aml_bufferfield_write(u_int32_t value, u_int8_t *origin, - u_int32_t bitoffset, u_int32_t bitlen) -{ - int status; - - status = aml_bufferfield_io(AML_BUFFER_OUTPUT, &value, - origin, bitoffset, bitlen); - return (status); -} - -int -aml_region_handle_alloc(struct aml_environ *env, int regtype, u_int32_t flags, - u_int32_t baseaddr, u_int32_t bitoffset, u_int32_t bitlen, - struct aml_region_handle *h) -{ - int state; - struct aml_name *pci_info; - - state = 0; - pci_info = NULL; - bzero(h, sizeof(struct aml_region_handle)); - - h->env = env; - h->regtype = regtype; - h->flags = flags; - h->baseaddr = baseaddr; - h->bitoffset = bitoffset; - h->bitlen = bitlen; - - switch (AML_FIELDFLAGS_ACCESSTYPE(flags)) { - case AML_FIELDFLAGS_ACCESS_ANYACC: - if (bitlen <= 8) { - h->unit = 1; - break; - } - if (bitlen <= 16) { - h->unit = 2; - break; - } - h->unit = 4; - break; - case AML_FIELDFLAGS_ACCESS_BYTEACC: - h->unit = 1; - break; - case AML_FIELDFLAGS_ACCESS_WORDACC: - h->unit = 2; - break; - case AML_FIELDFLAGS_ACCESS_DWORDACC: - h->unit = 4; - break; - default: - h->unit = 1; - break; - } - - h->addr = baseaddr + h->unit * ((bitoffset / 8) / h->unit); - h->bytelen = baseaddr + ((bitoffset + bitlen) / 8) - h->addr + - ((bitlen % 8) ? 1 : 0); - -#ifdef _KERNEL - switch (h->regtype) { - case AML_REGION_SYSMEM: - OsdMapMemory((void *)h->addr, h->bytelen, (void **)&h->vaddr); - break; - - case AML_REGION_PCICFG: - /* Obtain PCI bus number */ - pci_info = aml_search_name(env, "_BBN"); - if (pci_info == NULL || pci_info->property->type != aml_t_num) { - AML_DEBUGPRINT("Cannot locate _BBN. Using default 0\n"); - h->pci_bus = 0; - } else { - AML_DEBUGPRINT("found _BBN: %d\n", - pci_info->property->num.number); - h->pci_bus = pci_info->property->num.number & 0xff; - } - - /* Obtain device & function number */ - pci_info = aml_search_name(env, "_ADR"); - if (pci_info == NULL || pci_info->property->type != aml_t_num) { - printf("Cannot locate: _ADR\n"); - state = -1; - goto out; - } - h->pci_devfunc = pci_info->property->num.number; - - AML_DEBUGPRINT("[pci%d.%d]", h->pci_bus, h->pci_devfunc); - break; - - default: - break; - } - -out: -#endif /* _KERNEL */ - return (state); -} - -void -aml_region_handle_free(struct aml_region_handle *h) -{ -#ifdef _KERNEL - switch (h->regtype) { - case AML_REGION_SYSMEM: - OsdUnMapMemory((void *)h->vaddr, h->bytelen); - break; - - default: - break; - } -#endif /* _KERNEL */ -} - -static int -aml_region_io_simple(struct aml_environ *env, int io, int regtype, - u_int32_t flags, u_int32_t *valuep, u_int32_t baseaddr, - u_int32_t bitoffset, u_int32_t bitlen) -{ - int i, state; - u_int32_t readval, value, offset, bytelen; - struct aml_region_handle handle; - - state = aml_region_handle_alloc(env, regtype, flags, - baseaddr, bitoffset, bitlen, &handle); - if (state == -1) { - goto out; - } - - readval = 0; - offset = bitoffset % (handle.unit * 8); - /* limitation of 32 bits alignment */ - bytelen = (handle.bytelen > 4) ? 4 : handle.bytelen; - - if (io == AML_REGION_INPUT || - AML_FIELDFLAGS_UPDATERULE(flags) == AML_FIELDFLAGS_UPDATE_PRESERVE) { - for (i = 0; i < bytelen; i += handle.unit) { - state = aml_region_read_simple(&handle, i, &value); - if (state == -1) { - goto out; - } - readval |= (value << (i * 8)); - } - AML_DEBUGPRINT("\t[%d:0x%x@%p:%d,%d]", - regtype, readval, (void *)handle.addr, offset, bitlen); - } - - switch (io) { - case AML_REGION_INPUT: - AML_DEBUGPRINT("\n"); - readval = aml_adjust_readvalue(flags, offset, bitlen, readval); - value = readval; - value = aml_region_prompt_read(&handle, value); - state = aml_region_prompt_update_value(readval, value, &handle); - if (state == -1) { - goto out; - } - - *valuep = value; - break; - case AML_REGION_OUTPUT: - value = *valuep; - value = aml_adjust_updatevalue(flags, offset, - bitlen, readval, value); - value = aml_region_prompt_write(&handle, value); - AML_DEBUGPRINT("\t->[%d:0x%x@%p:%d,%d]\n", regtype, value, - (void *)handle.addr, offset, bitlen); - for (i = 0; i < bytelen; i += handle.unit) { - state = aml_region_write_simple(&handle, i, value); - if (state == -1) { - goto out; - } - value = value >> (handle.unit * 8); - } - break; - } - - aml_region_handle_free(&handle); -out: - return (state); -} - -int -aml_region_io(struct aml_environ *env, int io, int regtype, - u_int32_t flags, u_int32_t *valuep, u_int32_t baseaddr, - u_int32_t bitoffset, u_int32_t bitlen) -{ - u_int32_t unit, offset; - u_int32_t offadj, bitadj; - u_int32_t value, readval; - int state, i; - - readval = 0; - state = 0; - unit = 4; /* limitation of 32 bits alignment */ - offset = bitoffset % (unit * 8); - offadj = 0; - bitadj = 0; - if (offset + bitlen > unit * 8) { - bitadj = bitlen - (unit * 8 - offset); - } - for (i = 0; i < offset + bitlen; i += unit * 8) { - value = (*valuep) >> offadj; - state = aml_region_io_simple(env, io, regtype, flags, - &value, baseaddr, bitoffset + offadj, bitlen - bitadj); - if (state == -1) { - goto out; - } - readval |= value << offadj; - bitadj = offadj = bitlen - bitadj; - } - *valuep = readval; - -out: - return (state); -} diff --git a/usr.sbin/acpidump/aml/aml_common.h b/usr.sbin/acpidump/aml/aml_common.h deleted file mode 100644 index 24f3a7344da..00000000000 --- a/usr.sbin/acpidump/aml/aml_common.h +++ /dev/null @@ -1,165 +0,0 @@ -/* $OpenBSD: aml_common.h,v 1.2 2005/06/04 02:25:53 cloder Exp $ */ -/*- - * Copyright (c) 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_common.h,v 1.2 2005/06/04 02:25:53 cloder Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_common.h,v 1.4 2000/10/02 08:58:47 iwasaki Exp $ - */ - -#ifndef _AML_COMMON_H_ -#define _AML_COMMON_H_ - -#include "acpidump.h" - -/* - * General Stuff - */ -#ifdef _KERNEL -#define AML_SYSABORT() do { \ - printf("aml: fatal errer at %s:%d\n", __FILE__, __LINE__); \ - panic("panic in AML interpreter!"); \ -} while(0) -#define AML_SYSASSERT(x) do { \ - if (!(x)) { \ - AML_SYSABORT(); \ - } \ -} while(0) -/* XXX: named variadic macros are a gcc-ism, and __VA_ARGS__ is C99-only */ -#define AML_SYSERRX(eval, fmt, args...) do { \ - printf(fmt, args); \ -} while(0) -#define AML_DEBUGGER(x, y) /* no debugger in kernel */ -#define AML_STALL(micro) OsdSleepUsec(micro) -#define AML_SLEEP(sec, milli) OsdSleep(sec, milli) -#else /* !_KERNEL */ -#define AML_SYSASSERT(x) assert(x) -#define AML_SYSABORT() abort() -/* XXX: named variadic macros are a gcc-ism, and __VA_ARGS__ is C99-only */ -#define AML_SYSERRX(eval, fmt, args...) errx(eval, fmt, args) -#define AML_DEBUGGER(x, y) aml_dbgr(x, y) -#define AML_STALL(micro) /* not required in userland */ -#define AML_SLEEP(sec, milli) /* not required in userland */ -#endif /* _KERNEL */ - -union aml_object; -struct aml_name; - -extern int aml_debug; - -/* XXX: named variadic macros are a gcc-ism, and __VA_ARGS__ is C99-only */ -#define AML_DEBUGPRINT(args...) do { \ - if (aml_debug) { \ - printf(args); \ - } \ -} while(0) - -void aml_showobject(union aml_object *); -void aml_showtree(struct aml_name *, int); -int aml_print_curname(struct aml_name *); -void aml_print_namestring(u_int8_t *); -void aml_print_indent(int); - -/* - * Reigion I/O Stuff for both kernel/userland. - */ - -/* - * Field Flags - */ -/* bit 0 -3: AccessType */ -#define AML_FIELDFLAGS_ACCESS_ANYACC 0x00 -#define AML_FIELDFLAGS_ACCESS_BYTEACC 0x01 -#define AML_FIELDFLAGS_ACCESS_WORDACC 0x02 -#define AML_FIELDFLAGS_ACCESS_DWORDACC 0x03 -#define AML_FIELDFLAGS_ACCESS_BLOCKACC 0x04 -#define AML_FIELDFLAGS_ACCESS_SMBSENDRECVACC 0x05 -#define AML_FIELDFLAGS_ACCESS_SMBQUICKACC 0x06 -#define AML_FIELDFLAGS_ACCESSTYPE(flags) (flags & 0x0f) -/* bit 4: LockRule */ -#define AML_FIELDFLAGS_LOCK_NOLOCK 0x00 -#define AML_FIELDFLAGS_LOCK_LOCK 0x10 -#define AML_FIELDFLAGS_LOCKRULE(flags) (flags & 0x10) -/* bit 5 - 6: UpdateRule */ -#define AML_FIELDFLAGS_UPDATE_PRESERVE 0x00 -#define AML_FIELDFLAGS_UPDATE_WRITEASONES 0x20 -#define AML_FIELDFLAGS_UPDATE_WRITEASZEROS 0x40 -#define AML_FIELDFLAGS_UPDATERULE(flags) (flags & 0x60) -/* bit 7: reserved (must be 0) */ - -#define AML_REGION_INPUT 0 -#define AML_REGION_OUTPUT 1 - -#define AML_REGION_SYSMEM 0 -#define AML_REGION_SYSIO 1 -#define AML_REGION_PCICFG 2 -#define AML_REGION_EMBCTL 3 -#define AML_REGION_SMBUS 4 - -struct aml_region_handle { - /* These are copies of values used on initialization */ - struct aml_environ *env; - int regtype; - u_int32_t flags; - u_int32_t baseaddr; - u_int32_t bitoffset; - u_int32_t bitlen; - - /* following is determined on initialization */ - vm_offset_t addr, bytelen; - u_int32_t unit; /* access unit in bytes */ - - /* region type dependant */ - vm_offset_t vaddr; /* SystemMemory */ - u_int32_t pci_bus, pci_devfunc; /* PCI_Config */ -}; - -u_int32_t aml_adjust_readvalue(u_int32_t, u_int32_t, u_int32_t, - u_int32_t); -u_int32_t aml_adjust_updatevalue(u_int32_t, u_int32_t, u_int32_t, - u_int32_t, u_int32_t); - -u_int32_t aml_bufferfield_read(u_int8_t *, u_int32_t, u_int32_t); -int aml_bufferfield_write(u_int32_t, u_int8_t *, - u_int32_t, u_int32_t); - -int aml_region_handle_alloc(struct aml_environ *, int, u_int32_t, - u_int32_t, u_int32_t, u_int32_t, - struct aml_region_handle *); -void aml_region_handle_free(struct aml_region_handle *); - -int aml_region_io(struct aml_environ *, int, int, - u_int32_t, u_int32_t *, u_int32_t, - u_int32_t, u_int32_t); -extern int aml_region_read_simple(struct aml_region_handle *, vm_offset_t, - u_int32_t *); -extern int aml_region_write_simple(struct aml_region_handle *, vm_offset_t, - u_int32_t); -extern u_int32_t aml_region_prompt_read(struct aml_region_handle *, - u_int32_t); -extern u_int32_t aml_region_prompt_write(struct aml_region_handle *, - u_int32_t); -extern int aml_region_prompt_update_value(u_int32_t, u_int32_t, - struct aml_region_handle *); -#endif /* !_AML_COMMON_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_env.h b/usr.sbin/acpidump/aml/aml_env.h deleted file mode 100644 index fe85f362458..00000000000 --- a/usr.sbin/acpidump/aml/aml_env.h +++ /dev/null @@ -1,47 +0,0 @@ -/* $OpenBSD: aml_env.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_env.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_env.h,v 1.2 2000/11/09 06:24:45 iwasaki Exp $ - */ - -#ifndef _AML_ENV_H_ -#define _AML_ENV_H_ - -#include <aml/aml_name.h> -#include <aml/aml_obj.h> -#include <aml/aml_status.h> - -struct aml_environ { - u_int8_t *dp; - u_int8_t *end; - enum aml_status stat; - struct aml_name *curname; - struct aml_name tempname; - union aml_object tempobject; -}; - -#endif /* !_AML_ENV_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_evalobj.c b/usr.sbin/acpidump/aml/aml_evalobj.c deleted file mode 100644 index 48109bd88c5..00000000000 --- a/usr.sbin/acpidump/aml/aml_evalobj.c +++ /dev/null @@ -1,436 +0,0 @@ -/* $OpenBSD: aml_evalobj.c,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_evalobj.c,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_evalobj.c,v 1.4 2000/11/09 06:24:45 iwasaki Exp $ - */ - -#include <sys/types.h> - -#include <aml/aml_amlmem.h> -#include <aml/aml_common.h> -#include <aml/aml_env.h> -#include <aml/aml_evalobj.h> -#include <aml/aml_name.h> -#include <aml/aml_obj.h> -#include <aml/aml_parse.h> -#include <aml/aml_region.h> -#include <aml/aml_status.h> -#include <aml/aml_store.h> - -#ifndef _KERNEL -#include <sys/stat.h> -#include <sys/mman.h> - -#include <assert.h> -#include <err.h> -#include <fcntl.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> - -#include "debug.h" -#else /* _KERNEL */ -#include <sys/systm.h> -#endif /* !_KERNEL */ - -static union aml_object *aml_eval_fieldobject(struct aml_environ *env, - struct aml_name *name); - -static union aml_object * -aml_eval_fieldobject(struct aml_environ *env, struct aml_name *name) -{ - int num; - struct aml_name *oname,*wname; - struct aml_field *field; - struct aml_opregion *or; - union aml_object tobj; - - num = 0; - /* CANNOT OCCUR! */ - if (name == NULL || name->property == NULL || - name->property->type != aml_t_field) { - printf("????\n"); - env->stat = aml_stat_panic; - return (NULL); - } - field = &name->property->field; - oname = env->curname; - if (field->bitlen > 32) { - env->tempobject.type = aml_t_regfield; - } else { - env->tempobject.type = aml_t_num; - } - env->curname = name; - if (field->f.ftype == f_t_field) { - wname = aml_search_name(env, field->f.fld.regname); - if (wname == NULL || wname->property == NULL || - wname->property->type != aml_t_opregion) { - AML_DEBUGPRINT("Inappropreate Type\n"); - env->stat = aml_stat_panic; - env->curname = oname; - return (NULL); - } - or = &wname->property->opregion; - if (env->tempobject.type == aml_t_regfield) { - env->tempobject.regfield.space = or->space; - env->tempobject.regfield.flags = field->flags; - env->tempobject.regfield.offset = or->offset; - env->tempobject.regfield.bitoffset = field->bitoffset; - env->tempobject.regfield.bitlen = field->bitlen; - } else { - env->tempobject.type = aml_t_num; - env->tempobject.num.number = aml_region_read(env, - or->space, field->flags, or->offset, - field->bitoffset, field->bitlen); - AML_DEBUGPRINT("[read(%d, 0x%x)->0x%x]", - or->space, or->offset + field->bitoffset / 8, - env->tempobject.num.number); - } - } else if (field->f.ftype == f_t_index) { - wname = aml_search_name(env, field->f.ifld.indexname); - tobj.type = aml_t_num; - tobj.num.number = field->bitoffset / 8;/* AccessType Boundary */ - aml_store_to_name(env, &tobj, wname); - wname = aml_search_name(env, field->f.ifld.dataname); - num = aml_objtonum(env, aml_eval_name(env, wname)); - env->tempobject.type = aml_t_num; - env->tempobject.num.number = (num >> (field->bitoffset & 7)) & - ((1 << field->bitlen) - 1); - } - env->curname = oname; - return (&env->tempobject); -} - -union aml_object * -aml_eval_objref(struct aml_environ *env, union aml_object *obj) -{ - int offset; - union aml_object num1; - union aml_object *ref, *ret; - - ret = obj; - if (obj->objref.deref == 1) { - num1.type = aml_t_num; - offset = obj->objref.offset; - ref = obj->objref.ref; - if (ref == NULL) { - goto out; - } - switch (ref->type) { - case aml_t_package: - if (ref->package.elements > offset) { - ret = ref->package.objects[offset]; - } else { - num1.num.number = 0; - env->tempobject = num1; - ret = &env->tempobject; - } - break; - case aml_t_buffer: - if (ref->buffer.size > offset) { - num1.num.number = ref->buffer.data[offset] & 0xff; - } else { - num1.num.number = 0; - } - env->tempobject = num1; - ret = &env->tempobject; - break; - default: - break; - } - } - if (obj->objref.alias == 1) { - ret = aml_eval_name(env, obj->objref.nameref); - goto out; - } -out: - return (ret); -} - -/* - * Eval named object. - */ -union aml_object * -aml_eval_name(struct aml_environ *env, struct aml_name *aname) -{ - int argnum, i; - int num; - struct aml_name *tmp; - struct aml_environ *copy; - struct aml_local_stack *stack; - union aml_object *obj, *ret; - union aml_object *src; - - ret = NULL; - if (aname == NULL || aname->property == NULL) { - return (NULL); - } - if (env->stat == aml_stat_panic) { - return (NULL); - } - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - return (NULL); - } - ret = aname->property; - i = 0; -reevaluate: - if (i > 10) { - env->stat = aml_stat_panic; - printf("TOO MANY LOOP\n"); - ret = NULL; - goto out; - } - switch (aname->property->type) { - case aml_t_namestr: - tmp = aname; - aname = aml_search_name(env, aname->property->nstr.dp); - if (aname == NULL) { - aname = tmp; - } - i++; - goto reevaluate; - case aml_t_objref: - ret = aml_eval_objref(env, aname->property); - goto out; - case aml_t_num: - case aml_t_string: - case aml_t_buffer: - case aml_t_package: - case aml_t_debug: - ret = aname->property; - goto out; - case aml_t_field: - aml_free_objectcontent(&env->tempobject); - ret = aml_eval_fieldobject(env, aname); - goto out; - case aml_t_method: - aml_free_objectcontent(&env->tempobject); - argnum = aname->property->meth.argnum & 7; - *copy = *env; - copy->curname = aname; - copy->dp = aname->property->meth.from; - copy->end = aname->property->meth.to; - copy->stat = aml_stat_none; - stack = aml_local_stack_create(); - AML_DEBUGPRINT("("); - for (i = 0; i < argnum; i++) { - aml_local_stack_getArgX(stack, i)->property = - aml_copy_object(env, - aml_eval_name(env, - aml_parse_termobj(env, 0))); - if (i < argnum - 1) - AML_DEBUGPRINT(", "); - } - AML_DEBUGPRINT(")\n"); - aml_local_stack_push(stack); - if (env->stat == aml_stat_step) { - AML_DEBUGGER(env, copy); - } - tmp = aml_execute_method(copy); - obj = aml_eval_name(env, tmp); - if (copy->stat == aml_stat_panic) { - AML_DEBUGPRINT("PANIC OCCURED IN METHOD"); - env->stat = aml_stat_panic; - ret = NULL; - aml_local_stack_delete(aml_local_stack_pop()); - goto out; - } - if (aml_debug) { - aml_showobject(obj); - } - - if (tmp) - tmp->property = NULL; - aml_local_stack_delete(aml_local_stack_pop()); - if (obj) { - aml_create_local_object()->property = obj; - ret = obj; - } else { - env->tempobject.type = aml_t_num; - env->tempobject.num.number = 0; - } - - goto out; - case aml_t_bufferfield: - aml_free_objectcontent(&env->tempobject); - if (aname->property->bfld.bitlen > 32) { - ret = aname->property; - } else { - src = aname->property; - num = aml_bufferfield_read(src->bfld.origin, - src->bfld.bitoffset, src->bfld.bitlen); - env->tempobject.type = aml_t_num; - env->tempobject.num.number = num; - ret = &env->tempobject; - } - goto out; - default: - AML_DEBUGPRINT("I eval the object that I should not eval, %s%d", - aname->name, aname->property->type); - AML_SYSABORT(); - ret = NULL; - goto out; - } -out: - memman_free(aml_memman, memid_aml_environ, copy); - return (ret); -} - -/* - * Eval named object but env variable is not required and return - * status of evaluation (success is zero). This function is assumed - * to be called by aml_apply_foreach_found_objects(). - * Note that no arguments are passed if object is a method. - */ - -int -aml_eval_name_simple(struct aml_name *name, va_list ap) -{ - struct aml_environ *env; - union aml_object *ret; - - if (name == NULL || name->property == NULL) { - return (1); - } - - env = memman_alloc(aml_memman, memid_aml_environ); - if (env == NULL) { - return (1); - } - bzero(env, sizeof(struct aml_environ)); - - aml_local_stack_push(aml_local_stack_create()); - - AML_DEBUGPRINT("Evaluating "); - aml_print_curname(name); - ret = aml_eval_name(env, name); - if (name->property->type != aml_t_method) { - AML_DEBUGPRINT("\n"); - if (aml_debug) { - aml_showobject(ret); - } - } - - aml_local_stack_delete(aml_local_stack_pop()); - - memman_free(aml_memman, memid_aml_environ, env); - return (0); -} - -int -aml_objtonum(struct aml_environ *env, union aml_object *obj) -{ - - if (obj != NULL && obj->type == aml_t_num) { - return (obj->num.number); - } else { - env->stat = aml_stat_panic; - return (-1); - } -} - -struct aml_name * -aml_execute_method(struct aml_environ *env) -{ - struct aml_name *name; - struct aml_name_group *newgrp; - - newgrp = aml_new_name_group(AML_NAME_GROUP_IN_METHOD); - - AML_DEBUGPRINT("["); - aml_print_curname(env->curname); - AML_DEBUGPRINT(" START]\n"); - - name = aml_parse_objectlist(env, 0); - AML_DEBUGPRINT("["); - aml_print_curname(env->curname); - AML_DEBUGPRINT(" END]\n"); - - aml_delete_name_group(newgrp); - return (name); -} - -union aml_object * -aml_invoke_method(struct aml_name *name, int argc, union aml_object *argv) -{ - int i; - struct aml_name *tmp; - struct aml_environ *env; - struct aml_local_stack *stack; - union aml_object *retval; - union aml_object *obj; - - retval = NULL; - env = memman_alloc(aml_memman, memid_aml_environ); - if (env == NULL) { - return (NULL); - } - bzero(env, sizeof(struct aml_environ)); - - if (name != NULL && name->property != NULL && - name->property->type == aml_t_method) { - env->curname = name; - env->dp = name->property->meth.from; - env->end = name->property->meth.to; - AML_DEBUGGER(env, env); - stack = aml_local_stack_create(); - for (i = 0; i < argc; i++) { - aml_local_stack_getArgX(stack, i)->property = - aml_alloc_object(argv[i].type, &argv[i]); - } - aml_local_stack_push(stack); - obj = aml_eval_name(env, tmp = aml_execute_method(env)); - if (aml_debug) { - aml_showtree(name, 0); - } - - if (tmp) - tmp->property = NULL; - aml_local_stack_delete(aml_local_stack_pop()); - if (obj) { - aml_create_local_object()->property = obj; - retval = obj; - } - } - memman_free(aml_memman, memid_aml_environ, env); - return (retval); -} - -union aml_object * -aml_invoke_method_by_name(char *method, int argc, union aml_object *argv) -{ - struct aml_name *name; - - name = aml_find_from_namespace(aml_get_rootname(), method); - if (name == NULL) { - return (NULL); - } - - return (aml_invoke_method(name, argc, argv)); -} diff --git a/usr.sbin/acpidump/aml/aml_evalobj.h b/usr.sbin/acpidump/aml/aml_evalobj.h deleted file mode 100644 index e951abbe2b5..00000000000 --- a/usr.sbin/acpidump/aml/aml_evalobj.h +++ /dev/null @@ -1,49 +0,0 @@ -/* $OpenBSD: aml_evalobj.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_evalobj.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_evalobj.h,v 1.2 2000/09/20 22:53:39 iwasaki Exp $ - */ - -#ifndef _AML_EVALOBJ_H_ -#define _AML_EVALOBJ_H_ - -#include <stdarg.h> - -union aml_object *aml_eval_objref(struct aml_environ *, - union aml_object *); -union aml_object *aml_eval_name(struct aml_environ *, - struct aml_name *); -int aml_eval_name_simple(struct aml_name *, va_list); -int aml_objtonum(struct aml_environ *, - union aml_object *); -struct aml_name *aml_execute_method(struct aml_environ *); -union aml_object *aml_invoke_method(struct aml_name *, - int, union aml_object *); -union aml_object *aml_invoke_method_by_name(char *, - int, union aml_object *); - -#endif /* !_AML_EVALOBJ_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_memman.c b/usr.sbin/acpidump/aml/aml_memman.c deleted file mode 100644 index ea14ab34da7..00000000000 --- a/usr.sbin/acpidump/aml/aml_memman.c +++ /dev/null @@ -1,477 +0,0 @@ -/* $OpenBSD: aml_memman.c,v 1.3 2008/09/10 14:59:53 miod Exp $ */ -/*- - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_memman.c,v 1.3 2008/09/10 14:59:53 miod Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_memman.c,v 1.2 2000/11/09 06:24:45 iwasaki Exp $ - */ - -/* - * Generic Memory Management - */ -#include <sys/types.h> -#include <aml/aml_memman.h> -#ifndef roundup -#define roundup(x, y) ((((x)+((y)-1))/(y))*(y)) /* to any y */ -#endif -#ifndef _KERNEL -#include <stdlib.h> -#include <stdio.h> -#include <string.h> -#else /* _KERNEL */ -#include <sys/kernel.h> -#include <sys/systm.h> -#include <sys/malloc.h> -MALLOC_DEFINE(M_MEMMAN, "memman", "Generic and Simple Memory Management"); -#endif /* !_KERNEL */ - -unsigned int memid_unknown = 255; - -static int manage_block(struct memman *memman, unsigned int id, - void *block, unsigned static_mem, - unsigned entries); -static int blockman_init(struct memman *memman, unsigned int id); -static void memman_flexsize_add_histogram(struct memman *memman, - size_t size, - int tolerance); -static int memman_comp_histogram_size(const void *a, - const void *b); -static void memman_sort_histogram_by_size(struct memman *memman); -static unsigned int memman_guess_memid(struct memman *memman, void *chunk); -static void memman_statistics_fixedsize(struct memman *memman); -static void memman_statistics_flexsize(struct memman *memman); - -static int -manage_block(struct memman *memman, unsigned int id, void *block, - unsigned static_mem, unsigned entries) -{ - unsigned int i; - size_t alloc_size; - void *tmp, *realblock; - struct memman_blockman *bmp; - struct memman_block *memblock; - struct memman_node *memnodes; - - bmp = &memman->blockman[id]; - alloc_size = MEMMAN_BLOCKNODE_SIZE(entries); - - if (static_mem) { - tmp = (void *)block; - realblock = (char *)block + alloc_size; - } else { - tmp = MEMMAN_SYSMALLOC(alloc_size); - if (!tmp) { - return (-1); - } - realblock = block; - - memman->allocated_mem += alloc_size; - memman->salloc_called++; - } - - memblock = (struct memman_block *)tmp; - memnodes = (struct memman_node *)((char *)tmp + sizeof(struct memman_block)); - - memblock->block = realblock; - memblock->static_mem = static_mem; - memblock->allocated = entries; - memblock->available = entries; - if (!static_mem) { - alloc_size += roundup(bmp->size * entries, ROUNDUP_UNIT); - } - memblock->allocated_mem = alloc_size; - LIST_INSERT_HEAD(&bmp->block_list, memblock, links); - - for (i = 0; i < entries; ++i) { - memnodes[i].node = ((char *)realblock + (i * (bmp->size))); - memnodes[i].memblock = memblock; - LIST_INSERT_HEAD(&bmp->free_node_list, &memnodes[i], links); - } - bmp->available = entries; - - return (0); -} - -static int -blockman_init(struct memman *memman, unsigned int id) -{ - int status; - struct memman_blockman *bmp; - - bmp = &memman->blockman[id]; - bmp->initialized = 1; - LIST_INIT(&bmp->block_list); - LIST_INIT(&bmp->free_node_list); - LIST_INIT(&bmp->occupied_node_list); - status = manage_block(memman, id, bmp->initial_block, - 1, MEMMAN_INITIAL_SIZE); - return (status); -} - -void * -memman_alloc(struct memman *memman, unsigned int id) -{ - size_t alloc_size; - void *chunk, *block; - struct memman_blockman *bmp; - struct memman_node *memnode; - - if (memman->max_memid <= id) { - printf("memman_alloc: invalid memory type id\n"); - return (NULL); - } - bmp = &memman->blockman[id]; - if (!bmp->initialized) { - if (blockman_init(memman, id)) { - goto malloc_fail; - } - } - memman->alloc_called++; - - if (bmp->available == 0) { - alloc_size = roundup(bmp->size * MEMMAN_INCR_SIZE, - ROUNDUP_UNIT); - block = MEMMAN_SYSMALLOC(alloc_size); - if (!block) { - goto malloc_fail; - } - memman->required_mem += bmp->size * MEMMAN_INCR_SIZE; - memman->allocated_mem += alloc_size; - memman->salloc_called++; - - if (manage_block(memman, id, block, 0, MEMMAN_INCR_SIZE)) { - goto malloc_fail; - } - } - memnode = LIST_FIRST(&bmp->free_node_list); - LIST_REMOVE(memnode, links); - chunk = memnode->node; - LIST_INSERT_HEAD(&bmp->occupied_node_list, memnode, links); - memnode->memblock->available--; - bmp->available--; - - return (chunk); - -malloc_fail: - printf("memman_alloc: could not allocate memory\n"); - return (NULL); -} - -static void -memman_flexsize_add_histogram(struct memman *memman, size_t size, - int tolerance) -{ - int i; - int gap; - - if (size == 0) { - return; - } - for (i = 0; i < memman->flex_mem_histogram_ptr; i++) { - gap = memman->flex_mem_histogram[i].mem_size - size; - if (gap >= (tolerance * -1) && gap <= tolerance) { - memman->flex_mem_histogram[i].count++; - if (memman->flex_mem_histogram[i].mem_size < size) { - memman->flex_mem_histogram[i].mem_size = size; - } - return; - } - } - - if (memman->flex_mem_histogram_ptr == MEMMAN_HISTOGRAM_SIZE) { - memman_flexsize_add_histogram(memman, size, tolerance + 1); - return; - } - i = memman->flex_mem_histogram_ptr; - memman->flex_mem_histogram[i].mem_size = size; - memman->flex_mem_histogram[i].count = 1; - memman->flex_mem_histogram_ptr++; -} - -static int -memman_comp_histogram_size(const void *a, const void *b) -{ - int delta; - - delta = ((const struct memman_histogram *)a)->mem_size - - ((const struct memman_histogram *)b)->mem_size; - return (delta); -} - -static void -memman_sort_histogram_by_size(struct memman *memman) -{ - qsort(memman->flex_mem_histogram, memman->flex_mem_histogram_ptr, - sizeof(struct memman_histogram), memman_comp_histogram_size); -} - -void * -memman_alloc_flexsize(struct memman *memman, size_t size) -{ - void *mem; - struct memman_flexmem_info *info; - - if (size == 0) { - return (NULL); - } - if ((mem = MEMMAN_SYSMALLOC(size)) != NULL) { /* XXX */ - - info = MEMMAN_SYSMALLOC(sizeof(struct memman_flexmem_info)); - if (info) { - if (!memman->flex_mem_initialized) { - LIST_INIT(&memman->flexmem_info_list); - bzero(memman->flex_mem_histogram, - sizeof(struct memman_histogram)); - memman->flex_mem_initialized = 1; - } - info->addr = mem; - info->mem_size = size; - LIST_INSERT_HEAD(&memman->flexmem_info_list, info, links); - } - memman->flex_alloc_called++; - memman->flex_salloc_called++; - memman->flex_required_mem += size; - memman->flex_allocated_mem += size; - if (memman->flex_mem_size_min == 0 || - memman->flex_mem_size_min > size) { - memman->flex_mem_size_min = size; - } - if (memman->flex_mem_size_max < size) { - memman->flex_mem_size_max = size; - } - if (memman->flex_peak_mem_usage < - (memman->flex_allocated_mem - memman->flex_reclaimed_mem)) { - memman->flex_peak_mem_usage = - (memman->flex_allocated_mem - memman->flex_reclaimed_mem); - } - memman_flexsize_add_histogram(memman, size, - memman->flex_mem_histogram_initial_tolerance); - } - return (mem); -} - -static unsigned int -memman_guess_memid(struct memman *memman, void *chunk) -{ - unsigned int id; - struct memman_blockman *bmp; - struct memman_node *memnode; - - for (id = 0; id < memman->max_memid; id++) { - bmp = &memman->blockman[id]; - if (!bmp->initialized) { - if (blockman_init(memman, id)) { - printf("memman_free: could not initialized\n"); - } - } - LIST_FOREACH(memnode, &bmp->occupied_node_list, links) { - if (memnode->node == chunk) { - return (id); /* got it! */ - } - } - } - return (memid_unknown); /* gave up */ -} - -void -memman_free(struct memman *memman, unsigned int memid, void *chunk) -{ - unsigned int id; - unsigned found; - void *block; - struct memman_blockman *bmp; - struct memman_block *memblock; - struct memman_node *memnode; - - id = memid; - if (memid == memid_unknown) { - id = memman_guess_memid(memman, chunk); - } - if (memman->max_memid <= id) { - printf("memman_free: invalid memory type id\n"); - MEMMAN_SYSABORT(); - return; - } - bmp = &memman->blockman[id]; - if (!bmp->initialized) { - if (blockman_init(memman, id)) { - printf("memman_free: could not initialized\n"); - } - } - found = 0; - LIST_FOREACH(memnode, &bmp->occupied_node_list, links) { - if (memnode->node == chunk) { - found = 1; - break; - } - } - if (!found) { - printf("memman_free: invalid address\n"); - return; - } - memman->free_called++; - - LIST_REMOVE(memnode, links); - memblock = memnode->memblock; - memblock->available++; - LIST_INSERT_HEAD(&bmp->free_node_list, memnode, links); - bmp->available++; - - if (!memblock->static_mem && - memblock->available == memblock->allocated) { - LIST_FOREACH(memnode, &bmp->free_node_list, links) { - if (memnode->memblock != memblock) { - continue; - } - LIST_REMOVE(memnode, links); - bmp->available--; - } - block = memblock->block; - MEMMAN_SYSFREE(block); - memman->sfree_called++; - - LIST_REMOVE(memblock, links); - memman->sfree_called++; - memman->reclaimed_mem += memblock->allocated_mem; - MEMMAN_SYSFREE(memblock); - } -} - -void -memman_free_flexsize(struct memman *memman, void *chunk) -{ - struct memman_flexmem_info *info; - - LIST_FOREACH(info, &memman->flexmem_info_list, links) { - if (info->addr == chunk) { - memman->flex_reclaimed_mem += info->mem_size; - LIST_REMOVE(info, links); - MEMMAN_SYSFREE(info); - break; - } - } - /* XXX */ - memman->flex_free_called++; - memman->flex_sfree_called++; - MEMMAN_SYSFREE(chunk); -} - -void -memman_freeall(struct memman *memman) -{ - int id; - void *chunk; - struct memman_blockman *bmp; - struct memman_node *memnode; - struct memman_block *memblock; - struct memman_flexmem_info *info; - - for (id = 0; id < memman->max_memid; id++) { - bmp = &memman->blockman[id]; - - while ((memnode = LIST_FIRST(&bmp->occupied_node_list))) { - chunk = memnode->node; - printf("memman_freeall: fixed size (id = %d)\n", id); - memman_free(memman, id, chunk); - } - while ((memblock = LIST_FIRST(&bmp->block_list))) { - LIST_REMOVE(memblock, links); - if (!memblock->static_mem) { - memman->sfree_called++; - memman->reclaimed_mem += memblock->allocated_mem; - MEMMAN_SYSFREE(memblock); - } - } - bmp->initialized = 0; - } - - LIST_FOREACH(info, &memman->flexmem_info_list, links) { - printf("memman_freeall: flex size (size = %zu, addr = %p)\n", - info->mem_size, info->addr); - memman_free_flexsize(memman, info->addr); - } -} - -static void -memman_statistics_fixedsize(struct memman *memman) -{ - printf(" fixed size memory blocks\n"); - printf(" alloc(): %d times\n", memman->alloc_called); - printf(" system malloc(): %d times\n", memman->salloc_called); - printf(" free(): %d times\n", memman->free_called); - printf(" system free(): %d times\n", memman->sfree_called); - printf(" required memory: %zu bytes\n", memman->required_mem); - printf(" allocated memory: %zu bytes\n", memman->allocated_mem); - printf(" reclaimed memory: %zu bytes\n", memman->reclaimed_mem); -} - -static void -memman_statistics_flexsize(struct memman *memman) -{ - int i; - - printf(" flexible size memory blocks\n"); - printf(" alloc(): %d times\n", memman->flex_alloc_called); - printf(" system malloc(): %d times\n", memman->flex_salloc_called); - printf(" free(): %d times\n", memman->flex_free_called); - printf(" system free(): %d times\n", memman->flex_sfree_called); - printf(" required memory: %zu bytes\n", memman->flex_required_mem); - printf(" allocated memory: %zu bytes\n", memman->flex_allocated_mem); - printf(" reclaimed memory: %zu bytes\n", memman->flex_reclaimed_mem); - printf(" peak memory usage: %zu bytes\n", memman->flex_peak_mem_usage); - printf(" min memory size: %zu bytes\n", memman->flex_mem_size_min); - printf(" max memory size: %zu bytes\n", memman->flex_mem_size_max); - printf(" avg memory size: %zu bytes\n", - (memman->flex_alloc_called) ? - memman->flex_allocated_mem / memman->flex_alloc_called : 0); - - printf(" memory size histogram (%d entries):\n", - memman->flex_mem_histogram_ptr); - printf(" size count\n"); - memman_sort_histogram_by_size(memman); - for (i = 0; i < memman->flex_mem_histogram_ptr; i++) { - printf(" %d %d\n", - memman->flex_mem_histogram[i].mem_size, - memman->flex_mem_histogram[i].count); - } -} - -void -memman_statistics(struct memman *memman) -{ - printf("memman: reporting statistics\n"); - memman_statistics_fixedsize(memman); - memman_statistics_flexsize(memman); -} - -size_t -memman_memid2size(struct memman *memman, unsigned int id) -{ - if (memman->max_memid <= id) { - printf("memman_alloc: invalid memory type id\n"); - return (0); - } - return (memman->blockman[id].size); -} diff --git a/usr.sbin/acpidump/aml/aml_memman.h b/usr.sbin/acpidump/aml/aml_memman.h deleted file mode 100644 index 0f54d4a202c..00000000000 --- a/usr.sbin/acpidump/aml/aml_memman.h +++ /dev/null @@ -1,172 +0,0 @@ -/* $OpenBSD: aml_memman.h,v 1.3 2007/10/08 08:20:49 gilles Exp $ */ -/*- - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_memman.h,v 1.3 2007/10/08 08:20:49 gilles Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_memman.h,v 1.1 2000/08/24 09:33:08 takawata Exp $ - */ - -#ifndef _MEMMAN_H_ -#define _MEMMAN_H_ - -/* - * Generic Memory Management - */ - -#include <sys/types.h> -#include <sys/queue.h> - -/* memory block */ -struct memman_block { - LIST_ENTRY(memman_block) links; - void *block; - unsigned static_mem; /* static memory or not */ - unsigned int allocated; /* number of allocated chunks */ - unsigned int available; /* number of available chunks */ - unsigned int allocated_mem; /* block + misc (in bytes) */ - -} __packed; - -LIST_HEAD(memman_block_list, memman_block); - -/* memory node in block */ -struct memman_node { - LIST_ENTRY(memman_node) links; - void *node; - struct memman_block *memblock; -} __packed; - -LIST_HEAD(memman_node_list, memman_node); - -/* memory type id */ -extern unsigned int memid_unknown; - -/* memory block manager */ -struct memman_blockman { - unsigned int size; /* size of chunk */ - unsigned int available; /* total # of available chunks */ - void *initial_block; /* initial memory storage */ - unsigned initialized; /* initialized or not */ - - struct memman_block_list block_list; - struct memman_node_list free_node_list; - struct memman_node_list occupied_node_list; -}; - -/* memory size histogram */ -#define MEMMAN_HISTOGRAM_SIZE 20 -struct memman_histogram { - int mem_size; - int count; -}; - -/* flex size memory allocation info */ -struct memman_flexmem_info { - LIST_ENTRY(memman_flexmem_info) links; - void *addr; - size_t mem_size; -} __packed; - -LIST_HEAD(memman_flexmem_info_list, memman_flexmem_info); - -/* memory manager */ -struct memman { - struct memman_blockman *blockman; - unsigned int max_memid; /* max number of valid memid */ - - /* fixed size memory blocks */ - unsigned int alloc_called; /* memman_alloc() calling */ - unsigned int free_called; /* memman_free() calling */ - unsigned int salloc_called; /* malloc() calling */ - unsigned int sfree_called; /* free() calling */ - size_t required_mem; /* total required memory (in bytes) */ - size_t allocated_mem; /* total malloc()ed memory */ - size_t reclaimed_mem; /* total free()ed memory */ - /* flex size memory blocks */ - unsigned int flex_alloc_called; /* memman_alloc_flexsize() calling */ - unsigned int flex_free_called; /* memman_free_flexsize() calling */ - unsigned int flex_salloc_called;/* malloc() calling */ - unsigned int flex_sfree_called; /* free() calling */ - size_t flex_required_mem; /* total required memory (in bytes) */ - size_t flex_allocated_mem;/* total malloc()ed memory */ - size_t flex_reclaimed_mem;/* total free()ed memory */ - size_t flex_mem_size_min; /* min size of allocated memory */ - size_t flex_mem_size_max; /* max size of allocated memory */ - size_t flex_peak_mem_usage;/* memory usage at a peak period */ - - /* stuff for more detailed statistical information */ - struct memman_histogram *flex_mem_histogram; - unsigned int flex_mem_histogram_ptr; - int flex_mem_histogram_initial_tolerance; - unsigned flex_mem_initialized; - struct memman_flexmem_info_list flexmem_info_list; -}; - -#define MEMMAN_BLOCKNODE_SIZE(entries) sizeof(struct memman_block) + \ - sizeof(struct memman_node) * entries - -#ifndef ROUNDUP_UNIT -#define ROUNDUP_UNIT 4 -#endif - -#if !defined(MEMMAN_INITIAL_SIZE) || MEMMAN_INITIAL_SIZE < 2048 -#define MEMMAN_INITIAL_SIZE 2048 -#endif - -#if !defined(MEMMAN_INCR_SIZE) || MEMMAN_INCR_SIZE < 512 -#define MEMMAN_INCR_SIZE 512 -#endif - -#define MEMMAN_INITIALSTORAGE_DESC(type, name) \ -static struct { \ - char blocknodes[MEMMAN_BLOCKNODE_SIZE(MEMMAN_INITIAL_SIZE)]; \ - type realblock[MEMMAN_INITIAL_SIZE]; \ -} name - -#define MEMMAN_MEMBLOCK_DESC(size, initial_storage) \ - { size, MEMMAN_INITIAL_SIZE, &initial_storage, 0 } - -#define MEMMAN_MEMMANAGER_DESC(blockman, max_memid, histogram, tolerance) \ - { blockman, max_memid, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ - 0, 0, 0, histogram, 0, tolerance, 0} - -void *memman_alloc(struct memman *, unsigned int); -void *memman_alloc_flexsize(struct memman *, size_t); -void memman_free(struct memman *, unsigned int, void *); -void memman_free_flexsize(struct memman *, void *); -void memman_freeall(struct memman *); -void memman_statistics(struct memman *); -size_t memman_memid2size(struct memman *, unsigned int); - -#ifdef _KERNEL -#define MEMMAN_SYSMALLOC(size) malloc(size, M_MEMMAN, M_WAITOK) -#define MEMMAN_SYSFREE(ptr) free(ptr, M_MEMMAN) -#define MEMMAN_SYSABORT() /* no abort in kernel */ -#else /* !_KERNEL */ -#define MEMMAN_SYSMALLOC(size) malloc(size) -#define MEMMAN_SYSFREE(ptr) free(ptr) -#define MEMMAN_SYSABORT() abort() -#endif /* _KERNEL */ -#endif /* !_MEMMAN_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_name.c b/usr.sbin/acpidump/aml/aml_name.c deleted file mode 100644 index 2d5399db6d9..00000000000 --- a/usr.sbin/acpidump/aml/aml_name.c +++ /dev/null @@ -1,483 +0,0 @@ -/* $OpenBSD: aml_name.c,v 1.2 2009/06/01 18:32:44 mlarkin Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Yasuo Yokoyama - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_name.c,v 1.2 2009/06/01 18:32:44 mlarkin Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_name.c,v 1.3 2000/11/09 06:24:45 iwasaki Exp $ - */ -#include <sys/types.h> - -#include <aml/aml_amlmem.h> -#include <aml/aml_common.h> -#include <aml/aml_env.h> -#include <aml/aml_name.h> - -#ifndef _KERNEL -#include <stdio.h> -#include <stdlib.h> -#include <string.h> - -#include "debug.h" -#else /* _KERNEL */ -#include <sys/systm.h> -#endif /* !_KERNEL */ - -static struct aml_name *aml_find_name(struct aml_name *, char *); -static struct aml_name *aml_new_name(struct aml_name *, char *); -static void aml_delete_name(struct aml_name *); - -static struct aml_name rootname = {"\\", NULL, NULL, NULL, NULL, NULL}; - -static struct aml_name_group root_group = { - AML_NAME_GROUP_ROOT, - &rootname, - NULL -}; - -struct aml_name_group *name_group_list = &root_group; -struct aml_local_stack *stack_top = NULL; - -struct aml_name * -aml_get_rootname() -{ - - return (&rootname); -} - -static struct aml_name * -aml_find_name(struct aml_name *parent, char *name) -{ - struct aml_name *result; - - if (!parent) - parent = &rootname; - for (result = parent->child; result; result = result->brother) - if (!strncmp(result->name, name, 4)) - break; - return (result); -} - -/* - * Parse given namesppace expression and find a first matched object - * under given level of the tree by depth first search. - */ - -struct aml_name * -aml_find_from_namespace(struct aml_name *parent, char *name) -{ - char *ptr; - int len; - struct aml_name *result; - - ptr = name; - if (!parent) - parent = &rootname; - - if (ptr[0] == '\\') { - ptr++; - parent = &rootname; - } - for (len = 0; ptr[len] != '.' && ptr[len] != '\0'; len++) - ; - - for (result = parent->child; result; result = result->brother) { - if (!strncmp(result->name, ptr, len)) { - if (ptr[len] == '\0' || ptr[len + 1] == '\0') { - return (result); - } - ptr += len; - if (ptr[0] != '.') { - return (NULL); - } - ptr++; - return (aml_find_from_namespace(result, ptr)); - } - } - - return (NULL); -} - -static void -_aml_apply_foreach_found_objects(struct aml_name *parent, char *name, - int len, int shallow, int (*func)(struct aml_name *, va_list), va_list ap) -{ - struct aml_name *child, *ptr; - - child = ptr = NULL; - - /* function to apply must be specified */ - if (func == NULL) { - return; - } - - for (child = parent->child; child; child = child->brother) { - if (!strncmp(child->name, name, len)) { - /* if function call was failed, stop searching */ - if (func(child, ap) != 0) { - return; - } - } - } - - if (shallow == 1) { - return; - } - - for (ptr = parent->child; ptr; ptr = ptr->brother) { - /* do more searching */ - _aml_apply_foreach_found_objects(ptr, name, len, 0, func, ap); - } -} - -/* - * Find named objects as many as possible under given level of - * namespace, and apply given callback function for each - * named objects found. If the callback function returns non-zero - * value, then the search terminates immediately. - * Note that object name expression is used as forward substring match, - * not exact match. The name expression "_L" will match for objects - * which have name starting with "_L" such as "\_SB_.LID_._LID" and - * "\_GPE._L00" and so on. The name expression can include parent object - * name in it like "\_GPE._L". In this case, GPE X level wake handlers - * will be found under "\_GPE" in shallow level. - */ - -void -aml_apply_foreach_found_objects(struct aml_name *start, char *name, - int (*func)(struct aml_name *, va_list), ...) -{ - int i, len, has_dot, last_is_dot, shallow; - struct aml_name *child, *parent; - va_list ap; - - shallow = 0; - if (start == NULL) { - parent = &rootname; - } else { - parent = start; - } - if (name[0] == '\\') { - name++; - parent = &rootname; - shallow = 1; - } - - len = strlen(name); - last_is_dot = 0; - /* the last dot should be ignored */ - if (len > 0 && name[len - 1] == '.') { - len--; - last_is_dot = 1; - } - - has_dot = 0; - for (i = 0; i < len - 1; i++) { - if (name[i] == '.') { - has_dot = 1; - break; - } - } - - /* try to parse expression and find any matched object. */ - if (has_dot == 1) { - child = aml_find_from_namespace(parent, name); - if (child == NULL) { - return; - } - - /* - * we have at least one object matched, search all objects - * under upper level of the found object. - */ - parent = child->parent; - - /* find the last `.' */ - for (name = name + len - 1; *name != '.'; name--) - ; - name++; - len = strlen(name) - last_is_dot; - shallow = 1; - } - - if (len > 4) { - return; - } - - va_start(ap, func); - _aml_apply_foreach_found_objects(parent, name, len, shallow, func, ap); - va_end(ap); -} - -struct aml_name_group * -aml_new_name_group(int id) -{ - struct aml_name_group *result; - - result = memman_alloc(aml_memman, memid_aml_name_group); - result->id = id; - result->head = NULL; - result->next = name_group_list; - name_group_list = result; - return (result); -} - -void -aml_delete_name_group(struct aml_name_group *target) -{ - struct aml_name_group *previous; - - previous = name_group_list; - if (previous == target) - name_group_list = target->next; - else { - while (previous && previous->next != target) - previous = previous->next; - if (previous) - previous->next = target->next; - } - target->next = NULL; - if (target->head) - aml_delete_name(target->head); - memman_free(aml_memman, memid_aml_name_group, target); -} - -static struct aml_name * -aml_new_name(struct aml_name *parent, char *name) -{ - struct aml_name *newname; - - if ((newname = aml_find_name(parent, name)) != NULL) - return (newname); - - newname = memman_alloc(aml_memman, memid_aml_name); - strncpy(newname->name, name, 4); - newname->parent = parent; - newname->child = NULL; - newname->property = NULL; - if (parent->child) - newname->brother = parent->child; - else - newname->brother = NULL; - parent->child = newname; - - newname->chain = name_group_list->head; - name_group_list->head = newname; - - return (newname); -} - -/* - * NOTE: - * aml_delete_name() doesn't maintain aml_name_group::{head,tail}. - */ -static void -aml_delete_name(struct aml_name *target) -{ - struct aml_name *next; - struct aml_name *ptr; - - for (; target; target = next) { - next = target->chain; - if (target->child) { - target->chain = NULL; - continue; - } - if (target->brother) { - if (target->parent) { - if (target->parent->child == target) { - target->parent->child = target->brother; - } else { - ptr = target->parent->child; - while (ptr && ptr->brother != target) - ptr = ptr->brother; - if (ptr) - ptr->brother = target->brother; - } - target->brother = NULL; - } - } else if (target->parent) { - target->parent->child = NULL; - } - aml_free_object(&target->property); - memman_free(aml_memman, memid_aml_name, target); - } -} - -#define AML_SEARCH_NAME 0 -#define AML_CREATE_NAME 1 -static struct aml_name *aml_nameman(struct aml_environ *, u_int8_t *, int); - -struct aml_name * -aml_search_name(struct aml_environ *env, u_int8_t *dp) -{ - - return (aml_nameman(env, dp, AML_SEARCH_NAME)); -} - -struct aml_name * -aml_create_name(struct aml_environ *env, u_int8_t *dp) -{ - - return (aml_nameman(env, dp, AML_CREATE_NAME)); -} - -static struct aml_name * -aml_nameman(struct aml_environ *env, u_int8_t *dp, int flag) -{ - int segcount; - int i; - struct aml_name *newname, *curname; - struct aml_name *(*searchfunc) (struct aml_name *, char *); - -#define CREATECHECK() do { \ - if (newname == NULL) { \ - AML_DEBUGPRINT("ERROR CANNOT FIND NAME\n"); \ - env->stat = aml_stat_panic; \ - return (NULL); \ - } \ -} while(0) - - searchfunc = (flag == AML_CREATE_NAME) ? aml_new_name : aml_find_name; - newname = env->curname; - if (dp[0] == '\\') { - newname = &rootname; - dp++; - } else if (dp[0] == '^') { - while (dp[0] == '^') { - newname = newname->parent; - CREATECHECK(); - dp++; - } - } - if (dp[0] == 0x00) { /* NullName */ - dp++; - } else if (dp[0] == 0x2e) { /* DualNamePrefix */ - newname = (*searchfunc) (newname, dp + 1); - CREATECHECK(); - newname = (*searchfunc) (newname, dp + 5); - CREATECHECK(); - } else if (dp[0] == 0x2f) { /* MultiNamePrefix */ - segcount = dp[1]; - for (i = 0, dp += 2; i < segcount; i++, dp += 4) { - newname = (*searchfunc) (newname, dp); - CREATECHECK(); - } - } else if (flag == AML_CREATE_NAME) { /* NameSeg */ - newname = aml_new_name(newname, dp); - CREATECHECK(); - } else { - curname = newname; - for (;;) { - if (curname == NULL) - break; - newname = aml_find_name(curname, dp); - if (newname != NULL) - break; - if (curname == &rootname) - break; - curname = curname->parent; - } - } - return (newname); -} - -#undef CREATECHECK - -struct aml_local_stack * -aml_local_stack_create() -{ - struct aml_local_stack *result; - - result = memman_alloc(aml_memman, memid_aml_local_stack); - memset(result, 0, sizeof(struct aml_local_stack)); - return (result); -} - -void -aml_local_stack_push(struct aml_local_stack *stack) -{ - - stack->next = stack_top; - stack_top = stack; -} - -struct aml_local_stack * -aml_local_stack_pop() -{ - struct aml_local_stack *result; - - result = stack_top; - stack_top = result->next; - result->next = NULL; - return (result); -} - -void -aml_local_stack_delete(struct aml_local_stack *stack) -{ - int i; - - for (i = 0; i < 8; i++) - aml_free_object(&stack->localvalue[i].property); - for (i = 0; i < 7; i++) - aml_free_object(&stack->argumentvalue[i].property); - aml_delete_name(stack->temporary); - memman_free(aml_memman, memid_aml_local_stack, stack); -} - -struct aml_name * -aml_local_stack_getLocalX(int index) -{ - - if (stack_top == NULL) - return (NULL); - return (&stack_top->localvalue[index]); -} - -struct aml_name * -aml_local_stack_getArgX(struct aml_local_stack *stack, int index) -{ - - if (!stack) - stack = stack_top; - if (stack == NULL) - return (NULL); - return (&stack->argumentvalue[index]); -} - -struct aml_name * -aml_create_local_object() -{ - struct aml_name *result; - - result = memman_alloc(aml_memman, memid_aml_name); - result->child = result->brother = result->parent = NULL; - result->property = NULL; - result->chain = stack_top->temporary; - stack_top->temporary = result; - return (result); -} diff --git a/usr.sbin/acpidump/aml/aml_name.h b/usr.sbin/acpidump/aml/aml_name.h deleted file mode 100644 index 87b89ba1c0e..00000000000 --- a/usr.sbin/acpidump/aml/aml_name.h +++ /dev/null @@ -1,89 +0,0 @@ -/* $OpenBSD: aml_name.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Yasuo Yokoyama - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_name.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_name.h,v 1.2 2000/11/09 06:24:45 iwasaki Exp $ - */ - -#ifndef _AML_NAME_H_ -#define _AML_NAME_H_ - - -#include <aml/aml_obj.h> -#include <stdarg.h> - -struct aml_name { - char name[4]; - union aml_object *property; - struct aml_name *parent; - struct aml_name *brother; - struct aml_name *child; - struct aml_name *chain; -}; - -#define AML_NAME_GROUP_ROOT 0 -#define AML_NAME_GROUP_OS_DEFINED 1 -#define AML_NAME_GROUP_IN_METHOD 2 - -struct aml_name_group { - int id; /* DSDT address or DBHANDLE */ - struct aml_name *head; - struct aml_name_group *next; -}; - -struct aml_local_stack { - struct aml_name localvalue[8]; - struct aml_name argumentvalue[7]; - struct aml_name *temporary; - struct aml_local_stack *next; -}; - -/* forward declarement */ -struct aml_envrion; - -struct aml_name *aml_get_rootname(void); -struct aml_name_group *aml_new_name_group(int); -void aml_delete_name_group(struct aml_name_group *); - -struct aml_name *aml_find_from_namespace(struct aml_name *, char *); -void aml_apply_foreach_found_objects(struct aml_name *, - char *, int (*)(struct aml_name *, va_list), ...); -struct aml_name *aml_search_name(struct aml_environ *, u_int8_t *); -struct aml_name *aml_create_name(struct aml_environ *, u_int8_t *); - -struct aml_local_stack *aml_local_stack_create(void); -void aml_local_stack_push(struct aml_local_stack *); -struct aml_local_stack *aml_local_stack_pop(void); -void aml_local_stack_delete(struct aml_local_stack *); -struct aml_name *aml_local_stack_getLocalX(int); -struct aml_name *aml_local_stack_getArgX(struct aml_local_stack *, int); -struct aml_name *aml_create_local_object(void); - -extern struct aml_name_group *name_group_list; - -#endif /* !_AML_NAME_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_obj.c b/usr.sbin/acpidump/aml/aml_obj.c deleted file mode 100644 index 40262815515..00000000000 --- a/usr.sbin/acpidump/aml/aml_obj.c +++ /dev/null @@ -1,267 +0,0 @@ -/* $OpenBSD: aml_obj.c,v 1.4 2006/02/06 21:46:40 jmc Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_obj.c,v 1.4 2006/02/06 21:46:40 jmc Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_obj.c,v 1.3 2000/11/09 06:24:45 iwasaki Exp $ - */ - -#include <sys/types.h> - -#include <aml/aml_amlmem.h> -#include <aml/aml_env.h> -#include <aml/aml_name.h> -#include <aml/aml_obj.h> -#include <aml/aml_status.h> -#include <aml/aml_store.h> - -#ifndef _KERNEL -#include <sys/stat.h> -#include <sys/mman.h> - -#include <assert.h> -#include <err.h> -#include <fcntl.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#else /* _KERNEL */ -#include <sys/systm.h> -#endif /* !_KERNEL */ - -union aml_object * -aml_copy_object(struct aml_environ *env, union aml_object *orig) -{ - int i; - union aml_object *ret; - - if (orig == NULL) - return (NULL); - switch (orig->type) { - case aml_t_regfield: - ret = aml_alloc_object(aml_t_buffer, 0); - ret->buffer.size = (orig->regfield.bitlen / 8) + - ((orig->regfield.bitlen % 8) ? 1 : 0); - if (ret->buffer.size == 0) { - goto out; - } - ret->buffer.data = memman_alloc_flexsize(aml_memman, ret->buffer.size); - aml_store_to_object(env, orig, ret); - break; - - default: - ret = aml_alloc_object(0, orig); - break; - } - - if (1 || orig != &env->tempobject) { /* XXX */ - if (orig->type == aml_t_buffer) { - if (orig->buffer.size == 0) { - goto out; - } - ret->buffer.data = memman_alloc_flexsize(aml_memman, - orig->buffer.size); - bcopy(orig->buffer.data, ret->buffer.data, orig->buffer.size); - } else if (orig->type == aml_t_package) { - if (ret->package.elements == 0) { - goto out; - } - ret->package.objects = memman_alloc_flexsize(aml_memman, - ret->package.elements * sizeof(union aml_object *)); - for (i = 0; i < ret->package.elements; i++) { - ret->package.objects[i] = aml_copy_object(env, orig->package.objects[i]); - } - } else if (orig->type == aml_t_string && orig->str.needfree != 0) { - int l = strlen(orig->str.string) + 1; - ret->str.string = memman_alloc_flexsize(aml_memman, l); - strlcpy(orig->str.string, ret->str.string, l); - } else if (orig->type == aml_t_num) { - ret->num.constant = 0; - } - } else { -#if 0 - printf("%s:%d\n", __FILE__, __LINE__); -#endif - env->tempobject.type = aml_t_null; - } -out: - return ret; -} - -/* - * This function have two function: copy or allocate. if orig != NULL, - * orig is duplicated. - */ - -union aml_object * -aml_alloc_object(enum aml_objtype type, union aml_object *orig) -{ - unsigned int memid; - union aml_object *ret; - - if (orig != NULL) { - type = orig->type; - } - switch (type) { - case aml_t_namestr: - memid = memid_aml_namestr; - break; - case aml_t_buffer: - memid = memid_aml_buffer; - break; - case aml_t_string: - memid = memid_aml_string; - break; - case aml_t_bufferfield: - memid = memid_aml_bufferfield; - break; - case aml_t_package: - memid = memid_aml_package; - break; - case aml_t_num: - memid = memid_aml_num; - break; - case aml_t_powerres: - memid = memid_aml_powerres; - break; - case aml_t_opregion: - memid = memid_aml_opregion; - break; - case aml_t_method: - memid = memid_aml_method; - break; - case aml_t_processor: - memid = memid_aml_processor; - break; - case aml_t_field: - memid = memid_aml_field; - break; - case aml_t_mutex: - memid = memid_aml_mutex; - break; - case aml_t_device: - memid = memid_aml_objtype; - break; - case aml_t_objref: - memid = memid_aml_objref; - break; - default: - memid = memid_aml_objtype; - break; - } - ret = memman_alloc(aml_memman, memid); - ret->type = type; - - if (orig != NULL) { - bcopy(orig, ret, memman_memid2size(aml_memman, memid)); - } - return (ret); -} - -void -aml_free_objectcontent(union aml_object *obj) -{ - int i; - - if (obj->type == aml_t_buffer && obj->buffer.data != NULL) { - memman_free_flexsize(aml_memman, obj->buffer.data); - obj->buffer.data = NULL; - } - if (obj->type == aml_t_string && obj->str.string != NULL) { - if (obj->str.needfree != 0) { - memman_free_flexsize(aml_memman, obj->str.string); - obj->str.string = NULL; - } - } - if (obj->type == aml_t_package && obj->package.objects != NULL) { - for (i = 0; i < obj->package.elements; i++) { - aml_free_object(&obj->package.objects[i]); - } - memman_free_flexsize(aml_memman, obj->package.objects); - obj->package.objects = NULL; - } -} - -void -aml_free_object(union aml_object **obj) -{ - union aml_object *body; - - body = *obj; - if (body == NULL) { - return; - } - aml_free_objectcontent(*obj); - memman_free(aml_memman, memid_unknown, *obj); - *obj = NULL; -} - -void -aml_realloc_object(union aml_object *obj, int size) -{ - int i; - enum aml_objtype type; - union aml_object tmp; - - type = obj->type; - switch (type) { - case aml_t_buffer: - if (obj->buffer.size >= size) { - return; - } - tmp.buffer.size = size; - tmp.buffer.data = memman_alloc_flexsize(aml_memman, size); - bzero(tmp.buffer.data, size); - bcopy(obj->buffer.data, tmp.buffer.data, obj->buffer.size); - aml_free_objectcontent(obj); - *obj = tmp; - break; - case aml_t_string: - if (strlen(obj->str.string) >= size) { - return; - } - tmp.str.string = memman_alloc_flexsize(aml_memman, size + 1); - strlcpy(tmp.str.string, obj->str.string, size + 1); - aml_free_objectcontent(obj); - *obj = tmp; - break; - case aml_t_package: - if (obj->package.elements >= size) { - return; - } - tmp.package.objects = memman_alloc_flexsize(aml_memman, - size * sizeof(union aml_object *)); - bzero(tmp.package.objects, size * sizeof(union aml_object *)); - for (i = 0; i < obj->package.elements; i++) { - tmp.package.objects[i] = obj->package.objects[i]; - } - memman_free_flexsize(aml_memman, obj->package.objects); - obj->package.objects = tmp.package.objects; - break; - default: - break; - } -} diff --git a/usr.sbin/acpidump/aml/aml_obj.h b/usr.sbin/acpidump/aml/aml_obj.h deleted file mode 100644 index c38404184ed..00000000000 --- a/usr.sbin/acpidump/aml/aml_obj.h +++ /dev/null @@ -1,232 +0,0 @@ -/* $OpenBSD: aml_obj.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_obj.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_obj.h,v 1.1 2000/08/24 09:33:08 takawata Exp $ - */ - -#ifndef _AML_OBJ_H_ -#define _AML_OBJ_H_ - -#include <sys/queue.h> - -struct aml_environ; -enum aml_objtype { - aml_t_namestr = -3, - aml_t_regfield, - aml_t_objref, - aml_t_null = 0, - aml_t_num, - aml_t_string, - aml_t_buffer, - aml_t_package, - aml_t_device, - aml_t_field, - aml_t_event, - aml_t_method, - aml_t_mutex, - aml_t_opregion, - aml_t_powerres, - aml_t_processor, - aml_t_therm, - aml_t_bufferfield, - aml_t_ddbhandle, - aml_t_debug -}; - -struct aml_namestr { - enum aml_objtype type; /* =aml_t_namestr */ - u_int8_t *dp; -}; - -struct aml_opregion { - enum aml_objtype type; - int space; - int offset; - int length; -}; - -struct aml_num { - enum aml_objtype type; /* =aml_t_num */ - int number; - int constant; -}; - -struct aml_package { - enum aml_objtype type; - int elements; - union aml_object **objects; -}; - -struct aml_string { - enum aml_objtype type; /* =aml_t_string */ - int needfree; - u_int8_t *string; -}; - -struct aml_buffer { - enum aml_objtype type; /* =aml_t_buffer */ - int size; - u_int8_t *data; /* This should be free when - * this object is free. - */ -}; - -enum fieldtype { - f_t_field, - f_t_index, - f_t_bank -}; - -struct nfieldd { - enum fieldtype ftype; /* f_t_field */ - u_int8_t *regname; /* Namestring */ -}; - -struct ifieldd { - enum fieldtype ftype; /* f_t_index */ - u_int8_t *indexname; - u_int8_t *dataname; -}; - -struct bfieldd { - enum fieldtype ftype; /* f_t_bank */ - u_int8_t *regname; - u_int8_t *bankname; - u_int32_t bankvalue; -}; - -struct aml_field { - enum aml_objtype type; - u_int32_t flags; - int bitoffset; /* Not Byte offset but bitoffset */ - int bitlen; - union { - enum fieldtype ftype; - struct nfieldd fld; - struct ifieldd ifld; - struct bfieldd bfld; - } f; -}; - -struct aml_bufferfield { - enum aml_objtype type; /* aml_t_bufferfield */ - int bitoffset; - int bitlen; - u_int8_t *origin; /* This should not be free - * when this object is free - * (Within Buffer object) - */ -}; - -struct aml_method { - enum aml_objtype type; - int argnum; /* Not argnum but argnum|frag */ - u_int8_t *from; - u_int8_t *to; -}; - -struct aml_powerres { - enum aml_objtype type; - int level; - int order; -}; - -struct aml_processor { - enum aml_objtype type; - int id; - int addr; - int len; -}; - -struct aml_mutex_queue { -#if 0 - STAILQ_ENTRY(aml_mutex_queue) entry; -#endif -}; - -struct aml_mutex { - enum aml_objtype type; - int level; - volatile void *cookie; /* In kernel, struct proc? */ -#if 0 - STAILQ_HEAD(, aml_mutex_queue) queue; -#endif -}; - -struct aml_objref { - enum aml_objtype type; - struct aml_name *nameref; - union aml_object *ref; - int offset; /* of aml_buffer.data or aml_package.objects. */ - /* if negative value, not ready to dereference for element access. */ - unsigned deref; /* indicates whether dereffenced or not */ - unsigned alias; /* true if this is an alias object reference */ -}; - -struct aml_regfield { - enum aml_objtype type; - int space; - u_int32_t flags; - int offset; - int bitoffset; - int bitlen; -}; - -struct aml_event { - enum aml_objtype type; /* aml_t_event */ - int inuse; -}; - -union aml_object { - enum aml_objtype type; - struct aml_num num; - struct aml_processor proc; - struct aml_powerres pres; - struct aml_opregion opregion; - struct aml_method meth; - struct aml_field field; - struct aml_mutex mutex; - struct aml_namestr nstr; - struct aml_buffer buffer; - struct aml_bufferfield bfld; - struct aml_package package; - struct aml_string str; - struct aml_objref objref; - struct aml_event event; - struct aml_regfield regfield; -}; - -union aml_object *aml_copy_object(struct aml_environ *, - union aml_object *); -union aml_object *aml_alloc_object(enum aml_objtype, - union aml_object *); -void aml_free_objectcontent(union aml_object *); -void aml_free_object(union aml_object **); -void aml_realloc_object(union aml_object *, int); - -#endif /* !_AML_OBJ_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_parse.c b/usr.sbin/acpidump/aml/aml_parse.c deleted file mode 100644 index a0783c46528..00000000000 --- a/usr.sbin/acpidump/aml/aml_parse.c +++ /dev/null @@ -1,2089 +0,0 @@ -/* $OpenBSD: aml_parse.c,v 1.5 2007/11/26 19:57:05 kettenis Exp $ */ -/*- - * Copyright (c) 1999 Doug Rabson - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_parse.c,v 1.5 2007/11/26 19:57:05 kettenis Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_parse.c,v 1.7 2001/10/23 14:54:15 takawata Exp $ - */ - -#include <sys/param.h> - -#include <aml/aml_amlmem.h> -#include <aml/aml_common.h> -#include <aml/aml_env.h> -#include <aml/aml_evalobj.h> -#include <aml/aml_name.h> -#include <aml/aml_obj.h> -#include <aml/aml_parse.h> -#include <aml/aml_status.h> -#include <aml/aml_store.h> - -#ifndef _KERNEL -#include <sys/stat.h> -#include <sys/mman.h> - -#include <assert.h> -#include <err.h> -#include <fcntl.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <unistd.h> - -#include "debug.h" -#else /* _KERNEL */ -#include <sys/systm.h> -#include <sys/bus.h> -#include <machine/bus.h> -#include <dev/acpi/acpireg.h> -#include <dev/acpi/acpivar.h> -#ifndef ACPI_NO_OSDFUNC_INLINE -#include <machine/acpica_osd.h> -#endif -#endif /* !_KERNEL */ - -static int findsetleftbit(int num); -static int findsetrightbit(int num); -static int frombcd(int num); -static int tobcd(int num); - -static u_int32_t aml_parse_pkglength(struct aml_environ *env); -static u_int8_t aml_parse_bytedata(struct aml_environ *env); -static u_int16_t aml_parse_worddata(struct aml_environ *env); -static u_int32_t aml_parse_dworddata(struct aml_environ *env); -static u_int8_t *aml_parse_namestring(struct aml_environ *env); -static void aml_parse_defscope(struct aml_environ *env, - int indent); -static union aml_object *aml_parse_defbuffer(struct aml_environ *env, - int indent); -static struct aml_name *aml_parse_concat_number(struct aml_environ *env, - int num1, int indent); -static struct aml_name *aml_parse_concat_buffer(struct aml_environ *env, - union aml_object *obj, - int indent); -static struct aml_name *aml_parse_concat_string(struct aml_environ *env, - union aml_object *obj, - int indent); -static struct aml_name *aml_parse_concatop(struct aml_environ *env, - int indent); -static union aml_object *aml_parse_defpackage(struct aml_environ *env, - int indent); -static void aml_parse_defmethod(struct aml_environ *env, - int indent); -static void aml_parse_defopregion(struct aml_environ *env, - int indent); -static int aml_parse_field(struct aml_environ *env, - struct aml_field *template); -static void aml_parse_fieldlist(struct aml_environ *env, - struct aml_field *template, - int indent); -static void aml_parse_deffield(struct aml_environ *env, - int indent); -static void aml_parse_defindexfield(struct aml_environ *env, - int indent); -static void aml_parse_defbankfield(struct aml_environ *env, - int indent); -static void aml_parse_defdevice(struct aml_environ *env, - int indent); -static void aml_parse_defprocessor(struct aml_environ *env, - int indent); -static void aml_parse_defpowerres(struct aml_environ *env, - int indent); -static void aml_parse_defthermalzone(struct aml_environ *env, - int indent); -static struct aml_name *aml_parse_defelse(struct aml_environ *env, - int indent, int num); -static struct aml_name *aml_parse_defif(struct aml_environ *env, - int indent); -static struct aml_name *aml_parse_defwhile(struct aml_environ *env, - int indent); -static void aml_parse_defmutex(struct aml_environ *env, - int indent); -static void aml_createfield_generic(struct aml_environ *env, - union aml_object *srcbuf, - int index, int len, - char *newname); -static void aml_parse_defcreatefield(struct aml_environ *env, - int indent); - -static int -findsetleftbit(int num) -{ - int i, filter; - - filter = 0; - for (i = 0; i < 32; i++) { - filter = filter >> 1; - filter |= 1 << 31; - if (filter & num) { - break; - } - } - i = (i == 32) ? 0 : i + 1; - return (i); -} - -static int -findsetrightbit(int num) -{ - int i, filter; - - filter = 0; - for (i = 0; i < 32; i++) { - filter = filter << 1; - filter |= 1; - if (filter & num) { - break; - } - } - i = (i == 32) ? 0 : i + 1; - return (i); -} - -static int -frombcd(int num) -{ - int res, factor; - - res = 0; - factor = 1; - while (num != 0) { - res += ((num & 0xf) * factor); - num = num / 16; - factor *= 10; - } - return (res); -} - -static int -tobcd(int num) -{ - int res, factor; - - res = 0; - factor = 1; - while (num != 0) { - res += ((num % 10) * factor); - num = num / 10; - factor *= 16; - } - return (res); -} - -static u_int32_t -aml_parse_pkglength(struct aml_environ *env) -{ - u_int8_t *dp; - u_int32_t pkglength; - - dp = env->dp; - pkglength = *dp++; - switch (pkglength >> 6) { - case 0: - break; - case 1: - pkglength = (pkglength & 0xf) + (dp[0] << 4); - dp += 1; - break; - case 2: - pkglength = (pkglength & 0xf) + (dp[0] << 4) + (dp[1] << 12); - dp += 2; - break; - case 3: - pkglength = (pkglength & 0xf) - + (dp[0] << 4) + (dp[1] << 12) + (dp[2] << 20); - dp += 3; - break; - } - - env->dp = dp; - return (pkglength); -} - -static u_int8_t -aml_parse_bytedata(struct aml_environ *env) -{ - u_int8_t data; - - data = env->dp[0]; - env->dp++; - return (data); -} - -static u_int16_t -aml_parse_worddata(struct aml_environ *env) -{ - u_int16_t data; - - data = env->dp[0] + (env->dp[1] << 8); - env->dp += 2; - return (data); -} - -static u_int32_t -aml_parse_dworddata(struct aml_environ *env) -{ - u_int32_t data; - - data = env->dp[0] + (env->dp[1] << 8) + - (env->dp[2] << 16) + (env->dp[3] << 24); - env->dp += 4; - return (data); -} - -static u_int8_t * -aml_parse_namestring(struct aml_environ *env) -{ - u_int8_t *name; - int segcount; - - name = env->dp; - if (env->dp[0] == '\\') - env->dp++; - else if (env->dp[0] == '^') - while (env->dp[0] == '^') - env->dp++; - if (env->dp[0] == 0x00) /* NullName */ - env->dp++; - else if (env->dp[0] == 0x2e) /* DualNamePrefix */ - env->dp += 1 + 4 + 4; /* NameSeg, NameSeg */ - else if (env->dp[0] == 0x2f) { /* MultiNamePrefix */ - segcount = env->dp[1]; - env->dp += 1 + 1 + segcount * 4; /* segcount * NameSeg */ - } else - env->dp += 4; /* NameSeg */ - - return (name); -} - -struct aml_name * -aml_parse_objectlist(struct aml_environ *env, int indent) -{ - union aml_object *obj; - - obj = NULL; - while (env->dp < env->end) { - aml_print_indent(indent); - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); - AML_DEBUGPRINT("\n"); - if (env->stat == aml_stat_step) { - AML_DEBUGGER(env, env); - continue; - } - if (env->stat != aml_stat_none) { - env->tempname.property = obj; - return (&env->tempname); - } - } - return (NULL); -} - -#define AML_CREATE_NAME(amlname, env, namestr, ret) do { \ - amlname = aml_create_name(env, namestr); \ - if (env->stat == aml_stat_panic) \ - return ret; \ -} while(0) - -#define AML_COPY_OBJECT(dest, env, src, ret) do { \ - dest = aml_copy_object(env, src); \ - if (dest == NULL) { \ - env->stat = aml_stat_panic; \ - return ret; \ - } \ -} while(0) - -#define AML_ALLOC_OBJECT(dest, env, type, ret) do { \ - dest = aml_alloc_object(type, NULL); \ - if (dest == NULL) { \ - env->stat= aml_stat_panic; \ - return ret; \ - } \ -} while(0) - -static void -aml_parse_defscope(struct aml_environ *env, int indent) -{ - u_int8_t *start, *end, *oend; - u_int8_t *name; - u_int32_t pkglength; - struct aml_name *oname; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - - AML_DEBUGPRINT("Scope("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_DEBUGPRINT(") {\n"); - oname = env->curname; - AML_CREATE_NAME(env->curname, env, name,); - oend = env->end; - env->end = end = start + pkglength; - aml_parse_objectlist(env, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - AML_SYSASSERT(env->dp == env->end); - env->dp = end; - env->end = oend; - env->curname = oname; - env->stat = aml_stat_none; -} - -static union aml_object * -aml_parse_defbuffer(struct aml_environ *env, int indent) -{ - u_int8_t *start; - u_int8_t *end; - u_int8_t *buffer; - u_int32_t pkglength; - int size1, size2, size; - union aml_object *obj; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - end = start + pkglength; - - AML_DEBUGPRINT("Buffer("); - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); - size1 = aml_objtonum(env, obj); - size2 = end - env->dp; - size = (size1 < size2) ? size1 : size2; - if (size1 > 0) { - buffer = memman_alloc_flexsize(aml_memman, size1); - if (buffer == NULL) { - AML_DEBUGPRINT("NO MEMORY\n"); - env->stat = aml_stat_panic; - return (NULL); - } - bzero(buffer, size1); - bcopy(env->dp, buffer, size); - } else { - buffer = NULL; - } - - obj = &env->tempobject; - obj->type = aml_t_buffer; - obj->buffer.size = size1; - obj->buffer.data = buffer; - AML_DEBUGPRINT(") "); - env->dp = end; - - return (obj); -} - -static struct aml_name * -aml_parse_concat_number(struct aml_environ *env, int num1, int indent) -{ - int num2; - struct aml_name *destname; - union aml_object *obj; - - num2 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - AML_DEBUGPRINT(", "); - destname = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - obj = &env->tempobject; - obj->type = aml_t_buffer; - obj->buffer.size = 2; - obj->buffer.data = memman_alloc_flexsize(aml_memman, 2); - if (obj->buffer.data == NULL) { - env->stat = aml_stat_panic; - return (NULL); - } - obj->buffer.data[0] = num1 & 0xff; - obj->buffer.data[1] = num2 & 0xff; - aml_store_to_name(env, obj, destname); - return (&env->tempname); -} - -static struct aml_name * -aml_parse_concat_buffer(struct aml_environ *env, union aml_object *obj, - int indent) -{ - union aml_object *tmpobj, *tmpobj2, *resobj; - struct aml_name *destname; - - tmpobj = aml_eval_name(env, aml_parse_termobj(env, indent)); - AML_DEBUGPRINT(", "); - if (tmpobj->type != aml_t_buffer) { - env->stat = aml_stat_panic; - return (NULL); - } - AML_COPY_OBJECT(tmpobj2, env, tmpobj, NULL); - destname = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - resobj = &env->tempobject; - env->tempname.property = resobj; - resobj->buffer.type = aml_t_buffer; - resobj->buffer.size = tmpobj2->buffer.size + obj->buffer.size; - if (resobj->buffer.size > 0) { - resobj->buffer.data = memman_alloc_flexsize(aml_memman, - resobj->buffer.size); - if (resobj->buffer.data == NULL) { - env->stat = aml_stat_panic; - return (NULL); - } - bcopy(obj->buffer.data, resobj->buffer.data, obj->buffer.size); - bcopy(tmpobj2->buffer.data, - resobj->buffer.data + obj->buffer.size, - tmpobj2->buffer.size); - } else { - resobj->buffer.data = NULL; - } - aml_free_object(&tmpobj2); - aml_store_to_name(env, resobj, destname); - return (&env->tempname); -} - -static struct aml_name * -aml_parse_concat_string(struct aml_environ *env, union aml_object *obj, - int indent) -{ - int len; - union aml_object *tmpobj, *tmpobj2, *resobj; - struct aml_name *destname; - - tmpobj = aml_eval_name(env, aml_parse_termobj(env, indent)); - AML_DEBUGPRINT(", "); - if (tmpobj->type != aml_t_string) { - env->stat = aml_stat_panic; - return (NULL); - } - AML_COPY_OBJECT(tmpobj2, env, tmpobj, NULL); - destname = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - resobj = &env->tempobject; - env->tempname.property = resobj; - resobj->type = aml_t_buffer; - resobj->str.needfree = 1; - len = strlen(obj->str.string) + strlen(tmpobj2->str.string) + 1; - resobj->str.string = memman_alloc_flexsize(aml_memman, len); - if (resobj->str.string == NULL) { - env->stat = aml_stat_panic; - return (NULL); - } - strlcpy(resobj->str.string, obj->str.string, len); - strlcat(resobj->str.string, tmpobj->str.string, len); - aml_free_object(&tmpobj2); - aml_store_to_name(env, resobj, destname); - return (&env->tempname); -} - -static struct aml_name * -aml_parse_concatop(struct aml_environ *env, int indent) -{ - union aml_object *obj, *tmpobj; - struct aml_name *aname; - - AML_DEBUGPRINT("Concat("); - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); - AML_DEBUGPRINT(", "); - switch (obj->type) { - case aml_t_num: - aname = aml_parse_concat_number(env, aml_objtonum(env, obj), indent); - break; - - case aml_t_buffer: - /* obj may be temporal object */ - AML_COPY_OBJECT(tmpobj, env, obj, NULL); - aname = aml_parse_concat_buffer(env, obj, indent); - aml_free_object(&tmpobj); - break; - - case aml_t_string: - /* obj may be temporal object */ - AML_COPY_OBJECT(tmpobj, env, obj, NULL); - aname = aml_parse_concat_string(env, obj, indent); - aml_free_object(&tmpobj); - break; - - default: - env->stat = aml_stat_panic; - aname = NULL; - break; - } - - AML_DEBUGPRINT("\n"); - return (aname); -} - -static union aml_object * -aml_parse_defpackage(struct aml_environ *env, int indent) -{ - u_int8_t numelements; - u_int8_t *start; - u_int32_t pkglength; - int i; - struct aml_environ *copy; - struct aml_name *tmpname; - union aml_object *obj, **objects; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - numelements = aml_parse_bytedata(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return (NULL); - } - if (numelements > 0) { - objects = memman_alloc_flexsize(aml_memman, - numelements * sizeof(union aml_object *)); - if (objects == NULL) { - env->stat = aml_stat_panic; - return (NULL); - } else { - bzero(objects, numelements * sizeof(union aml_object *)); - } - } else { - objects = NULL; - } - - *copy = *env; - env->dp = copy->end = start + pkglength; - AML_DEBUGPRINT("Package() {\n"); - i = 0; - while ((copy->dp < copy->end) && (i < numelements)) { - aml_print_indent(indent + 1); - tmpname = aml_parse_termobj(copy, indent + 1); - - if (tmpname != NULL) { - objects[i] = aml_copy_object(copy, tmpname->property); - } - AML_DEBUGPRINT(",\n"); - i++; - } - aml_free_objectcontent(©->tempobject); - - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - obj = &env->tempobject; - obj->type = aml_t_package; - obj->package.elements = numelements; - obj->package.objects = objects; - - memman_free(aml_memman, memid_aml_environ, copy); - return (obj); -} - -static void -aml_parse_defmethod(struct aml_environ *env, int indent) -{ - u_int8_t flags; - u_int8_t *start; - u_int32_t pkglength; - char *name; - struct aml_environ *copy; - struct aml_method *meth; - struct aml_name *aname; - union aml_object *aobj; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT("Method("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_CREATE_NAME(aname, env, name,); - if (aname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - goto out; - } - AML_ALLOC_OBJECT(aobj, env, aml_t_method,); - meth = &aobj->meth; - aname->property = aobj; - flags = *env->dp++; - - if (flags) { - AML_DEBUGPRINT(", %d", flags); - } - AML_DEBUGPRINT(") {\n"); - *copy = *env; - meth->argnum = flags; - meth->from = env->dp; - meth->to = env->dp = copy->end = start + pkglength; - aml_print_indent(indent); - AML_DEBUGPRINT("}"); -out: - memman_free(aml_memman, memid_aml_environ, copy); -} - -static void -aml_parse_defopregion(struct aml_environ *env, int indent) -{ - u_int8_t *name; - struct aml_name *aname; - struct aml_opregion *opregion; - union aml_object *obj; - const char *regions[] = { - "SystemMemory", - "SystemIO", - "PCI_Config", - "EmbeddedControl", - "SMBus", - }; - - AML_DEBUGPRINT("OperationRegion("); - /* Name */ - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_CREATE_NAME(aname, env, name,); - if (aname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - return; - } - AML_ALLOC_OBJECT(aname->property, env, aml_t_opregion,); - opregion = &aname->property->opregion; - opregion->space = *env->dp; - AML_DEBUGPRINT(", %s, ", regions[*env->dp]); /* Space */ - env->dp++; - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); /* Offset */ - opregion->offset = aml_objtonum(env, obj); - AML_DEBUGPRINT(", "); - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); /* Length */ - opregion->length = aml_objtonum(env, obj); - AML_DEBUGPRINT(")"); -} - -static const char *accessnames[] = { - "AnyAcc", - "ByteAcc", - "WordAcc", - "DWordAcc", - "BlockAcc", - "SMBSendRecvAcc", - "SMBQuickAcc" -}; - -static int -aml_parse_field(struct aml_environ *env, struct aml_field *template) -{ - u_int8_t *name; - u_int8_t access, attribute; - u_int32_t width; - struct aml_name *aname; - struct aml_field *prop; - - switch (*env->dp) { - case '\\': - case '^': - case 'A': - case 'B': - case 'C': - case 'D': - case 'E': - case 'F': - case 'G': - case 'H': - case 'I': - case 'J': - case 'K': - case 'L': - case 'M': - case 'N': - case 'O': - case 'P': - case 'Q': - case 'R': - case 'S': - case 'T': - case 'U': - case 'V': - case 'W': - case 'X': - case 'Y': - case 'Z': - case '_': - case '.': - case '/': - name = aml_parse_namestring(env); - width = aml_parse_pkglength(env); - template->bitlen = width; - aml_print_namestring(name); - AML_CREATE_NAME(aname, env, name, NULL); - /* Allignment */ - if (width == 16) { - template->bitoffset += 15; - template->bitoffset &= (~15); - } - if (width == 32) { - template->bitoffset += 31; - template->bitoffset &= (~31); - } else if ((width & 7) == 0) { - template->bitoffset += 7; - template->bitoffset &= (~7); - } else if ((width > 32) && (width & 7) != 0) { - AML_DEBUGPRINT("??? Can I treat it?\n"); - } - if (aname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - return (NULL); - } - AML_ALLOC_OBJECT(aname->property, env, aml_t_field, NULL); - prop = &aname->property->field; - *prop = *template; - template->bitoffset += width; - AML_DEBUGPRINT(",\t%d", width); - break; - case 0x00: - env->dp++; - width = aml_parse_pkglength(env); - template->bitoffset += width; - AML_DEBUGPRINT("Offset(0x%x)", template->bitoffset); - break; - case 0x01: - access = env->dp[1]; - attribute = env->dp[2]; - env->dp += 3; - AML_DEBUGPRINT("AccessAs(%s, %d)", accessnames[access], attribute); - template->bitoffset = attribute; - template->flags = (template->flags | 0xf0) | access; - break; - } - return (template->bitoffset); -} - -static void -aml_parse_fieldlist(struct aml_environ *env, struct aml_field *template, - int indent) -{ - u_int32_t offset; - - offset = 0; - while (env->dp < env->end) { - aml_print_indent(indent); - offset = aml_parse_field(env, template); - if (env->dp < env->end) { - AML_DEBUGPRINT(",\n"); - } else { - AML_DEBUGPRINT("\n"); - } - } -} - -static void -aml_parse_deffield(struct aml_environ *env, int indent) -{ - u_int8_t flags; - u_int8_t *start, *name; - u_int32_t pkglength; - struct aml_environ *copy; - struct aml_field fieldtemplate; - static const char *lockrules[] = {"NoLock", "Lock"}; - static const char *updaterules[] = {"Preserve", "WriteAsOnes", - "WriteAsZeros", "*Error*"}; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT("Field("); - aml_print_namestring(name = aml_parse_namestring(env)); - fieldtemplate.type = aml_t_field; - flags = aml_parse_bytedata(env); - fieldtemplate.flags = fieldtemplate.flags = flags; - - *copy = *env; - env->dp = copy->end = start + pkglength; - fieldtemplate.bitoffset = 0; - fieldtemplate.bitlen = 0; - fieldtemplate.f.ftype = f_t_field; - fieldtemplate.f.fld.regname = name; - AML_DEBUGPRINT(", %s, %s, %s) {\n", - accessnames[flags & 0xf], - lockrules[(flags >> 4) & 1], - updaterules[(flags >> 5) & 3]); - aml_parse_fieldlist(copy, &fieldtemplate, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - aml_free_objectcontent(©->tempobject); - - AML_SYSASSERT(copy->dp == copy->end); - memman_free(aml_memman, memid_aml_environ, copy); -} - -static void -aml_parse_defindexfield(struct aml_environ *env, int indent) -{ - u_int8_t flags; - u_int8_t *start, *iname, *dname; - u_int32_t pkglength; - struct aml_environ *copy; - struct aml_field template; - static const char *lockrules[] = {"NoLock", "Lock"}; - static const char *updaterules[] = {"Preserve", "WriteAsOnes", - "WriteAsZeros", "*Error*"}; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT("IndexField("); - aml_print_namestring(iname = aml_parse_namestring(env)); /* Name1 */ - AML_DEBUGPRINT(", "); - aml_print_namestring(dname = aml_parse_namestring(env)); /* Name2 */ - template.type = aml_t_field; - template.flags = flags = aml_parse_bytedata(env); - template.bitoffset = 0; - template.bitlen = 0; - template.f.ftype = f_t_index; - template.f.ifld.indexname = iname; - template.f.ifld.dataname = dname; - AML_DEBUGPRINT(", %s, %s, %s) {\n", - accessnames[flags & 0xf], - lockrules[(flags >> 4) & 1], - updaterules[(flags >> 5) & 3]); - *copy = *env; - env->dp = copy->end = start + pkglength; - aml_parse_fieldlist(copy, &template, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - aml_free_objectcontent(©->tempobject); - - AML_SYSASSERT(copy->dp == copy->end); - memman_free(aml_memman, memid_aml_environ, copy); -} - -static void -aml_parse_defbankfield(struct aml_environ *env, int indent) -{ - u_int8_t flags; - u_int8_t *start, *rname, *bname; - u_int32_t pkglength, bankvalue; - struct aml_environ *copy; - struct aml_field template; - union aml_object *obj; - static const char *lockrules[] = {"NoLock", "Lock"}; - static const char *updaterules[] = {"Preserve", "WriteAsOnes", - "WriteAsZeros", "*Error*"}; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT("BankField("); - aml_print_namestring(rname = aml_parse_namestring(env)); /* Name1 */ - AML_DEBUGPRINT(", "); - aml_print_namestring(bname = aml_parse_namestring(env)); /* Name2 */ - AML_DEBUGPRINT(", "); - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); /* BankValue */ - bankvalue = aml_objtonum(env, obj); - template.type = aml_t_field; - template.flags = flags = aml_parse_bytedata(env); - template.bitoffset = 0; - template.bitlen = 0; - template.f.ftype = f_t_bank; - template.f.bfld.regname = rname; - template.f.bfld.bankname = bname; - template.f.bfld.bankvalue = bankvalue; - *copy = *env; - env->dp = copy->end = start + pkglength; - AML_DEBUGPRINT(", %s, %s, %s) {\n", - accessnames[flags & 0xf], - lockrules[(flags >> 4) & 1], - updaterules[(flags >> 5) & 3]); - aml_parse_fieldlist(copy, &template, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - - aml_free_objectcontent(©->tempobject); - AML_SYSASSERT(copy->dp == copy->end); - memman_free(aml_memman, memid_aml_environ, copy); -} - -static void -aml_parse_defdevice(struct aml_environ *env, int indent) -{ - u_int8_t *start; - u_int8_t *name; - u_int32_t pkglength; - struct aml_environ *copy; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT("Device("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_DEBUGPRINT(") {\n"); - *copy = *env; - AML_CREATE_NAME(copy->curname, env, name,); - if (copy->curname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - goto out; - } - AML_ALLOC_OBJECT(copy->curname->property, env, aml_t_device,); - env->dp = copy->end = start + pkglength; - aml_parse_objectlist(copy, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - aml_free_objectcontent(©->tempobject); - - AML_SYSASSERT(copy->dp == copy->end); -out: - memman_free(aml_memman, memid_aml_environ, copy); -} - -static void -aml_parse_defprocessor(struct aml_environ *env, int indent) -{ - u_int8_t *start; - u_int8_t *name; - u_int32_t pkglength; - struct aml_environ *copy; - struct aml_processor *proc; - union aml_object *obj; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_ALLOC_OBJECT(obj, env, aml_t_processor,); - proc = &obj->proc; - AML_DEBUGPRINT("Processor("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - proc->id = aml_parse_bytedata(env); - proc->addr = aml_parse_dworddata(env); - proc->len = aml_parse_bytedata(env); - AML_DEBUGPRINT(", %d, 0x%x, 0x%x) {\n", proc->id, proc->addr, proc->len); - *copy = *env; - AML_CREATE_NAME(copy->curname, env, name,); - if (copy->curname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - goto out; - } - copy->curname->property = obj; - env->dp = copy->end = start + pkglength; - aml_parse_objectlist(copy, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - aml_free_objectcontent(©->tempobject); - - AML_SYSASSERT(copy->dp == copy->end); -out: - memman_free(aml_memman, memid_aml_environ, copy); -} - -static void -aml_parse_defpowerres(struct aml_environ *env, int indent) -{ - u_int8_t *start; - u_int8_t *name; - u_int32_t pkglength; - struct aml_environ *copy; - struct aml_powerres *pres; - union aml_object *obj; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT("PowerResource("); - AML_ALLOC_OBJECT(obj, env, aml_t_powerres,); - name = aml_parse_namestring(env); - aml_print_namestring(name); - pres = &obj->pres; - pres->level = aml_parse_bytedata(env); - pres->order = aml_parse_worddata(env); - AML_DEBUGPRINT(", %d, %d) {\n", pres->level, pres->order); - *copy = *env; - AML_CREATE_NAME(copy->curname, env, name,); - if (copy->curname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - goto out; - } - copy->curname->property = obj; - env->dp = copy->end = start + pkglength; - - aml_parse_objectlist(copy, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - aml_free_objectcontent(©->tempobject); - - AML_SYSASSERT(copy->dp == copy->end); -out: - memman_free(aml_memman, memid_aml_environ, copy); -} - -static void -aml_parse_defthermalzone(struct aml_environ *env, int indent) -{ - u_int8_t *start; - u_int8_t *name; - u_int32_t pkglength; - struct aml_environ *copy; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - copy = memman_alloc(aml_memman, memid_aml_environ); - if (copy == NULL) { - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT("ThermalZone("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_DEBUGPRINT(") {\n"); - *copy = *env; - AML_CREATE_NAME(copy->curname, env, name,); - if (copy->curname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - goto out; - } - AML_ALLOC_OBJECT(copy->curname->property, env, aml_t_therm,); - env->dp = copy->end = start + pkglength; - aml_parse_objectlist(copy, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - aml_free_objectcontent(©->tempobject); - AML_SYSASSERT(copy->dp == copy->end); -out: - memman_free(aml_memman, memid_aml_environ, copy); -} - -static struct aml_name * -aml_parse_defelse(struct aml_environ *env, int indent, int num) -{ - u_int8_t *start, *end, *oend; - u_int32_t pkglength; - struct aml_name *aname; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - oend = env->end; - env->end = end = start + pkglength; - aname = NULL; - - AML_DEBUGPRINT("Else {\n"); - if (num == 0) { - aname = aml_parse_objectlist(env, indent + 1); - aml_print_indent(indent); - } - AML_DEBUGPRINT("}"); - - env->dp = end; - env->end = oend; - return (aname); -} - -static struct aml_name * -aml_parse_defif(struct aml_environ *env, int indent) -{ - u_int8_t *start, *end, *oend; - u_int32_t pkglength; - int num; - struct aml_name *aname, *aname1; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - aname = NULL; - - AML_DEBUGPRINT("If("); - num = aml_objtonum(env, aml_eval_name - (env, aml_parse_termobj(env, indent))); - oend = env->end; - end = start + pkglength; - AML_DEBUGPRINT(")"); - if (num) { - AML_DEBUGPRINT("{\n"); - env->end = end; - aname = aml_parse_objectlist(env, indent + 1); - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - } - env->dp = end; - env->end = oend; - if ((end < oend) && *(env->dp) == 0xa1) { - env->dp++; - aname1 = aml_parse_defelse(env, indent, num); - aname = (num == 0) ? aname1 : aname; - } - return (aname); -} - -static struct aml_name * -aml_parse_defwhile(struct aml_environ *env, int indent) -{ - u_int8_t *start, *end, *oend; - u_int32_t pkglength; - int num; - struct aml_name *aname; - - start = env->dp; - pkglength = aml_parse_pkglength(env); - oend = env->end; - end = start + pkglength; - aname = NULL; - for (;;) { - env->dp = start; - aml_parse_pkglength(env); - AML_DEBUGPRINT("While("); - num = aml_objtonum(env, aml_eval_name - (env, aml_parse_termobj(env, indent))); - AML_DEBUGPRINT(")"); - if (num == 0) { - break; - } - AML_DEBUGPRINT(" {\n"); - env->end = end; - aname = aml_parse_objectlist(env, indent + 1); - if (env->stat == aml_stat_step) { - AML_DEBUGGER(env, env); - continue; - } - if (env->stat != aml_stat_none) - break; - aml_print_indent(indent); - AML_DEBUGPRINT("}"); - } - AML_DEBUGPRINT("\n"); - env->dp = end; - env->end = oend; - if (env->stat == aml_stat_break) { - env->stat = aml_stat_none; - aname = NULL; - } - return (aname); -} - -static void -aml_parse_defmutex(struct aml_environ *env, int indent) -{ - char *name; - struct aml_name *aname; - struct aml_mutex *mut; - - /* MutexOp */ - AML_DEBUGPRINT("Mutex("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_CREATE_NAME(aname, env, name,); - if (aname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - return; - } - AML_ALLOC_OBJECT(aname->property, env, aml_t_mutex,); - mut = &aname->property->mutex; - mut->level = *env->dp++; -#if 0 - STAILQ_INIT(&mut->queue); -#endif - AML_DEBUGPRINT(", %d)", mut->level); -} - -static void -aml_createfield_generic(struct aml_environ *env, - union aml_object *srcbuf, int index, - int len, char *newname) -{ - struct aml_bufferfield *field; - struct aml_name *aname; - - if (srcbuf == NULL || srcbuf->type != aml_t_buffer) { - AML_DEBUGPRINT("Not Buffer assigned,"); - env->stat = aml_stat_panic; - return; - } - AML_CREATE_NAME(aname, env, newname,); - if (aname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - return; - } - AML_ALLOC_OBJECT(aname->property, env, aml_t_bufferfield,); - field = &aname->property->bfld; - field->bitoffset = index; - field->bitlen = len; - field->origin = srcbuf->buffer.data; -} - -static void -aml_parse_defcreatefield(struct aml_environ *env, int indent) -{ - int index, len; - char *newname; - union aml_object *obj, *srcbuf; - - /* CreateFieldOp */ - AML_DEBUGPRINT("CreateField("); - srcbuf = aml_eval_name(env, aml_parse_termobj(env, indent)); - if (srcbuf == &env->tempobject) { - AML_DEBUGPRINT("NONAMED BUFFER\n"); - env->stat = aml_stat_panic; - return; - } - AML_DEBUGPRINT(", "); - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); - index = aml_objtonum(env, obj); - AML_DEBUGPRINT(", "); - obj = aml_eval_name(env, aml_parse_termobj(env, indent)); - len = aml_objtonum(env, obj); - AML_DEBUGPRINT(", "); - newname = aml_parse_namestring(env); - aml_print_namestring(newname); - aml_createfield_generic(env, srcbuf, index, len, newname); - AML_DEBUGPRINT(") "); -} - -/* - * Returns Named object or parser buffer. The object need not be free because - * it returns preallocated buffer in env or Contain of named object. If You - * need to preserve object, create a copy and then store. And The object - * returned from this function is not valid after another call is - * shared, tempolary buffer may be shared. - */ -struct aml_name * -aml_parse_termobj(struct aml_environ *env, int indent) -{ - u_int8_t opcode; - u_int8_t *name; - int value; - int num1, num2; - int len; - int match1, match2, i, pkgval, start; - int widthindex, index; - char *newname; - struct aml_name *aname; - struct aml_name *destname1, *destname2; - struct aml_name *tmpname, *srcname; - struct aml_name *src; - union aml_object *ret; - union aml_object *tmpobj; - union aml_object anum; - union aml_object *objref; - union aml_object *srcobj; - union aml_object *obj; - union aml_object *srcbuf; - static int widthtbl[6] = {32, 16, 8, 1, -1, 64}; - const char *opname[6] = {"CreateDWordField", "CreateWordField", - "CreateByteField", "CreateBitField", - NULL, "CreateQWordField"}; - - aname = &env->tempname; - ret = &env->tempobject; - anum.type = aml_t_num; - aname->property = ret; - aml_free_objectcontent(ret); - if (env->stat == aml_stat_panic) { - /* - * If previosuly parser panic , parsing next instruction is - * prohibited. - */ - return (NULL); - } - aname = NULL; - opcode = *env->dp++; - switch (opcode) { - case '\\': - case '^': - case 'A': - case 'B': - case 'C': - case 'D': - case 'E': - case 'F': - case 'G': - case 'H': - case 'I': - case 'J': - case 'K': - case 'L': - case 'M': - case 'N': - case 'O': - case 'P': - case 'Q': - case 'R': - case 'S': - case 'T': - case 'U': - case 'V': - case 'W': - case 'X': - case 'Y': - case 'Z': - case '_': - case '.': - case '/': - env->dp--; - ret->type = aml_t_namestr; - ret->nstr.dp = aml_parse_namestring(env); - aml_print_namestring(ret->nstr.dp); - aname = &env->tempname; - break; - case 0x0a: /* BytePrefix */ - ret->type = aml_t_num; - value = aml_parse_bytedata(env); - ret->num.number = value; - AML_DEBUGPRINT("0x%x", value); - aname = &env->tempname; - break; - case 0x0b: /* WordPrefix */ - ret->type = aml_t_num; - value = aml_parse_worddata(env); - ret->num.number = value; - AML_DEBUGPRINT("0x%x", value); - aname = &env->tempname; - break; - case 0x0c: /* DWordPrefix */ - ret->type = aml_t_num; - value = aml_parse_dworddata(env); - ret->num.number = value; - AML_DEBUGPRINT("0x%x", value); - aname = &env->tempname; - break; - case 0x0d: /* StringPrefix */ - ret->type = aml_t_string; - ret->str.string = env->dp; - len = strlen(env->dp); - ret->str.needfree = 0; - AML_DEBUGPRINT("\"%s\"", (const char *)ret->str.string); - env->dp += (len + 1); - aname = &env->tempname; - break; - case 0x00: /* ZeroOp */ - ret->type = aml_t_num; - ret->num.number = 0; - ret->num.constant = 1; - AML_DEBUGPRINT("Zero"); - aname = &env->tempname; - break; - case 0x01: /* OneOp */ - ret->type = aml_t_num; - ret->num.number = 1; - ret->num.constant = 1; - AML_DEBUGPRINT("One"); - aname = &env->tempname; - break; - case 0xff: /* OnesOp */ - ret->type = aml_t_num; - ret->num.number = 0xffffffff; - ret->num.constant = 1; - AML_DEBUGPRINT("Ones"); - aname = &env->tempname; - break; - case 0x06: /* AliasOp */ - AML_DEBUGPRINT("Alias("); - tmpname = aml_parse_termobj(env, indent); - if (env->stat == aml_stat_panic) { - return (NULL); - } - if (tmpname->property == NULL || - tmpname->property->type != aml_t_namestr) { - env->stat = aml_stat_panic; - return (NULL); - } - /* - * XXX if srcname is deleted after this object, what - * shall I do? - */ - srcname = aml_search_name(env, tmpname->property->nstr.dp); - AML_DEBUGPRINT(", "); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_CREATE_NAME(aname, env, name, NULL); - if (aname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - aml_print_curname(aname); - return (NULL); - } - AML_ALLOC_OBJECT(aname->property, env, aml_t_objref, NULL); - objref = aname->property; - objref->objref.nameref = srcname; - objref->objref.ref = srcname->property; - objref->objref.offset = -1; - objref->objref.alias = 1; /* Yes, this is an alias */ - AML_DEBUGPRINT(")"); - /* shut the interpreter up during the namespace initializing */ - return (NULL); - case 0x08: /* NameOp */ - AML_DEBUGPRINT("Name("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_CREATE_NAME(aname, env, name, NULL); - if (env->stat == aml_stat_panic) { - AML_DEBUGPRINT("Already Defined \n"); - aml_print_curname(aname); - return (NULL); - } - AML_DEBUGPRINT(", "); - AML_COPY_OBJECT(aname->property, env, - aml_eval_name(env, - aml_parse_termobj(env, indent)), - NULL); - AML_DEBUGPRINT(")"); - break; - case 0x10: /* ScopeOp */ - aml_parse_defscope(env, indent); - break; - case 0x11: /* BufferOp */ - aname = &env->tempname; - aname->property = aml_parse_defbuffer(env, indent); - break; - case 0x12: /* PackageOp */ - aname = &env->tempname; - aname->property = aml_parse_defpackage(env, indent); - break; - case 0x14: /* MethodOp */ - aml_parse_defmethod(env, indent); - break; - case 0x5b: /* ExtOpPrefix */ - opcode = *env->dp++; - switch (opcode) { - case 0x01: - aml_parse_defmutex(env, indent); - break; - case 0x02: /* EventOp */ - AML_DEBUGPRINT("Event("); - name = aml_parse_namestring(env); - aml_print_namestring(name); - AML_CREATE_NAME(aname, env, name, NULL); - if (aname->property != NULL) { - env->stat = aml_stat_panic; - AML_DEBUGPRINT("Already Defined \n"); - return (NULL); - } - AML_ALLOC_OBJECT(aname->property, env, aml_t_event, NULL); - AML_DEBUGPRINT(")"); - return (NULL); - break; - case 0x12: /* CondRefOfOp */ - AML_DEBUGPRINT("CondRefOf("); - src = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(", "); - if (src == &env->tempname || src == NULL) { - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - anum.num.number = 0xffffffff; - env->tempobject.num = anum.num; - aname = &env->tempname; - break; - } - AML_ALLOC_OBJECT(objref, env, aml_t_objref, NULL); - if (src->property == NULL || - src->property->type != aml_t_namestr) { - objref->objref.nameref = src; - } else { - objref->objref.nameref = aml_create_local_object(); - } - objref->objref.ref = src->property; - objref->objref.offset = -1; /* different from IndexOp */ - - destname1 = aml_parse_termobj(env, indent); - aml_store_to_name(env, objref, destname1); - anum.num.number = 0; - env->tempobject.num = anum.num; - aname = &env->tempname; - AML_DEBUGPRINT(")"); - break; - case 0x13: - aml_parse_defcreatefield(env, indent); - break; - case 0x20: /* LoadOp *//* XXX Not Impremented */ - AML_DEBUGPRINT("Load("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(", "); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - break; - case 0x21: /* StallOp */ - AML_DEBUGPRINT("Stall("); - num1 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - AML_DEBUGPRINT(")"); - AML_STALL(num1); - break; - case 0x22: /* SleepOp */ - AML_DEBUGPRINT("Sleep("); - num1 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - AML_SLEEP(0, num1); - AML_DEBUGPRINT(")"); - break; - case 0x23: /* AcquireOp *//* XXX Not yet */ - AML_DEBUGPRINT("Acquire("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(", 0x%x)", aml_parse_worddata(env)); - break; - case 0x24: /* SignalOp *//* XXX Not yet */ - AML_DEBUGPRINT("Signal("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - break; - case 0x25: /* WaitOp *//* XXX Not yet impremented */ - AML_DEBUGPRINT("Wait("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(", "); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - break; - case 0x26: /* ResetOp *//* XXX Not yet impremented */ - AML_DEBUGPRINT("Reset("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - break; - case 0x27: /* ReleaseOp *//* XXX Not yet impremented */ - AML_DEBUGPRINT("Release("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - break; -#define NUMOP2(opname, operation) do { \ - AML_DEBUGPRINT(opname); \ - AML_DEBUGPRINT("("); \ - num1 = aml_objtonum(env, aml_eval_name(env, \ - aml_parse_termobj(env, indent))); \ - AML_DEBUGPRINT(", "); \ - anum.num.number = operation (num1); \ - destname1 = aml_parse_termobj(env, indent); \ - AML_DEBUGPRINT(")"); \ - aml_store_to_name(env, &anum, destname1); \ - env->tempobject.num = anum.num; \ - env->tempname.property = &env->tempobject; \ - aname = &env->tempname; \ -} while(0) - - case 0x28: /* FromBCDOp */ - NUMOP2("FromBCD", frombcd); - break; - case 0x29: /* ToBCDOp */ - NUMOP2("ToBCD", tobcd); - break; - case 0x2a: /* UnloadOp *//* XXX Not yet impremented */ - AML_DEBUGPRINT("Unload("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - break; - case 0x30: - env->tempobject.type = aml_t_num; - env->tempobject.num.number = 0; - env->tempobject.num.constant = 1; - AML_DEBUGPRINT("Revision"); - break; - case 0x31: - env->tempobject.type = aml_t_debug; - aname = &env->tempname; - AML_DEBUGPRINT("Debug"); - break; - case 0x32: /* FatalOp */ - AML_DEBUGPRINT("Fatal("); - AML_DEBUGPRINT("0x%x, ", aml_parse_bytedata(env)); - AML_DEBUGPRINT("0x%x, ", aml_parse_dworddata(env)); - aml_parse_termobj(env, indent); - env->stat = aml_stat_panic; - AML_DEBUGPRINT(")"); - break; - case 0x80: /* OpRegionOp */ - aml_parse_defopregion(env, indent); - break; - case 0x81: /* FieldOp */ - aml_parse_deffield(env, indent); - break; - case 0x82: /* DeviceOp */ - aml_parse_defdevice(env, indent); - break; - case 0x83: /* ProcessorOp */ - aml_parse_defprocessor(env, indent); - break; - case 0x84: /* PowerResOp */ - aml_parse_defpowerres(env, indent); - break; - case 0x85: /* ThermalZoneOp */ - aml_parse_defthermalzone(env, indent); - break; - case 0x86: /* IndexFieldOp */ - aml_parse_defindexfield(env, indent); - break; - case 0x87: /* BankFieldOp */ - aml_parse_defbankfield(env, indent); - break; - default: - AML_SYSERRX(1, "strange opcode 0x5b, 0x%x\n", opcode); - AML_SYSABORT(); - } - break; - case 0x68: - case 0x69: - case 0x6a: - case 0x6b: - case 0x6c: - case 0x6d: - case 0x6e: - /* ArgN */ - AML_DEBUGPRINT("Arg%d", opcode - 0x68); - return (aml_local_stack_getArgX(NULL, opcode - 0x68)); - break; - case 0x60: - case 0x61: - case 0x62: - case 0x63: - case 0x64: - case 0x65: - case 0x66: - case 0x67: - AML_DEBUGPRINT("Local%d", opcode - 0x60); - return (aml_local_stack_getLocalX(opcode - 0x60)); - break; - case 0x70: /* StoreOp */ - AML_DEBUGPRINT("Store("); - aname = aml_create_local_object(); - AML_COPY_OBJECT(tmpobj, env, - aml_eval_name(env, aml_parse_termobj(env, indent)), NULL); - aname->property = tmpobj; - AML_DEBUGPRINT(", "); - destname1 = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - /* XXX - * temporary object may change during aml_store_to_name() - * operation, so we make a copy of it on stack. - */ - if (destname1 == &env->tempname && - destname1->property == &env->tempobject) { - destname1 = aml_create_local_object(); - AML_COPY_OBJECT(destname1->property, env, - &env->tempobject, NULL); - } - aml_store_to_name(env, tmpobj, destname1); - if (env->stat == aml_stat_panic) { - AML_DEBUGPRINT("StoreOp failed"); - return (NULL); - } - aname = aml_create_local_object(); - AML_COPY_OBJECT(tmpobj, env, destname1->property, NULL); - aname->property = tmpobj; - if (tmpobj == NULL) { - printf("???"); - break; - } - break; - case 0x71: /* RefOfOp */ - AML_DEBUGPRINT("RefOf("); - src = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - - aname = aml_create_local_object(); - AML_ALLOC_OBJECT(aname->property, env, aml_t_objref, NULL); - objref = aname->property; - if (src->property == NULL || - src->property->type != aml_t_namestr) { - objref->objref.nameref = src; - } else { - objref->objref.nameref = aml_create_local_object(); - } - objref->objref.ref = src->property; - objref->objref.offset = -1; /* different from IndexOp */ - break; - -#define NUMOP3_2(opname, oparation, ope2) do { \ - AML_DEBUGPRINT(opname); \ - AML_DEBUGPRINT("("); \ - num1 = aml_objtonum(env, aml_eval_name(env, \ - aml_parse_termobj(env, indent))); \ - AML_DEBUGPRINT(", "); \ - num2 = aml_objtonum(env, aml_eval_name(env, \ - aml_parse_termobj(env, indent))); \ - AML_DEBUGPRINT(", "); \ - anum.num.number = ope2(num1 oparation num2); \ - destname1 = aml_parse_termobj(env, indent); \ - AML_DEBUGPRINT(")"); \ - aml_store_to_name(env, &anum, destname1); \ - env->tempobject.num = anum.num; \ - env->tempname.property = &env->tempobject; \ - aname = &env->tempname; \ -} while(0) - -#define NUMOP3(opname, operation) NUMOP3_2(opname, operation, ) -#define NUMOPN3(opname, operation) NUMOP3_2(opname, operation, ~) - - case 0x72: /* AddOp */ - NUMOP3("Add", +); - break; - case 0x73: /* ConcatOp */ - aname = aml_parse_concatop(env, indent); - break; - case 0x74: /* SubtractOp */ - NUMOP3("Subtract", -); - break; - case 0x75: /* IncrementOp */ - AML_DEBUGPRINT("Increment("); - aname = aml_parse_termobj(env, indent); - num1 = aml_objtonum(env, aml_eval_name(env, aname)); - num1++; - anum.num.number = num1; - AML_DEBUGPRINT(")"); - aml_store_to_name(env, &anum, aname); - aname = &env->tempname; - env->tempobject.num = anum.num; - break; - case 0x76: /* DecrementOp */ - AML_DEBUGPRINT("Decrement("); - aname = aml_parse_termobj(env, indent); - num1 = aml_objtonum(env, aml_eval_name(env, aname)); - num1--; - anum.num.number = num1; - AML_DEBUGPRINT(")"); - aml_store_to_name(env, &anum, aname); - aname = &env->tempname; - env->tempobject.num = anum.num; - break; - case 0x77: /* MultiplyOp */ - NUMOP3("Multiply", *); - break; - case 0x78: /* DivideOp */ - AML_DEBUGPRINT("Divide("); - num1 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - AML_DEBUGPRINT(", "); - num2 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - AML_DEBUGPRINT(", "); - anum.num.number = num1 % num2; - destname1 = aml_parse_termobj(env, indent); - aml_store_to_name(env, &anum, destname1); - AML_DEBUGPRINT(", "); - anum.num.number = num1 / num2; - destname2 = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - aml_store_to_name(env, &anum, destname2); - env->tempobject.num = anum.num; - aname = &env->tempname; - break; - case 0x79: /* ShiftLeftOp */ - NUMOP3("ShiftLeft", <<); - break; - case 0x7a: /* ShiftRightOp */ - NUMOP3("ShiftRight", >>); - break; - case 0x7b: /* AndOp */ - NUMOP3("And", &); - break; - case 0x7c: /* NAndOp */ - NUMOPN3("NAnd", &); - break; - case 0x7d: /* OrOp */ - NUMOP3("Or", |); - break; - case 0x7e: /* NOrOp */ - NUMOPN3("NOr", |); - break; - case 0x7f: /* XOrOp */ - NUMOP3("XOr", ^); - break; - case 0x80: /* NotOp */ - NUMOP2("Not", ~); - break; - case 0x81: /* FindSetLeftBitOp */ - NUMOP2("FindSetLeftBit", findsetleftbit); - break; - case 0x82: /* FindSetRightBitOp */ - NUMOP2("FindSetRightBit", findsetrightbit); - break; - case 0x83: /* DerefOp */ - AML_DEBUGPRINT("DerefOf("); - objref = aml_eval_name(env, aml_parse_termobj(env, indent)); - AML_DEBUGPRINT(")"); - - if (objref->objref.ref == NULL) { - env->tempname.property = objref->objref.ref; - aname = &env->tempname; - break; - } - switch (objref->objref.ref->type) { - case aml_t_package: - case aml_t_buffer: - if (objref->objref.offset < 0) { - env->tempname.property = objref->objref.ref; - } else { - objref->objref.deref = 1; - env->tempname.property = objref; - } - break; - default: - env->tempname.property = objref->objref.ref; - break; - } - - aname = &env->tempname; - break; - case 0x86: /* NotifyOp *//* XXX Not yet impremented */ - AML_DEBUGPRINT("Notify("); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(", "); - aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - break; - case 0x87: /* SizeOfOp */ - AML_DEBUGPRINT("SizeOf("); - aname = aml_parse_termobj(env, indent); - tmpobj = aml_eval_name(env, aname); - - AML_DEBUGPRINT(")"); - num1 = 0; - switch (tmpobj->type) { - case aml_t_buffer: - num1 = tmpobj->buffer.size; - break; - case aml_t_string: - num1 = strlen(tmpobj->str.string); - break; - case aml_t_package: - num1 = tmpobj->package.elements; - break; - default: - AML_DEBUGPRINT("Args of SizeOf should be " - "buffer/string/package only\n"); - break; - } - - anum.num.number = num1; - env->tempobject.num = anum.num; - aname = &env->tempname; - break; - case 0x88: /* IndexOp */ - AML_DEBUGPRINT("Index("); - srcobj = aml_eval_name(env, aml_parse_termobj(env, indent)); - AML_DEBUGPRINT(", "); - num1 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - AML_DEBUGPRINT(", "); - destname1 = aml_parse_termobj(env, indent); - AML_DEBUGPRINT(")"); - aname = aml_create_local_object(); - switch (srcobj->type) { - case aml_t_package: - case aml_t_buffer: - AML_ALLOC_OBJECT(objref, env, aml_t_objref, NULL); - aname->property = objref; - objref->objref.ref = srcobj; - objref->objref.offset = num1; - objref->objref.deref = 0; - break; - default: - AML_DEBUGPRINT("Arg0 of Index should be either " - "buffer or package\n"); - return (aname); - } - - aml_store_to_name(env, objref, destname1); - break; - case 0x89: /* MatchOp *//* XXX Not yet Impremented */ - AML_DEBUGPRINT("Match("); - AML_COPY_OBJECT(obj, env, aml_eval_name(env, - aml_parse_termobj(env, indent)), NULL); - if (obj->type != aml_t_package) { - env->stat = aml_stat_panic; - return (NULL); - } - anum.num.number = 0xffffffff; - match1 = *env->dp; - AML_DEBUGPRINT(", %d", *env->dp); - env->dp++; - num1 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - match2 = *env->dp; - AML_DEBUGPRINT(", %d", *env->dp); - env->dp++; - num2 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - AML_DEBUGPRINT(", "); - start = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - -#define MATCHOP(opnum, arg1, arg2) ((opnum == 0) ? (1) : \ - (opnum == 1) ? ((arg1) == (arg2)) : \ - (opnum == 2) ? ((arg1) <= (arg2)) : \ - (opnum == 3) ? ((arg1) < (arg2)) : \ - (opnum == 4) ? ((arg1) >= (arg2)) : \ - (opnum == 5) ? ((arg1) > (arg2)) : 0 ) - - for (i = start; i < obj->package.elements; i++) { - pkgval = aml_objtonum(env, obj->package.objects[i]); - if (MATCHOP(match1, pkgval, num1) && - MATCHOP(match2, pkgval, num2)) { - anum.num.number = i; - break; - } - } - AML_DEBUGPRINT(")"); - aml_free_object(&obj); - aname = &env->tempname; - env->tempname.property = &env->tempobject; - env->tempobject.num = anum.num; - break; -#undef MATCHOP - case 0x8a: - case 0x8b: - case 0x8c: - case 0x8d: - case 0x8f: - /* CreateDWordFieldOp */ - widthindex = *(env->dp - 1) - 0x8a; - AML_DEBUGPRINT("%s(", opname[widthindex]); - srcbuf = aml_eval_name(env, aml_parse_termobj(env, indent)); - if (srcbuf == &env->tempobject) { - AML_DEBUGPRINT("NOT NAMEDBUF\n"); - env->stat = aml_stat_panic; - return (NULL); - } - AML_DEBUGPRINT(", "); - index = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - if (widthindex != 3) { - index *= 8; - } - AML_DEBUGPRINT(", "); - newname = aml_parse_namestring(env); - aml_print_namestring(newname); - aml_createfield_generic(env, srcbuf, index, - widthtbl[widthindex], newname); - AML_DEBUGPRINT(")"); - break; - case 0x8e: /* ObjectTypeOp */ - AML_DEBUGPRINT("ObjectType("); - aname = aml_parse_termobj(env, indent); - if (aname == NULL) { - env->tempobject.type = aml_t_num; - env->tempobject.num.number = aml_t_null; - } else { - env->tempobject.type = aml_t_num; - env->tempobject.num.number = aname->property->type; - } - aname = &env->tempname; - AML_DEBUGPRINT(")"); - break; - -#define CMPOP(opname,operation) do { \ - AML_DEBUGPRINT(opname); \ - AML_DEBUGPRINT("("); \ - num1 = aml_objtonum(env, aml_eval_name(env, \ - aml_parse_termobj(env, indent))); \ - AML_DEBUGPRINT(", "); \ - num2 = aml_objtonum(env, aml_eval_name(env, \ - aml_parse_termobj(env, indent))); \ - aname = &env->tempname; \ - env->tempobject.type = aml_t_num; \ - env->tempobject.num.number = (num1 operation num2) ? 0xffffffff : 0; \ - aname->property = &env->tempobject; \ - AML_DEBUGPRINT(")"); \ -} while(0) - - case 0x90: - CMPOP("LAnd", &&); - break; - case 0x91: - CMPOP("LOr", ||); - break; - case 0x92: - AML_DEBUGPRINT("LNot("); - num1 = aml_objtonum(env, aml_eval_name(env, - aml_parse_termobj(env, indent))); - aname = &env->tempname; - env->tempobject.type = aml_t_num; - env->tempobject.num.number = (!num1) ? 0xffffffff : 0; - aname->property = &env->tempobject; - AML_DEBUGPRINT(")"); - break; - case 0x93: - CMPOP("LEqual", ==); - break; - case 0x94: - CMPOP("LGreater", >); - break; - case 0x95: - CMPOP("LLess", <); - break; - case 0xa0: /* IfOp */ - aname = aml_parse_defif(env, indent); - break; -#if 0 - - case 0xa1: /* ElseOp should not be treated in Main parser - * But If Op */ - aml_parse_defelse(env, indent); - break; -#endif - case 0xa2: /* WhileOp */ - aname = aml_parse_defwhile(env, indent); - break; - case 0xa3: /* NoopOp */ - AML_DEBUGPRINT("Noop"); - break; - case 0xa5: /* BreakOp */ - AML_DEBUGPRINT("Break"); - env->stat = aml_stat_break; - break; - case 0xa4: /* ReturnOp */ - AML_DEBUGPRINT("Return("); - AML_COPY_OBJECT(env->tempname.property, env, aml_eval_name(env, - aml_parse_termobj(env, indent)), NULL); - aname = &env->tempname; - env->stat = aml_stat_return; - AML_DEBUGPRINT(")"); - break; - case 0xcc: /* BreakPointOp */ - /* XXX Not Yet Impremented (Not need?) */ - AML_DEBUGPRINT("BreakPoint"); - break; - default: - AML_SYSERRX(1, "strange opcode 0x%x\n", opcode); - AML_SYSABORT(); - } - - return (aname); -} diff --git a/usr.sbin/acpidump/aml/aml_parse.h b/usr.sbin/acpidump/aml/aml_parse.h deleted file mode 100644 index b9b55b3eb5c..00000000000 --- a/usr.sbin/acpidump/aml/aml_parse.h +++ /dev/null @@ -1,37 +0,0 @@ -/* $OpenBSD: aml_parse.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Doug Rabson - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_parse.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_parse.h,v 1.1 2000/08/24 09:33:08 takawata Exp $ - */ - -#ifndef _AML_PARSE_H_ -#define _AML_PARSE_H_ - -struct aml_name *aml_parse_objectlist(struct aml_environ *, int); -struct aml_name *aml_parse_termobj(struct aml_environ *, int); - -#endif /* !_AML_PARSE_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_region.h b/usr.sbin/acpidump/aml/aml_region.h deleted file mode 100644 index 97c78cfabc4..00000000000 --- a/usr.sbin/acpidump/aml/aml_region.h +++ /dev/null @@ -1,93 +0,0 @@ -/* $OpenBSD: aml_region.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_region.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_region.h,v 1.2 2000/09/20 01:01:27 iwasaki Exp $ - */ - -#ifndef _AML_REGION_H_ -#define _AML_REGION_H_ - -/* - * Note that common part of region I/O is implemented in aml_common.c. - */ - -/* - * Debug macros for region I/O - */ - -#define AML_REGION_READ_DEBUG(regtype, flags, addr, bitoffset, bitlen) \ - AML_DEBUGPRINT("\n[aml_region_read(%d, %d, 0x%x, 0x%x, 0x%x)]\n",\ - regtype, flags, addr, bitoffset, bitlen) - -#define AML_REGION_READ_INTO_BUFFER_DEBUG(regtype, flags, \ - addr, bitoffset, bitlen) \ - AML_DEBUGPRINT("\n[aml_region_read_into_buffer(%d, %d, 0x%x, 0x%x, 0x%x)]\n",\ - regtype, flags, addr, bitoffset, bitlen) - -#define AML_REGION_WRITE_DEBUG(regtype, flags, value, \ - addr, bitoffset, bitlen) \ - AML_DEBUGPRINT("\n[aml_region_write(%d, %d, 0x%x, 0x%x, 0x%x, 0x%x)]\n",\ - regtype, flags, value, addr, bitoffset, bitlen) - -#define AML_REGION_WRITE_FROM_BUFFER_DEBUG(regtype, flags, \ - addr, bitoffset, bitlen) \ - AML_DEBUGPRINT("\n[aml_region_write_from_buffer(%d, %d, 0x%x, 0x%x, 0x%x)]\n",\ - regtype, flags, addr, bitoffset, bitlen) - -#define AML_REGION_BCOPY_DEBUG(regtype, flags, addr, bitoffset, bitlen, \ - dflags, daddr, dbitoffset, dbitlen) \ - AML_DEBUGPRINT("\n[aml_region_bcopy(%d, %d, 0x%x, 0x%x, 0x%x, %d, 0x%x, 0x%x, 0x%x)]\n",\ - regtype, flags, addr, bitoffset, bitlen, \ - dflags, daddr, dbitoffset, dbitlen) - -/* - * Region I/O subroutine - */ - -struct aml_environ; - -u_int32_t aml_region_read(struct aml_environ *, int, u_int32_t, - u_int32_t, u_int32_t, u_int32_t); -int aml_region_write(struct aml_environ *, int, u_int32_t, - u_int32_t, u_int32_t, u_int32_t, u_int32_t); -int aml_region_read_into_buffer(struct aml_environ *, int, - u_int32_t, u_int32_t, u_int32_t, - u_int32_t, u_int8_t *); -int aml_region_write_from_buffer(struct aml_environ *, int, - u_int32_t, u_int8_t *, u_int32_t, - u_int32_t, u_int32_t); -int aml_region_bcopy(struct aml_environ *, int, - u_int32_t, u_int32_t, u_int32_t, u_int32_t, - u_int32_t, u_int32_t, u_int32_t, u_int32_t); - -#ifndef _KERNEL -void aml_simulation_regdump(const char *); -extern int aml_debug_prompt_regoutput; -extern int aml_debug_prompt_reginput; -#endif /* !_KERNEL */ - -#endif /* !_AML_REGION_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_status.h b/usr.sbin/acpidump/aml/aml_status.h deleted file mode 100644 index d6d09be618a..00000000000 --- a/usr.sbin/acpidump/aml/aml_status.h +++ /dev/null @@ -1,42 +0,0 @@ -/* $OpenBSD: aml_status.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_status.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_status.h,v 1.1 2000/08/24 09:33:08 takawata Exp $ - */ - -#ifndef _AML_STATUS_H_ -#define _AML_STATUS_H_ - -enum aml_status { - aml_stat_none = 0, - aml_stat_return, - aml_stat_break, - aml_stat_panic, - aml_stat_step -}; - -#endif /* !_AML_STATUS_H_ */ diff --git a/usr.sbin/acpidump/aml/aml_store.c b/usr.sbin/acpidump/aml/aml_store.c deleted file mode 100644 index 54c9e0b2b1e..00000000000 --- a/usr.sbin/acpidump/aml/aml_store.c +++ /dev/null @@ -1,351 +0,0 @@ -/* $OpenBSD: aml_store.c,v 1.3 2007/11/25 15:35:09 jmc Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_store.c,v 1.3 2007/11/25 15:35:09 jmc Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_store.c,v 1.3 2000/11/09 06:24:45 iwasaki Exp $ - */ - -#include <sys/types.h> - -#include <aml/aml_amlmem.h> -#include <aml/aml_common.h> -#include <aml/aml_env.h> -#include <aml/aml_evalobj.h> -#include <aml/aml_name.h> -#include <aml/aml_obj.h> -#include <aml/aml_region.h> -#include <aml/aml_status.h> -#include <aml/aml_store.h> - -#ifndef _KERNEL -#include <assert.h> -#include <stdio.h> -#include <string.h> - -#include "debug.h" -#else /* _KERNEL */ -#include <sys/systm.h> -#endif /* !_KERNEL */ - -static void -aml_store_to_fieldname(struct aml_environ *env, union aml_object *obj, - struct aml_name *name) -{ - char *buffer; - struct aml_name *wname, *oname, *iname; - struct aml_field *field; - struct aml_opregion *or; - union aml_object tobj, iobj, *tmpobj; - - field = &name->property->field; - oname = env->curname; - iname = NULL; - env->curname = name->parent; - if (field->f.ftype == f_t_field) { - wname = aml_search_name(env, field->f.fld.regname); - if (wname == NULL || - wname->property == NULL || - wname->property->type != aml_t_opregion) { - AML_DEBUGPRINT("Inappropreate Type\n"); - env->stat = aml_stat_panic; - env->curname = oname; - return; - } - or = &wname->property->opregion; - switch (obj->type) { - case aml_t_num: - aml_region_write(env, or->space, field->flags, - obj->num.number, or->offset, - field->bitoffset, field->bitlen); - AML_DEBUGPRINT("[write(%d, 0x%x, 0x%x)]", - or->space, obj->num.number, - or->offset + field->bitoffset / 8); - break; - case aml_t_buffer: - case aml_t_bufferfield: - if (obj->type == aml_t_buffer) { - buffer = obj->buffer.data; - } else { - buffer = obj->bfld.origin; - buffer += obj->bfld.bitoffset / 8; - } - aml_region_write_from_buffer(env, or->space, - field->flags, buffer, or->offset, field->bitoffset, - field->bitlen); - break; - case aml_t_regfield: - if (or->space != obj->regfield.space) { - AML_DEBUGPRINT("aml_store_to_fieldname: " - "Different type of space\n"); - break; - } - aml_region_bcopy(env, obj->regfield.space, - obj->regfield.flags, obj->regfield.offset, - obj->regfield.bitoffset, obj->regfield.bitlen, - field->flags, or->offset, field->bitoffset, - field->bitlen); - break; - default: - AML_DEBUGPRINT("aml_store_to_fieldname: " - "Inappropreate Type of src object\n"); - break; - } - } else if (field->f.ftype == f_t_index) { - iname = aml_search_name(env, field->f.ifld.indexname); - wname = aml_search_name(env, field->f.ifld.dataname); - iobj.type = aml_t_num; - iobj.num.number = field->bitoffset / 8; /* AccessType Boundary */ - - /* read whole values of IndexField */ - aml_store_to_name(env, &iobj, iname); - tmpobj = aml_eval_name(env, wname); - - /* make the values to be written */ - tobj.num = obj->num; - tobj.num.number = aml_adjust_updatevalue(field->flags, - field->bitoffset & 7, field->bitlen, - tmpobj->num.number, obj->num.number); - - /* write the values to IndexField */ - aml_store_to_name(env, &iobj, iname); - aml_store_to_name(env, &tobj, wname); - } - env->curname = oname; -} - -static void -aml_store_to_buffer(struct aml_environ *env, union aml_object *obj, - union aml_object *buf, int offset) -{ - int size; - int bitlen; - - switch (obj->type) { - case aml_t_num: - if (offset > buf->buffer.size) { - aml_realloc_object(buf, offset); - } - buf->buffer.data[offset] = obj->num.number & 0xff; - AML_DEBUGPRINT("[Store number 0x%x to buffer]", - obj->num.number & 0xff); - break; - case aml_t_string: - size = strlen(obj->str.string); - if (buf->buffer.size - offset < size) { - aml_realloc_object(buf, offset + size + 1); - } - strlcpy(&buf->buffer.data[offset], obj->str.string, - offset + size + 1); - AML_DEBUGPRINT("[Store string to buffer]"); - break; - case aml_t_buffer: - bzero(buf->buffer.data, buf->buffer.size); - if (obj->buffer.size > buf->buffer.size) { - size = buf->buffer.size; - } else { - size = obj->buffer.size; - } - bcopy(obj->buffer.data, buf->buffer.data, size); - break; - case aml_t_regfield: - bitlen = (buf->buffer.size - offset) * 8; - if (bitlen > obj->regfield.bitlen) { - bitlen = obj->regfield.bitlen; - } - aml_region_read_into_buffer(env, obj->regfield.space, - obj->regfield.flags, obj->regfield.offset, - obj->regfield.bitoffset, bitlen, - buf->buffer.data + offset); - break; - default: - goto not_yet; - } - return; -not_yet: - AML_DEBUGPRINT("[XXX not supported yet]"); -} - - -void -aml_store_to_object(struct aml_environ *env, union aml_object *src, - union aml_object * dest) -{ - char *buffer, *srcbuf; - int offset, bitlen; - - switch (dest->type) { - case aml_t_num: - if (src->type == aml_t_num) { - dest->num = src->num; - AML_DEBUGPRINT("[Store number 0x%x]", src->num.number); - } else { - env->stat = aml_stat_panic; - } - break; - case aml_t_string: - case aml_t_package: - break; - case aml_t_buffer: - aml_store_to_buffer(env, src, dest, 0); - break; - case aml_t_bufferfield: - buffer = dest->bfld.origin; - offset = dest->bfld.bitoffset; - bitlen = dest->bfld.bitlen; - - switch (src->type) { - case aml_t_num: - if (aml_bufferfield_write(src->num.number, buffer, offset, bitlen)) { - AML_DEBUGPRINT("aml_bufferfield_write() failed\n"); - } - break; - case aml_t_buffer: - case aml_t_bufferfield: - if (src->type == aml_t_buffer) { - srcbuf = src->buffer.data; - } else { - srcbuf = src->bfld.origin; - srcbuf += src->bfld.bitoffset / 8; - } - bcopy(srcbuf, buffer, bitlen / 8); - break; - case aml_t_regfield: - aml_region_read_into_buffer(env, src->regfield.space, - src->regfield.flags, src->regfield.offset, - src->regfield.bitoffset, src->regfield.bitlen, - buffer); - break; - default: - AML_DEBUGPRINT("not implemented yet"); - break; - } - break; - case aml_t_debug: - aml_showobject(src); - break; - default: - AML_DEBUGPRINT("[Unimplemented %d]", dest->type); - break; - } -} - -static void -aml_store_to_objref(struct aml_environ *env, union aml_object *obj, - union aml_object *r) -{ - int offset; - union aml_object *ref; - - if (r->objref.ref == NULL) { - r->objref.ref = aml_alloc_object(obj->type, NULL); /* XXX */ - r->objref.nameref->property = r->objref.ref; - } - ref = r->objref.ref; - - switch (ref->type) { - case aml_t_buffer: - offset = r->objref.offset; - aml_store_to_buffer(env, obj, ref, r->objref.offset); - break; - case aml_t_package: - offset = r->objref.offset; - if (r->objref.ref->package.elements < offset) { - aml_realloc_object(ref, offset); - } - if (ref->package.objects[offset] == NULL) { - ref->package.objects[offset] = aml_copy_object(env, obj); - } else { - aml_store_to_object(env, obj, ref->package.objects[offset]); - } - break; - default: - aml_store_to_object(env, obj, ref); - break; - } -} - -/* - * Store to Named object - */ -void -aml_store_to_name(struct aml_environ *env, union aml_object *obj, - struct aml_name *name) -{ - struct aml_name *wname; - - if (env->stat == aml_stat_panic) { - return; - } - if (name == NULL || obj == NULL) { - AML_DEBUGPRINT("[Try to store non-existent name ]"); - return; - } - if (name->property == NULL) { - name->property = aml_copy_object(env, obj); - AML_DEBUGPRINT("[Copy number 0x%x]", obj->num.number); - return; - } - if (name->property->type == aml_t_namestr) { - wname = aml_search_name(env, name->property->nstr.dp); - name = wname; - } - if (name == NULL) { - env->stat = aml_stat_panic; - return; - } - if (name->property == NULL || name->property->type == aml_t_null) { - name->property = aml_copy_object(env, obj); - AML_DEBUGPRINT("[Copy number 0x%x]", obj->num.number); - return; - } - /* Writes to constant object are not allowed */ - if (name->property != NULL && name->property->type == aml_t_num && - name->property->num.constant == 1) { - return; - } - /* try to dereference */ - if (obj->type == aml_t_objref && obj->objref.deref == 0) { - AML_DEBUGPRINT("Source object isn't dereferenced yet, " - "try to dereference anyway\n"); - obj->objref.deref = 1; - obj = aml_eval_objref(env, obj); - } - switch (name->property->type) { - case aml_t_field: - aml_store_to_fieldname(env, obj, name); - break; - case aml_t_objref: - aml_store_to_objref(env, obj, name->property); - break; - case aml_t_num: - if (name == &env->tempname) - break; - default: - aml_store_to_object(env, obj, name->property); - break; - } -} diff --git a/usr.sbin/acpidump/aml/aml_store.h b/usr.sbin/acpidump/aml/aml_store.h deleted file mode 100644 index 7dbaf70b84e..00000000000 --- a/usr.sbin/acpidump/aml/aml_store.h +++ /dev/null @@ -1,40 +0,0 @@ -/* $OpenBSD: aml_store.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ */ -/*- - * Copyright (c) 1999 Takanori Watanabe - * Copyright (c) 1999, 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org> - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * $Id: aml_store.h,v 1.1 2005/06/02 20:09:39 tholo Exp $ - * $FreeBSD: src/usr.sbin/acpi/amldb/aml/aml_store.h,v 1.1 2000/08/24 09:33:08 takawata Exp $ - */ - -#ifndef _AML_STORE_H_ -#define _AML_STORE_H_ - -void aml_store_to_name(struct aml_environ *, union aml_object *, - struct aml_name *); -void aml_store_to_object(struct aml_environ *, union aml_object *, - union aml_object *); - -#endif /* _AML_STORE_H_ */ |