/[ascend]/trunk/base/generic/compiler/type_desc.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/type_desc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 221 by johnpye, Tue Dec 20 23:37:10 2005 UTC revision 222 by johnpye, Fri Jan 27 04:23:20 2006 UTC
# Line 1402  double GetRealDefaultF(CONST struct Type Line 1402  double GetRealDefaultF(CONST struct Type
1402    if (GetBaseType(d)==real_type) {    if (GetBaseType(d)==real_type) {
1403      return d->u.atom.u.defval;      return d->u.atom.u.defval;
1404    } else {    } else {
1405      error_reporter(ASC_PROG_ERROR,file,line,"GetRealDefault called without real_type");      error_reporter(ASC_PROG_ERROR,file,line,NULL,"GetRealDefault called without real_type");
1406      return 0.0;      return 0.0;
1407    }    }
1408  }  }
# Line 1416  unsigned GetBoolDefaultF(CONST struct Ty Line 1416  unsigned GetBoolDefaultF(CONST struct Ty
1416    if (GetBaseType(d)==boolean_type) {    if (GetBaseType(d)==boolean_type) {
1417      return d->u.atom.u.defbool;      return d->u.atom.u.defbool;
1418    } else {    } else {
1419      error_reporter(ASC_PROG_ERROR,file,line,"GetBoolDefault called without boolean_type");      error_reporter(ASC_PROG_ERROR,file,line,NULL,"GetBoolDefault called without boolean_type");
1420      return 0;      return 0;
1421    }    }
1422  }  }
# Line 1430  CONST dim_type *GetRealDimensF(CONST str Line 1430  CONST dim_type *GetRealDimensF(CONST str
1430    if (BaseTypeIsAtomic(d)) {    if (BaseTypeIsAtomic(d)) {
1431      return d->u.atom.dimp;      return d->u.atom.dimp;
1432    } else {    } else {
1433      error_reporter(ASC_PROG_ERROR,file,line,"GetRealDimens called non-atom type");      error_reporter(ASC_PROG_ERROR,file,line,NULL,"GetRealDimens called non-atom type");
1434      return WildDimension();      return WildDimension();
1435    }    }
1436  }  }
# Line 1447  CONST dim_type *GetConstantDimensF(CONST Line 1447  CONST dim_type *GetConstantDimensF(CONST
1447      GetBaseType(d)==symbol_constant_type) {      GetBaseType(d)==symbol_constant_type) {
1448      return d->u.constant.dimp;      return d->u.constant.dimp;
1449    } else {    } else {
1450      error_reporter(ASC_PROG_ERROR,file,line,"GetConstDimens called without constant type");      error_reporter(ASC_PROG_ERROR,file,line,NULL,"GetConstDimens called without constant type");
1451      return WildDimension();      return WildDimension();
1452    }    }
1453  }  }

Legend:
Removed from v.221  
changed lines
  Added in v.222

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22