BOOL FASTCALL PreprocessInterrupt(int code)
{
FUNC *func;
U8 *oldPtr;
GetNextWord();
if(PRECOMPILING)
return TRUE;
if( (func=FindFunction(functions, szTemp)) == NULL || func->type != FUNCTYPE_INTERRUPT) {
error(ERR_INTERRUPTNAMEEXP,szTemp);
return FALSE;
}
if(FUNCFLAG_GETTYPE(func->flags) != code) {
error(ERR_INTERRUPTTYPE, func->label, szIntTypes[code], szIntTypes[FUNCFLAG_GETTYPE(func->flags)]);
return FALSE;
}
func->flags |= FUNCFLAG_USED;
CheckRomBank();
if(curBank->maxsize<6){//curBank->maxsize+curBank->org<0xFFFA) {
error(ERR_CURBANKINTERRUPTSMALL,curBank->label);
return TRUE;
}
oldPtr = curBank->ptr;
curBank->end = curBank->buffer+curBank->maxsize-6;
switch(code) {
case PREPROCESS_INTERRUPT_NMI:
//if(curBank->ptr > curBank->end-6)
// error(ERR_CURBANKINTERRUPTOVER,curBank->label);
BankSeek(curBank->maxsize-6);//0xFFFA-curBank->org);
break;
case PREPROCESS_INTERRUPT_START:
//if(curBank->ptr > curBank->end-4)
// error(ERR_CURBANKINTERRUPTOVER,curBank->label);
BankSeekIntVect(curBank->maxsize-4);//0xFFFC-curBank->org);
break;
case PREPROCESS_INTERRUPT_IRQ:
//if(curBank->ptr > curBank->end-2)
// error(ERR_CURBANKINTERRUPTOVER,curBank->label);
BankSeekIntVect(curBank->maxsize-2);//0xFFFE-curBank->org);
break;
}
AddFixOffs(FIXTYPE_FUNCTION,FIXOFFS_FAR,curBank->ptr,0,func);
BankWriteIntVect(0);
curBank->ptr = oldPtr;
return TRUE;
}
BOOL FASTCALL comProc_VarDeclare(U16 flags, S16 *brackCnt)
{
int cast,arraySize,elementsSize,braceCnt;
S32 offset=-1,elementsEnd;
S32 num;
U16 varflags = 0;
char *label=NULL;
VAR *castvar=NULL;
VAR *var=NULL,*pvar;
BOOL VARSET, SEEKED = FALSE;
if(!STRCMP(szTemp,"typedef")) {
varflags |= VARFLAG_TYPECAST;
GetNextWord();
}
if(!STRCMP(szTemp,"shared")) {
varflags |= VARFLAG_SHARED;
GetNextWord();
}
if((cast=IsVarCast(szTemp,&castvar))==VARCAST_NULL) {
if(varflags&VARFLAG_TYPECAST) {
error(ERR_NOTTYPECAST,szTemp);
return TRUE;
}
return FALSE;
}
if(curVar&&(curVar->flags&VARFLAG_TYPECAST))
varflags |= VARFLAG_TYPECAST;
for(;;) {
if(!IsStringLabel(GetNextWord())) {
error(ERR_BADLABEL,szTemp);
sprintf(szTemp, "invlabel_%04X", invlabel++);
} else {
if(PRECOMPILING && IsLabelUsed(szTemp,curVar?curVar->childVars:vars))
sprintf(szTemp, "invlabel_%04X", invlabel++);
}
label = strdup(szTemp);
if(PeekNextWord()[0]==':') {
GetNextWord();
if(IsStrNum(GetNextWord())) {
offset = ConfirmWord(StrToInt(szTemp));
varflags |= VARFLAG_FIXED;
} else
error(ERR_INTEXP);
VARSET = TRUE;
} else {
if(varflags&VARFLAG_TYPECAST)
VARSET = TRUE;
else if(!curBank)
fatal(FTL_VARNOTROMBANK);
if(cast == VARCAST_STRUCT && !(varflags & VARFLAG_TYPECAST) && !PRECOMPILING) {
offset = GetBankOffset();
VARSET = TRUE;
} else
VARSET = FALSE;
}
if(PRECOMPILING) {
var = AddVariable(label, cast, castvar, varflags, offset);
if(varflags&VARFLAG_TYPECAST) {
if(curVar) {
var->offset = VarSize(curVar);
}
}
} else {
var = FindVariable(curVar?curVar->childVars:(varflags&VARFLAG_TYPECAST)?typedefs:vars, label);
if(!(var->flags&VARFLAG_TYPECAST) && (!(var->flags&VARFLAG_DEFCASTED) || cast!=VARCAST_STRUCT) && (var->offset==-1))
SetVarOffsets(var,GetBankOffset(),FALSE);
}
if(castvar) {
var->size = castvar->size;
}
arraySize = 0;
if(PeekNextWord()[0]=='[') {
GetNextWord();
if(PeekNextWord()[0]==']') {
arraySize=-1;//autosize
GetNextWord();
} else { /*
if(IsStrNum(szTemp)) {
if(((var->flags&VARFLAG_TYPECAST) && PRECOMPILING) || (!(var->flags&VARFLAG_TYPECAST))) {
arraySize = ConfirmWord(StrToInt(szTemp));
var->arraySize = arraySize;
}
} else
error(ERR_INTEXP);
*/
CompileImmediateInteger(0, &num, -1, 0);
if(((var->flags&VARFLAG_TYPECAST) && PRECOMPILING) || (!(var->flags&VARFLAG_TYPECAST))) {
arraySize = ConfirmWord(num);
var->arraySize = arraySize;
}
if(GetNextWord()[0]!=']')
error(ERR_ARRAYENDEXP,szTemp);
}
}
if(!(var->flags&VARFLAG_DEFCASTED) && (cast==VARCAST_STRUCT)) {
SetCurVar(var);
GetCode(flags|CF_BRACEOK|CF_GETNEXTWORD, brackCnt);
ReleaseCurVar();
} else {
if(PeekNextWord()[0]=='=') {
GetNextWord();
if(var->flags&VARFLAG_TYPECAST) {
error(ERR_VARCASTASSIGN,label);
SeekPastBraceBlock();
} else if(curBank->type==BANKTYPE_RAM) {
error(ERR_VARDECLAREINRAM);
SeekPastBraceBlock();
} else {
elementsSize = 0;
elementsEnd =
(GetBankOffset()-curBank->org) +
((arraySize==-1)?
var->size:var->size*arraySize);
if(GetNextWord()[0]=='{') {
if(!arraySize) {
error(ERR_NOTARRAY,var->label);
}
braceCnt = 1;
GetNextWord();
} else braceCnt = 0;
do {
braceCnt =
CompileVarBody(flags,brackCnt, var, &elementsSize, braceCnt, cast);
} while(braceCnt);
if(!PRECOMPILING) {
if(arraySize==-1) {
arraySize=elementsSize/VarSize(var);
SEEKED = TRUE;
} else {
if(elementsSize>VarSize(var))
error(ERR_ELEMENTSTOOLARGE,var->label,elementsSize-VarSize(var));
BankSeek(elementsEnd);
SEEKED = TRUE;
}
var->arraySize = arraySize;
}
}
} else {
if(((var->flags&VARFLAG_TYPECAST) && PRECOMPILING) || (!(var->flags&VARFLAG_TYPECAST) && !PRECOMPILING && !VARSET)) {
if(arraySize==-1)
arraySize = 1;
if(arraySize!=0)
var->arraySize = arraySize;
if(!PRECOMPILING) {
BankSeekFwd(VarSize(var));
SEEKED = TRUE;
}
}
}
if(((var->flags&VARFLAG_TYPECAST) && PRECOMPILING) || (!(var->flags&VARFLAG_TYPECAST) && !PRECOMPILING)) {
// adjust all the var sizes for structs
arraySize = VarSize(var);
pvar = var->parent;
while(pvar) {
pvar->size += arraySize;
pvar = pvar->parent;
}
}
}
if(!(var->flags&VARFLAG_TYPECAST) && (cast==VARCAST_STRUCT))
SetVarOffsets(var,offset,FALSE);
// removed 2004-05-22, if problems occurs, check
if(!SEEKED && (var->flags&(VARFLAG_TYPECAST|VARFLAG_DEFCASTED))==VARFLAG_DEFCASTED && (cast==VARCAST_STRUCT)) {
CheckCurBank();
if((var->flags&VARFLAG_TYPECAST) || !PRECOMPILING)
BankSeekFwd(VarSize(var));
}
ssFree(label);
if(PeekNextWord()[0]!=',')
break;
GetNextWord();
}
return TRUE;
}
