## 'entry' assembly directive.# pc: int = -1;tid: int = -1; ## Set the entry point; entry is the beginning of "main".# setentry(l: int, i: int){ if(pc != -1) verifyerrormess("main overloaded"); pc = l; tid = i;} ## Emit 'entry' assembly directive.# asmentry(){ if(pc == -1) return; bout.puts("\tentry\t" + string pc + ", " + string tid + "\n");} disentry(){ discon(pc); discon(tid);}
#
# 'entry' assembly directive.
#
pc: int = -1;
tid: int = -1;
#
# Set the entry point; entry is the beginning of "main".
#
setentry(l: int, i: int)
{
if(pc != -1)
verifyerrormess("main overloaded");
pc = l;
tid = i;
}
#
# Emit 'entry' assembly directive.
#
asmentry()
{
if(pc == -1)
return;
bout.puts("\tentry\t" + string pc + ", " + string tid + "\n");
}
disentry()
{
discon(pc);
discon(tid);
}