"

    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 }"

LLVMTypeSequential subclass:#LLVMTypePointer

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'LLVM-S-Core-Types'

!

!LLVMTypePointer 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.

"

! !

!LLVMTypePointer methodsFor:'accessing'!

pointee

    ^ LLVM GetElementType: self

    "Created: / 12-10-2015 / 16:23:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

sizeInBits

    "For integer, pointer, FP  types, return the size in bits. For all 

     other types, throw an LLVMTypeError.

     LLVMType int32 sizeInBits -> 32

     LLVMType int1 sizeInBits  -> 1

    "

    ^ LLVM GetIntTypeWidth: self

    "Created: / 13-08-2015 / 17:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMTypePointer methodsFor:'inspecting'!

inspectorExtraAttributes

    ^ super inspectorExtraAttributes

        at: '-pointee' put: self pointee;

        yourself.

    "Created: / 12-10-2015 / 17:02:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMTypePointer methodsFor:'testing'!

isPointerType

    ^ true

    "Created: / 13-08-2015 / 17:00:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMTypePointer class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !