home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Moscow ML 1.31 / source code / mosml / xtra / src / compiler / Opcodes.sml next >
Encoding:
Text File  |  1995-08-31  |  2.7 KB  |  146 lines  |  [TEXT/R*ch]

  1. val CONSTBYTE = 0;
  2. val CONSTSHORT = 1;
  3. val GETGLOBAL = 2;
  4. val SETGLOBAL = 3;
  5. val CUR = 4;
  6. val SWITCH = 5;
  7. val BRANCH = 6;
  8. val BRANCHIF = 7;
  9. val BRANCHIFNOT = 8;
  10. val POPBRANCHIFNOT = 9;
  11. val BRANCHIFNEQTAG = 10;
  12. val BRANCHIFEQ = 11;
  13. val BRANCHIFNEQ = 12;
  14. val BRANCHIFLT = 13;
  15. val BRANCHIFGT = 14;
  16. val BRANCHIFLE = 15;
  17. val BRANCHIFGE = 16;
  18. val BRANCHINTERVAL = 17;
  19. val C_CALL1 = 18;
  20. val C_CALL2 = 19;
  21. val C_CALL3 = 20;
  22. val C_CALL4 = 21;
  23. val C_CALL5 = 22;
  24. val C_CALLN = 23;
  25. val MAKEBLOCK = 24;
  26. val MAKEBLOCK1 = 25;
  27. val MAKEBLOCK2 = 26;
  28. val MAKEBLOCK3 = 27;
  29. val MAKEBLOCK4 = 28;
  30. val TAGOF = 29;
  31. val ACCESS = 30;
  32. val ACC0 = 31;
  33. val ACC1 = 32;
  34. val ACC2 = 33;
  35. val ACC3 = 34;
  36. val ACC4 = 35;
  37. val ACC5 = 36;
  38. val ATOM = 37;
  39. val ATOM0 = 38;
  40. val ATOM1 = 39;
  41. val ATOM2 = 40;
  42. val ATOM3 = 41;
  43. val ATOM4 = 42;
  44. val ATOM5 = 43;
  45. val ATOM6 = 44;
  46. val ATOM7 = 45;
  47. val ATOM8 = 46;
  48. val ATOM9 = 47;
  49. val GETFIELD = 48;
  50. val GETFIELD0 = 49;
  51. val GETFIELD1 = 50;
  52. val GETFIELD2 = 51;
  53. val GETFIELD3 = 52;
  54. val SETFIELD = 53;
  55. val SETFIELD0 = 54;
  56. val SETFIELD1 = 55;
  57. val SETFIELD2 = 56;
  58. val SETFIELD3 = 57;
  59. val STOP = 58;
  60. val CHECK_SIGNALS = 59;
  61. val APPLY = 60;
  62. val RETURN = 61;
  63. val APPTERM = 62;
  64. val GRAB = 63;
  65. val LET = 64;
  66. val LETREC1 = 65;
  67. val DUMMY = 66;
  68. val UPDATE = 67;
  69. val ENDLET = 68;
  70. val ENDLET1 = 69;
  71. val PUSHTRAP = 70;
  72. val RAISE = 71;
  73. val POPTRAP = 72;
  74. val PUSH = 73;
  75. val POP = 74;
  76. val PUSHMARK = 75;
  77. val PUSH_GETGLOBAL_APPLY = 76;
  78. val PUSH_GETGLOBAL_APPTERM = 77;
  79. val BOOLNOT = 78;
  80. val NEGINT = 79;
  81. val SUCCINT = 80;
  82. val PREDINT = 81;
  83. val ADDINT = 82;
  84. val SUBINT = 83;
  85. val MULINT = 84;
  86. val DIVINT = 85;
  87. val MODINT = 86;
  88. val ANDINT = 87;
  89. val ORINT = 88;
  90. val XORINT = 89;
  91. val SHIFTLEFTINT = 90;
  92. val SHIFTRIGHTINTSIGNED = 91;
  93. val SHIFTRIGHTINTUNSIGNED = 92;
  94. val EQ = 93;
  95. val NEQ = 94;
  96. val LTINT = 95;
  97. val GTINT = 96;
  98. val LEINT = 97;
  99. val GEINT = 98;
  100. val INCR = 99;
  101. val DECR = 100;
  102. val FLOATOP = 101;
  103. val INTOFFLOAT = 102;
  104. val EQFLOAT = 103;
  105. val NEQFLOAT = 104;
  106. val LTFLOAT = 105;
  107. val GTFLOAT = 106;
  108. val LEFLOAT = 107;
  109. val GEFLOAT = 108;
  110. val STRINGLENGTH = 109;
  111. val GETSTRINGCHAR = 110;
  112. val SETSTRINGCHAR = 111;
  113. val EQSTRING = 112;
  114. val NEQSTRING = 113;
  115. val LTSTRING = 114;
  116. val GTSTRING = 115;
  117. val LESTRING = 116;
  118. val GESTRING = 117;
  119. val MAKEVECTOR = 118;
  120. val VECTLENGTH = 119;
  121. val GETVECTITEM = 120;
  122. val SETVECTITEM = 121;
  123. val SMLNEGINT = 122;
  124. val SMLSUCCINT = 123;
  125. val SMLPREDINT = 124;
  126. val SMLADDINT = 125;
  127. val SMLSUBINT = 126;
  128. val SMLMULINT = 127;
  129. val SMLDIVINT = 128;
  130. val SMLMODINT = 129;
  131. val MAKEREFVECTOR = 130;
  132. val SMLQUOTINT = 131;
  133. val SMLREMINT = 132;
  134. val BREAK = 133;
  135. val FLOATOFINT = 0;
  136. val NEGFLOAT = 1;
  137. val ADDFLOAT = 2;
  138. val SUBFLOAT = 3;
  139. val MULFLOAT = 4;
  140. val DIVFLOAT = 5;
  141. val SMLNEGFLOAT = 6;
  142. val SMLADDFLOAT = 7;
  143. val SMLSUBFLOAT = 8;
  144. val SMLMULFLOAT = 9;
  145. val SMLDIVFLOAT = 10;
  146.