• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Wp-gen
      • Dimacs-reader
      • Pfcs
      • Legacy-defrstobj
      • Proof-checker-array
      • Soft
      • C
      • Farray
      • Rp-rewriter
      • Instant-runoff-voting
      • Imp-language
      • Sidekick
      • Leftist-trees
      • Java
      • Taspi
      • Bitcoin
      • Riscv
        • Instructions
        • States
          • Stat
          • Stat-validp
          • Write-memory-unsigned64
          • Write-memory-unsigned32
          • Write-memory-unsigned8
          • Write-memory-unsigned16
          • Read-xreg-unsigned
          • Write-xreg-32
          • States64
            • Write64-xreg
            • Write64-xreg-32
            • Write64-mem-ubyte64-lendian
            • Write64-mem-ubyte16-lendian
            • Xregfile64
            • State64
              • State64p
              • State64-fix
              • State64-equiv
              • Make-state64
                • State64->xregfile
                • Change-state64
                • State64->error
                • State64->pc
                • State64->mem
              • Memory64
              • Write64-mem-ubyte32-lendian
              • Write64-pc
              • Write64-mem-ubyte8
              • Read64-mem-ubyte64-lendian
              • Read64-mem-ubyte16-lendian
              • Read64-mem-ubyte32-lendian
              • Read64-xreg-unsigned
              • Read64-mem-ubyte8
              • Read64-xreg-unsigned32
              • Read64-xreg-signed32
              • Read64-xreg-signed
              • Inc64-pc
              • Read64-pc
              • Error64p
              • Error64
              • *mem64-size*
            • Write-xreg
            • Read-memory-unsigned8
            • Read-memory-unsigned64
            • Read-memory-unsigned32
            • Read-memory-unsigned16
            • Read-xreg-signed
            • Read-xreg-unsigned32
            • States32
            • Write-pc
            • Read-xreg-signed32
            • Read-pc
            • Inc4-pc
          • Decoding
          • Encoding
          • Features
          • Semantics
          • Execution
        • Des
        • Ethereum
        • X86isa
        • Sha-2
        • Yul
        • Zcash
        • Proof-checker-itp13
        • Regex
        • ACL2-programming-language
        • Json
        • Jfkr
        • Equational
        • Cryptography
        • Poseidon
        • Where-do-i-place-my-book
        • Axe
        • Bigmems
        • Builtins
        • Execloader
        • Aleo
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • State64

    Make-state64

    Basic constructor macro for state64 structures.

    Syntax
    (make-state64 [:xregfile <xregfile>] 
                  [:pc <pc>] 
                  [:mem <mem>] 
                  [:error <error>]) 
    

    This is the usual way to construct state64 structures. It simply conses together a structure with the specified fields.

    This macro generates a new state64 structure from scratch. See also change-state64, which can "change" an existing structure, instead.

    Definition

    This is an ordinary make- macro introduced by fty::defprod.

    Macro: make-state64

    (defmacro make-state64 (&rest args)
      (std::make-aggregate 'state64
                           args
                           '((:xregfile) (:pc) (:mem) (:error))
                           'make-state64
                           nil))

    Function: state64

    (defun state64 (xregfile pc mem error)
      (declare (xargs :guard (and (xregfile64p xregfile)
                                  (ubyte64p pc)
                                  (memory64p mem)
                                  (booleanp error))))
      (declare (xargs :guard t))
      (let ((__function__ 'state64))
        (declare (ignorable __function__))
        (b* ((xregfile (mbe :logic (xregfile64-fix xregfile)
                            :exec xregfile))
             (pc (mbe :logic (ubyte64-fix pc) :exec pc))
             (mem (mbe :logic (memory64-fix mem)
                       :exec mem))
             (error (mbe :logic (acl2::bool-fix error)
                         :exec error)))
          (cons :state64 (list xregfile pc mem error)))))