• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
    • X86isa
      • Program-execution
        • Dynamic-instrumentation
        • Initialize-x86-state
        • Binary-file-load-fn
        • Setting-up-page-tables
          • Construct-pml4-table
          • Construct-pdp-table
          • Load-qwords-into-physical-memory-list
          • Construct-pdp-tables
          • Load-qwords-into-physical-memory
          • Construct-page-tables
          • Physical-addr-qword-alistp
          • Add-pml4-entry
          • Add-pdp-entry
          • Physical-addr-qword-alist-listp
        • Init-sys-view
        • Load-elf-sections
        • Concrete-simulation-examples
      • Introduction
      • X86isa-build-instructions
      • Publications
      • Contributors
      • Machine
      • Implemented-opcodes
      • Proof-utilities
      • To-do
      • Concrete-simulation-examples
      • Model-validation
      • Utils
      • Debugging-code-proofs
    • Execloader
    • Axe
  • Testing-utilities
  • Math

• 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)))