1 "{ Package: 'jv:libllvms' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 SharedPool subclass:#LLVMVisibility

     6 	instanceVariableNames:''

     7 	classVariableNames:'LLVMDefaultVisibility LLVMHiddenVisibility

     8 		LLVMProtectedVisibility'

     9 	poolDictionaries:''

    10 	category:'LLVM-Core-Constants'

    11 !

    12 

    13 !LLVMVisibility class methodsFor:'initialization'!

    14 

    15 initialize

    16 

    17     LLVMDefaultVisibility := 0.

    18     LLVMHiddenVisibility := 1.

    19     LLVMProtectedVisibility := 2.

    20 ! !

    21 

    22 !LLVMVisibility class methodsFor:'constants'!

    23 

    24 LLVMDefaultVisibility

    25 

    26     ^LLVMDefaultVisibility

    27 !

    28 

    29 LLVMHiddenVisibility

    30 

    31     ^LLVMHiddenVisibility

    32 !

    33 

    34 LLVMProtectedVisibility

    35 

    36     ^LLVMProtectedVisibility

    37 ! !

    38 

    39 

    40 LLVMVisibility initialize!