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 / cmplabel.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  1.9 KB  |  75 lines
  1.  
  2. static L1();
  3. static L2();
  4. static L3();
  5. static L4();
  6. static object LI6();
  7. #define VC1
  8. #define VC2
  9. #define VC3 object  V4;
  10. #define VC4 object  V6;
  11. static object LI5();
  12. #define VMB5 object  V13;
  13. #define VMS5
  14. #define VMV5
  15. #define VMR5(VMT5) return(VMT5);
  16. static object LI6();
  17. #define VMB6 register object *base=vs_top; object  V45 ,V44 ,V43 ,V36 ,V34 ,V33 ,V31 ,V29 ,V27; object Vcs[3];
  18. #define VMS6  register object *sup=vs_top+4;vs_top=sup;
  19. #define VMV6 vs_reserve(4);
  20. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  21. static object LI7();
  22. #define VMB7 register object *base=vs_top; object  V59 ,V57 ,V54;
  23. #define VMS7 vs_top += 1;
  24. #define VMV7 vs_reserve(1);
  25. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  26. static object LI8();
  27. #define VMB8 register object *base=vs_top;
  28. #define VMS8 vs_top += 1;
  29. #define VMV8 vs_reserve(1);
  30. #define VMR8(VMT8) vs_top=base ; return(VMT8);
  31. #define VM8 1
  32. #define VM7 1
  33. #define VM6 4
  34. #define VM5 0
  35. #define VM4 4
  36. #define VM3 4
  37. #define VM2 3
  38. #define VM1 3
  39. static char * VVi[53]={
  40. #define Cdata VV[52]
  41. (char *)(L1),
  42. (char *)(L2),
  43. (char *)(L3),
  44. (char *)(L4),
  45. (char *)(LI5),
  46. (char *)(LI6),
  47. (char *)(LI7),
  48. (char *)(LI8)
  49. };
  50. #define VV ((object *)VVi)
  51. static object  LnkTLI51() ;
  52. static object  (*LnkLI51)() = LnkTLI51;
  53. static object  LnkTLI50() ;
  54. static object  (*LnkLI50)() = LnkTLI50;
  55. static object  LnkTLI49() ;
  56. static object  (*LnkLI49)() = LnkTLI49;
  57. static object  LnkTLI48() ;
  58. static object  (*LnkLI48)() = LnkTLI48;
  59. static  LnkT47() ;
  60. static  (*Lnk47)() = LnkT47;
  61. static object  LnkTLI46() ;
  62. static object  (*LnkLI46)() = LnkTLI46;
  63. static object  LnkTLI45() ;
  64. static object  (*LnkLI45)() = LnkTLI45;
  65. static object  LnkTLI44() ;
  66. static object  (*LnkLI44)() = LnkTLI44;
  67. static object  LnkTLI43() ;
  68. static object  (*LnkLI43)() = LnkTLI43;
  69. static object  LnkTLI42() ;
  70. static object  (*LnkLI42)() = LnkTLI42;
  71. static object  LnkTLI41() ;
  72. static object  (*LnkLI41)() = LnkTLI41;
  73. static object  LnkTLI40() ;
  74. static object  (*LnkLI40)() = LnkTLI40;
  75.