comparison dmd/TypeBasic.d @ 96:acd69f84627e

further work
author Trass3r
date Tue, 31 Aug 2010 02:12:15 +0200
parents 2e2a5c3f943a
children e28b18c23469
comparison
equal deleted inserted replaced
95:ae5b11064a9a 96:acd69f84627e
280 case TY.Tchar: ivalue = char.min; goto Livalue; 280 case TY.Tchar: ivalue = char.min; goto Livalue;
281 case TY.Twchar: ivalue = wchar.min; goto Livalue; 281 case TY.Twchar: ivalue = wchar.min; goto Livalue;
282 case TY.Tdchar: ivalue = dchar.min; goto Livalue; 282 case TY.Tdchar: ivalue = dchar.min; goto Livalue;
283 case TY.Tcomplex32: 283 case TY.Tcomplex32:
284 case TY.Timaginary32: 284 case TY.Timaginary32:
285 case Tfloat32:
286 case Tcomplex64:
287 case Timaginary64:
288 case Tfloat64:
289 case Tcomplex80:
290 case Timaginary80:
291 case Tfloat80:
292 // For backwards compatibility - eventually, deprecate
293 goto Lmin_normal;
294 }
295 }
296 else if (ident == Id.min_normal)
297 {
298 Lmin_normal:
299 switch (ty)
300 {
301 case Tcomplex32:
302 case Timaginary32:
285 case TY.Tfloat32: fvalue = float.min; goto Lfvalue; 303 case TY.Tfloat32: fvalue = float.min; goto Lfvalue;
286 case TY.Tcomplex64: 304 case TY.Tcomplex64:
287 case TY.Timaginary64: 305 case TY.Timaginary64:
288 case TY.Tfloat64: fvalue = double.min; goto Lfvalue; 306 case TY.Tfloat64: fvalue = double.min; goto Lfvalue;
289 case TY.Tcomplex80: 307 case TY.Tcomplex80:
448 Complex!(real) cvalue; 466 Complex!(real) cvalue;
449 cvalue.re = fvalue; 467 cvalue.re = fvalue;
450 cvalue.im = fvalue; 468 cvalue.im = fvalue;
451 469
452 //for (int i = 0; i < 20; i++) 470 //for (int i = 0; i < 20; i++)
453 // printf("%02x ", ((unsigned char *)&cvalue)[i]); 471 // printf("%02x ", ((unsigned char *)&cvalue)[i]);
454 //printf("\n"); 472 //printf("\n");
455 e = new ComplexExp(loc, cvalue, this); 473 e = new ComplexExp(loc, cvalue, this);
456 } 474 }
457 return e; 475 return e;
458 476