Theory gcc_attribs

(*
 * Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
 * Copyright (c) 2022 Apple Inc. All rights reserved.
 *
 * SPDX-License-Identifier: BSD-2-Clause
 *)

theory gcc_attribs
imports "AutoCorres2.CTranslation"
begin

install_C_file "gcc_attribs.c"

context gcc_attribs_simpl
begin

  thm f_body_def
end

ML ‹
  val SOME cse = CalculateState.get_csenv @{theory} "gcc_attribs.c"
  val spec1 = Symtab.lookup (ProgramAnalysis.function_specs cse) "myexit"
  val spec2 = Symtab.lookup (ProgramAnalysis.function_specs cse) "myexit2"
›

end