		Search-engine friendly clone of the ACL2 documentation.

Setting-up-page-tables

Load-qwords-into-physical-memory-list

Load lists of physical-addr-qword-alistp into the physical memory.

Signature
(load-qwords-into-physical-memory-list addr-qword-list-list x86) → x86
Arguments: addr-qword-list-list — Required to be physical-addr-qword-alist-listp.
Returns: x86 — Type (x86p x86), given the guard.

This function can be used to initialize the page tables.

Definitions and Theorems

Function: load-qwords-into-physical-memory-list

(defun load-qwords-into-physical-memory-list
       (addr-qword-list-list x86)
 (declare (xargs :stobjs (x86)))
 (declare
  (xargs
      :guard
      (and (not (app-view x86))
           (physical-addr-qword-alist-listp addr-qword-list-list))))
 (let ((__function__ 'load-qwords-into-physical-memory-list))
  (declare (ignorable __function__))
  (if (endp addr-qword-list-list)
      x86
   (b*
    ((x86
        (load-qwords-into-physical-memory (car addr-qword-list-list)
                                          x86)))
    (load-qwords-into-physical-memory-list
         (cdr addr-qword-list-list)
         x86)))))

Theorem: x86p-of-load-qwords-into-physical-memory-list

(defthm x86p-of-load-qwords-into-physical-memory-list
  (implies
       (and (x86p x86)
            (not (app-view x86))
            (physical-addr-qword-alist-listp addr-qword-list-list))
       (b* ((x86 (load-qwords-into-physical-memory-list
                      addr-qword-list-list x86)))
         (x86p x86)))
  :rule-classes :rewrite)

Theorem: app-view-unchanged-after-load-qwords-into-physical-memory-list

(defthm
     app-view-unchanged-after-load-qwords-into-physical-memory-list
 (equal
  (xr
     :app-view nil
     (load-qwords-into-physical-memory-list addr-qword-lst-lst x86))
  (xr :app-view nil x86)))