short debugLine;
short stackExtend;
short nRegsSaved;
+ short parmsPushed;
set *sendSet;
}
_G;
static char *MOVB="mov.b";
static char *MOVW="mov.w";
static char *MOVC="movc";
+static char *MOVCB="movc.b";
+static char *MOVCW="movc.w";
static char *R1L="r1l";
static char *R1="r1";
char *getStackOffset(int stack) {
static char gsoBuf[1024];
- sprintf (gsoBuf, "r7+(%d%+d%+d%+d)", stack,
- FUNC_ISISR(currFunc->type) ?
- port->stack.isr_overhead : port->stack.call_overhead,
+ sprintf (gsoBuf, "r7+(%d%+d%+d)", stack,
currFunc->stack, _G.nRegsSaved);
return gsoBuf;
}
{
case 1:
emitcode (MOV, "r0,#%s", sym->rname);
- emitcode (MOVC, "r0l,[r0]");
+ emitcode (MOVC, "r0l,[r0+]");
sprintf (aop->name[0], "r0l");
return aop;
case 2:
emitcode (MOV, "r0,#%s", sym->rname);
- emitcode (MOVC, "r0,[r0]");
+ emitcode (MOVC, "r0,[r0+]");
sprintf (aop->name[0], "r0");
return aop;
case 3:
emitcode (MOV, "r0,#%s", sym->rname);
- emitcode (MOVC, "r1l,[r0+2]");
- sprintf (aop->name[1], "r1l");
- emitcode (MOV, "r0,[r0]");
- sprintf (aop->name[0], "r0");
+ emitcode (MOVC, "r0,[r0+]");
+ sprintf (aop->name[1], "r0");
+ emitcode (MOV, "r1l,[r0+]");
+ sprintf (aop->name[0], "r1l");
return aop;
case 4:
emitcode (MOV, "r0,#%s", sym->rname);
- emitcode (MOVC, "r1,[r0+2]");
- sprintf (aop->name[1], "r1");
- emitcode (MOVC, "r0,[r0]");
+ emitcode (MOVC, "r1,[r0+]");
+ emitcode (MOVC, "r0,[r0+]");
+ emitcode ("xch", "r0,r1");
sprintf (aop->name[0], "r0");
+ sprintf (aop->name[1], "r1");
return aop;
}
}
} else {
aop->type=AOP_FAR;
- emitcode ("mov", "r0,#%s ; aopForSym:far", sym->rname);
+ emitcode ("mov.w", "r0,#%s ; aopForSym:far", sym->rname);
sprintf (aop->name[0], "[r0]");
if (size>2) {
sprintf (aop->name[1], "[r0+2]");
}
}
-char *opRegName(operand *op, int offset, char *opName) {
+char *opRegName(operand *op, int offset, char *opName, bool decorate) {
if (IS_SYMOP(op)) {
if (OP_SYMBOL(op)->onStack) {
}
// fall through
case V_CHAR:
- sprintf (opName, "#0x%02x", SPEC_CVAL(OP_VALUE(op)->type).v_int);
+ sprintf (opName, "#%s0x%02x", decorate?"(char)":"",
+ SPEC_CVAL(OP_VALUE(op)->type).v_int);
break;
case V_INT:
if (SPEC_LONG(OP_VALUE(op)->type)) {
- sprintf (opName, "#0x%02lx", SPEC_CVAL(OP_VALUE(op)->type).v_long);
+ sprintf (opName, "#%s0x%02lx", decorate?"(long)":"",
+ SPEC_CVAL(OP_VALUE(op)->type).v_long);
} else {
- sprintf (opName, "#0x%02x", SPEC_CVAL(OP_VALUE(op)->type).v_int);
+ sprintf (opName, "#%s0x%02x", decorate?"(int)":"",
+ SPEC_CVAL(OP_VALUE(op)->type).v_int);
}
break;
case V_FLOAT:
- sprintf (opName, "#%f", SPEC_CVAL(OP_VALUE(op)->type).v_float);
+ sprintf (opName, "#%s%f", decorate?"(float)":"",
+ SPEC_CVAL(OP_VALUE(op)->type).v_float);
break;
default:
bailOut("opRegName: unexpected noun");
strcat (line, "unknown");
return line;
} else if (IS_VALOP(op)) {
- opRegName(op, 0, line);
+ opRegName(op, 0, line, 1);
} else if (IS_TYPOP(op)) {
- sprintf (line, "[");
+ sprintf (line, "(");
if (isPtr) {
if (DCL_TYPE(optype)==FPOINTER)
strcat (line, "far * ");
if (SPEC_USIGN(operandType(op))) strcat (line, "unsigned ");
if (SPEC_LONG(operandType(op))) strcat (line, "long ");
strcat (line, nounName(operandType(op)));
- strcat (line, "]");
+ strcat (line, ")");
} else {
bailOut("printOp: unexpected operand type");
}
return line;
}
-void printIc (char *op, iCode * ic, bool result, bool left, bool right) {
+void printIc (bool printToStderr,
+ char *op, iCode * ic, bool result, bool left, bool right) {
char line[132];
sprintf (line, "%s(%d)", op, ic->lineno);
strcat (line, printOp (IC_RIGHT(ic)));
}
emitcode (";", line);
+ if (printToStderr) {
+ fprintf (stderr, "%s\n", line);
+ }
}
/*-----------------------------------------------------------------*/
/* genNot - generate code for ! operation */
/*-----------------------------------------------------------------*/
static void genNot (iCode * ic) {
- printIc("genNot:", ic, 1,1,0);
+ printIc (0, "genNot:", ic, 1,1,0);
}
/*-----------------------------------------------------------------*/
/* genCpl - generate code for complement */
/*-----------------------------------------------------------------*/
static void genCpl (iCode * ic) {
- printIc("genCpl", ic, 1,1,0);
+ printIc (0, "genCpl", ic, 1,1,0);
}
/*-----------------------------------------------------------------*/
/* genUminus - unary minus code generation */
/*-----------------------------------------------------------------*/
static void genUminus (iCode * ic) {
- printIc("genUminus", ic, 1,1,0);
+ printIc (0, "genUminus", ic, 1,1,0);
}
/*-----------------------------------------------------------------*/
-/* genIpush - genrate code for pushing this gets a little complex */
+/* genIpush - generate code for pushing */
/*-----------------------------------------------------------------*/
static void genIpush (iCode * ic) {
- printIc ("genIpush", ic, 0,1,0);
+ operand *left=IC_LEFT(ic);
+
+ printIc (0, "genIpush", ic, 0,1,0);
+ aopOp(left,FALSE,FALSE);
+
+
+ if (AOP_TYPE(left)==AOP_LIT) {
+ switch (AOP_SIZE(left))
+ {
+ case 1:
+ emitcode ("mov", "r1l,%s", AOP_NAME(left)[0]);
+ emitcode ("push", "r1l");
+ _G.parmsPushed++;
+ return;
+ case 2:
+ emitcode ("mov", "r1,%s", AOP_NAME(left)[0]);
+ emitcode ("push", "r1");
+ _G.parmsPushed++;
+ return;
+ case 3:
+ emitcode ("mov", "r1l,%s", AOP_NAME(left)[1]);
+ emitcode ("push", "r1l");
+ emitcode ("mov", "r1,%s", AOP_NAME(left)[0]);
+ emitcode ("push", "r1");
+ _G.parmsPushed += 2;
+ return;
+ case 4:
+ emitcode ("mov", "r1,%s", AOP_NAME(left)[1]);
+ emitcode ("push", "r1");
+ emitcode ("mov", "r1,%s", AOP_NAME(left)[0]);
+ emitcode ("push", "r1");
+ _G.parmsPushed += 2;
+ return;
+ }
+ } else {
+ if (AOP_SIZE(left)>2) {
+ emitcode ("push", "%s", AOP_NAME(left)[1]);
+ _G.parmsPushed++;
+ }
+ emitcode ("push", "%s", AOP_NAME(left)[0]);
+ _G.parmsPushed++;
+ }
}
/*-----------------------------------------------------------------*/
/* genIpop - recover the registers: can happen only for spilling */
/*-----------------------------------------------------------------*/
static void genIpop (iCode * ic) {
- printIc ("genIpop", ic, 0,1,0);
+ printIc (0, "genIpop", ic, 0,1,0);
}
/*-----------------------------------------------------------------*/
/* genCall - generates a call statement */
/*-----------------------------------------------------------------*/
static void genCall (iCode * ic) {
- emitcode (";", "genCall %s result=%s", OP_SYMBOL(IC_LEFT(ic))->name,
+ operand *result=IC_RESULT(ic);
+
+ emitcode (";", "genCall(%d) %s result=%s", ic->lineno,
+ OP_SYMBOL(IC_LEFT(ic))->name,
printOp (IC_RESULT(ic)));
+ emitcode ("call", "%s", OP_SYMBOL(IC_LEFT(ic))->rname);
+
+ /* readjust the stack if we have pushed some parms */
+ if (_G.parmsPushed) {
+ emitcode ("add", "r7,#0x%02x", _G.parmsPushed*2);
+ _G.parmsPushed=0;
+ }
+
+ /* if we need to assign a result value */
+ if (IS_ITEMP (IC_RESULT(ic)) &&
+ OP_SYMBOL (IC_RESULT (ic))->nRegs) {
+ aopOp(result,FALSE,FALSE);
+ switch (AOP_SIZE(result))
+ {
+ case 1:
+ emitcode ("mov", "%s,r0l", AOP_NAME(result)[0]);
+ return;
+ case 2:
+ emitcode ("mov", "%s,r0", AOP_NAME(result)[0]);
+ return;
+ case 3:
+ // generic pointer
+ emitcode ("mov", "%s,r1l", AOP_NAME(result)[1]);
+ emitcode ("mov", "%s,r0", AOP_NAME(result)[0]);
+ return;
+ case 4:
+ emitcode ("mov", "%s,r1", AOP_NAME(result)[1]);
+ emitcode ("mov", "%s,r0", AOP_NAME(result)[0]);
+ return;
+ }
+ bailOut("genCall");
+ }
}
/*-----------------------------------------------------------------*/
{
symbol *sym = OP_SYMBOL (IC_LEFT (ic));
- printIc ("genEndFunction", ic, 0,0,0);
+ printIc (0, "genEndFunction", ic, 0,0,0);
if (IFFUNC_ISNAKED(sym->type)) {
emitcode(";", "naked function: no epilogue.");
/*-----------------------------------------------------------------*/
static void genRet (iCode * ic) {
- printIc ("genRet", ic, 0,1,0);
-
- aopOp(IC_LEFT(ic), TRUE, TRUE);
+ if (!IC_LEFT(ic)) {
+ printIc (0, "genRet", ic, 0, 0, 0);
+ } else {
+ printIc (0, "genRet", ic, 0, 1, 0);
+ aopOp(IC_LEFT(ic), TRUE, TRUE);
+ switch (AOP_SIZE(IC_LEFT(ic)))
+ {
+ case 4:
+ emitcode ("mov", "r1,%s", AOP_NAME(IC_LEFT(ic))[1]);
+ emitcode ("mov", "r0,%s", AOP_NAME(IC_LEFT(ic))[0]);
+ break;
+ case 3:
+ emitcode ("mov", "r1l,%s", AOP_NAME(IC_LEFT(ic))[1]);
+ // fall through
+ case 2:
+ emitcode ("mov", "r0,%s", AOP_NAME(IC_LEFT(ic))[0]);
+ break;
+ case 1:
+ emitcode ("mov", "r0l,%s", AOP_NAME(IC_LEFT(ic))[0]);
+ break;
+ default:
+ bailOut("genRet");
+ }
+ }
- switch (AOP_SIZE(IC_LEFT(ic)))
- {
- case 4:
- emitcode ("mov", "r1,%s", AOP_NAME(IC_LEFT(ic))[1]);
- emitcode ("mov", "r0,%s", AOP_NAME(IC_LEFT(ic))[0]);
- return;
- case 3:
- emitcode ("mov", "r1l,%s", AOP_NAME(IC_LEFT(ic))[1]);
- // fall through
- case 2:
- emitcode ("mov", "r0,%s", AOP_NAME(IC_LEFT(ic))[0]);
- return;
- case 1:
- emitcode ("mov", "r0l,%s", AOP_NAME(IC_LEFT(ic))[0]);
- return;
- }
- bailOut("genRet");
+ emitcode ("jmp", "%05d$", returnLabel->key+100);
}
/*-----------------------------------------------------------------*/
if (IC_LABEL (ic) == entryLabel)
return;
- emitcode (";", "genLabel %s", IC_LABEL(ic)->name);
+ emitcode (";", "genLabel(%d) %s", ic->lineno, IC_LABEL(ic)->name);
emitcode ("", "%05d$:", (IC_LABEL (ic)->key + 100));
}
/* genGoto - generates a jmp */
/*-----------------------------------------------------------------*/
static void genGoto (iCode * ic) {
- emitcode (";", "genGoto %s", IC_LABEL(ic)->name);
+ emitcode (";", "genGoto(%d) %s", ic->lineno, IC_LABEL(ic)->name);
emitcode ("jmp", "%05d$", (IC_LABEL (ic)->key + 100));
}
int size;
char *instr;
- printIc ("genPlus", ic, 1,1,1);
+ printIc (0, "genPlus", ic, 1,1,1);
size=aopOp(result, TRUE, TRUE);
aopOp(left, !aopIsPtr(result), !aopIsDir(result));
aopOp(right, !aopIsPtr(result), !aopIsDir(result));
+ // special case for * = * + char, needs a closer look
+ // heck, this shouldn't have come here but bug-223113 does
+ if (size==3 && AOP_SIZE(right)==1) {
+ emitcode ("mov", "r1l,%s", AOP_NAME(right)[0]);
+ emitcode ("mov", "r1h,#0"); // ptr arith unsigned????????????
+ emitcode ("mov", "%s,%s", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ emitcode ("add.w", "%s,r1", AOP_NAME(result)[0]);
+ emitcode ("mov", "%s,%s", AOP_NAME(result)[1], AOP_NAME(left)[1]);
+ return;
+ }
+
+ // special case for (whatever)* = (whatever)** + char, needs a closer look
+ // heck, this shouldn't have come here but bug-441448 does
+ if (size==2 && AOP_SIZE(right)==1) {
+ emitcode ("mov", "r1l,%s", AOP_NAME(right)[0]);
+ emitcode ("mov", "r1h,#0"); // ptr arith unsigned????????????
+ emitcode ("mov", "%s,%s", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ emitcode ("add.w", "%s,r1", AOP_NAME(result)[0]);
+ return;
+ }
+
if (size>1) {
instr="add.w";
} else {
/* genMinus - generates code for subtraction */
/*-----------------------------------------------------------------*/
static void genMinus (iCode * ic) {
- printIc ("genMinus", ic, 1,1,1);
+ printIc (0, "genMinus", ic, 1,1,1);
}
/* genMult - generates code for multiplication */
/*-----------------------------------------------------------------*/
static void genMult (iCode * ic) {
- printIc ("genMult", ic, 1,1,1);
+ printIc (0, "genMult", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
/* genDiv - generates code for division */
/*-----------------------------------------------------------------*/
static void genDiv (iCode * ic) {
- printIc ("genDiv", ic, 1,1,1);
+ printIc (0, "genDiv", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
/* genMod - generates code for division */
/*-----------------------------------------------------------------*/
static void genMod (iCode * ic) {
- printIc ("genMod", ic, 1,1,1);
-}
-
-/*-----------------------------------------------------------------*/
-/* genCmpGt :- greater than comparison */
-/*-----------------------------------------------------------------*/
-static void genCmpGt (iCode * ic) {
- printIc ("genCmpGt", ic, 1,1,1);
-}
-/*-----------------------------------------------------------------*/
-/* genCmpGt :- greater than comparison */
-/*-----------------------------------------------------------------*/
-static void genCmpLe (iCode * ic) {
- printIc ("genCmpLe", ic, 1,1,1);
-}
-/*-----------------------------------------------------------------*/
-/* genCmpGt :- greater than comparison */
-/*-----------------------------------------------------------------*/
-static void genCmpGe (iCode * ic) {
- printIc ("genCmpGe", ic, 1,1,1);
-}
-/*-----------------------------------------------------------------*/
-/* genCmpGt :- greater than comparison */
-/*-----------------------------------------------------------------*/
-static void genCmpNe (iCode * ic) {
- printIc ("genCmpNe", ic, 1,1,1);
-}
-/*-----------------------------------------------------------------*/
-/* genCmpLt - less than comparisons */
-/*-----------------------------------------------------------------*/
-static void genCmpLt (iCode * ic) {
- printIc ("genCmpLt", ic, 1,1,1);
-}
-/*-----------------------------------------------------------------*/
-/* genCmpEq - generates code for equal to */
-/*-----------------------------------------------------------------*/
-static void genCmpEq (iCode * ic) {
- printIc ("genCmpEq", ic, 1,1,1);
+ printIc (0, "genMod", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
return NULL;
}
+/*-----------------------------------------------------------------*/
+/* genCmp - compares whatever */
+/*-----------------------------------------------------------------*/
+static void genCmp (iCode * ic, char *trueInstr, char *falseInstr) {
+ iCode *ifx=ifxForOp(IC_RESULT(ic),ic);
+ operand *left=IC_LEFT(ic), *right=IC_RIGHT(ic);
+ int size;
+ bool isTrue;
+ char *instr;
+ int jlbl;
+
+ if (!ifx) {
+ bailOut("genCmp: no ifx");
+ } else {
+ ifx->generated=1;
+ }
+
+ size=aopOp(left, TRUE, TRUE);
+ aopOp(right, !aopIsPtr(left), TRUE);
+
+ if (IC_TRUE(ifx)) {
+ isTrue=TRUE;
+ jlbl=IC_TRUE(ifx)->key+100;
+ } else {
+ isTrue=FALSE;
+ jlbl=IC_FALSE(ifx)->key+100;
+ }
+
+ if (size==1) {
+ instr="cmp.b";
+ } else {
+ instr="cmp.w";
+ }
+ emitcode(instr, "%s,%s", AOP_NAME(left)[0], AOP_NAME(right)[0]);
+ emitcode(isTrue ? trueInstr : falseInstr, "%05d$", jlbl);
+ if (size>2) {
+ bailOut("genCmp: size > 2");
+ }
+}
+
+/*-----------------------------------------------------------------*/
+/* genCmpEq :- generates code for equal to */
+/*-----------------------------------------------------------------*/
+static void genCmpEq (iCode * ic) {
+ printIc (0, "genCmpEq", ic, 0,1,1);
+ genCmp(ic, "beq", "bne"); // no sign
+}
+
+/*-----------------------------------------------------------------*/
+/* genCmpGt :- greater than comparison */
+/*-----------------------------------------------------------------*/
+static void genCmpGt (iCode * ic) {
+ printIc (0, "genCmpGt", ic, 0,1,1);
+ if (SPEC_USIGN(operandType(IC_LEFT(ic))) ||
+ SPEC_USIGN(operandType(IC_RIGHT(ic)))) {
+ genCmp(ic, "bg", "bl"); // unsigned
+ } else {
+ genCmp(ic, "bgt", "ble"); // signed
+ }
+}
+
+/*-----------------------------------------------------------------*/
+/* genCmpLt - less than comparisons */
+/*-----------------------------------------------------------------*/
+static void genCmpLt (iCode * ic) {
+ printIc (0, "genCmpLt", ic, 0,1,1);
+ if (SPEC_USIGN(operandType(IC_LEFT(ic))) ||
+ SPEC_USIGN(operandType(IC_RIGHT(ic)))) {
+ genCmp(ic, "bcs", "bcc"); // unsigned
+ } else {
+ genCmp(ic, "blt", "bge"); // signed
+ }
+}
+
/*-----------------------------------------------------------------*/
/* hasInc - operand is incremented before any other use */
/*-----------------------------------------------------------------*/
while (lic) {
/* if operand of the form op = op + <sizeof *op> */
- if (lic->op == '+' && isOperandEqual(IC_LEFT(lic),op) &&
- isOperandEqual(IC_RESULT(lic),op) &&
- isOperandLiteral(IC_RIGHT(lic)) &&
- operandLitValue(IC_RIGHT(lic)) == isize) {
- return lic;
+ if (lic->op == '+') {
+ if (isOperandEqual(IC_LEFT(lic),op) &&
+ //isOperandEqual(IC_RESULT(lic),op) &&
+ isOperandLiteral(IC_RIGHT(lic)) &&
+ operandLitValue(IC_RIGHT(lic)) == isize) {
+ emitcode (";", "Found hasInc");
+ return lic;
+ }
}
/* if the operand used or deffed */
if (bitVectBitValue(OP_USES(op),lic->key) || (unsigned) lic->defKey == op->key) {
/* genAndOp - for && operation */
/*-----------------------------------------------------------------*/
static void genAndOp (iCode * ic) {
- printIc ("genAndOp(&&)", ic, 1,1,1);
+ printIc (0, "genAndOp(&&)", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
/* genOrOp - for || operation */
/*-----------------------------------------------------------------*/
static void genOrOp (iCode * ic) {
- printIc ("genOrOp(||)", ic, 1,1,1);
+ printIc (0, "genOrOp(||)", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
/* genAnd - code for and */
/*-----------------------------------------------------------------*/
static void genAnd (iCode * ic, iCode * ifx) {
- printIc ("genAnd", ic, 1,1,1);
+ printIc (0, "genAnd", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
int size;
char *instr;
- printIc ("genOr", ic, 1,1,1);
+ printIc (0, "genOr", ic, 1,1,1);
size=aopOp(result, TRUE, TRUE);
/* genXor - code for xclusive or */
/*-----------------------------------------------------------------*/
static void genXor (iCode * ic, iCode * ifx) {
- printIc ("genXor", ic, 1,1,1);
+ printIc (0, "genXor", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
/*-----------------------------------------------------------------*/
static void genInline (iCode * ic) {
- printIc ("genInline", ic, 0,0,0);
+ printIc (0, "genInline", ic, 0,0,0);
emitcode ("", IC_INLINE(ic));
}
/* genRRC - rotate right with carry */
/*-----------------------------------------------------------------*/
static void genRRC (iCode * ic) {
- printIc ("genRRC", ic, 1,1,0);
+ printIc (0, "genRRC", ic, 1,1,0);
}
/*-----------------------------------------------------------------*/
/* genRLC - generate code for rotate left with carry */
/*-----------------------------------------------------------------*/
static void genRLC (iCode * ic) {
- printIc ("genRLC", ic, 1,1,0);
+ printIc (0, "genRLC", ic, 1,1,0);
}
/*-----------------------------------------------------------------*/
/* genGetHbit - generates code get highest order bit */
/*-----------------------------------------------------------------*/
static void genGetHbit (iCode * ic) {
- printIc ("genGetHbit", ic, 1,1,0);
+ printIc (0, "genGetHbit", ic, 1,1,0);
}
/*-----------------------------------------------------------------*/
/* genLeftShift - generates code for left shifting */
/*-----------------------------------------------------------------*/
static void genLeftShift (iCode * ic) {
- printIc ("genLeftShift", ic, 1,1,1);
+ printIc (0, "genLeftShift", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
/* genRightShift - generate code for right shifting */
/*-----------------------------------------------------------------*/
static void genRightShift (iCode * ic) {
- printIc ("genRightShift", ic, 1,1,1);
+ printIc (0, "genRightShift", ic, 1,1,1);
}
/*-----------------------------------------------------------------*/
static void genPointerGet (iCode * ic, iCode *pi) {
char *instr, *scratchReg;
operand *result=IC_RESULT(ic), *left=IC_LEFT(ic);
+ bool codePointer=IS_CODEPTR(operandType(left));
int size;
- printIc ("genPointerGet", ic, 1,1,0);
+ if (pi) {
+ printIc (0, "genPointerGet pi", ic, 1,1,0);
+ } else {
+ printIc (0, "genPointerGet", ic, 1,1,0);
+ }
if (!IS_PTR(operandType(left))) {
bailOut ("genPointerGet: pointer required");
symbol *tlbl1=newiTempLabel(NULL);
symbol *tlbl2=newiTempLabel(NULL);
emitcode ("cmp", "%s,#0x%02x", AOP_NAME(left)[1], CPOINTER);
- emitcode ("bne", "%05d$", tlbl1->key+100);
+ emitcode ("beq", "%05d$", tlbl1->key+100);
// far/near pointer
- emitcode ("mov", "%s,[%s]", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ if (pi) {
+ emitcode ("mov", "%s,[%s+]", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ pi->generated=1;
+ } else {
+ emitcode ("mov", "%s,[%s]", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ }
if (size>2) {
- emitcode ("mov", "%s,[%s+2]", AOP_NAME(result)[1], AOP_NAME(left)[0]);
+ if (pi) {
+ emitcode ("mov", "%s,[%s+]", AOP_NAME(result)[1], AOP_NAME(left)[0]);
+ } else {
+ emitcode ("mov", "%s,[%s+2]", AOP_NAME(result)[1], AOP_NAME(left)[0]);
+ }
}
emitcode ("br", "%05d$", tlbl2->key+100);
emitcode ("", "%05d$:", tlbl1->key+100);
// code pointer
- emitcode ("mov", "r0,%s", AOP_NAME(left)[0]);
- emitcode ("movc", "%s,[r0+]", AOP_NAME(result)[0]);
+ if (pi) {
+ emitcode ("movc", "%s,[%s+]", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ pi->generated=1;
+ } else {
+ emitcode ("mov", "r0,%s", AOP_NAME(left)[0]);
+ emitcode ("movc", "%s,[r0+]", AOP_NAME(result)[0]);
+ }
if (size>2) {
- emitcode ("movc", "%s,[r0+]", AOP_NAME(result)[1], AOP_NAME(left)[1]);
+ if (pi) {
+ emitcode ("movc", "%s,[%s+]", AOP_NAME(result)[1], AOP_NAME(left)[0]);
+ } else {
+ emitcode ("movc", "%s,[r0+]", AOP_NAME(result)[1]);
+ }
}
emitcode ("", "%05d$:", tlbl2->key+100);
return;
switch (AOP_TYPE(left))
{
+ case AOP_LIT:
+ emitcode("mov","r1,%s", AOP_NAME(left)[0]);
+ sprintf (AOP_NAME(left)[0], "r1");
+ // fall through
case AOP_REG:
if (size>1) {
- instr=MOVW;
+ if (codePointer) {
+ instr=MOVCW;
+ } else {
+ instr=MOVW;
+ }
scratchReg=R1;
} else {
- instr=MOVB;
+ if (codePointer) {
+ instr=MOVCB;
+ } else {
+ instr=MOVB;
+ }
scratchReg=R1L;
}
if (AOP_TYPE(result)==AOP_STK) {
emitcode (MOV, "%s,%s", AOP_NAME(result)[0], scratchReg);
} else {
if (pi) {
- emitcode (instr, "%s,[%s+]", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ emitcode (instr, "%s,[%s+]", AOP_NAME(result)[0],
+ AOP_NAME(left)[0]);
pi->generated=1;
} else {
- emitcode (instr, "%s,[%s]", AOP_NAME(result)[0], AOP_NAME(left)[0]);
+ if (codePointer) {
+ emitcode (MOV, "r1,%s", AOP_NAME(left)[0]);
+ emitcode (instr, "%s,[r1+]", AOP_NAME(result)[0]);
+ } else {
+ emitcode (instr, "%s,[%s]", AOP_NAME(result)[0],
+ AOP_NAME(left)[0]);
+ }
}
}
if (size > 2) {
if (size==3) {
- instr=MOVB;
+ if (codePointer) {
+ instr=MOVCB;
+ } else {
+ instr=MOVB;
+ }
scratchReg=R1L;
}
if (AOP_TYPE(result)==AOP_STK) {
emitcode (instr, "%s,[%s+]", AOP_NAME(result)[1],
AOP_NAME(left)[0]);
} else {
- emitcode (instr, "%s,[%s+2]", AOP_NAME(result)[1],
- AOP_NAME(left)[0]);
+ if (codePointer) {
+ emitcode (instr, "%s,[r1]", AOP_NAME(result)[1]);
+ } else {
+ emitcode (instr, "%s,[%s+2]", AOP_NAME(result)[1],
+ AOP_NAME(left)[0]);
+ }
}
}
}
operand *result=IC_RESULT(ic), *right=IC_RIGHT(ic);
int size;
- printIc ("genPointerSet", ic, 1,0,1);
+ printIc (0, "genPointerSet", ic, 1,0,1);
if (!IS_PTR(operandType(result))) {
bailOut ("genPointerSet: pointer required");
int size;
char *instr;
bool trueOrFalse;
- symbol *jlbl, *tlbl;
+ symbol *jlbl, *tlbl=newiTempLabel(NULL);
operand *cond=IC_COND(ic);
- emitcode (";", "genIfx cond=%s trueLabel:%s falseLabel:%s",
- printOp(cond),
+ emitcode (";", "genIfx(%d) cond=%s trueLabel:%s falseLabel:%s",
+ ic->lineno, printOp(cond),
IC_TRUE(ic) ? IC_TRUE(ic)->name : "NULL",
IC_FALSE(ic) ? IC_FALSE(ic)->name : "NULL");
switch (AOP_TYPE(cond) )
{
case AOP_BIT:
- emitcode (trueOrFalse ? "jb" : "jbc", "%s,%05d$",
- AOP_NAME(cond)[0], jlbl->key+100);
+ emitcode (trueOrFalse ? "jnb" : "jb", "%s,%05d$",
+ AOP_NAME(cond)[0], tlbl->key+100);
+ emitcode ("jmp", "%05d$", jlbl->key+100);
+ emitcode ("", "%05d$:", tlbl->key+100);
return;
case AOP_REG:
case AOP_DIR:
case AOP_FAR:
case AOP_STK:
- tlbl=newiTempLabel(NULL);
if (size>1) {
instr="cmp.w";
} else {
int size;
operand *left=IC_LEFT(ic);
- printIc ("genAddrOf", ic, 1,1,0);
+ printIc (0, "genAddrOf", ic, 1,1,0);
size=aopOp (IC_RESULT(ic), FALSE, TRUE);
getStackOffset(OP_SYMBOL(left)->stack));
if (size > 2) {
// this must be a generic pointer
- emitcode ("mov", "%s,#0x%02x", AOP_NAME(IC_RESULT(ic))[1], FPOINTER);
+ emitcode ("mov.b", "%s,#0x%02x", AOP_NAME(IC_RESULT(ic))[1], FPOINTER);
}
return;
}
int size;
char *instr;
- printIc ("genAssign", ic, 1,0,1);
+ printIc (0, "genAssign", ic, 1,0,1);
if (!IS_SYMOP(result)) {
bailOut("genAssign: result is not a symbol");
return;
}
+ // TODO: if (-8 >= right==lit <= 7) instr=MOVS
/* general case */
if (size>1) {
instr=MOVW;
/* genJumpTab - genrates code for jump table */
/*-----------------------------------------------------------------*/
static void genJumpTab (iCode * ic) {
- printIc ("genJumpTab", ic, 0,0,0);
+ printIc (0, "genJumpTab", ic, 0,0,0);
}
/*-----------------------------------------------------------------*/
/* genCast - gen code for casting */
/*-----------------------------------------------------------------*/
static void genCast (iCode * ic) {
- printIc ("genCast", ic, 1,1,1);
+ int size;
+ operand *result=IC_RESULT(ic);
+ operand *right=IC_RIGHT(ic);
+ sym_link *ctype=operandType(IC_LEFT(ic));
+ sym_link *rtype=operandType(IC_RIGHT(ic));
+ sym_link *etype=getSpec(rtype);
+ short ptrType, signedness;
+
+ printIc (0, "genCast", ic, 1,1,1);
+
+ aopOp(result, TRUE, TRUE);
+ aopOp(right, !aopIsPtr(result), AOP_TYPE(result)!=AOP_DIR);
+ size=AOP_SIZE(result);
+
+ /* if result is a bit */
+ if (AOP_TYPE(result) == AOP_BIT) {
+ /* if right is literal, we know what the value is */
+ if (AOP_TYPE(right) == AOP_LIT) {
+ if (operandLitValue(right)) {
+ emitcode ("setb", AOP_NAME(result)[0]);
+ } else {
+ emitcode ("clr", AOP_NAME(result)[0]);
+ }
+ return;
+ }
+ /* if right is also a bit */
+ if (AOP_TYPE(right) == AOP_BIT) {
+ emitcode ("mov", "c,%s", AOP_NAME(right));
+ emitcode ("mov", "%s,c", AOP_NAME(result));
+ return;
+ }
+ /* we need to or */
+ emitcode ("mov", "%s,%s; toBoolean", AOP_NAME(result), toBoolean(right));
+ return;
+ }
+
+ /* if right is a bit */
+ if (AOP_TYPE(right)==AOP_BIT) {
+ emitcode ("mov", "c,%s", AOP_NAME(right));
+ emitcode ("mov", "%s,#0", AOP_NAME(result)[0]);
+ emitcode ("rlc", "%s,#1", AOP_NAME(result)[0]);
+ if (size>2) {
+ emitcode ("mov", "%s,#0", AOP_NAME(result)[1]);
+ }
+ return;
+ }
+
+ /* if the result is of type pointer */
+ if (IS_PTR (ctype)) {
+
+ if (AOP_SIZE(right)>1) {
+ emitcode ("mov", "%s,%s", AOP_NAME(result)[0], AOP_NAME(right)[0]);
+ } else {
+ emitcode ("mov", "r1l,%s", AOP_NAME(right)[0]);
+ emitcode ("sext", "r1h");
+ emitcode ("mov", "%s,r1", AOP_NAME(result)[0]);
+ }
+
+ /* if pointer to generic pointer */
+ if (IS_GENPTR (ctype)) {
+
+ if (IS_GENPTR (rtype)) {
+ bailOut("genCast: gptr -> gptr");
+ }
+
+ if (IS_PTR (rtype)) {
+ ptrType = DCL_TYPE (rtype);
+ } else {
+ /* we have to go by the storage class */
+ if (!SPEC_OCLS(etype)) {
+ ptrType=0; // hush the compiler
+ bailOut("genCast: unknown storage class");
+ } else {
+ ptrType = PTR_TYPE (SPEC_OCLS (etype));
+ }
+ }
+
+ /* the generic part depends on the type */
+ switch (ptrType)
+ {
+ case POINTER:
+ emitcode ("mov.b", "%s,#0x00", AOP_NAME(result)[1]);
+ break;
+ case FPOINTER:
+ emitcode ("mov.b", "%s,#0x01", AOP_NAME(result)[1]);
+ break;
+ case CPOINTER:
+ emitcode ("mov.b", "%s,#0x02", AOP_NAME(result)[1]);
+ break;
+ default:
+ bailOut("genCast: got unknown storage class");
+ }
+ }
+ return;
+ }
+
+ /* do we have to sign extend? */
+ signedness = SPEC_USIGN(rtype);
+
+ /* now depending on the size */
+ switch ((AOP_SIZE(result)<<4) + AOP_SIZE(right))
+ {
+ case 0x44:
+ case 0x33:
+ emitcode("mov", "%s,%s", AOP_NAME(result)[1], AOP_NAME(right)[1]);
+ // fall through
+ case 0x24:
+ case 0x22:
+ case 0x11:
+ emitcode("mov", "%s,%s", AOP_NAME(result)[0], AOP_NAME(right)[0]);
+ return;
+ case 0x42:
+ emitcode("mov", "%s,%s", AOP_NAME(result)[0], AOP_NAME(right)[0]);
+ if (signedness) {
+ emitcode("sext", "%s", AOP_NAME(result)[1]);
+ } else {
+ emitcode("mov", "%s,#0", AOP_NAME(result)[1]);
+ }
+ return;
+ case 0x41:
+ case 0x21:
+ emitcode("mov", "r1l,%s", AOP_NAME(right)[0]);
+ if (signedness) {
+ emitcode("sext", "r1h");
+ } else {
+ emitcode("mov", "r1h,#0");
+ }
+ emitcode("mov", "%s,r1", AOP_NAME(result)[0]);
+ if (size==2)
+ return;
+ // fall through: case 0x41
+ if (signedness) {
+ emitcode("sext", "r1");
+ } else {
+ emitcode("mov", "r1,#0");
+ }
+ emitcode("mov", "%s,r1", AOP_NAME(result)[1]);
+ return;
+ case 0x14:
+ case 0x12:
+ emitcode("mov", "r1,%s", AOP_NAME(right)[0]);
+ emitcode("mov", "%s,r1l", AOP_NAME(result)[0]);
+ return;
+ }
+ fprintf(stderr, "genCast: unknown size: %d:%d\n",
+ AOP_SIZE(result), AOP_SIZE(right));
+ bailOut("genCast: unknown size");
}
+
/*-----------------------------------------------------------------*/
/* genDjnz - generate decrement & jump if not zero instrucion */
/*-----------------------------------------------------------------*/
if (getSize (operandType (IC_RESULT (ic))) > 2)
return 0;
- printIc ("genDjnz", ic, 1,1,1);
+ printIc (0, "genDjnz", ic, 1,1,1);
/* otherwise we can save BIG */
lbl = newiTempLabel (NULL);
/* genReceive - generate code for a receive iCode */
/*-----------------------------------------------------------------*/
static void genReceive (iCode * ic) {
- printIc ("genReceive", ic, 1,0,0);
+ printIc (0, "genReceive", ic, 1,0,0);
}
/*-----------------------------------------------------------------*/
break;
case LE_OP:
- genCmpLe (ic);
- break;
-
case GE_OP:
- genCmpGe (ic);
- break;
-
case NE_OP:
- genCmpNe (ic);
+
+ /* note these two are xlated by algebraic equivalence
+ during parsing SDCC.y */
+ werror (E_INTERNAL_ERROR, __FILE__, __LINE__,
+ "got '>=' or '<=' shouldn't have come here");
break;
case EQ_OP:
break;
case GET_VALUE_AT_ADDRESS:
- genPointerGet (ic, hasInc(IC_LEFT(ic), ic, getSize(operandType(IC_LEFT(ic)))));
+ genPointerGet (ic, hasInc(IC_LEFT(ic), ic, getSize(operandType(IC_RESULT(ic)))));
break;
case '=':