// Generate a function body.
//
void GenerateFunction(SYM *sym, Statement *stmt)
{
char buf[20];
char *bl;
throwlab = retlab = contlab = breaklab = -1;
lastsph = 0;
memset(semaphores,0,sizeof(semaphores));
throwlab = nextlabel++;
while( lc_auto & 7 ) /* round frame size to word */
++lc_auto;
if (sym->IsInterrupt) {
//GenerateTriadic(op_subui,0,makereg(30),makereg(30),make_immed(30*8));
//GenerateDiadic(op_sm,0,make_indirect(30), make_mask(0x9FFFFFFE));
}
if (!sym->IsNocall) {
GenerateTriadic(op_subui,0,makereg(30),makereg(30),make_immed(24));
// For a leaf routine don't bother to store the link register or exception link register.
if (sym->IsLeaf)
GenerateDiadic(op_sw,0,makereg(27),make_indirect(30));
else {
GenerateDiadic(op_sw, 0, makereg(27), make_indexed(0,30));
GenerateDiadic(op_sw, 0, makereg(28), make_indexed(8,30));
GenerateDiadic(op_sw, 0, makereg(31), make_indexed(16,30));
GenerateDiadic(op_lea,0,makereg(28),make_label(throwlab));
}
GenerateDiadic(op_mov,0,makereg(27),makereg(30));
if (lc_auto)
GenerateTriadic(op_subui,0,makereg(30),makereg(30),make_immed(lc_auto));
}
if (optimize)
opt1(stmt);
GenerateStatement(stmt);
GenerateReturn(sym,0);
// Generate code for the hidden default catch
GenerateLabel(throwlab);
if (sym->IsLeaf){
if (sym->DoesThrow) {
GenerateDiadic(op_mov,0,makereg(31),makereg(28));
GenerateDiadic(op_bra,0,make_label(retlab),NULL); // goto regular return cleanup code
}
}
else {
GenerateDiadic(op_lw,0,makereg(31),make_indexed(8,27)); // load throw return address from stack into LR
GenerateDiadic(op_sw,0,makereg(31),make_indexed(16,27)); // and store it back (so it can be loaded with the lm)
GenerateDiadic(op_bra,0,make_label(retlab),NULL); // goto regular return cleanup code
}
}
int sivakumar()
{
char men[][20]={"Mazes","Speed Level","Top Scorer List","Back"};
int w=0,k,g=130,h=200;
setpos(0,0);
viewport();
setcolor(8);
settextstyle(1,0,2);
for(k=0;k<4;k++)
{
outtextxy(g,h,men[k]);
h+=textheight(men[k])+10;
}
settextstyle(7,0,5);
setcolor(14);
outtextxy(210,90,"OPTIONS");
while(1)
{
pos(&button,&n,&m);
w=opt1(n,m);
settextstyle(1,0,2);
g=130;
h=200;
for(k=0;k<4;k++)
{
if(w==k+1)
{
setcolor(11);
outtextxy(g,h,men[k]);
h+=textheight(men[k])+10;
if(button==1)
return w;
}
else
{
setcolor(8);
outtextxy(g,h,men[k]);
h+=textheight(men[k])+10;
}
}
}
// getch();
}
void genfunc(SNODE *stmt)
/*
* generate a function body.
*/
{ retlab = contlab = breaklab = -1;
funcfloat = 0;
init_muldivval();
stackdepth = 0;
if (stmt->stype == st_line) {
gen_line(stmt);
stmt = stmt->next;
}
gen_codelab(currentfunc); /* name of function */
opt1(stmt); /* push args & also subtracts SP */
#ifdef CPLUSPLUS
if (prm_cplusplus)
scppinit();
#endif
genstmt(stmt);
genreturn(0,1);
}
// Generate a function body.
//
void GenerateFunction(SYM *sym, Statement *stmt)
{
char buf[20];
char *bl;
int cnt, nn;
AMODE *ap;
ENODE *ep;
SYM *sp;
throwlab = retlab = contlab = breaklab = -1;
lastsph = 0;
memset(semaphores,0,sizeof(semaphores));
throwlab = nextlabel++;
while( lc_auto & 7 ) /* round frame size to word */
++lc_auto;
if (sym->IsInterrupt) {
//GenerateTriadic(op_subui,0,makereg(30),makereg(30),make_immed(30*8));
//GenerateDiadic(op_sm,0,make_indirect(30), make_mask(0x9FFFFFFE));
}
if (!sym->IsNocall) {
GenerateTriadic(op_subui,0,makereg(SP),makereg(SP),make_immed(32));
if (lc_auto || sym->NumParms > 0) {
GenerateDiadic(op_ss|op_sw,0,makereg(regBP),make_indirect(SP));
}
// if (sym->UsesPredicate)
GenerateDiadic(op_ss|op_sws, 0, make_string("pregs"), make_indexed(24,SP));
// For a leaf routine don't bother to store the link register or exception link register.
if (!sym->IsLeaf) {
if (exceptions) {
GenerateDiadic(op_ss|op_sws, 0, makebreg(CLR), make_indexed(8,SP));
}
GenerateDiadic(op_ss|op_sws, 0, makebreg(LR), make_indexed(16,SP));
if (exceptions) {
ep = allocEnode();
ep->nodetype = en_clabcon;
ep->i = throwlab;
ap = allocAmode();
ap->mode = am_immed;
ap->offset = ep;
GenerateDiadic(op_ldis,0, makebreg(CLR), ap);
}
}
if (lc_auto || sym->NumParms > 0) {
GenerateDiadic(op_mov,0,makereg(regBP),makereg(regSP));
if (lc_auto)
GenerateTriadic(op_subui,0,makereg(regSP),makereg(regSP),make_immed(lc_auto));
}
// Save registers used as register variables.
// **** Done in Analyze.c ****
//if( save_mask != 0 ) {
// GenerateTriadic(op_subui,0,makereg(SP),makereg(SP),make_immed(popcnt(save_mask)*8));
// cnt = (bitsset(save_mask)-1)*8;
// for (nn = 31; nn >=1 ; nn--) {
// if (save_mask & (1 << nn)) {
// GenerateTriadic(op_sw,0,makereg(nn),make_indexed(cnt,SP),NULL);
// cnt -= 8;
// }
// }
//}
}
if (optimize)
sym->NumRegisterVars = opt1(stmt);
GenerateStatement(stmt);
GenerateReturn(sym,0);
// Generate code for the hidden default catch
if (exceptions) {
if (sym->IsLeaf){
if (sym->DoesThrow) {
GenerateLabel(throwlab);
ap = GetTempRegister();
GenerateDiadic(op_mfspr,0,ap,makebreg(CLR));
GenerateDiadic(op_mtspr,0,makebreg(LR),ap);
ReleaseTempRegister(ap);
GenerateMonadic(op_bra,0,make_clabel(retlab)); // goto regular return cleanup code
}
}
else {
GenerateLabel(throwlab);
GenerateDiadic(op_lws,0,makebreg(regLR),make_indexed(8,regBP)); // load throw return address from stack into LR
GenerateDiadic(op_sws,0,makebreg(regLR),make_indexed(16,regBP)); // and store it back (so it can be loaded with the lm)
GenerateMonadic(op_bra,0,make_clabel(retlab)); // goto regular return cleanup code
}
}
}
// Generate a function body.
//
void GenerateFunction(SYM *sym, Statement *stmt)
{
char buf[20];
char *bl;
int cnt, nn;
AMODE *ap;
ENODE *ep;
SYM *sp;
std::string vep;
throwlab = retlab = contlab = breaklab = -1;
lastsph = 0;
memset(semaphores,0,sizeof(semaphores));
throwlab = nextlabel++;
retlab = nextlabel++;
while( lc_auto & 7 ) /* round frame size to word */
++lc_auto;
if (sym->IsInterrupt) {
//GenerateTriadic(op_subui,0,makereg(30),makereg(30),make_immed(30*8));
//GenerateDiadic(op_sm,0,make_indirect(30), make_mask(0x9FFFFFFE));
}
if (sym->prolog) {
if (optimize)
opt1(sym->prolog);
GenerateStatement(sym->prolog);
}
if (!sym->IsNocall) {
GenerateTriadic(op_addui,0,makereg(regSP),makereg(regSP),make_immed(-GetReturnBlockSize()));
if (lc_auto || sym->NumParms > 0) {
GenerateDiadic(op_sw,0,makereg(regBP),make_indirect(regSP));
}
// if (sym->UsesPredicate)
GenerateDiadic(op_sws, 0, make_string("pregs"), make_indexed(24,regSP));
GenerateDiadic(op_sw, 0, makereg(regCLP),make_indexed(32,regSP));
// For a leaf routine don't bother to store the link register or exception link register.
// Since virtual functions call other functions, they can't be leaf
// routines.
if (!sym->IsLeaf || sym->IsVirtual) {
if (exceptions) {
GenerateDiadic(op_sws, 0, makebreg(regXLR), make_indexed(8,regSP));
}
GenerateDiadic(op_sws, 0, makebreg(regLR), make_indexed(16,regSP));
if (exceptions) {
ep = allocEnode();
ep->nodetype = en_clabcon;
ep->i = throwlab;
ap = allocAmode();
ap->mode = am_immed;
ap->offset = ep;
GenerateDiadic(op_ldis,0, makebreg(regXLR), ap);
}
}
GenerateDiadic(op_lw,0,makereg(regCLP),make_indexed(GetReturnBlockSize(),regSP));
vep = *sym->mangledName;
vep += "_VEP";
GenerateMonadic(op_fnname,0,make_string((char *)vep.c_str()));
// Generate switch to call derived methods
if (sym->IsVirtual || sym->derivitives) {
char buf[20];
char *buf2;
DerivedMethod *mthd;
dfs.printf("VirtualFunction Switch");
GenerateDiadic(op_lcu,0,makereg(24),make_indirect(regCLP));
mthd = sym->derivitives;
while (mthd) {
sprintf(buf, "p%d", 7);
buf2 = my_strdup(buf);
GenerateTriadic(op_cmpi,0,make_string(buf2),makereg(24),make_immed(mthd->typeno));
vep = *(mthd->name);
vep += "_VEP"; // Virtual Entry Point
GeneratePredicatedMonadic(7,PredOp(op_eq),op_jmp,0,
make_string((char *)vep.c_str())); // jump to the method
mthd = mthd->next;
}
}
if (lc_auto || sym->NumParms > 0) {
GenerateDiadic(op_mov,0,makereg(regBP),makereg(regSP));
if (lc_auto)
GenerateTriadic(op_addui,0,makereg(regSP),makereg(regSP),make_immed(-lc_auto));
}
// Save registers used as register variables.
// **** Done in Analyze.c ****
//if( save_mask != 0 ) {
// GenerateTriadic(op_subui,0,makereg(SP),makereg(SP),make_immed(popcnt(save_mask)*8));
// cnt = (bitsset(save_mask)-1)*8;
// for (nn = 31; nn >=1 ; nn--) {
// if (save_mask & (1 << nn)) {
// GenerateTriadic(op_sw,0,makereg(nn),make_indexed(cnt,SP),NULL);
// cnt -= 8;
// }
// }
//}
}
if (optimize)
sym->NumRegisterVars = opt1(stmt);
GenerateStatement(stmt);
GenerateEpilog(sym);
// Generate code for the hidden default catch
if (exceptions) {
if (sym->IsLeaf){
if (sym->DoesThrow) {
GenerateLabel(throwlab);
ap = GetTempRegister();
GenerateDiadic(op_mfspr,0,ap,makebreg(regXLR));
GenerateDiadic(op_mtspr,0,makebreg(regLR),ap);
ReleaseTempRegister(ap);
GenerateMonadic(op_br,0,make_clabel(retlab)); // goto regular return cleanup code
}
}
else {
GenerateLabel(throwlab);
GenerateDiadic(op_lws,0,makebreg(regLR),make_indexed(8,regBP)); // load throw return address from stack into LR
GenerateDiadic(op_sws,0,makebreg(regLR),make_indexed(16,regBP)); // and store it back (so it can be loaded with the lm)
GenerateMonadic(op_br,0,make_clabel(retlab)); // goto regular return cleanup code
}
}
}
// Generate function epilog code.
//
void GenerateEpilog(SYM *sym)
{
AMODE *ap;
int nn;
int lab1;
int cnt;
// Generate the return code only once. Branch to the return code for all returns.
GenerateLabel(retlab);
// Unlock any semaphores that may have been set
for (nn = lastsph - 1; nn >= 0; nn--)
GenerateDiadic(op_sb,0,makereg(0),make_string(semaphores[nn]));
if (sym->IsNocall) // nothing to do for nocall convention
return;
// Restore registers used as register variables.
if( bsave_mask != 0 ) {
cnt = (bitsset(bsave_mask)-1)*8;
for (nn = 15; nn >=1 ; nn--) {
if (bsave_mask & (1 << nn)) {
GenerateDiadic(op_lws,0,makebreg(nn),make_indexed(cnt,regSP));
cnt -= 8;
}
}
GenerateTriadic(op_addui,0,makereg(SP),makereg(regSP),make_immed(popcnt(bsave_mask)*8));
}
if( save_mask != 0 ) {
cnt = (bitsset(save_mask)-1)*8;
for (nn = 31; nn >=1 ; nn--) {
if (save_mask & (1 << nn)) {
GenerateDiadic(op_lw,0,makereg(nn),make_indexed(cnt,regSP));
cnt -= 8;
}
}
GenerateTriadic(op_addui,0,makereg(regSP),makereg(regSP),make_immed(popcnt(save_mask)*8));
}
// Unlink the stack
// For a leaf routine the link register and exception link register doesn't need to be saved/restored.
if (lc_auto || sym->NumParms > 0) {
GenerateDiadic(op_mov,0,makereg(regSP),makereg(regBP));
GenerateDiadic(op_lw,0,makereg(regBP),make_indirect(regSP));
}
if (!sym->IsLeaf) {
if (exceptions)
GenerateDiadic(op_lws,0,makebreg(regXLR),make_indexed(8,regSP)); // 11=CLR
GenerateDiadic(op_lws,0,makebreg(regLR),make_indexed(16,regSP)); // 1 = LR
// if (sym->UsesPredicate)
}
GenerateDiadic(op_lws,0,make_string("pregs"),make_indexed(24,regSP));
GenerateDiadic(op_lw,0,makereg(regCLP),make_indexed(32,regSP));
if (sym->epilog) {
if (optimize)
opt1(sym->epilog);
GenerateStatement(sym->epilog);
return;
}
//if (isOscall) {
// GenerateDiadic(op_move,0,makereg(0),make_string("_TCBregsave"));
// gen_regrestore();
//}
// Generate the return instruction. For the Pascal calling convention pop the parameters
// from the stack.
if (sym->IsInterrupt) {
//GenerateTriadic(op_addui,0,makereg(30),makereg(30),make_immed(24));
//GenerateDiadic(op_lm,0,make_indirect(30),make_mask(0x9FFFFFFE));
//GenerateTriadic(op_addui,0,makereg(30),makereg(30),make_immed(popcnt(0x9FFFFFFE)*8));
GenerateMonadic(op_rti,0,(AMODE *)NULL);
return;
}
if (sym->IsPascal) {
GenerateTriadic(op_addui,0,makereg(regSP),makereg(regSP),make_immed(GetReturnBlockSize()+sym->NumParms * 8));
GenerateMonadic(op_rts,0,(AMODE *)NULL);
}
else {
GenerateTriadic(op_addui,0,makereg(regSP),makereg(regSP),make_immed(GetReturnBlockSize()));
GenerateMonadic(op_rts,0,(AMODE*)NULL);
}
}
//
// THIS TEST SHOULD FAIL TO COMPILE
//
void test_no_unsupported_conversion()
{
boost::optional<int> opt1(1) ;
boost::optional< std::string > opt2( opt1 ) ; // Cannot convert from "int" to "std::string"
}
// Generate a return statement.
//
void GenerateReturn(SYM *sym, Statement *stmt)
{
AMODE *ap;
int nn;
int lab1;
int cnt;
if (sym->IsKernel)
regSP = 31;
// Generate code to evaluate the return expression.
if( stmt != NULL && stmt->exp != NULL )
{
initstack();
ap = GenerateExpression(stmt->exp,F_ALL & ~F_BREG,8);
// Force return value into register 1
if( ap->preg != 1 ) {
if (ap->mode == am_immed)
GenerateDiadic(op_ldi, 0, makereg(1),ap);
else if (ap->mode == am_reg)
GenerateDiadic(op_mov, 0, makereg(1),ap);
else
GenerateDiadic(op_lw,0,makereg(1),ap);
}
}
// Generate the return code only once. Branch to the return code for all returns.
if( retlab == -1 )
{
retlab = nextlabel++;
GenerateLabel(retlab);
// Unlock any semaphores that may have been set
for (nn = lastsph - 1; nn >= 0; nn--)
GenerateDiadic(op_sb,0,makereg(0),make_string(semaphores[nn]));
if (sym->IsNocall) // nothing to do for nocall convention
return;
// Restore registers used as register variables.
if( bsave_mask != 0 ) {
cnt = (bitsset(bsave_mask)-1)*8;
for (nn = 15; nn >=1 ; nn--) {
if (bsave_mask & (1 << nn)) {
GenerateDiadic(op_lws,0,makebreg(nn),make_indexed(cnt,SP));
cnt -= 8;
}
}
GenerateTriadic(op_addui,0,makereg(SP),makereg(SP),make_immed(popcnt(bsave_mask)*8));
}
if( save_mask != 0 ) {
cnt = (bitsset(save_mask)-1)*8;
for (nn = 31; nn >=1 ; nn--) {
if (save_mask & (1 << nn)) {
GenerateDiadic(op_lw,0,makereg(nn),make_indexed(cnt,SP));
cnt -= 8;
}
}
GenerateTriadic(op_addui,0,makereg(SP),makereg(SP),make_immed(popcnt(save_mask)*8));
}
// Unlink the stack
// For a leaf routine the link register and exception link register doesn't need to be saved/restored.
if (lc_auto || sym->NumParms > 0) {
GenerateDiadic(op_mov,0,makereg(SP),makereg(regBP));
GenerateDiadic(op_lw,0,makereg(regBP),make_indirect(regSP));
}
if (!sym->IsLeaf) {
if (exceptions)
GenerateDiadic(op_lws,0,makebreg(11),make_indexed(8,regSP)); // 11=CLR
GenerateDiadic(op_lws,0,makebreg(1),make_indexed(16,regSP)); // 1 = LR
// if (sym->UsesPredicate)
}
GenerateDiadic(op_lws,0,make_string("pregs"),make_indexed(24,regSP));
if (sym->epilog) {
if (optimize)
opt1(sym->epilog);
GenerateStatement(sym->epilog);
return;
}
//if (isOscall) {
// GenerateDiadic(op_move,0,makereg(0),make_string("_TCBregsave"));
// gen_regrestore();
//}
// Generate the return instruction. For the Pascal calling convention pop the parameters
// from the stack.
if (sym->IsInterrupt) {
//GenerateTriadic(op_addui,0,makereg(30),makereg(30),make_immed(24));
//GenerateDiadic(op_lm,0,make_indirect(30),make_mask(0x9FFFFFFE));
//GenerateTriadic(op_addui,0,makereg(30),makereg(30),make_immed(popcnt(0x9FFFFFFE)*8));
GenerateMonadic(op_rti,0,(AMODE *)NULL);
return;
}
if (sym->IsPascal) {
GenerateTriadic(op_addui,0,makereg(regSP),makereg(regSP),make_immed(32+sym->NumParms * 8));
GenerateMonadic(op_rts,0,(AMODE *)NULL);
}
else {
GenerateTriadic(op_addui,0,makereg(regSP),makereg(regSP),make_immed(32));
GenerateMonadic(op_rts,0,(AMODE*)NULL);
}
}
// Just branch to the already generated stack cleanup code.
else {
GenerateMonadic(op_br,0,make_clabel(retlab));
}
regSP = 27;
}
bool test_feature(const vector<accelerator>& devices)
{
int edata[_rank];
for (int i = 0; i < _rank; i++)
edata[i] = 3;
printf("Found %d devices\n", devices.size());
for (size_t i = 0; i < devices.size()-1; i++)
{
accelerator device1 = devices[i];
accelerator device2 = devices[i+1];
if (_rank > 0)
{
const int rank = 1;
Concurrency::array<_type, rank> src1(edata[0], device1.get_default_view());
Concurrency::array<_type, rank> src2(edata[0], device2.get_default_view());
// let the kernel initialize data;
extent<1> e1(edata);
parallel_for_each(e1, [&](index<rank> idx) __GPU_ONLY
{
src1[idx] = _rank;
src2[idx] = _rank;
});
// Copy data to CPU
vector<_type> opt1(e1.size());
opt1 = src1;
vector<_type> opt2(e1.size());
opt2 = src2;
for (unsigned int i = 0; i < e1.size(); i++)
{
if ((opt1[i] != _rank) || (opt2[i] != _rank))
return false;
}
printf ("Passed for rank %d\n", rank);
rank_step = rank;
}
if (_rank > 1)
{
const int rank = 2;
rank_step = rank;
Concurrency::array<_type, rank> src1(edata[0], edata[1], device1.get_default_view());
Concurrency::array<_type, rank> src2(edata[0], edata[1], device2.get_default_view());
// let the kernel initialize data;
extent<rank> e1(edata);
parallel_for_each(e1, [&](index<rank> idx) __GPU_ONLY
{
src1[idx] = _rank;
src2[idx] = _rank;
});
// Copy data to CPU
vector<_type> opt1(e1.size());
opt1 = src1;
vector<_type> opt2(e1.size());
opt2 = src2;
for (unsigned int i = 0; i < e1.size(); i++)
{
if ((opt1[i] != _rank) || (opt2[i] != _rank))
return false;
}
printf ("Passed for rank %d\n", rank);
rank_step = rank;
}
