CbC/old/device: mc-inline.c comparison

comparison mc-inline.c @ 464:d88f08d81bba

inline continue.... const type lvar offset for inline local will be add

author	kono
date	Tue, 07 Dec 2004 12:30:18 +0900
parents	50a59dfb4606
children	0a4ca939f403

comparison

equal deleted inserted replaced

-:50a59dfb4606
+:d88f08d81bba
 #include <stdio.h>
 #include "mc.h"
 #include "mc-parse.h"
 #include "mc-codegen.h"
 #include "mc-switch.h"
+#include "mc-code.h"
+#include "mc-inline.h"
 static int pvartable;
 static int pdisp;
 /*
 */
 static int
 p_vartable(int e,int adisp,int ldisp)
 {
-int i,e1,e3;
+int i;
 pvartable = getfree(adisp+ldisp);
 pdisp = pvartable+adisp;
 for(i=adisp+ldisp;i>=0;i--) {
 	pvartable = 0;
 }
 {
 int sz = is_memory(e1);
 int d = cadr(e1);
 int d1;
 if ((d1=(heap[pdisp+e1]))) return d1;
-return (heap[pdisp+narg]=new_lvar(sz));
+return (heap[pdisp+d]=new_lvar(sz));
 }
 static int
 pfunction(int e)
 {
+return e;
 }
 static int
 prindirect(int e)
 {
+return e;
 }
 static int
 paddress(int e)
 {
+return e;
 }
 static int
-p_conv(int e)
+p_conv(int e1,int e2)
 {
+return e1;
 }
 static int
-pbinop(int e)
+pbinop(int op,int e1,int e2)
 {
+return e1;
 }
 static int
 psassign(int e)
 {
+return e;
 }
 static int
 passign(int e)
 {
+return e;
 }
 static int
 passop(int e)
 {
+return e;
 }
 static int
 pdassign(int e)
 {
+return e;
 }
 static int
 pdassop(int e)
 {
+return e;
 }
 static int
 plassign(int e)
 {
+return e;
 }
 static int
 plassop(int e)
 {
+return e;
 }
 static int
 palloc(int e)
 {
+return e;
 }
 static int
-pcomma(int e)
+pcomma(int e1,int e2)
 {
+return e1;
 }
 static int
 prbit_field(int e)
 {
+return e;
 }
 static int
 pbassign(int e)
 {
+return e;
 }
 static int
 pbassop(int e)
 {
+return e;
 }
 static int
 p_decl(int e)
 {
 }
 static int
 p_if(int e)
 {
+return e;
 }
 static int
 p_do(int e)
 {
+return e;
 }
 static int
 p_while(int e)
 {
+return e;
 }
 static int
 p_for(int e)
 {
+return e;
 }
 static int
 p_switch(int e)
 {
+return e;
 }
 static int
 p_comp(int e)
 {
+return e;
 }
 static int
 p_break(int e)
 {
+return e;
 }
 static int
 p_continue(int e)
 {
+return e;
 }
 static int
 p_case(int e)
 {
+return e;
 }
 static int
 p_default(int e)
 {
+return e;
 }
 static int
 p_return(int e)
 {
+return e;
 }
 static int
 p_goto(int e)
 {
+return e;
 }
 static int
 p_asm(int e)
 {
+return e;
 }
 static int
 p_label(int e)
 {
+return e;
 }
 static int
 p_bool(int e)
 {
+return e;
+}
+static int
+p_comment(int e)
+{
+return e;
 }
 extern int
 pexpr(int e1)
 {
 int e2,e3;
-NMTBL *n;
 // if (inmode) error(-1);
 e2 = cadr(e1);
 switch (car(e1)){
 case GVAR: case RGVAR: case CRGVAR: case CURGVAR: case SRGVAR:
 int narg,arg;
 NMTBL *n = (NMTBL*)cadr(cadr(e));
 int e1 = attr_value(n,INLINE);
 int parse = car(e1);
 int arg_disp = cadr(e1);
+int e3,t;
 pvartable = p_vartable(e,pdisp=arg_disp,caddr(e1));
 /* inline function arguments */
 narg = 0;
 for (e3 = e1 = reverse0(caddr(e)); e3; e3 = cadr(e3)) {
 t=caddr(e3);
-	if (is_const(e3)||(is_memory(e3)&&is_readonly(e3))) {
+	if (is_const(e3) /* ||(is_memory(e3)&&is_readonly(e3)) */ ) {
 	    heap[pdisp+narg]=e3;
 	} else {
 	    arg = heap[pdisp+narg]=new_lvar(size(t));
 	    g_expr_u(assign_expr0(arg,e3,t,t));
 	}
 	narg += (size(t)+3)/4;
 }
 e = pexpr(parse);
-convlvar = sconvlvar;
 pdisp = sdisp;
+pvartable = svartable;
 return e;
 }
 /* end */

Mercurial > hg > CbC > old > device

comparison mc-inline.c @ 464:d88f08d81bba