%PDF-
%PDF-
Mini Shell
Mini Shell
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_CTF_H)) {
eval 'sub _CTF_H () {1;}' unless defined(&_CTF_H);
if(defined(&illumos)) {
}
require 'sys/types.ph';
if(defined(&__cplusplus)) {
}
eval 'sub CTF_MAX_TYPE () {0xffff;}' unless defined(&CTF_MAX_TYPE);
eval 'sub CTF_MAX_NAME () {0x7fffffff;}' unless defined(&CTF_MAX_NAME);
eval 'sub CTF_MAX_VLEN () {0x3ff;}' unless defined(&CTF_MAX_VLEN);
eval 'sub CTF_MAX_INTOFF () {0xff;}' unless defined(&CTF_MAX_INTOFF);
eval 'sub CTF_MAX_INTBITS () {0xffff;}' unless defined(&CTF_MAX_INTBITS);
eval 'sub CTF_MAX_SIZE () {0xfffe;}' unless defined(&CTF_MAX_SIZE);
eval 'sub CTF_LSIZE_SENT () {0xffff;}' unless defined(&CTF_LSIZE_SENT);
eval 'sub CTF_MAX_LSIZE () { &UINT64_MAX;}' unless defined(&CTF_MAX_LSIZE);
eval 'sub cth_magic () { ($cth_preamble->{ctp_magic});}' unless defined(&cth_magic);
eval 'sub cth_version () { ($cth_preamble->{ctp_version});}' unless defined(&cth_version);
eval 'sub cth_flags () { ($cth_preamble->{ctp_flags});}' unless defined(&cth_flags);
if(defined(&CTF_OLD_VERSIONS)) {
}
eval 'sub CTF_MAGIC () {0xcff1;}' unless defined(&CTF_MAGIC);
eval 'sub CTF_VERSION_1 () {1;}' unless defined(&CTF_VERSION_1);
eval 'sub CTF_VERSION_2 () {2;}' unless defined(&CTF_VERSION_2);
eval 'sub CTF_VERSION () { &CTF_VERSION_2;}' unless defined(&CTF_VERSION);
eval 'sub CTF_F_COMPRESS () {0x1;}' unless defined(&CTF_F_COMPRESS);
eval 'sub ctt_size () { ($_u->{_size});}' unless defined(&ctt_size);
eval 'sub ctt_type () { ($_u->{_type});}' unless defined(&ctt_type);
eval 'sub CTF_INFO_KIND {
my($info) = @_;
eval q(((($info) & 0xf800) >> 11));
}' unless defined(&CTF_INFO_KIND);
eval 'sub CTF_INFO_ISROOT {
my($info) = @_;
eval q(((($info) & 0x400) >> 10));
}' unless defined(&CTF_INFO_ISROOT);
eval 'sub CTF_INFO_VLEN {
my($info) = @_;
eval q(((($info) & &CTF_MAX_VLEN)));
}' unless defined(&CTF_INFO_VLEN);
eval 'sub CTF_NAME_STID {
my($name) = @_;
eval q((($name) >> 31));
}' unless defined(&CTF_NAME_STID);
eval 'sub CTF_NAME_OFFSET {
my($name) = @_;
eval q((($name) & 0x7fffffff));
}' unless defined(&CTF_NAME_OFFSET);
eval 'sub CTF_TYPE_INFO {
my($kind, $isroot, $vlen) = @_;
eval q(((($kind) << 11) | ((($isroot) ? 1: 0) << 10) | (($vlen) & &CTF_MAX_VLEN)));
}' unless defined(&CTF_TYPE_INFO);
eval 'sub CTF_TYPE_NAME {
my($stid, $offset) = @_;
eval q(((($stid) << 31) | (($offset) & 0x7fffffff)));
}' unless defined(&CTF_TYPE_NAME);
eval 'sub CTF_TYPE_ISPARENT {
my($id) = @_;
eval q((($id) < 0x8000));
}' unless defined(&CTF_TYPE_ISPARENT);
eval 'sub CTF_TYPE_ISCHILD {
my($id) = @_;
eval q((($id) > 0x7fff));
}' unless defined(&CTF_TYPE_ISCHILD);
eval 'sub CTF_TYPE_TO_INDEX {
my($id) = @_;
eval q((($id) & 0x7fff));
}' unless defined(&CTF_TYPE_TO_INDEX);
eval 'sub CTF_INDEX_TO_TYPE {
my($id, $child) = @_;
eval q((($child) ? (($id) | 0x8000) : ($id)));
}' unless defined(&CTF_INDEX_TO_TYPE);
eval 'sub CTF_PARENT_SHIFT () {15;}' unless defined(&CTF_PARENT_SHIFT);
eval 'sub CTF_STRTAB_0 () {0;}' unless defined(&CTF_STRTAB_0);
eval 'sub CTF_STRTAB_1 () {1;}' unless defined(&CTF_STRTAB_1);
eval 'sub CTF_TYPE_LSIZE {
my($cttp) = @_;
eval q(((( &uint64_t)($cttp)-> &ctt_lsizehi) << 32| ($cttp)-> &ctt_lsizelo));
}' unless defined(&CTF_TYPE_LSIZE);
eval 'sub CTF_SIZE_TO_LSIZE_HI {
my($size) = @_;
eval q((( &uint32_t)(( &uint64_t)($size) >> 32)));
}' unless defined(&CTF_SIZE_TO_LSIZE_HI);
eval 'sub CTF_SIZE_TO_LSIZE_LO {
my($size) = @_;
eval q((( &uint32_t)($size)));
}' unless defined(&CTF_SIZE_TO_LSIZE_LO);
if(defined(&CTF_OLD_VERSIONS)) {
eval 'sub CTF_INFO_KIND_V1 {
my($info) = @_;
eval q(((($info) & 0xf000) >> 12));
}' unless defined(&CTF_INFO_KIND_V1);
eval 'sub CTF_INFO_ISROOT_V1 {
my($info) = @_;
eval q(((($info) & 0x800) >> 11));
}' unless defined(&CTF_INFO_ISROOT_V1);
eval 'sub CTF_INFO_VLEN_V1 {
my($info) = @_;
eval q(((($info) & 0x7ff)));
}' unless defined(&CTF_INFO_VLEN_V1);
eval 'sub CTF_TYPE_INFO_V1 {
my($kind, $isroot, $vlen) = @_;
eval q(((($kind) << 12) | ((($isroot) ? 1: 0) << 11) | (($vlen) & 0x7ff)));
}' unless defined(&CTF_TYPE_INFO_V1);
}
eval 'sub CTF_K_UNKNOWN () {0;}' unless defined(&CTF_K_UNKNOWN);
eval 'sub CTF_K_INTEGER () {1;}' unless defined(&CTF_K_INTEGER);
eval 'sub CTF_K_FLOAT () {2;}' unless defined(&CTF_K_FLOAT);
eval 'sub CTF_K_POINTER () {3;}' unless defined(&CTF_K_POINTER);
eval 'sub CTF_K_ARRAY () {4;}' unless defined(&CTF_K_ARRAY);
eval 'sub CTF_K_FUNCTION () {5;}' unless defined(&CTF_K_FUNCTION);
eval 'sub CTF_K_STRUCT () {6;}' unless defined(&CTF_K_STRUCT);
eval 'sub CTF_K_UNION () {7;}' unless defined(&CTF_K_UNION);
eval 'sub CTF_K_ENUM () {8;}' unless defined(&CTF_K_ENUM);
eval 'sub CTF_K_FORWARD () {9;}' unless defined(&CTF_K_FORWARD);
eval 'sub CTF_K_TYPEDEF () {10;}' unless defined(&CTF_K_TYPEDEF);
eval 'sub CTF_K_VOLATILE () {11;}' unless defined(&CTF_K_VOLATILE);
eval 'sub CTF_K_CONST () {12;}' unless defined(&CTF_K_CONST);
eval 'sub CTF_K_RESTRICT () {13;}' unless defined(&CTF_K_RESTRICT);
eval 'sub CTF_K_MAX () {31;}' unless defined(&CTF_K_MAX);
eval 'sub CTF_INT_ENCODING {
my($data) = @_;
eval q(((($data) & 0xff000000) >> 24));
}' unless defined(&CTF_INT_ENCODING);
eval 'sub CTF_INT_OFFSET {
my($data) = @_;
eval q(((($data) & 0xff0000) >> 16));
}' unless defined(&CTF_INT_OFFSET);
eval 'sub CTF_INT_BITS {
my($data) = @_;
eval q(((($data) & 0xffff)));
}' unless defined(&CTF_INT_BITS);
eval 'sub CTF_INT_DATA {
my($encoding, $offset, $bits) = @_;
eval q(((($encoding) << 24) | (($offset) << 16) | ($bits)));
}' unless defined(&CTF_INT_DATA);
eval 'sub CTF_INT_SIGNED () {0x1;}' unless defined(&CTF_INT_SIGNED);
eval 'sub CTF_INT_CHAR () {0x2;}' unless defined(&CTF_INT_CHAR);
eval 'sub CTF_INT_BOOL () {0x4;}' unless defined(&CTF_INT_BOOL);
eval 'sub CTF_INT_VARARGS () {0x8;}' unless defined(&CTF_INT_VARARGS);
eval 'sub CTF_FP_ENCODING {
my($data) = @_;
eval q(((($data) & 0xff000000) >> 24));
}' unless defined(&CTF_FP_ENCODING);
eval 'sub CTF_FP_OFFSET {
my($data) = @_;
eval q(((($data) & 0xff0000) >> 16));
}' unless defined(&CTF_FP_OFFSET);
eval 'sub CTF_FP_BITS {
my($data) = @_;
eval q(((($data) & 0xffff)));
}' unless defined(&CTF_FP_BITS);
eval 'sub CTF_FP_DATA {
my($encoding, $offset, $bits) = @_;
eval q(((($encoding) << 24) | (($offset) << 16) | ($bits)));
}' unless defined(&CTF_FP_DATA);
eval 'sub CTF_FP_SINGLE () {1;}' unless defined(&CTF_FP_SINGLE);
eval 'sub CTF_FP_DOUBLE () {2;}' unless defined(&CTF_FP_DOUBLE);
eval 'sub CTF_FP_CPLX () {3;}' unless defined(&CTF_FP_CPLX);
eval 'sub CTF_FP_DCPLX () {4;}' unless defined(&CTF_FP_DCPLX);
eval 'sub CTF_FP_LDCPLX () {5;}' unless defined(&CTF_FP_LDCPLX);
eval 'sub CTF_FP_LDOUBLE () {6;}' unless defined(&CTF_FP_LDOUBLE);
eval 'sub CTF_FP_INTRVL () {7;}' unless defined(&CTF_FP_INTRVL);
eval 'sub CTF_FP_DINTRVL () {8;}' unless defined(&CTF_FP_DINTRVL);
eval 'sub CTF_FP_LDINTRVL () {9;}' unless defined(&CTF_FP_LDINTRVL);
eval 'sub CTF_FP_IMAGRY () {10;}' unless defined(&CTF_FP_IMAGRY);
eval 'sub CTF_FP_DIMAGRY () {11;}' unless defined(&CTF_FP_DIMAGRY);
eval 'sub CTF_FP_LDIMAGRY () {12;}' unless defined(&CTF_FP_LDIMAGRY);
eval 'sub CTF_FP_MAX () {12;}' unless defined(&CTF_FP_MAX);
eval 'sub CTF_LSTRUCT_THRESH () {8192;}' unless defined(&CTF_LSTRUCT_THRESH);
eval 'sub CTF_LMEM_OFFSET {
my($ctlmp) = @_;
eval q(((( &uint64_t)($ctlmp)-> &ctlm_offsethi) << 32| ($ctlmp)-> &ctlm_offsetlo));
}' unless defined(&CTF_LMEM_OFFSET);
eval 'sub CTF_OFFSET_TO_LMEMHI {
my($offset) = @_;
eval q((( &uint32_t)(( &uint64_t)($offset) >> 32)));
}' unless defined(&CTF_OFFSET_TO_LMEMHI);
eval 'sub CTF_OFFSET_TO_LMEMLO {
my($offset) = @_;
eval q((( &uint32_t)($offset)));
}' unless defined(&CTF_OFFSET_TO_LMEMLO);
if(defined(&__cplusplus)) {
}
}
1;
Zerion Mini Shell 1.0