• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Wp-gen
      • Dimacs-reader
      • Pfcs
      • Legacy-defrstobj
      • C
      • Proof-checker-array
      • Soft
      • Farray
      • Rp-rewriter
      • Instant-runoff-voting
      • Imp-language
      • Sidekick
      • Ethereum
      • Leftist-trees
      • Java
      • Riscv
        • Specification
        • Executable
        • Specialized
          • Specialized-rv64im-le
          • Specialized-rv32im-le
            • Rv32im-le-semantics
            • Rv32im-le-states
              • Write32-xreg
              • Stat32
                • Stat32p
                • Stat32-fix
                • Stat32-equiv
                • Make-stat32
                  • Change-stat32
                  • Stat32->xregs
                  • Stat32->memory
                  • Stat32->error
                  • Stat32->pc
                • Write32-mem-ubyte16-lendian
                • Memory
                • Xregs
                • Write32-pc
                • Write32-mem-ubyte32-lendian
                • Read32-xreg-unsigned
                • Read32-mem-ubyte16-lendian
                • Read32-mem-ubyte8
                • Read32-mem-ubyte32-lendian
                • Write32-mem-ubyte8
                • Stat32-iso
                • Read32-xreg-unsigned{3}
                • Read32-xreg-signed
                • Inc32-pc
                • Read32-xreg-signed{3}
                • Stat-from-stat32
                • Read32-xreg-unsigned{2}
                • Read32-xreg-signed{2}
                • Stat-rv32im-le-p
                • Read32-xreg-signed{4}
                • Read32-xreg-unsigned{1}
                • Read32-xreg-signed{1}
                • Read32-pc
                • Read32-xreg-unsigned{0}
                • Error32p
                • Error32
                • Stat32-from-stat
                • Read32-xreg-signed{0}
                • Read-xreg-unsigned-to-read32-xreg-unsigned{3}
              • Rv32im-le-execution
              • Rv32im-le-features
          • Optimized
        • Taspi
        • Bitcoin
        • Zcash
        • Des
        • X86isa
        • Sha-2
        • Yul
        • Proof-checker-itp13
        • Regex
        • ACL2-programming-language
        • Json
        • Jfkr
        • Equational
        • Cryptography
        • Axe
        • Poseidon
        • Where-do-i-place-my-book
        • Aleo
        • Bigmems
        • Builtins
        • Execloader
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Community
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Stat32

    Make-stat32

    Basic constructor macro for stat32 structures.

    Syntax
    (make-stat32 [:xregs <xregs>] 
                 [:pc <pc>] 
                 [:memory <memory>] 
                 [:error <error>]) 
    

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

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

    Definition

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

    Macro: make-stat32

    (defmacro make-stat32 (&rest args)
      (std::make-aggregate 'stat32
                           args
                           '((:xregs) (:pc) (:memory) (:error))
                           'make-stat32
                           nil))

    Function: stat32

    (defun stat32 (xregs pc memory error)
      (declare (xargs :guard (and (xregsp xregs)
                                  (ubyte32p pc)
                                  (memoryp memory)
                                  (booleanp error))))
      (declare (xargs :guard t))
      (b* ((xregs (mbe :logic (xregs-fix xregs)
                       :exec xregs))
           (pc (mbe :logic (ubyte32-fix pc) :exec pc))
           (memory (mbe :logic (memory-fix memory)
                        :exec memory))
           (error (mbe :logic (acl2::bool-fix error)
                       :exec error)))
        (list (cons 'xregs xregs)
              (cons 'pc pc)
              (cons 'memory memory)
              (cons 'error error))))