/vm/src/any/prims/glue.cpp

http://github.com/ticking/self · C++ · 49 lines · 39 code · 7 blank · 3 comment · 0 complexity · 03f8e10db8d235cbb540afabcb511080 MD5 · raw file 

    

  1. /* Sun-$Revision: 30.7 $ */
    2. 

  2. 

  3. /* Copyright 1992-2006 Sun Microsystems, Inc. and Stanford University.
    4. 

  4.    See the LICENSE file for license information. */
    5. 

  5. 

  6. # pragma implementation "glue.hh"
    7. 

  7. # include "_glue.cpp.incl"
    8. 

  8. extern "C" {
    9. 

  9.   double ceil(double x);
    10. 

  10.   double floor(double x);
    11. 

  11.   double rint(double x);
    12. 

  12. }
    13. 

  13. 

  14. char *sealSeal = "Type seal for proxies representing a type seal.";
    15. 

  15. char *TS_SO    = "Type seal for ld shared object handles.";
    16. 

  16. char *TS_symb  = "Type seal for symbol addresses.";
    17. 

  17. char *TS_func  = "Type seal for functions.";
    18. 

  18. 

  19. 

  20. # define WHAT_GLUE FUNCTIONS
    21. 

  21.     byteVector_glue
    22. 

  22.     objVector_glue
    23. 

  23.     foreign_glue
    24. 

  24.     misc_glue_1
    25. 

  25.     misc_glue_2
    26. 

  26.     process_glue
    27. 

  27.     timer_glue
    28. 

  28.     fctProxy_glue_1
    29. 

  29.     fctProxy_glue_2
    30. 

  30.     fctProxy_glue_3
    31. 

  31.     fctProxy_glue_4
    32. 

  32.     fctProxy_glue_5
    33. 

  33.     fctProxy_glue_6
    34. 

  34.     fctProxy_glue_7
    35. 

  35.     mirror_glue
    36. 

  36.     oop_glue
    37. 

  37.     slots_glue
    38. 

  38.     smi_glue
    39. 

  39.     float_glue
    40. 

  40.     profiler_glue
    41. 

  41. # ifdef DYNLINK_SUPPORTED
    42. 

  42.     dynLink_glue
    43. 

  43. # endif
    44. 

  44. # ifdef SIC_COMPILER
    45. 

  45.     sic_glue
    46. 

  46. # endif
    47. 

  47. # undef  WHAT_GLUE
    48.