Read File Descriptor Field
(read-x86-file-des-logic id x86) → *
Read the field entry corresponding to key
Function:
(defun read-x86-file-des-logic (id x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard (integerp id))) (let ((__function__ 'read-x86-file-des-logic)) (declare (ignorable __function__)) (b* ((env (env-read x86)) (file-des-field (assoc-equal :file-descriptors env)) (fd-name-field (if (atom file-des-field) nil (assoc-equal id (cdr file-des-field)))) (name-field (if (atom fd-name-field) nil (cdr fd-name-field)))) name-field)))