thisClass = force "this" $ poolClassIndex poolInfo thisClass,
superClass = force "super" $ poolClassIndex poolInfo superClass,
interfacesCount = fromIntegral (length interfaces),
interfaces = map (force "ifaces" . poolIndex poolInfo) interfaces,
classFieldsCount = fromIntegral (length classFields),
thisClass = force "this" $ poolClassIndex poolInfo thisClass,
superClass = force "super" $ poolClassIndex poolInfo superClass,
interfacesCount = fromIntegral (length interfaces),
interfaces = map (force "ifaces" . poolIndex poolInfo) interfaces,
classFieldsCount = fromIntegral (length classFields),