6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-08-15 06:29:05 +00:00
Code Issues Projects Releases Wiki Activity

Implement support for aribrary precision integers by creating two new

Browse Source 
tokens: ESAPINTVAL and EUAPINTVAL and adding an APInt* as a semantic value.
This allows us to extend the definition of an integer constant to allow
arbitrary precision integer constant values.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@34714 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Reid Spencer
2007-02-28 02:23:44 +00:00
parent 84b4eeccc7
commit f231004a1c
1 changed files with 41 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
lib/AsmParser/llvmAsmParser.y
View File

@@ -925,6 +925,7 @@ Module *llvm::RunVMAsmParser(const char * AsmString, Module * M) {
llvm::GlobalValue::LinkageTypes Linkage; llvm::GlobalValue::LinkageTypes Linkage;
llvm::GlobalValue::VisibilityTypes Visibility; llvm::GlobalValue::VisibilityTypes Visibility;
llvm::FunctionType::ParameterAttributes ParamAttrs; llvm::FunctionType::ParameterAttributes ParamAttrs;
llvm::APInt *APIntVal;
int64_t SInt64Val; int64_t SInt64Val;
uint64_t UInt64Val; uint64_t UInt64Val;
int SIntVal; int SIntVal;
@@ -978,6 +979,12 @@ Module *llvm::RunVMAsmParser(const char * AsmString, Module * M) {
// EUINT64VAL - A positive number within uns. long long range // EUINT64VAL - A positive number within uns. long long range
%token <UInt64Val> EUINT64VAL %token <UInt64Val> EUINT64VAL
// ESAPINTVAL - A negative number with arbitrary precision
%token <APIntVal> ESAPINTVAL
// EUAPINTVAL - A positive number with arbitrary precision
%token <APIntVal> EUAPINTVAL
%token <UIntVal> LOCALVAL_ID GLOBALVAL_ID // %123 @123 %token <UIntVal> LOCALVAL_ID GLOBALVAL_ID // %123 @123
%token <FPVal> FPVAL // Float or Double constant %token <FPVal> FPVAL // Float or Double constant
@@ -1704,13 +1711,45 @@ ConstVal: Types '[' ConstVector ']' { // Nonempty unsized arr
| IntType ESINT64VAL { // integral constants | IntType ESINT64VAL { // integral constants
if (!ConstantInt::isValueValidForType($1, $2)) if (!ConstantInt::isValueValidForType($1, $2))
GEN_ERROR("Constant value doesn't fit in type"); GEN_ERROR("Constant value doesn't fit in type");
$$ = ConstantInt::get($1, $2); APInt Val(64, $2);
uint32_t BitWidth = cast<IntegerType>($1)->getBitWidth();
if (BitWidth > 64)
Val.sext(BitWidth);
else if (BitWidth < 64)
Val.trunc(BitWidth);
$$ = ConstantInt::get($1, Val);
CHECK_FOR_ERROR
}
| IntType ESAPINTVAL { // arbitrary precision integer constants
uint32_t BitWidth = cast<IntegerType>($1)->getBitWidth();
if ($2->getBitWidth() > BitWidth) {
GEN_ERROR("Constant value does not fit in type");
} else if ($2->getBitWidth() < BitWidth)
$2->sext(BitWidth);
else if ($2->getBitWidth() > BitWidth)
$2->trunc(BitWidth);
$$ = ConstantInt::get($1, *$2);
delete $2;
CHECK_FOR_ERROR CHECK_FOR_ERROR
} }
| IntType EUINT64VAL { // integral constants | IntType EUINT64VAL { // integral constants
if (!ConstantInt::isValueValidForType($1, $2)) if (!ConstantInt::isValueValidForType($1, $2))
GEN_ERROR("Constant value doesn't fit in type"); GEN_ERROR("Constant value doesn't fit in type");
$$ = ConstantInt::get($1, $2); uint32_t BitWidth = cast<IntegerType>($1)->getBitWidth();
APInt Val(BitWidth, $2);
$$ = ConstantInt::get($1, Val);
CHECK_FOR_ERROR
}
| IntType EUAPINTVAL { // arbitrary precision integer constants
uint32_t BitWidth = cast<IntegerType>($1)->getBitWidth();
if ($2->getBitWidth() > BitWidth) {
GEN_ERROR("Constant value does not fit in type");
} else if ($2->getBitWidth() < BitWidth)
$2->zext(BitWidth);
else if ($2->getBitWidth() > BitWidth)
$2->trunc(BitWidth);
$$ = ConstantInt::get($1, *$2);
delete $2;
CHECK_FOR_ERROR CHECK_FOR_ERROR
} }
| INTTYPE TRUETOK { // Boolean constants | INTTYPE TRUETOK { // Boolean constants