`PackReal64`{`Big`,`Little`}`.update` is not implemented

[Skyb0rg007]

Version

110.99.4 (Latest)

Operating System

• Any
• Linux
• macOS
• Windows
• Other Unix

OS Version

Ubuntu 22.04.4 LTS on Windows 10 x86_64

Processor

• Any
• Arm (using Rosetta)
• PowerPC
• Sparc
• x86 (32-bit)
• x86-64 (64-bit)
• Other

System Component

Installation

Severity

Major

Description

PackReal64Big.update and PackReal64Little.update are no-ops.

Transcript

Standard ML of New Jersey (64-bit) v110.99.4
- val arr = Word8Array.array (8, 0w0);
val arr = - : Word8Array.array
- PackReal64Big.update (arr, 0, 3.14);
val it = () : unit
- Word8Array.toList arr;
val it = [0wx0, 0wx0, 0wx0, 0wx0, 0wx0, 0wx0, 0wx0, 0wx0] : Word8Array.elem list

Expected Behavior

Standard ML of New Jersey (64-bit) v110.99.4
- val arr = Word8Array.array (8, 0w0);
val arr = - : Word8Array.array
- PackReal64Big.update (arr, 0, 3.14);
val it = () : unit
- Word8Array.toList arr;
val it = [0wx40, 0wx09, 0wx1E, 0wxB8, 0wx51, 0wxEB, 0wx85, 0wx1F] : Word8Array.elem list

Steps to Reproduce

See transcript

Additional Information

This could probably be implemented:

fun PackReal64Big.update (a, i, r) = PackWord64Big.update (a, i, Unsafe.realToBits r)
fun PackReal64Little.update (a, i, r) = PackWord64Little.update (a, i, Unsafe.realToBits r)

Email address

skyler.soss@gmail.com

[JohnReppy]

Fixed by the reimplementation of the PackReal64 modules.