home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpcatch.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  2.2 KB  |  79 lines
  1.  
  2. static object LI1();
  3. #define VMB1 register object *base=vs_top;
  4. #define VMS1 vs_top += 1;
  5. #define VMV1 vs_reserve(1);
  6. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  7. static object LI2();
  8. #define VMB2 register object *base=vs_top; object  V10;
  9. #define VMS2  register object *sup=vs_top+3;vs_top=sup;
  10. #define VMV2 vs_reserve(3);
  11. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  12. static object LI3();
  13. #define VMB3
  14. #define VMS3
  15. #define VMV3
  16. #define VMR3(VMT3) return(VMT3);
  17. static object LI4();
  18. #define VMB4 register object *base=vs_top; object  V19;
  19. #define VMS4 vs_top += 4;
  20. #define VMV4 vs_reserve(4);
  21. #define VMR4(VMT4) vs_top=base ; return(VMT4);
  22. static object LI5();
  23. #define VMB5 register object *base=vs_top; object  V28 ,V27;
  24. #define VMS5 vs_top += 4;
  25. #define VMV5 vs_reserve(4);
  26. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  27. static object LI6();
  28. #define VMB6 register object *base=vs_top; object  V35 ,V34;
  29. #define VMS6 vs_top += 1;
  30. #define VMV6 vs_reserve(1);
  31. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  32. static object LI7();
  33. #define VMB7 register object *base=vs_top; object  V44 ,V43;
  34. #define VMS7 vs_top += 2;
  35. #define VMV7 vs_reserve(2);
  36. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  37. #define VM7 2
  38. #define VM6 1
  39. #define VM5 4
  40. #define VM4 4
  41. #define VM3 0
  42. #define VM2 3
  43. #define VM1 1
  44. static char * VVi[37]={
  45. #define Cdata VV[36]
  46. (char *)(LI1),
  47. (char *)(LI2),
  48. (char *)(LI3),
  49. (char *)(LI4),
  50. (char *)(LI5),
  51. (char *)(LI6),
  52. (char *)(LI7)
  53. };
  54. #define VV ((object *)VVi)
  55. static object  LnkTLI34() ;
  56. static object  (*LnkLI34)() = LnkTLI34;
  57. static object  LnkTLI33() ;
  58. static object  (*LnkLI33)() = LnkTLI33;
  59. static object  LnkTLI32() ;
  60. static object  (*LnkLI32)() = LnkTLI32;
  61. static object  LnkTLI31() ;
  62. static object  (*LnkLI31)() = LnkTLI31;
  63. static  LnkT30() ;
  64. static  (*Lnk30)() = LnkT30;
  65. static object  LnkTLI29() ;
  66. static object  (*LnkLI29)() = LnkTLI29;
  67. static object  LnkTLI28() ;
  68. static object  (*LnkLI28)() = LnkTLI28;
  69. static object  LnkTLI27() ;
  70. static object  (*LnkLI27)() = LnkTLI27;
  71. static object  LnkTLI26() ;
  72. static object  (*LnkLI26)() = LnkTLI26;
  73. static object  LnkTLI25() ;
  74. static object  (*LnkLI25)() = LnkTLI25;
  75. static object  LnkTLI24() ;
  76. static object  (*LnkLI24)() = LnkTLI24;
  77. static object  LnkTLI23() ;
  78. static object  (*LnkLI23)() = LnkTLI23;
  79.