test

这是一个软件水平资格考试中使用的CASL汇编语言的编译器,实现文件中包括一个编译器,一个虚拟机,一个类似于Debug的调试器.

#line 1 "casl_tab.c"
















































#line 1 "casl.y"

#line 1 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"















#pragma once
#line 18 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"






#line 25 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"







#pragma pack(push,8)
#line 34 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"


extern "C" {
#line 38 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"










#line 49 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
#line 50 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"






#line 57 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"








#line 66 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
#line 67 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"







struct _exception {
        int type;       
        char *name;     
        double arg1;    
        double arg2;    
        double retval;  
        } ;


#line 84 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"







struct _complex {
        double x,y; 
        } ;




#line 99 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"


#line 102 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
#line 103 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"





















 extern double _HUGE;
#line 126 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"



























#line 154 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
        int     __cdecl abs(int);
        double  __cdecl acos(double);
        double  __cdecl asin(double);
        double  __cdecl atan(double);
        double  __cdecl atan2(double, double);
        double  __cdecl cos(double);
        double  __cdecl cosh(double);
        double  __cdecl exp(double);
        double  __cdecl fabs(double);
        double  __cdecl fmod(double, double);
        long    __cdecl labs(long);
        double  __cdecl log(double);
        double  __cdecl log10(double);
        double  __cdecl pow(double, double);
        double  __cdecl sin(double);
        double  __cdecl sinh(double);
        double  __cdecl tan(double);
        double  __cdecl tanh(double);
        double  __cdecl sqrt(double);
#line 174 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
 double  __cdecl atof(const char *);
 double  __cdecl _cabs(struct _complex);



#line 180 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
 double  __cdecl ceil(double);
 double  __cdecl floor(double);
#line 183 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
 double  __cdecl frexp(double, int *);
 double  __cdecl _hypot(double, double);
 double  __cdecl _j0(double);
 double  __cdecl _j1(double);
 double  __cdecl _jn(int, double);
 double  __cdecl ldexp(double, int);
        int     __cdecl _matherr(struct _exception *);
 double  __cdecl modf(double, double *);

 double  __cdecl _y0(double);
 double  __cdecl _y1(double);
 double  __cdecl _yn(int, double);








































#line 236 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"







































#line 276 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"


































inline long double acosl(long double _X)
        {return (acos((double)_X)); }
inline long double asinl(long double _X)
        {return (asin((double)_X)); }
inline long double atanl(long double _X)
        {return (atan((double)_X)); }
inline long double atan2l(long double _X, long double _Y)
        {return (atan2((double)_X, (double)_Y)); }
inline long double ceill(long double _X)
        {return (ceil((double)_X)); }
inline long double cosl(long double _X)
        {return (cos((double)_X)); }
inline long double coshl(long double _X)
        {return (cosh((double)_X)); }
inline long double expl(long double _X)
        {return (exp((double)_X)); }
inline long double fabsl(long double _X)
        {return (fabs((double)_X)); }
inline long double floorl(long double _X)
        {return (floor((double)_X)); }
inline long double fmodl(long double _X, long double _Y)
        {return (fmod((double)_X, (double)_Y)); }
inline long double frexpl(long double _X, int *_Y)
        {return (frexp((double)_X, _Y)); }
inline long double ldexpl(long double _X, int _Y)
        {return (ldexp((double)_X, _Y)); }
inline long double logl(long double _X)
        {return (log((double)_X)); }
inline long double log10l(long double _X)
        {return (log10((double)_X)); }
inline long double modfl(long double _X, long double *_Y)
        {double _Di, _Df = modf((double)_X, &_Di);
        *_Y = (long double)_Di;
        return (_Df); }
inline long double powl(long double _X, long double _Y)
        {return (pow((double)_X, (double)_Y)); }
inline long double sinl(long double _X)
        {return (sin((double)_X)); }
inline long double sinhl(long double _X)
        {return (sinh((double)_X)); }
inline long double sqrtl(long double _X)
        {return (sqrt((double)_X)); }
inline long double tanl(long double _X)
        {return (tan((double)_X)); }
inline long double tanhl(long double _X)
        {return (tanh((double)_X)); }

inline float frexpf(float _X, int *_Y)
        {return ((float)frexp((double)_X, _Y)); }
inline float ldexpf(float _X, int _Y)
        {return ((float)ldexp((double)_X, _Y)); }

inline float acosf(float _X)
        {return ((float)acos((double)_X)); }
inline float asinf(float _X)
        {return ((float)asin((double)_X)); }
inline float atanf(float _X)
        {return ((float)atan((double)_X)); }
inline float atan2f(float _X, float _Y)
        {return ((float)atan2((double)_X, (double)_Y)); }
inline float ceilf(float _X)
        {return ((float)ceil((double)_X)); }
inline float cosf(float _X)
        {return ((float)cos((double)_X)); }
inline float coshf(float _X)
        {return ((float)cosh((double)_X)); }
inline float expf(float _X)
        {return ((float)exp((double)_X)); }
inline float fabsf(float _X)
        {return ((float)fabs((double)_X)); }
inline float floorf(float _X)
        {return ((float)floor((double)_X)); }
inline float fmodf(float _X, float _Y)
        {return ((float)fmod((double)_X, (double)_Y)); }
inline float logf(float _X)
        {return ((float)log((double)_X)); }
inline float log10f(float _X)
        {return ((float)log10((double)_X)); }
inline float modff(float _X, float *_Y)
        { double _Di, _Df = modf((double)_X, &_Di);
        *_Y = (float)_Di;
        return ((float)_Df); }
inline float powf(float _X, float _Y)
        {return ((float)pow((double)_X, (double)_Y)); }
inline float sinf(float _X)
        {return ((float)sin((double)_X)); }
inline float sinhf(float _X)
        {return ((float)sinh((double)_X)); }
inline float sqrtf(float _X)
        {return ((float)sqrt((double)_X)); }
inline float tanf(float _X)
        {return ((float)tan((double)_X)); }
inline float tanhf(float _X)
        {return ((float)tanh((double)_X)); }
#line 405 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
#line 406 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
#line 407 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
#line 408 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"














#line 423 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"



 extern double HUGE;

 double  __cdecl cabs(struct _complex);
 double  __cdecl hypot(double, double);
 double  __cdecl j0(double);
 double  __cdecl j1(double);
 double  __cdecl jn(int, double);
        int     __cdecl _matherr(struct _exception *);
 double  __cdecl y0(double);
 double  __cdecl y1(double);
 double  __cdecl yn(int, double);

#line 439 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"

#line 441 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"




































































}




template<class _Ty> inline
        _Ty _Pow_int(_Ty _X, int _Y)
        {unsigned int _N;
        if (_Y >= 0)
                _N = _Y;
        else
                _N = -_Y;
        for (_Ty _Z = _Ty(1); ; _X *= _X)
                {if ((_N & 1) != 0)
                        _Z *= _X;
                if ((_N >>= 1) == 0)
                        return (_Y < 0 ? _Ty(1) / _Z : _Z); }}













































































































#line 636 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"
#line 637 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"


#pragma pack(pop)
#line 641 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"

#line 643 "D:\\Program Files\\Microsoft Visual Studio\\VC98\\include\\math.h"