Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-02-21 10:05:32

0001 /*
0002  *  qp_exe_fun_const.h  --
0003  *
0004  *  Original: 24-Apr-1995 17:02
0005  *
0006  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0007  *
0008  *  $Id$
0009  *
0010  *  $Log$
0011  *  Revision 1.4  1996/04/23 18:38:29  maartenb
0012  *  - Add RCS keywords
0013  *
0014  *
0015  */
0016 
0017 case FC_TRUE:
0018 {
0019     NEW_FRAME( D_BOOL, 1, r );
0020     *(bool *) r = TRUE;
0021     break;
0022 }
0023 
0024 case FC_FALSE:
0025 {
0026     NEW_FRAME( D_BOOL, 1, r );
0027     *(bool *) r = FALSE;
0028     break;
0029 }
0030 
0031 case FC_PI:
0032 {
0033     NEW_FRAME( D_FLOAT, 1, r );
0034     *(Float32 *) r = M_PI;
0035     break;
0036 }
0037 
0038 case FC_DPI:
0039 {
0040     NEW_FRAME( D_DOUBLE, 1, r );
0041     *(Float64 *) r = M_PI;
0042     break;
0043 }
0044 
0045 
0046 case FC_UINT32_MIN:
0047 {
0048     NEW_FRAME( D_UINT, 1, r );
0049     *(UInt32 *) r = 0;
0050     break;
0051 }
0052 
0053 case FC_UINT32_MAX:
0054 {
0055     NEW_FRAME( D_UINT, 1, r );
0056     *(UInt32 *) r = UINT32_MAX;
0057     break;
0058 }
0059 
0060 case FC_UINT64_MIN:
0061 {
0062     NEW_FRAME( D_ULONG, 1, r );
0063     *(UInt64 *) r = 0;
0064     break;
0065 }
0066 
0067 case FC_UINT64_MAX:
0068 {
0069     NEW_FRAME( D_ULONG, 1, r );
0070     *(UInt64 *) r = UINT64_MAX;
0071     break;
0072 }
0073 
0074 
0075 case FC_INT32_MIN:
0076 {
0077     NEW_FRAME( D_INT, 1, r );
0078     *(Int32 *) r = INT32_MIN;
0079     break;
0080 }
0081 
0082 case FC_INT32_MAX:
0083 {
0084     NEW_FRAME( D_INT, 1, r );
0085     *(Int32 *) r = INT32_MAX;
0086     break;
0087 }
0088 
0089 case FC_INT64_MIN:
0090 {
0091     NEW_FRAME( D_LONG, 1, r );
0092     *(Int64 *) r = INT64_MIN;
0093     break;
0094 }
0095 
0096 case FC_INT64_MAX:
0097 {
0098     NEW_FRAME( D_LONG, 1, r );
0099     *(Int64 *) r = INT64_MAX;
0100     break;
0101 }
0102 
0103 
0104 case FC_FLOAT32_MIN:
0105 {
0106     NEW_FRAME( D_FLOAT, 1, r );
0107     *(Float32 *) r = FLOAT32_MIN;
0108     break;
0109 }
0110 
0111 case FC_FLOAT32_MAX:
0112 {
0113     NEW_FRAME( D_FLOAT, 1, r );
0114     *(Float32 *) r = FLOAT32_MAX;
0115     break;
0116 }
0117 
0118 case FC_FLOAT64_MIN:
0119 {
0120     NEW_FRAME( D_DOUBLE, 1, r );
0121     *(Float64 *) r = FLOAT64_MIN;
0122     break;
0123 }
0124 
0125 case FC_FLOAT64_MAX:
0126 {
0127     NEW_FRAME( D_DOUBLE, 1, r );
0128     *(Float64 *) r = FLOAT64_MAX;
0129     break;
0130 }
0131 
0132