;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages jemalloc)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module ((guix licenses) #:select (bsd-2))
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (gnu packages base)
  #:use-module (gnu packages gcc)
  #:use-module (guix build-system gnu))

(define-public jemalloc
  (package
    (name "jemalloc")
    (version "4.5.0")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://github.com/jemalloc/jemalloc/releases/download/"
                    version "/jemalloc-" version ".tar.bz2"))
              (sha256
               (base32
                "10373xhpc10pgmai9fkc1z0rs029qlcb3c0qfnvkbwdlcibdh2cl"))))
    (build-system gnu-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'delete-thp-test
           ;; This test does not check if transparent huge pages are supported
           ;; on the system before running the test.
           (lambda _
             (substitute* "Makefile.in"
               (("\\$\\(srcroot\\)test/unit/pages.c \\\\") "\\"))
             #t)))
       ,@(if (any (cute string-prefix? <> (or (%current-target-system)
                                              (%current-system)))
                 '("x64_64" "i686"))
           ;; Transparent huge pages are only enabled by default on Intel processors
           '()
           '(#:configure-flags (list "--disable-thp")))))
    (home-page "http://jemalloc.net/")
    (synopsis "General-purpose scalable concurrent malloc implementation")
    (description
     "This library providing a malloc(3) implementation that emphasizes
fragmentation avoidance and scalable concurrency support.")
    (license bsd-2)))
nd</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-05-21 01:47:09 -0400'>2017-05-21</span></td><td><a href='/guix/commit/gnu/packages/aux-files?id=a08691dfbbb34c425bc06b8106c4ce116e745789'>gnu: linux-libre: Remove CONFIG_SMC from x86 kernel configurations.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2017-05-01 21:48:15 -0400'>2017-05-01</span></td><td><a href='/guix/commit/gnu/packages/aux-files?id=60c9e80444421c412ae3d0e7b4b224ef0e32947f'>gnu: linux-libre: Update to 4.11.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2017-02-27 16:44:58 +0300'>2017-02-27</span></td><td><a href='/guix/commit/gnu/packages/aux-files?id=9bd94544be43b7d028e1aaeb4069b07bdb24610f'>gnu: emacs: Simplify "guix-emacs.el".</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2017-02-27 16:44:58 +0300'>2017-02-27</span></td><td><a href='/guix/commit/gnu/packages/aux-files?id=59d04f63dfe8b68906e4cccc60ca27cbd546db78'>gnu: emacs: Move "guix-emacs.el" to "aux-files".</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2017-02-27 16:44:58 +0300'>2017-02-27</span></td><td><a href='/guix/commit/gnu/packages/aux-files?id=7994250fdb7ce786a72278554d85fccb6d152e73'>gnu: linux: Move configuration files to "aux-files".</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
03-22 15:59:33 +0100'>2020-03-22</span></td><td><a href='/guix/commit/gnu/packages/fpga.scm?id=179be4bbe488d6c18d482da69b4997f7682d5a58'>gnu: icestorm: Update to latest revision.</a><span class='msg-avail'>...</span></td><td>pinoaffe@airmail.cc</td></tr>
<tr><td><span title='2020-02-20 22:45:33 +0100'>2020-02-20</span></td><td><a href='/guix/commit/gnu/packages/fpga.scm?id=ec299312a03ca7e2d97c7426b8f9bcb4983f4254'>gnu: fpga.scm: Use git-version and git-file-name where appropriate.</a><span class='msg-avail'>...</span></td><td>Jakub Kądziołka</td></tr>
<tr><td><span title='2020-02-15 17:07:02 +0100'>2020-02-15</span></td><td><a href='/guix/commit/gnu/packages/fpga.scm?id=3bc9f9e77a9a9220b3370cfd0da62f15180c0525'>gnu: abc: Use HTTPS home page.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-01-22 06:20:00 +0100'>2020-01-22</span></td><td><a href='/guix/commit/gnu/packages/fpga.scm?id=18a3f33ee626939aa8d49919acb943d0c09a6f6c'>gnu: gtkwave: Update to 3.3.103.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-01-22 06:20:00 +0100'>2020-01-22</span></td><td><a href='/guix/commit/gnu/packages/fpga.scm?id=82f81ffac6d3cacfab33fa6bed3758eb974cb29f'>gnu: gtkwave: Prefer mirror://sourceforge source URI.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-01-17 18:30:33 +0100'>2020-01-17</span></td><td><a href='/guix/commit/gnu/packages/fpga.scm?id=a3143063aeeecb5c02f75a6e1ddc0cc295e0e4f8'>Update email address for Amin Bandali.</a><span class='msg-avail'>...</span></td><td>Amin Bandali</td></tr>
<tr><td><span title='2019-11-03 18:27:21 +0100'>2019-11-03</span></td><td><a href='/guix/commit/gnu/packages/fpga.scm?id=922c84867ae15a55e3ab3b5060afa50959bce99e'>gnu: yosys: Update to 0.9.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>