AlphaGitHub
Source/Packages

Compiler.MachineX86NativeOffset

packages/compiler/src/Compiler/MachineX86NativeOffset.alpha

584 lines46 declarations23.5 KiBSHA-256 89175cb5d529
Download exact fileView at revisionf5034773ad4bb52133

def · lines 278–300

x86NativeNegativeMagnitudeRel32

Full file
278def x86NativeNegativeMagnitudeRel32 =
279  (lambda unrestricted value : (family X86NativeUnsigned32) .
280    (eliminate
281      X86NativeUnsigned32
282      (lambda unrestricted current : (family X86NativeUnsigned32) . Nat)
283      value
284      (branch
285        X86NativeUnsigned32Value
286        byte0
287        byte1
288        byte2
289        byte3
290        .
291        (nat-eliminate
292          (lambda unrestricted below : Nat . Nat)
293          (x86NativeNaturalAnd
294            (byte-equal byte3 (byte 128))
295            (bytes-equal
296              (bytes-cons byte0 (bytes-cons byte1 (bytes-cons byte2 b"")))
297              (bytes 0 0 0)))
298          (lambda unrestricted predecessor : Nat .
299            (lambda unrestricted induction : Nat . (succ zero)))
300          (byte-less-than byte3 (byte 128))))))

The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.