"

    Copyright (C) 2015-now Jan Vrany

    This code is not an open-source (yet). You may use this code

    for your own experiments and projects, given that:

    * all modification to the code will be sent to the

      original author for inclusion in future releases

    * this is not used in any commercial software

    This license is provisional and may (will) change in

    a future.

"

"{ Package: 'jv:llvm_s' }"

"{ NameSpace: Smalltalk }"

Object subclass:#LLVMMCJITCompilerOptions

	instanceVariableNames:'bytes mm'

	classVariableNames:''

	poolDictionaries:''

	category:'LLVM-S-Core'

!

!LLVMMCJITCompilerOptions class methodsFor:'documentation'!

copyright

"

    Copyright (C) 2015-now Jan Vrany

    This code is not an open-source (yet). You may use this code

    for your own experiments and projects, given that:

    * all modification to the code will be sent to the

      original author for inclusion in future releases

    * this is not used in any commercial software

    This license is provisional and may (will) change in

    a future.

"

! !

!LLVMMCJITCompilerOptions class methodsFor:'accessing'!

new

    ^ self basicNew initialize

    "Created: / 08-02-2016 / 13:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-04-2016 / 11:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

sizeof

    "Returns size of undelaying structure in bytes"

    ^24

! !

!LLVMMCJITCompilerOptions methodsFor:'accessing'!

CodeModel

    "Returns ;; Line: 3682

(enum LLVMCodeModel

        (value (LLVMCodeModelDefault) 0)

        (value (LLVMCodeModelJITDefault) 1)

        (value (LLVMCodeModelSmall) 2)

        (value (LLVMCodeModelKernel) 3)

        (value (LLVMCodeModelMedium) 4)

        (value (LLVMCodeModelLarge) 5) )"

    ^bytes doubleWordAt:1 + 4

    "Modified: / 21-04-2016 / 11:46:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

CodeModel: value

    bytes doubleWordAt:1 + 4 put:value

    "Modified: / 21-04-2016 / 11:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

EnableFastISel

    "Returns ;; Line: 1141

(typedef 

        LLVMBool

                bool)"

    ^bytes at:1 + 12

    "Modified: / 21-04-2016 / 11:46:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

EnableFastISel: value

    bytes at:1 + 12 put:value

    "Modified: / 21-04-2016 / 11:46:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

MCJMM

    "Returns ;; Line: 3675

(typedef 

        LLVMMCJITMemoryManagerRef

                (pointer-to ;; Line: 4082

;; Class: LLVMOpaqueMCJITMemoryManager

))"

    ^ mm

    "Modified: / 21-04-2016 / 11:45:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

MCJMM: value

    mm := value.

    bytes pointerAt:1 + 16 put:value

    "Modified: / 21-04-2016 / 11:45:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

NoFramePointerElim

    "Returns ;; Line: 1141

(typedef 

        LLVMBool

                bool)"

    ^bytes at:1 + 8

    "Modified: / 21-04-2016 / 11:46:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

NoFramePointerElim: value

    bytes at:1 + 8 put:value

    "Modified: / 21-04-2016 / 11:46:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

OptLevel

    "Returns unsigned int"

    ^bytes longAt:1 + 0

    "Modified: / 21-04-2016 / 11:46:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

OptLevel: value

    bytes longAt:1 + 0 put:value

    "Modified: / 21-04-2016 / 11:46:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMMCJITCompilerOptions methodsFor:'converting'!

asExternalBytes

    ^ bytes

    "Created: / 21-04-2016 / 11:45:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

getBytes

    ^ bytes

    "Created: / 21-04-2016 / 11:33:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMMCJITCompilerOptions methodsFor:'initialization'!

initialize

    bytes := ExternalBytes new: self class sizeof.

    LLVM InitializeMCJITCompilerOptions: bytes _: self class sizeof.

    "Modified: / 21-04-2016 / 11:33:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMMCJITCompilerOptions class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !