Mercurial > hg > CbC > old > device

comparison mc-parse.c @ 272:40266d044d97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MIPS continue...
author kono
date Wed, 19 May 2004 23:44:38 +0900
parents e1a96bdbe527
children 87b9cfc86a10
comparison
equal deleted inserted replaced
271:e1a96bdbe527 272:40266d044d97
2051 #if FLOAT_CODE 2051 #if FLOAT_CODE
2052 if (car(e2)==CONST) return dlist2(FCONST,(double)cadr(e2)); 2052 if (car(e2)==CONST) return dlist2(FCONST,(double)cadr(e2));
2053 if (car(e2)==DCONST) return dlist2(FCONST,dcadr(e2)); 2053 if (car(e2)==DCONST) return dlist2(FCONST,dcadr(e2));
2054 if(type==FLOAT) return e2; 2054 if(type==FLOAT) return e2;
2055 if(type==DOUBLE) return list3(CONV,rvalue_t(e2,type),D2F); 2055 if(type==DOUBLE) return list3(CONV,rvalue_t(e2,type),D2F);
2056 if(type==UNSIGNED) return list3(CONV,rvalue_t(e2,type),U2D); 2056 if(type==UNSIGNED) return list3(CONV,rvalue_t(e2,type),U2F);
2057 if(type==LONGLONG) return list3(CONV,rvalue_t(e2,type),LL2F); 2057 if(type==LONGLONG) return list3(CONV,rvalue_t(e2,type),LL2F);
2058 if(type==ULONGLONG) return list3(CONV,rvalue_t(e2,type),ULL2F); 2058 if(type==ULONGLONG) return list3(CONV,rvalue_t(e2,type),ULL2F);
2059 if(integral(type)) return list3(CONV,rvalue_t(e2,type),I2D); 2059 if(integral(type)) return list3(CONV,rvalue_t(e2,type),I2F);
2060 error(TYERR); return dlist2(DCONST,1.0); 2060 error(TYERR); return dlist2(DCONST,1.0);
2061 #else 2061 #else
2062 error(TYERR); return list2(CONST,0); 2062 error(TYERR); return list2(CONST,0);
2063 #endif 2063 #endif
2064 } 2064 }