Mercurial > hg > CbC > old > device

comparison mc-codegen.c @ 111:7aa449aff3e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
floating point
author kono
date Wed, 19 Mar 2003 18:33:25 +0900
parents e09f9de6f5d3
children b14ff9671c90
comparison
equal deleted inserted replaced
110:fb502a0071f8 111:7aa449aff3e6
937 code_assign_lvar(lvar(cadr(e2)),creg,byte); 937 code_assign_lvar(lvar(cadr(e2)),creg,byte);
938 return; 938 return;
939 case REGISTER: 939 case REGISTER:
940 g_expr(e4); 940 g_expr(e4);
941 if (creg!=cadr(e2)) 941 if (creg!=cadr(e2))
942 code_assign_register(cadr(e2),byte); 942 code_assign_register(cadr(e2),byte,creg);
943 return; 943 return;
944 } 944 }
945 g_expr(e2); 945 g_expr(e2);
946 emit_push(); 946 emit_push();
947 g_expr(e4); 947 g_expr(e4);
968 code_dassign_gvar(e2,freg,d); 968 code_dassign_gvar(e2,freg,d);
969 return; 969 return;
970 case LVAR: 970 case LVAR:
971 g_expr(e4); 971 g_expr(e4);
972 code_dassign_lvar(lvar(cadr(e2)),freg,d); 972 code_dassign_lvar(lvar(cadr(e2)),freg,d);
973 return;
974 case DREGISTER:
975 g_expr(e4);
976 if (freg!=cadr(e2))
977 code_dassign_fregister(cadr(e2),d,freg);
973 return; 978 return;
974 } 979 }
975 g_expr(e2); 980 g_expr(e2);
976 emit_push(); 981 emit_push();
977 g_expr(e4); 982 g_expr(e4);