Update headers for the new license.

Remains to be done: remove all headers in testsuite/tests.
master
Damien Doligez 2016-02-18 16:11:59 +01:00
parent 6e794aee72
commit 5401ce8473
1607 changed files with 20622 additions and 16938 deletions

22
.gitattributes vendored
View File

@ -1,3 +1,18 @@
#**************************************************************************
#* *
#* OCaml *
#* *
#* Damien Doligez, projet Gallium, INRIA *
#* *
#* Copyright 2015 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. *
#* *
#**************************************************************************
# Default behaviour, for if core.autocrlf isn't set # Default behaviour, for if core.autocrlf isn't set
* text=auto * text=auto
@ -14,8 +29,6 @@ boot/ocamldep binary
README* ocaml-typo=missing-header README* ocaml-typo=missing-header
*.adoc ocaml-typo=missing-header,long-line,unused-prop *.adoc ocaml-typo=missing-header,long-line,unused-prop
/.gitattributes ocaml-typo=missing-header
/.gitignore ocaml-typo=missing-header
/.merlin ocaml-typo=missing-header /.merlin ocaml-typo=missing-header
/Changes ocaml-typo=non-ascii,missing-header /Changes ocaml-typo=non-ascii,missing-header
/INSTALL ocaml-typo=missing-header /INSTALL ocaml-typo=missing-header
@ -52,10 +65,11 @@ otherlibs/win32unix/symlink.c ocaml-typo=long-line
stdlib/sharpbang ocaml-typo=white-at-eol,missing-lf stdlib/sharpbang ocaml-typo=white-at-eol,missing-lf
# FIXME remove headers in testsuite and remove unused-prop in next line: # FIXME remove headers in testsuite/tests and remove unused-prop in next line:
testsuite/** ocaml-typo=missing-header,unused-prop testsuite/tests/** ocaml-typo=missing-header,unused-prop
testsuite/tests/lib-bigarray-2/bigarrf.f ocaml-typo=missing-header,tab testsuite/tests/lib-bigarray-2/bigarrf.f ocaml-typo=missing-header,tab
testsuite/tests/misc-unsafe/almabench.ml ocaml-typo=missing-header,long-line testsuite/tests/misc-unsafe/almabench.ml ocaml-typo=missing-header,long-line
testsuite/typing ocaml-typo=missing-header
tools/magic ocaml-typo=missing-header tools/magic ocaml-typo=missing-header

15
.gitignore vendored
View File

@ -1,3 +1,18 @@
#**************************************************************************
#* *
#* OCaml *
#* *
#* Damien Doligez, projet Gallium, INRIA *
#* *
#* Copyright 2015 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. *
#* *
#**************************************************************************
# general patterns # general patterns
*.o *.o

View File

@ -1,14 +1,17 @@
######################################################################### #**************************************************************************
# # #* *
# OCaml # #* OCaml *
# # #* *
# Anil Madhavapeddy, OCaml Labs # #* Anil Madhavapeddy, OCaml Labs *
# # #* *
# Copyright 2014 Institut National de Recherche en Informatique et # #* Copyright 2014 Institut National de Recherche en Informatique et *
# en Automatique. All rights reserved. This file is distributed # #* en Automatique. *
# under the terms of the Q Public License version 1.0. # #* *
# # #* 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. *
#* *
#**************************************************************************
PREFIX=~/local PREFIX=~/local

View File

@ -1,14 +1,17 @@
######################################################################### #**************************************************************************
# # #* *
# OCaml # #* OCaml *
# # #* *
# Anil Madhavapeddy, OCaml Labs # #* Anil Madhavapeddy, OCaml Labs *
# # #* *
# Copyright 2014 Institut National de Recherche en Informatique et # #* Copyright 2014 Institut National de Recherche en Informatique et *
# en Automatique. All rights reserved. This file is distributed # #* en Automatique. *
# under the terms of the Q Public License version 1.0. # #* *
# # #* 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. *
#* *
#**************************************************************************
sudo: false sudo: false
language: c language: c

View File

@ -1,14 +1,17 @@
######################################################################### #**************************************************************************
# # #* *
# OCaml # #* OCaml *
# # #* *
# Xavier Leroy, projet Cristal, INRIA Rocquencourt # #* Xavier Leroy, projet Cristal, INRIA Rocquencourt *
# # #* *
# Copyright 1999 Institut National de Recherche en Informatique et # #* Copyright 1999 Institut National de Recherche en Informatique et *
# en Automatique. All rights reserved. This file is distributed # #* en Automatique. *
# under the terms of the Q Public License version 1.0. # #* *
# # #* 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. *
#* *
#**************************************************************************
# The main Makefile # The main Makefile

View File

@ -1,14 +1,17 @@
######################################################################### #**************************************************************************
# # #* *
# OCaml # #* OCaml *
# # #* *
# Xavier Leroy, projet Cristal, INRIA Rocquencourt # #* Xavier Leroy, projet Cristal, INRIA Rocquencourt *
# # #* *
# Copyright 1999 Institut National de Recherche en Informatique et # #* Copyright 1999 Institut National de Recherche en Informatique et *
# en Automatique. All rights reserved. This file is distributed # #* en Automatique. *
# under the terms of the Q Public License version 1.0. # #* *
# # #* 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. *
#* *
#**************************************************************************
# The main Makefile # The main Makefile

View File

@ -1,14 +1,17 @@
######################################################################### #**************************************************************************
# # #* *
# OCaml # #* OCaml *
# # #* *
# Xavier Leroy, projet Cristal, INRIA Rocquencourt # #* Xavier Leroy, projet Cristal, INRIA Rocquencourt *
# # #* *
# Copyright 1999 Institut National de Recherche en Informatique et # #* Copyright 1999 Institut National de Recherche en Informatique et *
# en Automatique. All rights reserved. This file is distributed # #* en Automatique. *
# under the terms of the Q Public License version 1.0. # #* *
# # #* 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. *
#* *
#**************************************************************************
# The main Makefile, fragments shared between Makefile and Makefile.nt # The main Makefile, fragments shared between Makefile and Makefile.nt
@ -213,6 +216,8 @@ PERVASIVES=$(STDLIB_MODULES) outcometree topdirs toploop
compilerlibs/ocamlmiddleend.cma: $(MIDDLE_END) compilerlibs/ocamlmiddleend.cma: $(MIDDLE_END)
$(CAMLC) -a -o $@ $(MIDDLE_END) $(CAMLC) -a -o $@ $(MIDDLE_END)
partialclean::
rm -f compilerlibs/ocamlmiddleend.cma
# Tools # Tools

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Common subexpression elimination by value numbering over extended (* Common subexpression elimination by value numbering over extended
basic blocks. *) basic blocks. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Common subexpression elimination by value numbering over extended (* Common subexpression elimination by value numbering over extended
basic blocks. *) basic blocks. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* CSE for the AMD64 *) (* CSE for the AMD64 *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2000 Institut National de Recherche en Informatique et *) (* Copyright 2000 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Machine-specific command-line options *) (* Machine-specific command-line options *)

View File

@ -1,15 +1,18 @@
# 2 "asmcomp/amd64/emit.mlp" # 2 "asmcomp/amd64/emit.mlp"
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Emission of Intel x86_64 assembly code *) (* Emission of Intel x86_64 assembly code *)

View File

@ -1,15 +1,18 @@
# 2 "asmcomp/amd64/proc.ml" # 2 "asmcomp/amd64/proc.ml"
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2000 Institut National de Recherche en Informatique et *) (* Copyright 2000 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Description of the AMD64 processor *) (* Description of the AMD64 processor *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2000 Institut National de Recherche en Informatique et *) (* Copyright 2000 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
open Cmm open Cmm
open Reg open Reg

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2000 Institut National de Recherche en Informatique et *) (* Copyright 2000 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
let _ = let module M = Schedgen in () (* to create a dependency *) let _ = let module M = Schedgen in () (* to create a dependency *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2000 Institut National de Recherche en Informatique et *) (* Copyright 2000 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Instruction selection for the AMD64 *) (* Instruction selection for the AMD64 *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* CSE for ARM *) (* CSE for ARM *)

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 1998 Institut National de Recherche en Informatique *) (* Copyright 1998 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Specific operations for the ARM processor *) (* Specific operations for the ARM processor *)

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 1998 Institut National de Recherche en Informatique *) (* Copyright 1998 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Emission of ARM assembly code *) (* Emission of ARM assembly code *)

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 1998 Institut National de Recherche en Informatique *) (* Copyright 1998 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Description of the ARM processor *) (* Description of the ARM processor *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1998 Institut National de Recherche en Informatique et *) (* Copyright 1998 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Reloading for the ARM *) (* Reloading for the ARM *)

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 1998 Institut National de Recherche en Informatique *) (* Copyright 1998 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
open Arch open Arch
open Mach open Mach

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 1998 Institut National de Recherche en Informatique *) (* Copyright 1998 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Instruction selection for the ARM processor *) (* Instruction selection for the ARM processor *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* CSE for ARM64 *) (* CSE for ARM64 *)

View File

@ -1,16 +1,19 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 2013 Institut National de Recherche en Informatique *) (* Copyright 2013 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
let command_line_options = [] let command_line_options = []

View File

@ -1,16 +1,19 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 2013 Institut National de Recherche en Informatique *) (* Copyright 2013 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Emission of ARM assembly code, 64-bit mode *) (* Emission of ARM assembly code, 64-bit mode *)

View File

@ -1,16 +1,19 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 2013 Institut National de Recherche en Informatique *) (* Copyright 2013 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Description of the ARM processor in 64-bit mode *) (* Description of the ARM processor in 64-bit mode *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2013 Institut National de Recherche en Informatique et *) (* Copyright 2013 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Reloading for the ARM 64 bits *) (* Reloading for the ARM 64 bits *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2013 Institut National de Recherche en Informatique et *) (* Copyright 2013 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
let _ = let module M = Schedgen in () (* to create a dependency *) let _ = let module M = Schedgen in () (* to create a dependency *)

View File

@ -1,16 +1,19 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* Benedikt Meurer, University of Siegen *) (* Benedikt Meurer, University of Siegen *)
(* *) (* *)
(* Copyright 2013 Institut National de Recherche en Informatique *) (* Copyright 2013 Institut National de Recherche en Informatique et *)
(* et en Automatique. Copyright 2012 Benedikt Meurer. All rights *) (* en Automatique. *)
(* reserved. This file is distributed under the terms of the Q *) (* Copyright 2012 Benedikt Meurer. *)
(* Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Instruction selection for the ARM processor *) (* Instruction selection for the ARM processor *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* From lambda to assembly code *) (* From lambda to assembly code *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* From lambda to assembly code *) (* From lambda to assembly code *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Build libraries of .cmx files *) (* Build libraries of .cmx files *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Build libraries of .cmx files *) (* Build libraries of .cmx files *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Link a set of .cmx/.o files and produce an executable *) (* Link a set of .cmx/.o files and produce an executable *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Link a set of .cmx/.o files and produce an executable or a plugin *) (* Link a set of .cmx/.o files and produce an executable or a plugin *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2002 Institut National de Recherche en Informatique et *) (* Copyright 2002 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* "Package" a set of .cmx/.o files into one .cmx/.o file having the (* "Package" a set of .cmx/.o files into one .cmx/.o file having the
original compilation units as sub-modules. *) original compilation units as sub-modules. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2002 Institut National de Recherche en Informatique et *) (* Copyright 2002 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* "Package" a set of .cmx/.o files into one .cmx/.o file having the (* "Package" a set of .cmx/.o files into one .cmx/.o file having the
original compilation units as sub-modules. *) original compilation units as sub-modules. *)

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* Mark Shinwell, Jane Street Europe *) (* Mark Shinwell, Jane Street Europe *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
open Mach open Mach
open Linearize open Linearize

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* Mark Shinwell, Jane Street Europe *) (* Mark Shinwell, Jane Street Europe *)
(* *) (* *)
(* Copyright 2015 Institut National de Recherche en Informatique et *) (* Copyright 2015 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Fix up conditional branches that exceed hardware-allowed ranges. *) (* Fix up conditional branches that exceed hardware-allowed ranges. *)

View File

@ -1,15 +1,18 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* Mark Shinwell, Jane Street Europe *) (* Mark Shinwell, Jane Street Europe *)
(* *) (* *)
(* Copyright 2015 Institut National de Recherche en Informatique et *) (* Copyright 2015 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
module type S = sig module type S = sig
(* The distance between two instructions, in arbitrary units (typically (* The distance between two instructions, in arbitrary units (typically

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* A variant of the "lambda" code with direct / indirect calls explicit (* A variant of the "lambda" code with direct / indirect calls explicit
and closures explicit too *) and closures explicit too *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* A variant of the "lambda" code with direct / indirect calls explicit (* A variant of the "lambda" code with direct / indirect calls explicit
and closures explicit too *) and closures explicit too *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Introduction of closures, uncurrying, recognition of direct calls *) (* Introduction of closures, uncurrying, recognition of direct calls *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Introduction of closures, uncurrying, recognition of direct calls *) (* Introduction of closures, uncurrying, recognition of direct calls *)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
type machtype_component = type machtype_component =
| Val | Val

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Second intermediate language (machine independent) *) (* Second intermediate language (machine independent) *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Translation from closed lambda to C-- *) (* Translation from closed lambda to C-- *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Translation from closed lambda to C-- *) (* Translation from closed lambda to C-- *)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
@ -13,7 +13,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Register allocation by coloring of the interference graph *) (* Register allocation by coloring of the interference graph *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Register allocation by coloring of the interference graph *) (* Register allocation by coloring of the interference graph *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1999 Institut National de Recherche en Informatique et *) (* Copyright 1999 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Combine heap allocations occurring in the same basic block *) (* Combine heap allocations occurring in the same basic block *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1999 Institut National de Recherche en Informatique et *) (* Copyright 1999 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Combine heap allocations occurring in the same basic block *) (* Combine heap allocations occurring in the same basic block *)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
@ -13,7 +13,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
@ -13,7 +13,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Dead code elimination: remove pure instructions whose results are (* Dead code elimination: remove pure instructions whose results are
not used. *) not used. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Dead code elimination: remove pure instructions whose results are (* Dead code elimination: remove pure instructions whose results are
not used. *) not used. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Generation of assembly code *) (* Generation of assembly code *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Common functions for emitting assembly code *) (* Common functions for emitting assembly code *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Common functions for emitting assembly code *) (* Common functions for emitting assembly code *)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* CSE for the i386 *) (* CSE for the i386 *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Machine-specific command-line options *) (* Machine-specific command-line options *)

View File

@ -1,15 +1,18 @@
#2 "asmcomp/i386/emit.mlp" #2 "asmcomp/i386/emit.mlp"
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Emission of Intel 386 assembly code *) (* Emission of Intel 386 assembly code *)

View File

@ -1,15 +1,18 @@
# 2 "asmcomp/i386/proc.ml" # 2 "asmcomp/i386/proc.ml"
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Description of the Intel 386 processor *) (* Description of the Intel 386 processor *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
open Cmm open Cmm
open Arch open Arch

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
let () = let module M = Schedgen in () (* to create a dependency *) let () = let module M = Schedgen in () (* to create a dependency *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1997 Institut National de Recherche en Informatique et *) (* Copyright 1997 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Instruction selection for the Intel x86 *) (* Instruction selection for the Intel x86 *)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,6 +1,6 @@
(**************************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Pierre Chambart, OCamlPro *) (* Pierre Chambart, OCamlPro *)
(* Mark Shinwell and Leo White, Jane Street Europe *) (* Mark Shinwell and Leo White, Jane Street Europe *)
@ -10,7 +10,7 @@
(* *) (* *)
(* All rights reserved. This file is distributed under the terms of *) (* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *) (* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file ../LICENSE. *) (* special exception on linking described in the file LICENSE. *)
(* *) (* *)
(**************************************************************************) (**************************************************************************)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Construction of the interference graph. (* Construction of the interference graph.
Annotate pseudoregs with interference lists and preference lists. *) Annotate pseudoregs with interference lists and preference lists. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Construction of the interference graph. (* Construction of the interference graph.
Annotate pseudoregs with interference lists and preference lists. *) Annotate pseudoregs with interference lists and preference lists. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Transformation of Mach code into a list of pseudo-instructions. *) (* Transformation of Mach code into a list of pseudo-instructions. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Transformation of Mach code into a list of pseudo-instructions. *) (* Transformation of Mach code into a list of pseudo-instructions. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Liveness analysis. (* Liveness analysis.
Annotate mach code with the set of regs live at each point. *) Annotate mach code with the set of regs live at each point. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Liveness analysis. (* Liveness analysis.
Annotate mach code with the set of regs live at each point. *) Annotate mach code with the set of regs live at each point. *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Representation of machine code by sequences of pseudoinstructions *) (* Representation of machine code by sequences of pseudoinstructions *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Representation of machine code by sequences of pseudoinstructions *) (* Representation of machine code by sequences of pseudoinstructions *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *) (* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *) (* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* CSE for the PowerPC *) (* CSE for the PowerPC *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Specific operations for the PowerPC processor *) (* Specific operations for the PowerPC processor *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Emission of PowerPC assembly code *) (* Emission of PowerPC assembly code *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Description of the Power PC *) (* Description of the Power PC *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Reloading for the PowerPC *) (* Reloading for the PowerPC *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Instruction scheduling for the Power PC *) (* Instruction scheduling for the Power PC *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1997 Institut National de Recherche en Informatique et *) (* Copyright 1997 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Instruction selection for the Power PC processor *) (* Instruction selection for the Power PC processor *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
open Format open Format

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
open Clambda open Clambda
open Format open Format

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Pretty-printing of C-- code *) (* Pretty-printing of C-- code *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Pretty-printing of C-- code *) (* Pretty-printing of C-- code *)

View File

@ -1,14 +1,17 @@
(***********************************************************************) (**************************************************************************)
(* *) (* *)
(* OCaml *) (* OCaml *)
(* *) (* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *) (* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *) (* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *) (* en Automatique. *)
(* under the terms of the Q Public License version 1.0. *) (* *)
(* *) (* 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. *)
(* *)
(**************************************************************************)
(* Pretty-printing of linearized machine code *) (* Pretty-printing of linearized machine code *)

Some files were not shown because too many files have changed in this diff Show More