mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2026-04-04 13:21:46 +02:00
5f6adbb250
turns out the github /compare urls may be a volatile source appending `?full_index=1` doesn't seem to cause full hashes to be included therefore, import the patch, and synchronize changes as needed
33 lines
1.4 KiB
OCaml
33 lines
1.4 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* OCaml *)
|
|
(* *)
|
|
(* Xavier Leroy, projet Cambium, INRIA Paris *)
|
|
(* *)
|
|
(* Copyright 2023 Institut National de Recherche en Informatique et *)
|
|
(* en Automatique. *)
|
|
(* *)
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(* Compute the parameters needed for allocating and managing stack frames
|
|
in the Emit phase. *)
|
|
|
|
open! Mach [@@warning "-66"]
|
|
|
|
let trap_handler_size = 16
|
|
|
|
class stackframe = object
|
|
|
|
inherit Stackframegen.stackframe_generic
|
|
|
|
method trap_handler_size = trap_handler_size
|
|
|
|
end
|
|
|
|
let analyze f =
|
|
(new stackframe)#analyze f
|