diff --git a/src/code/exports.lisp b/src/code/exports.lisp index a6dcc0b198214571bc4b14b75a80d5ecc1786438..556a20ea7d9810c953e2c7868a68115835a76a0c 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -1165,6 +1165,7 @@ "COMPATIBLE-FUNCTION-TYPES-P" "FLOAT-INVALID-OP-1-BYTE" "FLOAT-INVALID-OP-2-BYTE" + "FLOAT-EXCEPTIONS-SUMMARY-BYTE" "GET-FP-OPERANDS" "FUSED-MULTIPLY-ADD" "FUSED-MULTIPLY-SUBTRACT") diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp index cc2c5bac2f075c7f9882381f42488a509e5944b3..dda73ebc546070fdb616a937628aed8d6ce5537a 100644 --- a/src/compiler/ppc/parms.lisp +++ b/src/compiler/ppc/parms.lisp @@ -67,7 +67,8 @@ float-imprecise-trap-bit float-invalid-trap-bit float-divide-by-zero-trap-bit float-invalid-op-1-byte - float-invalid-op-2-byte)) + float-invalid-op-2-byte + float-exceptions-summary-byte)) #+double-double (export '(double-double-float-digits))