archive
/
windows-server-2003
mirror of https://github.com/selfrender/Windows-Server-2003
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 Commits
1 Branch
0 Tags
1.5 GiB
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
windows-server-2003/sdktools/debuggers/ia64tools/decem/build/func_build_2.pl

1033 lines
34 KiB
Raw Permalink Blame History

#!/usr/local/bin/perl5
##
## Copyright (c) 2000, Intel Corporation
## All rights reserved.
##
## WARRANTY DISCLAIMER
##
## THESE MATERIALS ARE PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
## "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
## LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
## A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL INTEL OR ITS
## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
## EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
## PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
## PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
## OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY OR TORT (INCLUDING
## NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THESE
## MATERIALS, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
##
## Intel Corporation is the author of the Materials, and requests that all
## problem reports or change requests be submitted to it directly at
## http://developer.intel.com/opensource.
##
require "EM_perl.h";
$GenDir = shift(@ARGV);
$EmdbDir = shift(@ARGV);
################################################
# CONSTANTS
################################################
$dst_2nd_role = $EMDB_LAST_FLAG << 1;
$src_2nd_role = $EMDB_LAST_FLAG << 2;
################################################
# VARIABLES
################################################
$function_arguments = "(deccpu_EMDB_info_t *emdb_entry_p, \
U64 inst_code, const U128 *bu_code, EM_Decoder_Info *decoder_info)";
################################################
if (open(FRMT_FUNC,">$GenDir/frmt_func.c")!=1)
{
die "\nBuilder error - can't open frmt_func.c\n";
};
################################################
# read format table
################################################
if (open(FRMT_TABLE,"$EmdbDir/emdb_formats.txt")!=1)
{
die "\nBuilder error - can't open emdb_formats.txt\n";
};
while(<FRMT_TABLE>)
{
/(\S+)(.*)/;
$format_name = $1;
$FT_info{$format_name} = $2;
}
close(FRMT_TABLE);
################################################
# check redundand optypes
################################################
open (ALL_OPTYPES, ">$GenDir/all_optypes.txt")||die "Can't open all_optypes.txt\n";
################################################
# read EMDB format information
################################################
if (open(EMDB_DEC_INFO,"$GenDir/dec_frmt.txt")!=1)
{
die "\nBuilder error - can't open dec_frmt.txt\n";
};
&Print_inc;
LINE:
while(<EMDB_DEC_INFO>)
{
($format_name, $function_name, $emdb_format_info, $hard_coded_info) = split(/:/,$_);
$format_name =~ /^(\w*)@?/;
if (!$FT_info{$1} && ($1 ne EM_FORMAT_NONE))
{
die "\nBuilder error - tables mismatch: $1 \n";
}
&Open_function;
if ($format_name ne EM_FORMAT_NONE)
{
&Put_operands_macros;
}
else
{
$check_macro = "";
$check_equal_2dst = "";
$set_macro = "";
$check_hard_coded_macro = "";
}
print FRMT_FUNC $check_macro;
print FRMT_FUNC $check_equal_2dst;
print FRMT_FUNC $set_macro;
print FRMT_FUNC $check_hard_coded_macro;
&Close_function;
}
close(EMDB_DEC_INFO);
sub Open_function
{
print FRMT_FUNC "EM_Decoder_Err ".$function_name;
print FRMT_FUNC $function_arguments."\n\{\n";
print FRMT_FUNC "\tint enc_value;\n";
print FRMT_FUNC "\tEM_Decoder_Err dec_err = EM_DECODER_NO_ERROR;\n";
}
sub Put_operands_macros
{
$dst_no = 1;
$src_no = 1;
($opers_info, $flags) = split(/\}\{/,$emdb_format_info);
$opers_info =~ s/^\s*\{\s*//;
$flags =~ s/^\s*//;
$flags =~ s/\}//;
&Check_flags;
$hard_coded_info =~ s/^\s*\{\s*|\s*\}\s*$//g;
&Check_hard_coded_fields($hard_coded_info);
@opers_role_type = split(/\s+/,$opers_info);
$format_info = $FT_info{$format_name};
$format_info =~ s/^\s*//;
($ext0,$ext1,$ext2,$ext3,$ext4,$ext5,$ext6,$ext7,@opers_pos_size) =
split(/\s+/,$format_info);
for($op_no=0;$op_no<$MAX_OPERAND;$op_no++)
{
$put_imm_opers = "";
$imm_size=0;
&Get_pos_and_size($opers_pos_size[$op_no]);
($op_role,$op_type) = split(/@/,$opers_role_type[$op_no]);
if ($op_role eq DST)
{
$di_op_role = "dst".$dst_no;
$dst_no++;
}
else # SRC
{
$di_op_role = "src".$src_no;
$src_no++;
}
if (($op_type eq EM_OPTYPE_IREG)||
($op_type eq EM_OPTYPE_IREG_R0_3))
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_INT_REG, EM_DECODER_REG_R0, enc_value, \
EM_NUM_OF_GREGS, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_IREG_R0)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_INT_REG, EM_DECODER_REG_R0, 0, 1,\
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_IREG_R1_127)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_INT_REG, EM_DECODER_REG_R0, enc_value, \
EM_NUM_OF_GREGS, decoder_info->".$di_op_role.", dec_err);\n";
print FRMT_FUNC
"\tCHECK_REG_VALUE_0(enc_value, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PREGS_ROT)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_PR_ROT_REG, EM_DECODER_REG_PR_ROT, 0,1,\
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PSR_L)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_PSR_L_REG, EM_DECODER_REG_PSR_L, 0,1,\
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PSR_UM)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_PSR_UM_REG, EM_DECODER_REG_PSR_UM, 0,1,\
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PSR)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_PSR_REG, EM_DECODER_REG_PSR, 0,1,\
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PREGS_ALL)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_PR_REG, EM_DECODER_REG_PR, 0,1,\
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_APP_CCV)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_APP_CCV_REG, EM_DECODER_REG_AR0,EM_AR_CCV, \
EM_NUM_OF_AREGS, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_APP_PFS)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_APP_PFS_REG, EM_DECODER_REG_AR0,EM_AR_PFS,\
EM_NUM_OF_AREGS, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif (($op_type eq EM_OPTYPE_DTR)||
($op_type eq EM_OPTYPE_CPUID))
{
$op_type =~ /EM_OPTYPE_(\w+)/;
$regfile = $1;
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_$regfile, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_DBR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_DBR, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_IBR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_IBR, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PKR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_PKR, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PMC)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_PMC, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PMD)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_PMD, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_DTR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_DTR, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_ITR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_ITR, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_RR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_RR, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_MSR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REGFILE_INFO(EM_DECODER_REGFILE_MSR, enc_value, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_FREG)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_FP_REG, EM_DECODER_REG_F0, enc_value, EM_NUM_OF_FPREGS, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_FREG_F2_127)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_FP_REG, EM_DECODER_REG_F0, enc_value, EM_NUM_OF_FPREGS, \
decoder_info->".$di_op_role.", dec_err);\n";
print FRMT_FUNC
"\tCHECK_FP_REG_VALUE_0_1(enc_value, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_CR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_CR_REG, EM_DECODER_REG_CR0, enc_value, EM_NUM_OF_CREGS, \
decoder_info->".$di_op_role.", dec_err);\n";
print FRMT_FUNC
"\tCHECK_REG_CR(enc_value, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_IP)
{
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_IP_REG, EM_DECODER_REG_IP, 0, 1,\
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_APP_REG_GRP_HIGH)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_APP_REG, EM_DECODER_REG_AR0, enc_value, EM_NUM_OF_AREGS, \
decoder_info->".$di_op_role.", dec_err);\n";
print FRMT_FUNC
"\tCHECK_REG_APP_GRP_HIGH(enc_value, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_APP_REG_GRP_LOW)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_APP_REG, EM_DECODER_REG_AR0, enc_value, EM_NUM_OF_AREGS, \
decoder_info->".$di_op_role.", dec_err);\n";
print FRMT_FUNC
"\tCHECK_REG_APP_GRP_LOW(enc_value, decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_PREG)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_PRED_REG, EM_DECODER_REG_P0, enc_value, EM_NUM_OF_PREGS, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_BR)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_REG_INFO(EM_DECODER_BR_REG, EM_DECODER_REG_BR0, enc_value, EM_NUM_OF_BREGS, \
decoder_info->".$di_op_role.", dec_err);\n";
}
elsif ($op_type eq EM_OPTYPE_IREG_NUM)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
print FRMT_FUNC
"\tdecoder_info->".$di_op_role."\.oper_flags |= EM_DECODER_OPER_IMM_IREG_BIT;\n";
}
elsif ($op_type eq EM_OPTYPE_FREG_NUM)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
print FRMT_FUNC
"\tdecoder_info->".$di_op_role."\.oper_flags |= EM_DECODER_OPER_IMM_FREG_BIT;\n";
}
elsif ($op_type eq EM_OPTYPE_BR_VEC)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tREJECT_0(enc_value);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_BR_VEC,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_MEM)
{
print FRMT_FUNC
"\tGET_REG_VALUE(enc_value,inst_code,".$op_pos[0].",".$op_size[0].");\n";
print FRMT_FUNC
"\tFILL_MEM_INFO(enc_value,emdb_entry_p->mem_size,decoder_info->".$di_op_role.",dec_err);\n";
}
elsif (($op_type eq EM_OPTYPE_UIMM)||($op_type eq EM_OPTYPE_MUX2))
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_ALLOC_IOL)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
if ($op_no != 2)
{
print FRMT_FUNC
"\t\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
}
else
{
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\n\t{\n\t\tint check_val = enc_value;\n\n";
}
if ($op_no==4)
{
print FRMT_FUNC
"\t\tif ((enc_value>EM_REGISTER_STACK_SIZE) && (!dec_err))\n\t\t\tdec_err = \
(EM_DECODER_STACK_FRAME_SIZE_OUT_OF_RANGE);\n";
print FRMT_FUNC
"\t\tif ((enc_value<check_val) && (!dec_err))\n\t\t\tdec_err = \
(EM_DECODER_LOCALS_SIZE_LARGER_STACK_FRAME);\n";
print FRMT_FUNC
"\t\tcheck_val = enc_value;\n";
print FRMT_FUNC
"\t\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value-(int)\
IEL_GETDW0\(decoder_info->src2\.imm_info\.val64\), ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
else
{
print FRMT_FUNC
"\t\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
}
elsif ($op_type eq EM_OPTYPE_CPOS)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\tenc_value = 63-enc_value;\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_LDFP_BASE_UPDATE)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
}
elsif ($op_type eq EM_OPTYPE_SSHIFT_16)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC "\t\{\n";
print FRMT_FUNC "\t\tU64 imm_value64;\n";
print FRMT_FUNC
"\t\tGET_SIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\t\tIEL_CONVERT2(imm_value64,enc_value,(((unsigned)enc_value>>31)*(-1)));\n";
print FRMT_FUNC "\t\tIEL_SHL(imm_value64,imm_value64,16);\n";
print FRMT_FUNC
"\t\tFILL_LONG_IMM_INFO(EM_DECODER_IMM_SIGNED,imm_value64, ".($imm_size+16).", \
decoder_info->".$di_op_role.");\n\t}\n";
}
elsif ($op_type eq EM_OPTYPE_SSHIFT_1)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_SIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\tenc_value = enc_value<<1;\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_SIGNED,enc_value, ".($imm_size+1).", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_ALLOC_ROT)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\t\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\t\tenc_value = enc_value<<3;\n";
print FRMT_FUNC
"\t\tif ((enc_value>check_val) && (!dec_err))\n\t\t\tdec_err = \
(EM_DECODER_ROTATING_SIZE_LARGER_STACK_FRAME);\n\t}\n\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".($imm_size+3).", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_CCOUNT)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\tenc_value = 31-enc_value;\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_UDEC)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\tenc_value++;\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_FCLASS)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_FCLASS,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_SEMAPHORE_INC)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_SIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tCONVERT_IMM_SEMAPHORE_INC(enc_value, dec_err);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_SIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_CMP_UIMM)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC "\t\{\n";
print FRMT_FUNC "\t\t U64 enc_value64;\n";
print FRMT_FUNC
"\t\tGET_CMP_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value64,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\t\tFILL_LONG_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value64, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
print FRMT_FUNC "\t\}\n";
}
elsif ($op_type eq EM_OPTYPE_CMP4_UIMM)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_CMP4_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_MUX1)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tCHECK_IMM_MUX1(enc_value, dec_err);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_MUX1,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_SIMM)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_SIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_SIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_UIMM64 || $op_type eq EM_OPTYPE_SSHIFT_REL64)
{
if ($not_predicatable)
{
die "ERROR! Assumption broken: IMM64 operand appears in non-predicatable instruction\n";
}
print FRMT_FUNC "\t\{\n";
print FRMT_FUNC "\t\t U64 imm_value64;\n";
$put_imm_opers1 = "";
$put_imm_opers2 = "";
$put_imm_opers3 = "";
$num_of_parts1 = 0;
$num_of_parts2 = 0;
$num_of_parts3 = 0;
$pos_in_oper = 0;
for ($j=0;$j<$num_of_parts;$j++)
{
if ($op_pos[$j]>=0 && $num_of_parts2==0)
{
### encoding of this operand part can be taken from the instruction slot
### and does not slip out of the 32-bit integer operand
$num_of_parts1++;
$put_imm_opers1 .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
}
elsif ($op_pos[$j]<0)
{
### operand part is located in the non-instruction slot
$num_of_parts2++;
$put_imm_opers2 .= $pos_in_oper.",".(41+$op_pos[$j]).",".$op_size[$j].",";
}
else
{
### encoding of this operand part can be taken from the instruction slot
### but slip out of the 32-bit integer operand
$num_of_parts3++;
$put_imm_opers3 .= $pos_in_oper.",".($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
}
$pos_in_oper += $op_size[$j];
}
print FRMT_FUNC
"\t\tGET_UIMM_VALUE".$num_of_parts1."(enc_value,".$put_imm_opers1."inst_code);\n";
print FRMT_FUNC "\t\tIEL_CONVERT2(imm_value64,enc_value,0);\n";
if ($num_of_parts2 > 0)
{
print FRMT_FUNC
"\t\tGET_UIMM64_VALUE".$num_of_parts2."(imm_value64,".$put_imm_opers2."*bu_code);\n";
}
if ($num_of_parts3 > 0)
{
print FRMT_FUNC
"\t\tGET_UIMM_2_U64_VALUE".$num_of_parts3."(imm_value64,".$put_imm_opers3."inst_code);\n";
}
if ($op_type eq EM_OPTYPE_UIMM64)
{
print FRMT_FUNC
"\t\tFILL_LONG_IMM_INFO(EM_DECODER_IMM_UNSIGNED,imm_value64, ".$pos_in_oper.", \
decoder_info->".$di_op_role.");\n";
}
else
{
### shift_rel64
print FRMT_FUNC "\tIEL_SHL(imm_value64, imm_value64, EM_IPREL_TARGET_SHIFT_AMOUNT);\n";
print FRMT_FUNC
"\tFILL_LONG_IPREL_INFO(imm_value64, $pos_in_oper+4, decoder_info->".$di_op_role.");\n";
}
print FRMT_FUNC "\t\}\n";
}
elsif ($op_type eq EM_OPTYPE_SSHIFT_REL || $op_type eq EM_OPTYPE_TAG)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_SIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\tenc_value = enc_value<<EM_IPREL_TARGET_SHIFT_AMOUNT;\n";
print FRMT_FUNC
"\tFILL_IPREL_INFO(enc_value, ".($imm_size+4).", decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_COUNT_123)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\tenc_value++;\n";
print FRMT_FUNC
"\tCHECK_IMM_COUNT_123(enc_value, dec_err);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_COUNT_PACK)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC
"\tCONVERT_IMM_COUNT_PACK(enc_value);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_COUNT_1234)
{
for ($j=0;$j<$num_of_parts;$j++)
{
$put_imm_opers .= ($op_pos[$j]-($EM_PREDICATE_BITS*(!$not_predicatable))).",".$op_size[$j].",";
$imm_size += $op_size[$j];
}
print FRMT_FUNC
"\tGET_UIMM_VALUE".$np_suffix.$num_of_parts."(enc_value,".$put_imm_opers."inst_code);\n";
print FRMT_FUNC "\tenc_value++;\n";
print FRMT_FUNC
"\tCHECK_IMM_COUNT_1234(enc_value, dec_err);\n";
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,enc_value, ".$imm_size.", \
decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_ONE)
{
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,1,1,decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_EIGHT)
{
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,8,4,decoder_info->".$di_op_role.");\n";
}
elsif ($op_type eq EM_OPTYPE_SIXTEEN)
{
print FRMT_FUNC
"\tFILL_IMM_INFO(EM_DECODER_IMM_UNSIGNED,16,5,decoder_info->".$di_op_role.");\n";
}
elsif ($op_type ne EM_OPTYPE_NONE)
{
die "\nERROR! ".$op_type." is not covered\n";
}
if ($op_type ne EM_OPTYPE_NONE)
{
print FRMT_FUNC "\n";
}
if (!$ALL_optypes{$op_type})
{
$ALL_optypes{$op_type} = 1;
print ALL_OPTYPES "$op_type \n";
}
}
}
sub Close_function
{
print FRMT_FUNC "\treturn(dec_err);\n";
print FRMT_FUNC "\}\n\n";
}
sub Get_pos_and_size
{
local($ps) = @_;
$i = 0;
while($ps =~ /\d/)
{
($op_pos[$i],$op_size[$i]) = $ps =~
/^\s*\+*(\-?\d+)\.(\d+)/;
$ps =~ s/^\s*(\+*\-?\d+\.\d+)//;
$i++;
$op_size[$i] = 0;
}
$num_of_parts = $i;
}
sub Check_flags
{
### $chk_db=0;
### $no_chk_db=0;
$check_macro="";
$not_predicatable = 0;
$np_suffix = "";
@flag = split(/\s+/,$flags);
$total_flag_num = $#flag+1;
$set_macro = "";
if ($total_flag_num == 1)
{
if (!(hex($flag[0]) & $EM_FLAG_PRED))
{
$not_predicatable = 1;
$np_suffix = "_NP";
}
if (hex($flag[0]) & $EM_FLAG_CHECK_BASE_EQ_DST)
{
$check_macro = "\tCHECK_DEST_AND_BASE(decoder_info->dst1,decoder_info->src1,dec_err);\n";
}
if (hex($flag[0]) & $dst_2nd_role)
{
$set_macro = "\tSET_2ND_ROLE_TO_DEST(decoder_info->src1);\n";
}
elsif (hex($flag[0]) & $src_2nd_role)
{
$set_macro = "\tSET_2ND_ROLE_TO_SRC(decoder_info->dst1);\n";
}
if (hex($flag[0]) & $EM_FLAG_CHECK_SAME_DSTS)
{
$check_equal_2dst = "\tCHECK_DEST_AND_DEST(decoder_info,dec_err);\n";
}
else
{
$check_equal_2dst = "";
}
if (hex($flag[0]) & $EM_FLAG_CHECK_EVEN_ODD_FREGS)
{
$check_macro =
"\tCHECK_ODD_EVEN_DSTS(decoder_info->dst1,decoder_info->dst2,dec_err);\n";
}
}
elsif ($total_flag_num > 1)
{
$predicatable = 0;
$chk_base_dst = 1;
$src_is_dst = 1;
$dst_is_src = 1;
$no_2nd_role = 1;
$dst_eq_dst = 1;
$dst_ne_dst = 1;
for($fl_no=0;$fl_no<$total_flag_num;$fl_no++)
{
if (hex($flag[$fl_no]) & $EM_FLAG_PRED)
{
die "ERROR! Handler contains both predicatable and non-predicatable instructions\n" if ($not_predicatable == 1);
$predicatable = 1;
}
else
{
die "ERROR! Handler contains both predicatable and non-predicatable instructions\n" if ($predicatable == 1);
$not_predicatable = 1;
$np_suffix = "_NP";
}
if (hex($flag[0]) & $EM_FLAG_CHECK_BASE_EQ_DST)
{
die "ERROR! Handler contains both instructions with FLAG_CHECK_BASE_EQ_DST on and off\n" if ($chk_base_dst == 0);
$check_macro = "\tCHECK_DEST_AND_BASE(decoder_info->dst1,decoder_info->src1,dec_err);\n";
}
else
{
die "ERROR! Handler contains both instructions with CHECK_BASE_EQ_DST on and off\n" if ($check_macro ne "");
$chk_base_dst = 0;
}
if (hex($flag[0]) & $dst_2nd_role)
{
die "ERROR! Handler contains instructions with different 2nd role property\n" if ($src_is_dst == 0);
$dst_is_src = 0;
$no_2nd_role = 0;
$set_macro = "\tSET_2ND_ROLE_TO_DEST(decoder_info->src1);\n";
}
elsif (hex($flag[0]) & $src_2nd_role)
{
die "ERROR! Handler contains instructions with different 2nd role property\n" if ($dst_is_src == 0);
$src_is_dst = 0;
$no_2nd_role = 0;
$set_macro = "\tSET_2ND_ROLE_TO_SRC(decoder_info->dst1);\n";
}
else
{
die "ERROR! Handler contains instructions with different 2nd role property\n" if ($no_2nd_role == 0);
$src_is_dst = 0;
$dst_is_src = 0;
}
if (hex($flag[0]) & $EM_FLAG_CHECK_SAME_DSTS)
{
die "ERROR! Handler contains both instructions with FLAG_CHECK_SAME_DSTS on and off\n" if ($dst_eq_dst == 0);
$check_equal_2dst = "\tCHECK_DEST_AND_DEST(decoder_info,dec_err);\n";
$dst_ne_dst = 0;
}
else
{
die "ERROR! Handler contains both instructions with FLAG_CHECK_SAME_DSTS on and off\n" if ($dst_ne_dst == 0);
$dst_eq_dst = 0;
$check_equal_2dst = "";
}
}
}
}
sub Check_hard_coded_fields
{
local($hard_coded_info) = @_;
local($pos, $val, $start, $end, $size);
$check_hard_coded_macro = "\n";
@hard_coded_flds = split(/\s+/, $hard_coded_info);
for ($fld_no=0; $fld_no<=$#hard_coded_flds; $fld_no++)
{
($pos, $val) = split(/,/, $hard_coded_flds[$fld_no]);
($start, $end) = split(/-/, $pos);
if ($pos eq "0-5")
{
### hard-coded predicate
$check_hard_coded_macro .= "\tGET_PREDICATE_HARD_CODED_VALUE(enc_value, inst_code);\n";
$check_hard_coded_macro .= "\tCHECK_PREDICATE_HARD_CODED(enc_value, ".$val.", dec_err);\n";
}
else
{
### hard-coded predicate
$size = $end - $start + 1;
$check_hard_coded_macro .= "\tGET_FIELD_HARD_CODED_VALUE(enc_value, ".$start.", ".$size.", inst_code);\n";
$check_hard_coded_macro .= "\tCHECK_FIELD_HARD_CODED(enc_value, ".$val.", dec_err);\n";
}
}
}
sub Print_inc
{
print FRMT_FUNC "#include <stdio.h>\n";
print FRMT_FUNC "#include <stdlib.h>\n";
print FRMT_FUNC "#include \"decfn_emdb.h\"\n";
print FRMT_FUNC "#include \"frmt_mac.h\"\n";
}