1 /* jit/stack.c *****************************************************************
3 Copyright (c) 1997 A. Krall, R. Grafl, M. Gschwind, M. Probst
5 See file COPYRIGHT for information on usage and disclaimer of warranties
7 Parser for JavaVM to intermediate code translation
9 Authors: Andreas Krall EMAIL: cacao@complang.tuwien.ac.at
11 Last Change: 1997/11/18
13 *******************************************************************************/
16 #define COUNT(cnt) cnt++
21 #define STACKRESET {curstack=0;stackdepth=0;}
23 #define TYPEPANIC {show_icmd_method();panic("Stack type mismatch");}
24 #define CURKIND curstack->varkind
25 #define CURTYPE curstack->type
27 #define NEWSTACK(s,v,n) {new->prev=curstack;new->type=s;new->flags=0;\
28 new->varkind=v;new->varnum=n;curstack=new;new++;}
29 #define NEWSTACKn(s,n) NEWSTACK(s,UNDEFVAR,n)
30 #define NEWSTACK0(s) NEWSTACK(s,UNDEFVAR,0)
31 #define NEWXSTACK {NEWSTACK(TYPE_ADR,STACKVAR,0);curstack=0;}
33 #define SETDST {iptr->dst=curstack;}
34 #define POP(s) {if(s!=curstack->type){TYPEPANIC;}\
35 if(curstack->varkind==UNDEFVAR)curstack->varkind=TEMPVAR;\
36 curstack=curstack->prev;}
37 #define POPANY {if(curstack->varkind==UNDEFVAR)curstack->varkind=TEMPVAR;\
38 curstack=curstack->prev;}
39 #define COPY(s,d) {(d)->flags=0;(d)->type=(s)->type;\
40 (d)->varkind=(s)->varkind;(d)->varnum=(s)->varnum;}
42 #define PUSHCONST(s){NEWSTACKn(s,stackdepth);SETDST;stackdepth++;}
43 #define LOAD(s,v,n) {NEWSTACK(s,v,n);SETDST;stackdepth++;}
44 #define STORE(s) {POP(s);SETDST;stackdepth--;}
45 #define OP1_0(s) {POP(s);SETDST;stackdepth--;}
46 #define OP1_0ANY {POPANY;SETDST;stackdepth--;}
47 #define OP0_1(s) {NEWSTACKn(s,stackdepth);SETDST;stackdepth++;}
48 #define OP1_1(s,d) {POP(s);NEWSTACKn(d,stackdepth-1);SETDST;}
49 #define OP2_0(s) {POP(s);POP(s);SETDST;stackdepth-=2;}
50 #define OPTT2_0(t,b){POP(t);POP(b);SETDST;stackdepth-=2;}
51 #define OP2_1(s) {POP(s);POP(s);NEWSTACKn(s,stackdepth-2);SETDST;stackdepth--;}
52 #define OP2IAT_1(s) {POP(TYPE_INT);POP(TYPE_ADR);NEWSTACKn(s,stackdepth-2);\
54 #define OP2IT_1(s) {POP(TYPE_INT);POP(s);NEWSTACKn(s,stackdepth-2);\
56 #define OPTT2_1(s,d){POP(s);POP(s);NEWSTACKn(d,stackdepth-2);SETDST;stackdepth--;}
57 #define OP2_2(s) {POP(s);POP(s);NEWSTACKn(s,stackdepth-2);\
58 NEWSTACKn(s,stackdepth-1);SETDST;}
59 #define OP3TIA_0(s) {POP(s);POP(TYPE_INT);POP(TYPE_ADR);SETDST;stackdepth-=3;}
60 #define OP3_0(s) {POP(s);POP(s);POP(s);SETDST;stackdepth-=3;}
61 #define POPMANY(i) {stackdepth-=i;while(--i>=0){POPANY;}SETDST;}
62 #define DUP {NEWSTACK(CURTYPE,CURKIND,curstack->varnum);SETDST;\
64 #define SWAP {COPY(curstack,new);POPANY;COPY(curstack,new+1);POPANY;\
65 new[0].prev=curstack;new[1].prev=new;\
66 curstack=new+1;new+=2;SETDST;}
67 #define DUP_X1 {COPY(curstack,new);COPY(curstack,new+2);POPANY;\
68 COPY(curstack,new+1);POPANY;new[0].prev=curstack;\
69 new[1].prev=new;new[2].prev=new+1;\
70 curstack=new+2;new+=3;SETDST;stackdepth++;}
71 #define DUP2_X1 {COPY(curstack,new+1);COPY(curstack,new+4);POPANY;\
72 COPY(curstack,new);COPY(curstack,new+3);POPANY;\
73 COPY(curstack,new+2);POPANY;new[0].prev=curstack;\
74 new[1].prev=new;new[2].prev=new+1;\
75 new[3].prev=new+2;new[4].prev=new+3;\
76 curstack=new+4;new+=5;SETDST;stackdepth+=2;}
77 #define DUP_X2 {COPY(curstack,new);COPY(curstack,new+3);POPANY;\
78 COPY(curstack,new+2);POPANY;COPY(curstack,new+1);POPANY;\
79 new[0].prev=curstack;new[1].prev=new;\
80 new[2].prev=new+1;new[3].prev=new+2;\
81 curstack=new+3;new+=4;SETDST;stackdepth++;}
82 #define DUP2_X2 {COPY(curstack,new+1);COPY(curstack,new+5);POPANY;\
83 COPY(curstack,new);COPY(curstack,new+4);POPANY;\
84 COPY(curstack,new+3);POPANY;COPY(curstack,new+2);POPANY;\
85 new[0].prev=curstack;new[1].prev=new;\
86 new[2].prev=new+1;new[3].prev=new+2;\
87 new[4].prev=new+3;new[5].prev=new+4;\
88 curstack=new+5;new+=6;SETDST;stackdepth+=2;}
90 #define COPYCURSTACK(copy) {\
103 copy->varkind=STACKVAR;\
119 if((copy->varkind==STACKVAR)&&(copy->varnum>i))\
120 copy->varkind=TEMPVAR;\
122 copy->varkind=STACKVAR;\
125 interfaces[i][copy->type].type = copy->type;\
126 interfaces[i][copy->type].flags |= copy->flags;\
127 i--;copy=copy->prev;\
132 interfaces[i][copy->type].type = copy->type;\
133 if(copy->varkind==STACKVAR){\
134 if (copy->flags & SAVEDVAR)\
135 interfaces[i][copy->type].flags |= SAVEDVAR;\
137 i--;copy=copy->prev;\
142 #define MARKREACHED(b,c) {\
144 {COPYCURSTACK(c);b->flags=0;b->instack=c;b->indepth=stackdepth;}\
145 else {stackptr s=curstack;stackptr t=b->instack;\
146 if(b->indepth!=stackdepth)\
147 {show_icmd_method();panic("Stack depth mismatch");}\
148 while(s){if (s->type!=t->type)\
150 s=s->prev;t=t->prev;\
156 static void show_icmd_method();
158 static void analyse_stack()
160 int b_count, b_index;
162 stackptr curstack, new, copy;
163 int opcode, i, len, loops;
164 int superblockend, repeat, deadcode;
165 instruction *iptr = instr;
166 basicblock *bptr, *tbptr;
174 block[0].flags = BBREACHED;
175 block[0].instack = 0;
176 block[0].indepth = 0;
178 for (i = 0; i < exceptiontablelength; i++) {
179 bptr = &block[block_index[extable[i].handlerpc]];
180 bptr->flags = BBREACHED;
181 bptr->type = BBTYPE_EXH;
184 bptr->pre_count = 10000;
189 #ifdef CONDITIONAL_LOADCONST
190 b_count = block_count;
192 while (--b_count >= 0) {
193 if (bptr->icount != 0) {
194 iptr = bptr->iinstr + bptr->icount - 1;
227 block[block_index[iptr->op1]].pre_count++;
230 case ICMD_TABLESWITCH:
232 block[block_index[*s4ptr++]].pre_count++; /* default */
233 i = *s4ptr++; /* low */
234 i = *s4ptr++ - i + 1; /* high */
236 block[block_index[*s4ptr++]].pre_count++;
240 case ICMD_LOOKUPSWITCH:
242 block[block_index[*s4ptr++]].pre_count++; /* default */
243 i = *s4ptr++; /* count */
245 block[block_index[s4ptr[1]]].pre_count++;
261 b_count = block_count;
263 superblockend = true;
267 while (--b_count >= 0) {
268 if (bptr->flags == BBDELETED) {
271 else if (superblockend && (bptr->flags < BBREACHED))
273 else if (bptr->flags <= BBREACHED) {
275 stackdepth = bptr->indepth;
276 else if (bptr->flags < BBREACHED) {
278 bptr->instack = copy;
279 bptr->indepth = stackdepth;
281 else if (bptr->indepth != stackdepth) {
283 panic("Stack depth mismatch");
286 curstack = bptr->instack;
288 superblockend = false;
289 bptr->flags = BBFINISHED;
292 b_index = bptr - block;
301 case ICMD_CHECKASIZE:
303 case ICMD_IFEQ_ICONST:
304 case ICMD_IFNE_ICONST:
305 case ICMD_IFLT_ICONST:
306 case ICMD_IFGE_ICONST:
307 case ICMD_IFGT_ICONST:
308 case ICMD_IFLE_ICONST:
309 case ICMD_ELSE_ICONST:
314 locals[iptr->op1][TYPE_ADR].type = TYPE_ADR;
316 COUNT(count_pcmd_return);
318 superblockend = true;
321 /* pop 0 push 1 const */
324 COUNT(count_pcmd_load);
326 switch (iptr[1].opc) {
328 iptr[0].opc = ICMD_IADDCONST;
330 iptr[1].opc = ICMD_NOP;
331 OP1_1(TYPE_INT,TYPE_INT);
332 COUNT(count_pcmd_op);
335 iptr[0].opc = ICMD_ISUBCONST;
336 goto icmd_iconst_tail;
338 iptr[0].opc = ICMD_IMULCONST;
339 goto icmd_iconst_tail;
341 if (iptr[0].val.i == 0x00000002)
343 else if (iptr[0].val.i == 0x00000004)
345 else if (iptr[0].val.i == 0x00000008)
347 else if (iptr[0].val.i == 0x00000010)
349 else if (iptr[0].val.i == 0x00000020)
351 else if (iptr[0].val.i == 0x00000040)
353 else if (iptr[0].val.i == 0x00000080)
355 else if (iptr[0].val.i == 0x00000100)
357 else if (iptr[0].val.i == 0x00000200)
359 else if (iptr[0].val.i == 0x00000400)
361 else if (iptr[0].val.i == 0x00000800)
363 else if (iptr[0].val.i == 0x00001000)
365 else if (iptr[0].val.i == 0x00002000)
367 else if (iptr[0].val.i == 0x00004000)
369 else if (iptr[0].val.i == 0x00008000)
371 else if (iptr[0].val.i == 0x00010000)
373 else if (iptr[0].val.i == 0x00020000)
375 else if (iptr[0].val.i == 0x00040000)
377 else if (iptr[0].val.i == 0x00080000)
379 else if (iptr[0].val.i == 0x00100000)
381 else if (iptr[0].val.i == 0x00200000)
383 else if (iptr[0].val.i == 0x00400000)
385 else if (iptr[0].val.i == 0x00800000)
387 else if (iptr[0].val.i == 0x01000000)
389 else if (iptr[0].val.i == 0x02000000)
391 else if (iptr[0].val.i == 0x04000000)
393 else if (iptr[0].val.i == 0x08000000)
395 else if (iptr[0].val.i == 0x10000000)
397 else if (iptr[0].val.i == 0x20000000)
399 else if (iptr[0].val.i == 0x40000000)
401 else if (iptr[0].val.i == 0x80000000)
407 iptr[0].opc = ICMD_IDIVPOW2;
408 goto icmd_iconst_tail;
411 if (iptr[0].val.i == 0x10001) {
412 iptr[0].opc = ICMD_IREM0X10001;
413 goto icmd_iconst_tail;
416 if ((iptr[0].val.i == 0x00000002) ||
417 (iptr[0].val.i == 0x00000004) ||
418 (iptr[0].val.i == 0x00000008) ||
419 (iptr[0].val.i == 0x00000010) ||
420 (iptr[0].val.i == 0x00000020) ||
421 (iptr[0].val.i == 0x00000040) ||
422 (iptr[0].val.i == 0x00000080) ||
423 (iptr[0].val.i == 0x00000100) ||
424 (iptr[0].val.i == 0x00000200) ||
425 (iptr[0].val.i == 0x00000400) ||
426 (iptr[0].val.i == 0x00000800) ||
427 (iptr[0].val.i == 0x00001000) ||
428 (iptr[0].val.i == 0x00002000) ||
429 (iptr[0].val.i == 0x00004000) ||
430 (iptr[0].val.i == 0x00008000) ||
431 (iptr[0].val.i == 0x00010000) ||
432 (iptr[0].val.i == 0x00020000) ||
433 (iptr[0].val.i == 0x00040000) ||
434 (iptr[0].val.i == 0x00080000) ||
435 (iptr[0].val.i == 0x00100000) ||
436 (iptr[0].val.i == 0x00200000) ||
437 (iptr[0].val.i == 0x00400000) ||
438 (iptr[0].val.i == 0x00800000) ||
439 (iptr[0].val.i == 0x01000000) ||
440 (iptr[0].val.i == 0x02000000) ||
441 (iptr[0].val.i == 0x04000000) ||
442 (iptr[0].val.i == 0x08000000) ||
443 (iptr[0].val.i == 0x10000000) ||
444 (iptr[0].val.i == 0x20000000) ||
445 (iptr[0].val.i == 0x40000000) ||
446 (iptr[0].val.i == 0x80000000)) {
447 iptr[0].opc = ICMD_IREMPOW2;
449 goto icmd_iconst_tail;
454 iptr[0].opc = ICMD_IANDCONST;
455 goto icmd_iconst_tail;
457 iptr[0].opc = ICMD_IORCONST;
458 goto icmd_iconst_tail;
460 iptr[0].opc = ICMD_IXORCONST;
461 goto icmd_iconst_tail;
463 iptr[0].opc = ICMD_ISHLCONST;
464 goto icmd_iconst_tail;
466 iptr[0].opc = ICMD_ISHRCONST;
467 goto icmd_iconst_tail;
469 iptr[0].opc = ICMD_IUSHRCONST;
470 goto icmd_iconst_tail;
472 iptr[0].opc = ICMD_LSHLCONST;
473 goto icmd_lconst_tail;
475 iptr[0].opc = ICMD_LSHRCONST;
476 goto icmd_lconst_tail;
478 iptr[0].opc = ICMD_LUSHRCONST;
479 goto icmd_lconst_tail;
481 iptr[0].opc = ICMD_IFEQ;
483 iptr[0].op1 = iptr[1].op1;
486 /* iptr[1].opc = ICMD_NOP; */
488 tbptr = block + block_index[iptr->op1];
490 iptr[0].target = (void *) tbptr;
492 MARKREACHED(tbptr, copy);
493 COUNT(count_pcmd_bra);
496 iptr[0].opc = ICMD_IFLT;
497 goto icmd_if_icmp_tail;
499 iptr[0].opc = ICMD_IFLE;
500 goto icmd_if_icmp_tail;
502 iptr[0].opc = ICMD_IFNE;
503 goto icmd_if_icmp_tail;
505 iptr[0].opc = ICMD_IFGT;
506 goto icmd_if_icmp_tail;
508 iptr[0].opc = ICMD_IFGE;
509 goto icmd_if_icmp_tail;
518 COUNT(count_pcmd_load);
520 switch (iptr[1].opc) {
522 iptr[0].opc = ICMD_LADDCONST;
524 iptr[1].opc = ICMD_NOP;
525 OP1_1(TYPE_LNG,TYPE_LNG);
526 COUNT(count_pcmd_op);
529 iptr[0].opc = ICMD_LSUBCONST;
530 goto icmd_lconst_tail;
532 iptr[0].opc = ICMD_LMULCONST;
533 goto icmd_lconst_tail;
535 if (iptr[0].val.l == 0x00000002)
537 else if (iptr[0].val.l == 0x00000004)
539 else if (iptr[0].val.l == 0x00000008)
541 else if (iptr[0].val.l == 0x00000010)
543 else if (iptr[0].val.l == 0x00000020)
545 else if (iptr[0].val.l == 0x00000040)
547 else if (iptr[0].val.l == 0x00000080)
549 else if (iptr[0].val.l == 0x00000100)
551 else if (iptr[0].val.l == 0x00000200)
553 else if (iptr[0].val.l == 0x00000400)
555 else if (iptr[0].val.l == 0x00000800)
557 else if (iptr[0].val.l == 0x00001000)
559 else if (iptr[0].val.l == 0x00002000)
561 else if (iptr[0].val.l == 0x00004000)
563 else if (iptr[0].val.l == 0x00008000)
565 else if (iptr[0].val.l == 0x00010000)
567 else if (iptr[0].val.l == 0x00020000)
569 else if (iptr[0].val.l == 0x00040000)
571 else if (iptr[0].val.l == 0x00080000)
573 else if (iptr[0].val.l == 0x00100000)
575 else if (iptr[0].val.l == 0x00200000)
577 else if (iptr[0].val.l == 0x00400000)
579 else if (iptr[0].val.l == 0x00800000)
581 else if (iptr[0].val.l == 0x01000000)
583 else if (iptr[0].val.l == 0x02000000)
585 else if (iptr[0].val.l == 0x04000000)
587 else if (iptr[0].val.l == 0x08000000)
589 else if (iptr[0].val.l == 0x10000000)
591 else if (iptr[0].val.l == 0x20000000)
593 else if (iptr[0].val.l == 0x40000000)
595 else if (iptr[0].val.l == 0x80000000)
601 iptr[0].opc = ICMD_LDIVPOW2;
602 goto icmd_lconst_tail;
605 if (iptr[0].val.l == 0x10001) {
606 iptr[0].opc = ICMD_LREM0X10001;
607 goto icmd_lconst_tail;
610 if ((iptr[0].val.l == 0x00000002) ||
611 (iptr[0].val.l == 0x00000004) ||
612 (iptr[0].val.l == 0x00000008) ||
613 (iptr[0].val.l == 0x00000010) ||
614 (iptr[0].val.l == 0x00000020) ||
615 (iptr[0].val.l == 0x00000040) ||
616 (iptr[0].val.l == 0x00000080) ||
617 (iptr[0].val.l == 0x00000100) ||
618 (iptr[0].val.l == 0x00000200) ||
619 (iptr[0].val.l == 0x00000400) ||
620 (iptr[0].val.l == 0x00000800) ||
621 (iptr[0].val.l == 0x00001000) ||
622 (iptr[0].val.l == 0x00002000) ||
623 (iptr[0].val.l == 0x00004000) ||
624 (iptr[0].val.l == 0x00008000) ||
625 (iptr[0].val.l == 0x00010000) ||
626 (iptr[0].val.l == 0x00020000) ||
627 (iptr[0].val.l == 0x00040000) ||
628 (iptr[0].val.l == 0x00080000) ||
629 (iptr[0].val.l == 0x00100000) ||
630 (iptr[0].val.l == 0x00200000) ||
631 (iptr[0].val.l == 0x00400000) ||
632 (iptr[0].val.l == 0x00800000) ||
633 (iptr[0].val.l == 0x01000000) ||
634 (iptr[0].val.l == 0x02000000) ||
635 (iptr[0].val.l == 0x04000000) ||
636 (iptr[0].val.l == 0x08000000) ||
637 (iptr[0].val.l == 0x10000000) ||
638 (iptr[0].val.l == 0x20000000) ||
639 (iptr[0].val.l == 0x40000000) ||
640 (iptr[0].val.l == 0x80000000)) {
641 iptr[0].opc = ICMD_LREMPOW2;
643 goto icmd_lconst_tail;
648 iptr[0].opc = ICMD_LANDCONST;
649 goto icmd_lconst_tail;
651 iptr[0].opc = ICMD_LORCONST;
652 goto icmd_lconst_tail;
654 iptr[0].opc = ICMD_LXORCONST;
655 goto icmd_lconst_tail;
657 if ((len > 1) && (iptr[2].val.i == 0)) {
658 switch (iptr[2].opc) {
660 iptr[0].opc = ICMD_IF_LEQ;
661 icmd_lconst_lcmp_tail:
662 iptr[0].op1 = iptr[2].op1;
665 /* iptr[1].opc = ICMD_NOP;
666 iptr[2].opc = ICMD_NOP; */
668 tbptr = block + block_index[iptr->op1];
670 iptr[0].target = (void *) tbptr;
672 MARKREACHED(tbptr, copy);
673 COUNT(count_pcmd_bra);
674 COUNT(count_pcmd_op);
677 iptr[0].opc = ICMD_IF_LNE;
678 goto icmd_lconst_lcmp_tail;
680 iptr[0].opc = ICMD_IF_LLT;
681 goto icmd_lconst_lcmp_tail;
683 iptr[0].opc = ICMD_IF_LGT;
684 goto icmd_lconst_lcmp_tail;
686 iptr[0].opc = ICMD_IF_LLE;
687 goto icmd_lconst_lcmp_tail;
689 iptr[0].opc = ICMD_IF_LGE;
690 goto icmd_lconst_lcmp_tail;
693 } /* switch (iptr[2].opc) */
694 } /* if (iptr[2].val.i == 0) */
706 COUNT(count_pcmd_load);
710 COUNT(count_pcmd_load);
714 COUNT(count_pcmd_load);
718 /* pop 0 push 1 load */
725 COUNT(count_load_instruction);
726 i = opcode-ICMD_ILOAD;
727 locals[iptr->op1][i].type = i;
728 LOAD(i, LOCALVAR, iptr->op1);
738 COUNT(count_check_null);
739 COUNT(count_check_bound);
740 COUNT(count_pcmd_mem);
741 OP2IAT_1(opcode-ICMD_IALOAD);
747 COUNT(count_check_null);
748 COUNT(count_check_bound);
749 COUNT(count_pcmd_mem);
753 /* pop 0 push 0 iinc */
759 count_store_depth[10]++;
761 count_store_depth[i]++;
766 if ((copy->varkind == LOCALVAR) &&
767 (copy->varnum == curstack->varnum)) {
768 copy->varkind = TEMPVAR;
777 /* pop 1 push 0 store */
784 i = opcode-ICMD_ISTORE;
785 locals[iptr->op1][i].type = i;
790 count_store_length[20]++;
792 count_store_length[i]++;
795 count_store_depth[10]++;
797 count_store_depth[i]++;
799 copy = curstack->prev;
802 if ((copy->varkind == LOCALVAR) &&
803 (copy->varnum == curstack->varnum)) {
804 copy->varkind = TEMPVAR;
810 if ((new - curstack) == 1) {
811 curstack->varkind = LOCALVAR;
812 curstack->varnum = iptr->op1;
814 STORE(opcode-ICMD_ISTORE);
824 COUNT(count_check_null);
825 COUNT(count_check_bound);
826 COUNT(count_pcmd_mem);
827 OP3TIA_0(opcode-ICMD_IASTORE);
832 COUNT(count_check_null);
833 COUNT(count_check_bound);
834 COUNT(count_pcmd_mem);
849 COUNT(count_pcmd_return);
850 OP1_0(opcode-ICMD_IRETURN);
851 superblockend = true;
855 COUNT(count_check_null);
859 superblockend = true;
863 COUNT(count_pcmd_mem);
867 /* pop 1 push 0 branch */
871 COUNT(count_pcmd_bra);
873 tbptr = block + block_index[iptr->op1];
875 iptr[0].target = (void *) tbptr;
877 MARKREACHED(tbptr, copy);
886 COUNT(count_pcmd_bra);
887 #ifdef CONDITIONAL_LOADCONST
889 tbptr = block + b_index;
890 if ((b_count >= 3) &&
891 ((b_index + 2) == block_index[iptr[0].op1]) &&
892 (tbptr[1].pre_count == 1) &&
893 (iptr[1].opc == ICMD_ICONST) &&
894 (iptr[2].opc == ICMD_GOTO) &&
895 ((b_index + 3) == block_index[iptr[2].op1]) &&
896 (tbptr[2].pre_count == 1) &&
897 (iptr[3].opc == ICMD_ICONST)) {
898 OP1_1(TYPE_INT, TYPE_INT);
899 switch (iptr[0].opc) {
901 iptr[0].opc = ICMD_IFNE_ICONST;
904 iptr[0].opc = ICMD_IFEQ_ICONST;
907 iptr[0].opc = ICMD_IFGE_ICONST;
910 iptr[0].opc = ICMD_IFLT_ICONST;
913 iptr[0].opc = ICMD_IFLE_ICONST;
916 iptr[0].opc = ICMD_IFGT_ICONST;
919 iptr[0].val.i = iptr[1].val.i;
920 iptr[1].opc = ICMD_ELSE_ICONST;
921 iptr[1].val.i = iptr[3].val.i;
922 iptr[2].opc = ICMD_NOP;
923 iptr[3].opc = ICMD_NOP;
924 tbptr[1].flags = BBDELETED;
925 tbptr[2].flags = BBDELETED;
928 if (tbptr[3].pre_count == 2) {
929 len += tbptr[3].icount + 3;
930 bptr->icount += tbptr[3].icount + 3;
931 tbptr[3].flags = BBDELETED;
945 tbptr = block + block_index[iptr->op1];
947 iptr[0].target = (void *) tbptr;
949 MARKREACHED(tbptr, copy);
952 /* pop 0 push 0 branch */
955 COUNT(count_pcmd_bra);
956 tbptr = block + block_index[iptr->op1];
958 iptr[0].target = (void *) tbptr;
960 MARKREACHED(tbptr, copy);
962 superblockend = true;
965 /* pop 1 push 0 table branch */
967 case ICMD_TABLESWITCH:
968 COUNT(count_pcmd_table);
971 tbptr = block + block_index[*s4ptr++]; /* default */
972 MARKREACHED(tbptr, copy);
973 i = *s4ptr++; /* low */
974 i = *s4ptr++ - i + 1; /* high */
976 tptr = DMNEW(void*, i+1);
977 iptr->target = (void *) tptr;
979 tptr[0] = (void *) tbptr;
983 tbptr = block + block_index[*s4ptr++];
985 tptr[0] = (void *) tbptr;
988 MARKREACHED(tbptr, copy);
991 superblockend = true;
994 /* pop 1 push 0 table branch */
996 case ICMD_LOOKUPSWITCH:
997 COUNT(count_pcmd_table);
1000 tbptr = block + block_index[*s4ptr++]; /* default */
1001 MARKREACHED(tbptr, copy);
1002 i = *s4ptr++; /* count */
1004 tptr = DMNEW(void*, i+1);
1005 iptr->target = (void *) tptr;
1007 tptr[0] = (void *) tbptr;
1011 tbptr = block + block_index[s4ptr[1]];
1013 tptr[0] = (void *) tbptr;
1016 MARKREACHED(tbptr, copy);
1020 superblockend = true;
1023 case ICMD_NULLCHECKPOP:
1024 case ICMD_MONITORENTER:
1025 COUNT(count_check_null);
1026 case ICMD_MONITOREXIT:
1030 /* pop 2 push 0 branch */
1032 case ICMD_IF_ICMPEQ:
1033 case ICMD_IF_ICMPNE:
1034 case ICMD_IF_ICMPLT:
1035 case ICMD_IF_ICMPGE:
1036 case ICMD_IF_ICMPGT:
1037 case ICMD_IF_ICMPLE:
1038 COUNT(count_pcmd_bra);
1040 tbptr = block + block_index[iptr->op1];
1042 iptr[0].target = (void *) tbptr;
1044 MARKREACHED(tbptr, copy);
1047 case ICMD_IF_ACMPEQ:
1048 case ICMD_IF_ACMPNE:
1049 COUNT(count_pcmd_bra);
1051 tbptr = block + block_index[iptr->op1];
1053 iptr[0].target = (void *) tbptr;
1055 MARKREACHED(tbptr, copy);
1061 COUNT(count_check_null);
1062 COUNT(count_pcmd_mem);
1063 OPTT2_0(iptr->op1,TYPE_ADR);
1067 if (! IS_2_WORD_TYPE(curstack->type)) {
1068 OP1_0ANY; /* second pop */
1071 iptr->opc = ICMD_POP;
1075 /* pop 0 push 1 dup */
1078 COUNT(count_dup_instruction);
1083 if (IS_2_WORD_TYPE(curstack->type)) {
1084 iptr->opc = ICMD_DUP;
1089 NEWSTACK(copy->prev->type, copy->prev->varkind,
1090 copy->prev->varnum);
1091 NEWSTACK(copy->type, copy->varkind,
1098 /* pop 2 push 3 dup */
1105 if (IS_2_WORD_TYPE(curstack->type)) {
1106 iptr->opc = ICMD_DUP_X1;
1114 /* pop 3 push 4 dup */
1117 if (IS_2_WORD_TYPE(curstack->prev->type)) {
1118 iptr->opc = ICMD_DUP_X1;
1127 if (IS_2_WORD_TYPE(curstack->type)) {
1128 if (IS_2_WORD_TYPE(curstack->prev->type)) {
1129 iptr->opc = ICMD_DUP_X1;
1133 iptr->opc = ICMD_DUP_X2;
1138 if (IS_2_WORD_TYPE(curstack->prev->prev->type)) {
1139 iptr->opc = ICMD_DUP2_X1;
1147 /* pop 2 push 2 swap */
1156 if (!(SUPPORT_DIVISION)) {
1157 iptr[0].opc = ICMD_BUILTIN2;
1158 iptr[0].op1 = TYPE_INT;
1159 iptr[0].val.a = (functionptr) asm_builtin_idiv;
1160 isleafmethod = false;
1165 if (!(SUPPORT_DIVISION)) {
1166 iptr[0].opc = ICMD_BUILTIN2;
1167 iptr[0].op1 = TYPE_INT;
1168 iptr[0].val.a = (functionptr) asm_builtin_irem;
1169 isleafmethod = false;
1183 COUNT(count_pcmd_op);
1188 if (!(SUPPORT_DIVISION && SUPPORT_LONG && SUPPORT_LONG_MULDIV)) {
1189 iptr[0].opc = ICMD_BUILTIN2;
1190 iptr[0].op1 = TYPE_LNG;
1191 iptr[0].val.a = (functionptr) asm_builtin_ldiv;
1192 isleafmethod = false;
1197 if (!(SUPPORT_DIVISION && SUPPORT_LONG && SUPPORT_LONG_MULDIV)) {
1198 iptr[0].opc = ICMD_BUILTIN2;
1199 iptr[0].op1 = TYPE_LNG;
1200 iptr[0].val.a = (functionptr) asm_builtin_lrem;
1201 isleafmethod = false;
1212 COUNT(count_pcmd_op);
1219 COUNT(count_pcmd_op);
1228 COUNT(count_pcmd_op);
1237 COUNT(count_pcmd_op);
1242 COUNT(count_pcmd_op);
1243 if ((len > 0) && (iptr[1].val.i == 0)) {
1244 switch (iptr[1].opc) {
1246 iptr[0].opc = ICMD_IF_LCMPEQ;
1248 iptr[0].op1 = iptr[1].op1;
1251 /* iptr[1].opc = ICMD_NOP; */
1253 tbptr = block + block_index[iptr->op1];
1255 iptr[0].target = (void *) tbptr;
1257 MARKREACHED(tbptr, copy);
1258 COUNT(count_pcmd_bra);
1261 iptr[0].opc = ICMD_IF_LCMPNE;
1262 goto icmd_lcmp_if_tail;
1264 iptr[0].opc = ICMD_IF_LCMPLT;
1265 goto icmd_lcmp_if_tail;
1267 iptr[0].opc = ICMD_IF_LCMPGT;
1268 goto icmd_lcmp_if_tail;
1270 iptr[0].opc = ICMD_IF_LCMPLE;
1271 goto icmd_lcmp_if_tail;
1273 iptr[0].opc = ICMD_IF_LCMPGE;
1274 goto icmd_lcmp_if_tail;
1276 OPTT2_1(TYPE_LNG, TYPE_INT);
1280 OPTT2_1(TYPE_LNG, TYPE_INT);
1284 COUNT(count_pcmd_op);
1285 OPTT2_1(TYPE_FLT, TYPE_INT);
1289 COUNT(count_pcmd_op);
1290 OPTT2_1(TYPE_DBL, TYPE_INT);
1298 case ICMD_INT2SHORT:
1299 COUNT(count_pcmd_op);
1300 OP1_1(TYPE_INT, TYPE_INT);
1303 COUNT(count_pcmd_op);
1304 OP1_1(TYPE_LNG, TYPE_LNG);
1307 COUNT(count_pcmd_op);
1308 OP1_1(TYPE_FLT, TYPE_FLT);
1311 COUNT(count_pcmd_op);
1312 OP1_1(TYPE_DBL, TYPE_DBL);
1316 COUNT(count_pcmd_op);
1317 OP1_1(TYPE_INT, TYPE_LNG);
1320 COUNT(count_pcmd_op);
1321 OP1_1(TYPE_INT, TYPE_FLT);
1324 COUNT(count_pcmd_op);
1325 OP1_1(TYPE_INT, TYPE_DBL);
1328 COUNT(count_pcmd_op);
1329 OP1_1(TYPE_LNG, TYPE_INT);
1332 COUNT(count_pcmd_op);
1333 OP1_1(TYPE_LNG, TYPE_FLT);
1336 COUNT(count_pcmd_op);
1337 OP1_1(TYPE_LNG, TYPE_DBL);
1340 COUNT(count_pcmd_op);
1341 OP1_1(TYPE_FLT, TYPE_INT);
1344 COUNT(count_pcmd_op);
1345 OP1_1(TYPE_FLT, TYPE_LNG);
1348 COUNT(count_pcmd_op);
1349 OP1_1(TYPE_FLT, TYPE_DBL);
1352 COUNT(count_pcmd_op);
1353 OP1_1(TYPE_DBL, TYPE_INT);
1356 COUNT(count_pcmd_op);
1357 OP1_1(TYPE_DBL, TYPE_LNG);
1360 COUNT(count_pcmd_op);
1361 OP1_1(TYPE_DBL, TYPE_FLT);
1364 case ICMD_CHECKCAST:
1365 OP1_1(TYPE_ADR, TYPE_ADR);
1368 case ICMD_ARRAYLENGTH:
1369 case ICMD_INSTANCEOF:
1370 OP1_1(TYPE_ADR, TYPE_INT);
1374 case ICMD_ANEWARRAY:
1375 OP1_1(TYPE_INT, TYPE_ADR);
1379 COUNT(count_check_null);
1380 COUNT(count_pcmd_mem);
1381 OP1_1(TYPE_ADR, iptr->op1);
1386 case ICMD_GETSTATIC:
1387 COUNT(count_pcmd_mem);
1397 tbptr = block + block_index[iptr->op1];
1399 iptr[0].target = (void *) tbptr;
1401 tbptr->type=BBTYPE_SBR;
1402 MARKREACHED(tbptr, copy);
1406 /* pop many push any */
1408 case ICMD_INVOKEVIRTUAL:
1409 case ICMD_INVOKESPECIAL:
1410 case ICMD_INVOKEINTERFACE:
1411 case ICMD_INVOKESTATIC:
1412 COUNT(count_pcmd_met);
1414 methodinfo *m = iptr->val.a;
1415 if (m->flags & ACC_STATIC)
1416 {COUNT(count_check_null);}
1418 if (i > arguments_num)
1422 if (! (copy->flags & SAVEDVAR)) {
1423 copy->varkind = ARGVAR;
1429 copy->flags |= SAVEDVAR;
1434 if (m->returntype != TYPE_VOID) {
1435 OP0_1(m->returntype);
1441 if (! (curstack->flags & SAVEDVAR)) {
1442 curstack->varkind = ARGVAR;
1443 curstack->varnum = 2;
1445 if (3 > arguments_num) {
1452 if (! (curstack->flags & SAVEDVAR)) {
1453 curstack->varkind = ARGVAR;
1454 curstack->varnum = 1;
1456 if (2 > arguments_num) {
1462 if (! (curstack->flags & SAVEDVAR)) {
1463 curstack->varkind = ARGVAR;
1464 curstack->varnum = 0;
1466 if (1 > arguments_num) {
1472 copy->flags |= SAVEDVAR;
1475 if (iptr->op1 != TYPE_VOID)
1479 case ICMD_MULTIANEWARRAY:
1481 if ((i + intreg_argnum) > arguments_num)
1482 arguments_num = i + intreg_argnum;
1485 if (! (copy->flags & SAVEDVAR)) {
1486 copy->varkind = ARGVAR;
1487 copy->varnum = i + intreg_argnum;
1492 copy->flags |= SAVEDVAR;
1501 printf("ICMD %d at %d\n", iptr->opc, (int)(iptr-instr));
1502 panic("Missing ICMD code during stack analysis");
1505 } /* while instructions */
1506 bptr->outstack = curstack;
1507 bptr->outdepth = stackdepth;
1511 superblockend = true;
1513 } /* while blocks */
1514 } while (repeat && ! deadcode);
1517 if (block_count > count_max_basic_blocks)
1518 count_max_basic_blocks = block_count;
1519 count_basic_blocks += block_count;
1520 if (instr_count > count_max_javainstr)
1521 count_max_javainstr = instr_count;
1522 count_javainstr += instr_count;
1523 if (stack_count > count_upper_bound_new_stack)
1524 count_upper_bound_new_stack = stack_count;
1525 if ((new - stack) > count_max_new_stack)
1526 count_max_new_stack = (new - stack);
1528 b_count = block_count;
1530 while (--b_count >= 0) {
1531 if (bptr->flags > BBREACHED) {
1532 if (bptr->indepth >= 10)
1533 count_block_stack[10]++;
1535 count_block_stack[bptr->indepth]++;
1538 count_block_size_distribution[len]++;
1540 count_block_size_distribution[10]++;
1542 count_block_size_distribution[11]++;
1544 count_block_size_distribution[12]++;
1546 count_block_size_distribution[13]++;
1548 count_block_size_distribution[14]++;
1550 count_block_size_distribution[15]++;
1552 count_block_size_distribution[16]++;
1554 count_block_size_distribution[17]++;
1560 count_analyse_iterations[0]++;
1561 else if (loops == 2)
1562 count_analyse_iterations[1]++;
1563 else if (loops == 3)
1564 count_analyse_iterations[2]++;
1565 else if (loops == 4)
1566 count_analyse_iterations[3]++;
1568 count_analyse_iterations[4]++;
1570 if (block_count <= 5)
1571 count_method_bb_distribution[0]++;
1572 else if (block_count <= 10)
1573 count_method_bb_distribution[1]++;
1574 else if (block_count <= 15)
1575 count_method_bb_distribution[2]++;
1576 else if (block_count <= 20)
1577 count_method_bb_distribution[3]++;
1578 else if (block_count <= 30)
1579 count_method_bb_distribution[4]++;
1580 else if (block_count <= 40)
1581 count_method_bb_distribution[5]++;
1582 else if (block_count <= 50)
1583 count_method_bb_distribution[6]++;
1584 else if (block_count <= 75)
1585 count_method_bb_distribution[7]++;
1587 count_method_bb_distribution[8]++;
1592 static void print_stack(stackptr s) {
1608 if (s->flags & SAVEDVAR)
1609 switch (s->varkind) {
1611 if (s->flags & INMEMORY)
1612 printf(" M%02d", s->regoff);
1613 else if ((s->type == TYPE_FLT) || (s->type == TYPE_DBL))
1614 printf(" F%02d", s->regoff);
1616 printf(" %3s", regs[s->regoff]);
1619 printf(" I%02d", s->varnum);
1622 printf(" L%02d", s->varnum);
1625 printf(" A%02d", s->varnum);
1628 printf(" !%02d", j);
1631 switch (s->varkind) {
1633 if (s->flags & INMEMORY)
1634 printf(" m%02d", s->regoff);
1635 else if ((s->type == TYPE_FLT) || (s->type == TYPE_DBL))
1636 printf(" f%02d", s->regoff);
1638 printf(" %3s", regs[s->regoff]);
1641 printf(" i%02d", s->varnum);
1644 printf(" l%02d", s->varnum);
1647 printf(" a%02d", s->varnum);
1650 printf(" ?%02d", j);
1658 static void print_reg(stackptr s) {
1660 if (s->flags & SAVEDVAR)
1661 switch (s->varkind) {
1663 if (s->flags & INMEMORY)
1664 printf(" tm%02d", s->regoff);
1666 printf(" tr%02d", s->regoff);
1669 printf(" s %02d", s->varnum);
1672 printf(" l %02d", s->varnum);
1675 printf(" a %02d", s->varnum);
1678 printf(" ! %02d", s->varnum);
1681 switch (s->varkind) {
1683 if (s->flags & INMEMORY)
1684 printf(" Tm%02d", s->regoff);
1686 printf(" Tr%02d", s->regoff);
1689 printf(" S %02d", s->varnum);
1692 printf(" L %02d", s->varnum);
1695 printf(" A %02d", s->varnum);
1698 printf(" ? %02d", s->varnum);
1708 static char *builtin_name(functionptr bptr)
1710 builtin_descriptor *bdesc = builtin_desc;
1711 while ((bdesc->bptr != NULL) && (bdesc->bptr != bptr))
1717 static char *jit_type[] = {
1726 static void show_icmd_method()
1737 utf_fprint(stdout, class->name);
1739 utf_fprint(stdout, method->name);
1741 utf_fprint(stdout, method->descriptor);
1742 printf ("\n\nMax locals: %d\n", (int) maxlocals);
1743 printf ("Max stack: %d\n", (int) maxstack);
1745 printf ("Exceptions (Number: %d):\n", exceptiontablelength);
1746 for (ex = extable; ex != NULL; ex = ex->down) {
1747 printf(" L%03d ... ", ex->start->debug_nr );
1748 printf("L%03d = ", ex->end->debug_nr);
1749 printf("L%03d\n", ex->handler->debug_nr);
1752 printf ("Local Table:\n");
1753 for (i = 0; i < maxlocals; i++) {
1754 printf(" %3d: ", i);
1755 for (j = TYPE_INT; j <= TYPE_ADR; j++)
1756 if (locals[i][j].type >= 0) {
1757 printf(" (%s) ", jit_type[j]);
1758 if (locals[i][j].flags & INMEMORY)
1759 printf("m%2d", locals[i][j].regoff);
1760 else if ((j == TYPE_FLT) || (j == TYPE_DBL))
1761 printf("f%02d", locals[i][j].regoff);
1763 printf("%3s", regs[locals[i][j].regoff]);
1769 printf ("Interface Table:\n");
1770 for (i = 0; i < maxstack; i++) {
1771 if ((interfaces[i][0].type >= 0) || (interfaces[i][1].type >= 0) ||
1772 (interfaces[i][2].type >= 0) || (interfaces[i][3].type >= 0) ||
1773 (interfaces[i][4].type >= 0)) {
1774 printf(" %3d: ", i);
1775 for (j = TYPE_INT; j <= TYPE_ADR; j++)
1776 if (interfaces[i][j].type >= 0) {
1777 printf(" (%s) ", jit_type[j]);
1778 if (interfaces[i][j].flags & SAVEDVAR) {
1779 if (interfaces[i][j].flags & INMEMORY)
1780 printf("M%2d", interfaces[i][j].regoff);
1781 else if ((j == TYPE_FLT) || (j == TYPE_DBL))
1782 printf("F%02d", interfaces[i][j].regoff);
1784 printf("%3s", regs[interfaces[i][j].regoff]);
1787 if (interfaces[i][j].flags & INMEMORY)
1788 printf("m%2d", interfaces[i][j].regoff);
1789 else if ((j == TYPE_FLT) || (j == TYPE_DBL))
1790 printf("f%02d", interfaces[i][j].regoff);
1792 printf("%3s", regs[interfaces[i][j].regoff]);
1800 if (showdisassemble) {
1802 extern s4 *codestatic;
1805 s4ptr = (s4 *) (method->mcode + dseglen);
1806 for (i = 0; i < block[0].mpc; i++, ((s4) s4ptr)++) {
1807 disassinstr((s4) s4ptr, i);
1813 s4ptr = (s4 *) (method->mcode + dseglen);
1814 for (i = 0; i < block[0].mpc; i += 4, s4ptr++) {
1815 disassinstr(*s4ptr, i);
1822 for (bptr = block; bptr != NULL; bptr = bptr->next)
1823 if (bptr->flags != BBDELETED) {
1824 deadcode = bptr->flags <= BBREACHED;
1827 for (j = maxstack; j > 0; j--)
1830 print_stack(bptr->instack);
1831 printf("] L%03d(%d - %d):\n", bptr->debug_nr, bptr->icount, bptr->pre_count);
1832 iptr = bptr->iinstr;
1834 for (i=0; i < bptr->icount; i++, iptr++) {
1837 for (j = maxstack; j > 0; j--)
1841 print_stack(iptr->dst);
1842 printf("] %4d %s", i, icmd_names[iptr->opc]);
1843 switch ((int) iptr->opc) {
1844 case ICMD_IADDCONST:
1845 case ICMD_ISUBCONST:
1846 case ICMD_IMULCONST:
1849 case ICMD_IREM0X10001:
1850 case ICMD_IANDCONST:
1852 case ICMD_IXORCONST:
1853 case ICMD_ISHLCONST:
1854 case ICMD_ISHRCONST:
1855 case ICMD_IUSHRCONST:
1856 case ICMD_LSHLCONST:
1857 case ICMD_LSHRCONST:
1858 case ICMD_LUSHRCONST:
1860 case ICMD_ELSE_ICONST:
1861 case ICMD_IFEQ_ICONST:
1862 case ICMD_IFNE_ICONST:
1863 case ICMD_IFLT_ICONST:
1864 case ICMD_IFGE_ICONST:
1865 case ICMD_IFGT_ICONST:
1866 case ICMD_IFLE_ICONST:
1867 printf(" %d", iptr->val.i);
1869 case ICMD_LADDCONST:
1870 case ICMD_LSUBCONST:
1871 case ICMD_LMULCONST:
1874 case ICMD_LANDCONST:
1876 case ICMD_LXORCONST:
1879 printf(" %lld", iptr->val.l);
1881 printf(" %ld", iptr->val.l);
1885 printf(" %f", iptr->val.f);
1888 printf(" %f", iptr->val.d);
1891 printf(" %p", iptr->val.a);
1895 printf(" %d,", ((fieldinfo *) iptr->val.a)->offset);
1896 case ICMD_PUTSTATIC:
1897 case ICMD_GETSTATIC:
1900 ((fieldinfo *) iptr->val.a)->name);
1903 printf(" %d + %d", iptr->op1, iptr->val.i);
1938 printf(" %d", iptr->op1);
1943 ((classinfo *) iptr->val.a)->name);
1946 switch (iptr->op1) {
1973 case ICMD_ANEWARRAY:
1977 ((classinfo *) iptr->val.a)->name);
1980 case ICMD_CHECKCAST:
1981 case ICMD_INSTANCEOF:
1983 classinfo *c = iptr->val.a;
1984 if (c->flags & ACC_INTERFACE)
1985 printf(" (INTERFACE) ");
1987 printf(" (CLASS,%3d) ", c->vftbl->diffval);
1988 utf_fprint(stdout, c->name);
1994 printf(" %s", builtin_name((functionptr) iptr->val.a));
1996 case ICMD_INVOKEVIRTUAL:
1997 case ICMD_INVOKESPECIAL:
1998 case ICMD_INVOKESTATIC:
1999 case ICMD_INVOKEINTERFACE:
2002 ((methodinfo *) iptr->val.a)->class->name);
2005 ((methodinfo *) iptr->val.a)->name);
2019 printf("(%d) L%03d", iptr->val.i, ((basicblock *) iptr->target)->debug_nr);
2024 case ICMD_IFNONNULL:
2025 case ICMD_IF_ICMPEQ:
2026 case ICMD_IF_ICMPNE:
2027 case ICMD_IF_ICMPLT:
2028 case ICMD_IF_ICMPGE:
2029 case ICMD_IF_ICMPGT:
2030 case ICMD_IF_ICMPLE:
2031 case ICMD_IF_LCMPEQ:
2032 case ICMD_IF_LCMPNE:
2033 case ICMD_IF_LCMPLT:
2034 case ICMD_IF_LCMPGE:
2035 case ICMD_IF_LCMPGT:
2036 case ICMD_IF_LCMPLE:
2037 case ICMD_IF_ACMPEQ:
2038 case ICMD_IF_ACMPNE:
2039 printf(" L%03d", ((basicblock *) iptr->target)->debug_nr);
2041 case ICMD_TABLESWITCH:
2043 s4ptr = iptr->val.a;
2044 tptr = (void **) iptr->target;
2046 printf(" L%03d;", ((basicblock *) *tptr)->debug_nr);
2052 j = *s4ptr++; /* low */
2053 j = *s4ptr++ - j; /* high */
2055 printf(" L%03d", ((basicblock *) *tptr)->debug_nr);
2060 case ICMD_LOOKUPSWITCH:
2061 s4ptr = iptr->val.a;
2062 tptr = (void **) iptr->target;
2064 printf(" L%03d", ((basicblock *) *tptr)->debug_nr);
2065 s4ptr++; /* default */
2066 j = *s4ptr; /* count */
2070 printf(" L%03d", ((basicblock *) *tptr)->debug_nr);
2078 if (showdisassemble && (!deadcode)) {
2080 extern s4 *codestatic;
2085 s4ptr = (s4 *) (method->mcode + dseglen + i);
2087 if (bptr->next != NULL) {
2088 for (; i < bptr->next->mpc; i++, ((s4) s4ptr)++) {
2089 disassinstr((s4) s4ptr, i);
2096 for (; s4ptr < (s4 *) (method->mcode + method->mcodelength); i++, ((s4) s4ptr)++) {
2097 disassinstr((s4) s4ptr, i);
2106 s4ptr = (s4 *) (method->mcode + dseglen + i);
2108 if (bptr->next != NULL) {
2109 for (; i < bptr->next->mpc; i += 4, s4ptr++) {
2110 disassinstr(*s4ptr, i);
2115 for (; s4ptr < (s4 *) (method->mcode + method->mcodelength); i += 4, s4ptr++) {
2116 disassinstr(*s4ptr, i);
2126 s4ptr = (s4 *) (method->mcode + dseglen + i);
2127 if (showdisassemble && (s4ptr < (s4 *) (method->mcode + method->mcodelength))) {
2129 for (; s4ptr < (s4 *) (method->mcode + method->mcodelength); i += 4, s4ptr++) {
2130 disassinstr(*s4ptr, i);
2139 * These are local overrides for various environment variables in Emacs.
2140 * Please do not remove this and leave it at the end of the file, where
2141 * Emacs will automagically detect them.
2142 * ---------------------------------------------------------------------
2145 * indent-tabs-mode: t