osa1

-- Timings of hxt, haskell-src-exts, lens, and their dependencies. At the bottom
-- is the cumulative numbers for individual passes.
--
-- Modules and passes in modules are sorted from longest to shortest.


==========================Data.Text.Lazy.Builder.RealFloat===========================
CodeGen                                 56563.82 ms  76186.61 mb  60.0% of total time
Simplifier                              28763.27 ms  30601.96 mb  30.5% of total time
CorePrep                                 2602.90 ms   3254.26 mb   2.8% of total time

osa1

-- This time generated using -O2 optimized libs + GHC.



================================Data.Digest.Pure.SHA=================================
CodeGen                                 98003.87 ms  45930.07 mb  86.7% of total time
Simplifier                               7897.97 ms   4759.07 mb   7.0% of total time
Demand analysis                          4648.55 ms   1654.48 mb   4.1% of total time
Renamer/typechecker                       765.77 ms    337.82 mb   0.7% of total time
Float inwards                             690.78 ms    734.53 mb   0.6% of total time

osa1

use std::ops::Drop;
use std::os::unix::io::{AsRawFd, RawFd};
use std::ptr;
use std::time::Duration;

use libc;

extern {
    /// int timerfd_create(int clockid, int flags)
    fn timerfd_create(clockid : libc::c_int, flags : libc::c_int) -> libc::c_int;

osa1

pub struct TrieNode {
    vec : Vec<(char, Box<TrieNode>)>,
    word : bool,
}

impl TrieNode {
    pub fn new() -> TrieNode {
        TrieNode {
            vec: vec![],
            word: false,

osa1

// When highlighting nicks in messages, we search words in the `nicks` set. To
// be able to highlight substrings, we need offsets of chars, but
// `SplitWhitespace` doesn't provide that. Also, our separators are actually a
// set of characters, like {'<', '(', etc} instead of a fixed character or
// whitespace.

struct WordIdxs<'s> {
    /// The whole thing, not a shrinking slice.
    str : &'s str,

osa1

[section ""data" . $wsum_closure" {
     $wsum_closure:
         const $wsum_info;
 },
 $wsum_entry() //  [R2]
         { info_tbl: [(cMo,
                       label: block_cMo_info
                       rep:StackRep []),
                      (cMv,
                       label: $wsum_info

osa1

find . -iname "*.o" | xargs nm -A | grep -E "*cvA3_info*"

osa1

==================== STG syntax: ====================
2016-06-06 08:13:50.663576479 UTC

Main.$WCons [InlPrag=INLINE]
  :: forall a_art. a_art -> Main.List a_art -> Main.List a_art
[GblId[DataConWrapper],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType <S,U><S,U>m1,

osa1

typedef struct {
  StgInt closure_type_off;
  StgInt closure_desc_off;
} StgProfInfo;

extern StgWord16 closure_flags[];

typedef struct {
  StgWord size;
  StgWord bitmap[];

osa1

Glasgow Haskell Compiler, Version 8.1.20160805, stage 2 booted by GHC version 8.0.1
Using binary package database: /home/omer/haskell/ghc_2/inplace/lib/package.conf.d/package.cache
loading package database /home/omer/haskell/ghc_2/inplace/lib/package.conf.d
wired-in package ghc-prim mapped to ghc-prim-0.5.0.0
wired-in package integer-gmp mapped to integer-gmp-1.0.0.1
wired-in package base mapped to base-4.9.0.0
wired-in package rts mapped to rts
wired-in package template-haskell mapped to template-haskell-2.11.0.0
wired-in package ghc mapped to ghc-8.1
wired-in package dph-seq not found.