← Back to branch summary

~ubuntu-branches/ubuntu/precise/ghc/precise

« back to all changes in this revision

Viewing changes to compiler/parser/cutils.c

  • Committer: Bazaar Package Importer
  • Author(s): Joachim Breitner
  • Date: 2011-01-17 12:49:24 UTC
  • Revision ID: james.westby@ubuntu.com-20110117124924-do1pym1jlf5o636m
Tags: upstream-7.0.1
Import upstream version 7.0.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
compiler/parser/cutils.c
 
1
/*
 
2
These utility routines are used various
 
3
places in the GHC library.
 
4
*/
 
5
 
 
6
#include "Rts.h"
 
7
#if __GLASGOW_HASKELL__ <= 610
 
8
#include "RtsFlags.h"
 
9
#endif
 
10
 
 
11
#include "HsFFI.h"
 
12
 
 
13
#include <string.h>
 
14
 
 
15
#ifdef HAVE_UNISTD_H
 
16
#include <unistd.h>
 
17
#endif
 
18
 
 
19
/*
 
20
Calling 'strlen' and 'memcpy' directly gives problems with GCC's inliner,
 
21
and causes gcc to require too many registers on x84
 
22
*/
 
23
 
 
24
HsInt
 
25
ghc_strlen( HsPtr a )
 
26
{
 
27
    return (strlen((char *)a));
 
28
}
 
29
 
 
30
HsInt
 
31
ghc_memcmp( HsPtr a1, HsPtr a2, HsInt len )
 
32
{
 
33
    return (memcmp((char *)a1, a2, len));
 
34
}
 
35
 
 
36
HsInt
 
37
ghc_memcmp_off( HsPtr a1, HsInt i, HsPtr a2, HsInt len )
 
38
{
 
39
    return (memcmp((char *)a1 + i, a2, len));
 
40
}
 
41
 
 
42
void
 
43
enableTimingStats( void )       /* called from the driver */
 
44
{
 
45
    RtsFlags.GcFlags.giveStats = ONELINE_GC_STATS;
 
46
}
 
47
 
 
48
void
 
49
setHeapSize( HsInt size )
 
50
{
 
51
    RtsFlags.GcFlags.heapSizeSuggestion = size / BLOCK_SIZE;
 
52
    if (RtsFlags.GcFlags.maxHeapSize != 0 &&
 
53
        RtsFlags.GcFlags.heapSizeSuggestion > RtsFlags.GcFlags.maxHeapSize) {
 
54
        RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion;
 
55
    }
 
56
}
 
57
 
 
58