racket-llvm/pass-manager.rkt at master · lukel97/racket-llvm · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#lang racket

(require ffi/unsafe
         "definer.rkt")

#| Pass manager builder |#

(define-llvm llvm-pass-manager-builder-create (_fun -> _LLVMPassManagerBuilderRef)
             #:c-id LLVMPassManagerBuilderCreate)
(provide llvm-pass-manager-builder-create)

(define-llvm llvm-pass-manager-builder-set-opt-level
             (_fun _LLVMPassManagerBuilderRef
                   _uint
                   -> _void)
             #:c-id LLVMPassManagerBuilderSetOptLevel)
(provide llvm-pass-manager-builder-set-opt-level)

(define-llvm llvm-pass-manager-builder-populate-module-pass-manager
             (_fun _LLVMPassManagerBuilderRef
                   _LLVMPassManagerRef
                   -> _void)
             #:c-id LLVMPassManagerBuilderPopulateModulePassManager)
(provide llvm-pass-manager-builder-populate-module-pass-manager)

(define-llvm llvm-pass-manager-builder-populate-function-pass-manager
             (_fun _LLVMPassManagerBuilderRef
                   _LLVMPassManagerRef
                   -> _void)
             #:c-id LLVMPassManagerBuilderPopulateFunctionPassManager)
(provide llvm-pass-manager-builder-populate-function-pass-manager)

#| Whole module pass manager |#

(define-llvm llvm-pass-manager-create (_fun -> _LLVMPassManagerRef)
             #:c-id LLVMCreatePassManager)
(provide llvm-pass-manager-create)

(define-llvm llvm-pass-manager-run (_fun _LLVMPassManagerRef
                                         _LLVMModuleRef
                                         -> _bool)
             #:c-id LLVMRunPassManager)
(provide llvm-pass-manager-run)

#| Function pass manager |#

(define-llvm llvm-function-pass-manager-create (_fun _LLVMModuleRef -> _LLVMPassManagerRef)
             #:c-id LLVMCreateFunctionPassManagerForModule)

(provide llvm-function-pass-manager-create)