Flag saying whether GCC extensions are supported or not.
(ppstate->gcc ppstate) → gcc
Function:
(defun ppstate->gcc (ppstate) (declare (xargs :stobjs (ppstate))) (declare (xargs :guard (ppstatep ppstate))) (c::version-gccp (ppstate->version ppstate)))
Theorem:
(defthm booleanp-of-ppstate->gcc (b* ((gcc (ppstate->gcc ppstate))) (booleanp gcc)) :rule-classes :rewrite)
Theorem:
(defthm ppstate->gcc-of-ppstate-fix-ppstate (equal (ppstate->gcc (ppstate-fix ppstate)) (ppstate->gcc ppstate)))
Theorem:
(defthm ppstate->gcc-ppstate-equiv-congruence-on-ppstate (implies (ppstate-equiv ppstate ppstate-equiv) (equal (ppstate->gcc ppstate) (ppstate->gcc ppstate-equiv))) :rule-classes :congruence)