void Program::allocateProgramScopeVars()
{
deallocateProgramScopeVars();
Memory *globalMemory = m_context->getGlobalMemory();
// Create the pointer values for each global variable
llvm::Module::const_global_iterator itr;
for (itr = m_module->global_begin(); itr != m_module->global_end(); itr++)
{
unsigned addrspace = itr->getType()->getPointerAddressSpace();
if (addrspace != AddrSpaceGlobal && addrspace != AddrSpaceConstant)
continue;
// Allocate global variable
const llvm::Type *type = itr->getType()->getPointerElementType();
size_t size = getTypeSize(type);
size_t ptr = globalMemory->allocateBuffer(size);
m_totalProgramScopeVarSize += size;
// Create pointer value
TypedValue ptrValue =
{
sizeof(size_t), 1, new uint8_t[sizeof(size_t)]
};
ptrValue.setPointer(ptr);
m_programScopeVars[&*itr] = ptrValue;
}
try
{
// Initialize global variables
for (auto itr = m_programScopeVars.begin();
itr != m_programScopeVars.end();
itr++)
{
auto var = llvm::cast<llvm::GlobalVariable>(itr->first);
const llvm::Constant *initializer = var->getInitializer();
if (!initializer)
continue;
size_t varptr = itr->second.getPointer();
if (initializer->getType()->getTypeID() == llvm::Type::PointerTyID)
{
size_t ptr = resolveConstantPointer(initializer, m_programScopeVars);
globalMemory->store((uint8_t*)&ptr, varptr, sizeof(size_t));
}
else
{
size_t size = getTypeSize(initializer->getType());
uint8_t *data = new uint8_t[size];
getConstantData((uint8_t*)data, (const llvm::Constant*)initializer);
globalMemory->store(data, varptr, size);
delete[] data;
}
}
}
catch (FatalError& err)
{
cerr << endl << "OCLGRIND FATAL ERROR "
<< "(" << err.getFile() << ":" << err.getLine() << ")"
<< endl << err.what()
<< endl << "When initializing program scope global variables"
<< endl;
}
}
