package Ġcom . k gl . v ma . enums Ċ Ċ import Ġcom . k gl . v ma . utils .* Ċ import Ġorg . lwjgl . util . v ma .* Ċ Ċ actual Ġenum Ġclass ĠAl location Create ( override Ġval Ġvalue : ĠInt ) Ġ: ĠV ma Flag < Allocation Create > Ġ{ Ċ ĉ DED IC ATED _ MEMORY ( V ma . V MA _ ALLOC ATION _ CREATE _ DED IC ATED _ MEMORY _ BIT ), Ċ ĉ NE VER _ ALLOC ATE ( V ma . V MA _ ALLOC ATION _ CREATE _ NE VER _ ALLOC ATE _ BIT ), Ċ ĉ MAP PED ( V ma . V MA _ ALLOC ATION _ CREATE _ MAP PED _ BIT ), Ċ ĉ CAN _ BE CO ME _ LO ST ( V ma . V MA _ ALLOC ATION _ CREATE _ CAN _ BE CO ME _ LO ST _ BIT ), Ċ ĉ CAN _ MAKE _ OTHER _ LO ST ( V ma . V MA _ ALLOC ATION _ CREATE _ CAN _ MAKE _ OTHER _ LO ST _ BIT ), Ċ ĉ USER _ DATA _ COPY _ STRING ( V ma . V MA _ ALLOC ATION _ CREATE _ USER _ DATA _ COPY _ STRING _ BIT ), Ċ ĉ UPPER _ ADDRESS ( V ma . V MA _ ALLOC ATION _ CREATE _ UPPER _ ADDRESS _ BIT ), Ċ ĉ D ONT _ BIND ( V ma . V MA _ ALLOC ATION _ CREATE _ D ONT _ BIND _ BIT ), Ċ ĉ STR ATE GY _ BEST _ FIT ( V ma . V MA _ ALLOC ATION _ CREATE _ STR ATE GY _ BEST _ FIT _ BIT ), Ċ ĉ STR ATE GY _ W OR ST _ FIT ( V ma . V MA _ ALLOC ATION _ CREATE _ STR ATE GY _ W OR ST _ FIT _ BIT ), Ċ ĉ STR ATE GY _ FIRST _ FIT ( V ma . V MA _ ALLOC ATION _ CREATE _ STR ATE GY _ FIRST _ FIT _ BIT ), Ċ ĉ STR ATE GY _ MIN _ MEMORY ( V ma . V MA _ ALLOC ATION _ CREATE _ STR ATE GY _ MIN _ MEMORY _ BIT ), Ċ ĉ STR ATE GY _ MIN _ TIME ( V ma . V MA _ ALLOC ATION _ CREATE _ STR ATE GY _ MIN _ TIME _ BIT ), Ċ ĉ STR ATE GY _ MIN _ FRAGMENT ATION ( V ma . V MA _ ALLOC ATION _ CREATE _ STR ATE GY _ MIN _ FRAGMENT ATION _ BIT ); ĊĉĊ ĉ actual Ġcompanion Ġobject Ġ{ Ċĉ ĉ private Ġval Ġenum Look Up Map : ĠMap < Int , ĠAl location Create > Ġ= Ċĉĉ ĉ enum Values < Allocation Create >(). associate By Ġ{ Ġit . value Ġ} ĊĉĉĊĉ ĉ fun Ġfrom Multiple ( value : ĠInt ): ĠV ma Flag < Allocation Create >? Ġ= Ġif Ġ( value Ġ== Ġ 0 ) Ġnull Ġelse ĠV ma Flag ( value ) ĊĉĉĊĉ ĉ fun Ġfrom ( value : ĠInt ): ĠAl location Create Ġ= Ġenum Look Up Map [ value ] !! Ċ ĉ } Ċ } Ċ Ċ actual Ġval ĠAl location Create . Companion . STR ATE GY _ MASK : ĠV ma Flag < Allocation Create > Ċ ĉ get () Ġ= ĠV ma Flag ( V ma . V MA _ ALLOC ATION _ CREATE _ STR ATE GY _ MASK ) Ċ