6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-07-21 02:29:22 +00:00
Code Issues Projects Releases Wiki Activity

Change createInferredCast calls to more accurate cast creation calls.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@32520 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Reid Spencer 2006-12-13 00:47:58 +00:00
parent 2db3a3bed7
commit 31b628ba60
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
projects/Stacker/lib/compiler/StackerCompiler.cpp
View File

@ -367,7 +367,7 @@ StackerCompiler::incr_stack_index( BasicBlock* bb, Value* ival = 0 )
// Increment the loaded index value
if ( ival == 0 ) ival = One;
CastInst* caster = CastInst::createInferredCast( ival, Type::LongTy );
CastInst* caster = CastInst::createSExtOrBitCast( ival, Type::LongTy );
bb->getInstList().push_back( caster );
BinaryOperator* addop = BinaryOperator::create( Instruction::Add,
loadop, caster);
@ -388,7 +388,7 @@ StackerCompiler::decr_stack_index( BasicBlock* bb, Value* ival = 0 )
// Decrement the loaded index value
if ( ival == 0 ) ival = One;
CastInst* caster = CastInst::createInferredCast( ival, Type::LongTy );
CastInst* caster = CastInst::createSExtOrBitCast( ival, Type::LongTy );
bb->getInstList().push_back( caster );
BinaryOperator* subop = BinaryOperator::create( Instruction::Sub,
loadop, caster);
@ -422,7 +422,7 @@ StackerCompiler::get_stack_pointer( BasicBlock* bb, Value* index = 0 )
}
else
{
CastInst* caster = CastInst::createInferredCast( index, Type::LongTy );
CastInst* caster = CastInst::createSExtOrBitCast( index, Type::LongTy );
bb->getInstList().push_back( caster );
BinaryOperator* subop = BinaryOperator::create(
Instruction::Sub, loadop, caster );
@ -448,7 +448,11 @@ StackerCompiler::push_value( BasicBlock* bb, Value* val )
get_stack_pointer( bb ) );
// Cast the value to a long .. hopefully it works
CastInst* cast_inst = CastInst::createInferredCast( val, Type::LongTy );
Instruction::CastOps opcode =
(isa<PointerType>(val->getType()) ? Instruction::PtrToInt :
(val->getType()->getPrimitiveSizeInBits() < 64 ? Instruction::SExt :
Instruction::BitCast));
CastInst* cast_inst = CastInst::create(opcode, val, Type::LongTy );
bb->getInstList().push_back( cast_inst );
// Store the value
@ -523,7 +527,7 @@ StackerCompiler::pop_string( BasicBlock* bb )
// Cast the integer to a sbyte*
CastInst* caster =
CastInst::createInferredCast( loader, PointerType::get(Type::SByteTy) );
new IntToPtrInst(loader, PointerType::get(Type::SByteTy));
bb->getInstList().push_back( caster );
// Decrement stack index
@ -576,7 +580,7 @@ StackerCompiler::stack_top_string( BasicBlock* bb, Value* index = 0 )
// Cast the integer to a sbyte*
CastInst* caster =
CastInst::createInferredCast( loader, PointerType::get(Type::SByteTy) );
new IntToPtrInst(loader, PointerType::get(Type::SByteTy) );
bb->getInstList().push_back( caster );
// Return the value
@ -1245,7 +1249,7 @@ StackerCompiler::handle_word( int tkn )
if (echo) bb->setName("SHL");
LoadInst* op1 = cast<LoadInst>(pop_integer(bb));
LoadInst* op2 = cast<LoadInst>(pop_integer(bb));
CastInst* castop = CastInst::createInferredCast( op1, Type::UByteTy );
CastInst* castop = new TruncInst( op1, Type::UByteTy );
bb->getInstList().push_back( castop );
ShiftInst* shlop = new ShiftInst( Instruction::Shl, op2, castop );
bb->getInstList().push_back( shlop );
@ -1257,7 +1261,7 @@ StackerCompiler::handle_word( int tkn )
if (echo) bb->setName("SHR");
LoadInst* op1 = cast<LoadInst>(pop_integer(bb));
LoadInst* op2 = cast<LoadInst>(pop_integer(bb));
CastInst* castop = CastInst::createInferredCast( op1, Type::UByteTy );
CastInst* castop = new TruncInst( op1, Type::UByteTy );
bb->getInstList().push_back( castop );
ShiftInst* shrop = new ShiftInst( Instruction::AShr, op2, castop );
bb->getInstList().push_back( shrop );
@ -1479,7 +1483,7 @@ StackerCompiler::handle_word( int tkn )
LoadInst* op1 = cast<LoadInst>( pop_integer(bb) );
// Make sure its a UIntTy
CastInst* caster = CastInst::createInferredCast( op1, Type::UIntTy );
CastInst* caster = CastInst::createTruncOrBitCast( op1, Type::UIntTy );
bb->getInstList().push_back( caster );
// Allocate the bytes
@ -1507,7 +1511,7 @@ StackerCompiler::handle_word( int tkn )
if (echo) bb->setName("GET");
// Get the character index
LoadInst* op1 = cast<LoadInst>( stack_top(bb) );
CastInst* chr_idx = CastInst::createInferredCast( op1, Type::LongTy );
CastInst* chr_idx = CastInst::createSExtOrBitCast( op1, Type::LongTy );
bb->getInstList().push_back( chr_idx );
// Get the String pointer
@ -1522,7 +1526,7 @@ StackerCompiler::handle_word( int tkn )
// Get the value and push it
LoadInst* loader = new LoadInst( gep );
bb->getInstList().push_back( loader );
CastInst* caster = CastInst::createInferredCast( loader, Type::IntTy );
CastInst* caster = CastInst::createTruncOrBitCast(loader, Type::IntTy);
bb->getInstList().push_back( caster );
// Push the result back on stack
@ -1539,7 +1543,7 @@ StackerCompiler::handle_word( int tkn )
// Get the character index
LoadInst* w2 = cast<LoadInst>( pop_integer(bb) );
CastInst* chr_idx = CastInst::createInferredCast( w2, Type::LongTy );
CastInst* chr_idx = CastInst::createSExtOrBitCast( w2, Type::LongTy );
bb->getInstList().push_back( chr_idx );
// Get the String pointer
@ -1552,7 +1556,7 @@ StackerCompiler::handle_word( int tkn )
bb->getInstList().push_back( gep );
// Cast the value and put it
CastInst* caster = CastInst::createInferredCast( w1, Type::SByteTy );
CastInst* caster = new TruncInst( w1, Type::SByteTy );
bb->getInstList().push_back( caster );
StoreInst* storer = new StoreInst( caster, gep );
bb->getInstList().push_back( storer );
@ -1580,7 +1584,7 @@ StackerCompiler::handle_word( int tkn )
LoadInst* op1 = cast<LoadInst>(pop_integer(bb));
// Cast down to an integer
CastInst* caster = CastInst::createInferredCast( op1, Type::IntTy );
CastInst* caster = new TruncInst( op1, Type::IntTy );
bb->getInstList().push_back( caster );
// Call exit(3)