CbC/old/device: mc-code-powerpc.c comparison

comparison mc-code-powerpc.c @ 320:183726ccd83d

asm minor fix. ia32 table jmp fix.

author	kono
date	Sat, 19 Jun 2004 00:13:36 +0900
parents	88cf6512fa1b
children	575481408653

comparison

equal deleted inserted replaced

-:88cf6512fa1b
+:183726ccd83d
 	} else if(car(e)==FNAME) {
 	    printf("\t.long _%s\n",((NMTBL *)cadr(e))->nm);
 	} else if(car(e)==GVAR) {
 	    printf("\t.long _%s\n",((NMTBL *)cadr(e))->nm);
 	} else if(car(e)==STRING) {
-	    if (car(n->ty)!=ARRAY || cadr(n->ty)!=CHAR) {
+if (car(n->ty)!=ARRAY || cadr(n->ty)!=CHAR) {
-		l = emit_string_label();
+l = emit_string_label();
-	    }
+ascii((char *)cadr(e));
-	    ascii((char *)cadr(e));
+data_mode(0);
+printf("\t.long L_%d\n",l);
+} else
+ascii((char *)cadr(e));
 	} else error(TYERR);
 } else error(TYERR);
 }
 void
 #endif
 #if ASM_CODE
 /*
-__asm__ __volatile__ ("sthbrx %1,0,%2" : "=m" (*addr) : "r" (val), "r" (a
+print an operand
-ddr));
-asm string : output constraint parameter : input constraint parameter : opt
-1: asm string     %1,%2 will be replaced by register or value
-2: constraint     gcc constraint sting
-prefix
-=    overwrite by this asm for output
-&    overwrite by this asm and can't be used as input register
-ignored in this compiler
-constraints
-m    value expression is modified (no coresponding register)
-information for compiler
-r    register for input or output
-			input register, output register can be shared
-0-9  same operands as outout register in input constraints
-3: opt     "cc", "memory"
-ignored in this compiler
 */
-#define MAX_ASM_REG 30
 static void
-print_asm_reg(int rstr)
+emit_asm_operand(int rstr)
 {
 if (car(rstr)==REGISTER) {
 	printf("%s",register_name(cadr(rstr)));
 } else if (car(rstr)==CONST) {
 	printf("%d",cadr(rstr));
 } else {
 	error(-1);
 }
 }
-static void
+/*
-replace_asm_string(char *asm_str,int repl)
+prepare asm operands
-{
-int c,i,rstr,val;
+char *constraints sgtring
-char *p;
+int  oeprand expre
-int reg[MAX_ASM_REG];
+int  mode          (ASM_INPUT,ASM_OUTPUT)
+int  replacement list
-text_mode();
+int  output operands count
-c = *asm_str;
+int  output operands replacement list
-if (c!='\t'&&c!=' ') printf("\t");
-for(i=0;repl && i<MAX_ASM_REG;i++) {
+retrun replacement list
-	reg[i] = car(repl);
+list3( operands, next, clobber )
-	repl = cadr(repl);
+0    can be shared in input/output
-}
+1    can't be used in input
-p = asm_str;
+*/
-while((c = *p++)) {
-	if (c=='%') {
+int
-	    c = *p++;
-	    if (!c) { break;
-	    } else if (c=='%') {
-		printf("%%"); continue;
-	    } else if (!digit(c)) {
-		printf("%%%c",c); continue;
-	    }
-	    val = 0;
-	    do { val = val*10 + c-'0'; } while (digit(c=*p++)) ;
-	    p--;
-	    if (val>MAX_ASM_REG) error(-1); // too large register
-	    rstr = reg[val];
-	    print_asm_reg(rstr);
-	} else {
-	    printf("%c",c);
-	}
-}
-printf("\n");
-}
-#define ASM_INPUT  1
-#define ASM_OUTPUT 2
-#define ASM_USED   3
-static int
 asm_operand(char *p,int e1,int mode,int repl,int n,int repl0)
 {
 int r;
 int c;
 int val;
 	repl = list3(car(nth(n-val-1,repl0)),repl,clobber);
 } else error(-1);
 return repl;
 }
-static void
+void
 free_asm_operand(int repl)
 {
 for(;repl;repl=cadr(repl)) {
 	if (car(car(repl))==REGISTER)
 	    free_register(cadr(car(repl)));
 }
 }
-void
-code_asm(int asm0,int in,int out,int opt,int e)
+extern void
-{
+replace_asm_string(char *asm_str,int repl)
-int i,e1,n;
+{
-int repl = 0;
+int c,i,rstr,val;
-int repl0;
-int assign = 0;
 char *p;
+int reg[MAX_ASM_REG];
-printf("# asm\n");
-in = reverse0(in);
+text_mode();
-out = reverse0(out);
+c = *asm_str;
-e = reverse0(e);
+if (c!='\t'&&c!=' ') printf("\t");
-for(i=out;i;i=cadr(i)) {
+for(i=0;repl && i<MAX_ASM_REG;i++) {
-	p = (char*)cadr(car(i));
+	reg[i] = car(repl);
-	e1 = car(e); e = cadr(e);
+	repl = cadr(repl);
-	repl = asm_operand(p,e1,ASM_OUTPUT,repl,0,0);
+}
-	if (car(car(repl))==REGISTER) {
+p = asm_str;
-	    assign = list2(assign_expr0(e1,car(repl),INT,INT),assign);
+while((c = *p++)) {
+	if (c=='%') {
+	    c = *p++;
+	    if (!c) { break;
+	    } else if (c=='%') {
+		printf("%%"); continue;
+	    } else if (!digit(c)) {
+		printf("%%%c",c); continue;
+	    }
+	    val = 0;
+	    do { val = val*10 + c-'0'; } while (digit(c=*p++)) ;
+	    p--;
+	    if (val>MAX_ASM_REG) error(-1); // too large register
+	    rstr = reg[val];
+	    emit_asm_operand(rstr);
+	} else {
+	    printf("%c",c);
 	}
 }
-repl0 = repl;
+printf("\n");
-n = length(repl0);
-for(i=in;i;i=cadr(i)) {
-	p = (char*)cadr(car(i));
-	e1 = car(e); e = cadr(e);
-	repl = asm_operand(p,e1,ASM_INPUT,repl,n,repl0);
-	if (car(car(repl))==REGISTER) {
-	    g_expr_u(assign_expr0(car(repl),e1,INT,INT));
-	}
-}
-repl = reverse0(repl);
-replace_asm_string((char*)cadr(asm0),repl);
-for(i=assign;i;i=cadr(i)) {
-	g_expr_u(car(i));
-}
-free_asm_operand(repl);
-// no check for opt
 }
 #endif

Mercurial > hg > CbC > old > device

comparison mc-code-powerpc.c @ 320:183726ccd83d