xref: /illumos-gate/usr/src/common/ficl/ficltokens.h (revision b41e2fb6b2658a36accc73b3b86d99375e700dba)
1 	FICL_TOKEN(ficlInstructionInvalid, "** invalid **")
2 	FICL_TOKEN(ficlInstruction1, "1")
3 	FICL_TOKEN(ficlInstruction2, "2")
4 	FICL_TOKEN(ficlInstruction3, "3")
5 	FICL_TOKEN(ficlInstruction4, "4")
6 	FICL_TOKEN(ficlInstruction5, "5")
7 	FICL_TOKEN(ficlInstruction6, "6")
8 	FICL_TOKEN(ficlInstruction7, "7")
9 	FICL_TOKEN(ficlInstruction8, "8")
10 	FICL_TOKEN(ficlInstruction9, "9")
11 	FICL_TOKEN(ficlInstruction10, "10")
12 	FICL_TOKEN(ficlInstruction11, "11")
13 	FICL_TOKEN(ficlInstruction12, "12")
14 	FICL_TOKEN(ficlInstruction13, "13")
15 	FICL_TOKEN(ficlInstruction14, "14")
16 	FICL_TOKEN(ficlInstruction15, "15")
17 	FICL_TOKEN(ficlInstruction16, "16")
18 	FICL_TOKEN(ficlInstruction0, "0")
19 	FICL_TOKEN(ficlInstructionNeg1, "-1")
20 	FICL_TOKEN(ficlInstructionNeg2, "-2")
21 	FICL_TOKEN(ficlInstructionNeg3, "-3")
22 	FICL_TOKEN(ficlInstructionNeg4, "-4")
23 	FICL_TOKEN(ficlInstructionNeg5, "-5")
24 	FICL_TOKEN(ficlInstructionNeg6, "-6")
25 	FICL_TOKEN(ficlInstructionNeg7, "-7")
26 	FICL_TOKEN(ficlInstructionNeg8, "-8")
27 	FICL_TOKEN(ficlInstructionNeg9, "-9")
28 	FICL_TOKEN(ficlInstructionNeg10, "-10")
29 	FICL_TOKEN(ficlInstructionNeg11, "-11")
30 	FICL_TOKEN(ficlInstructionNeg12, "-12")
31 	FICL_TOKEN(ficlInstructionNeg13, "-13")
32 	FICL_TOKEN(ficlInstructionNeg14, "-14")
33 	FICL_TOKEN(ficlInstructionNeg15, "-15")
34 	FICL_TOKEN(ficlInstructionNeg16, "-16")
35 #if FICL_WANT_FLOAT
36 	FICL_TOKEN(ficlInstructionF0, "0.0e")
37 	FICL_TOKEN(ficlInstructionF1, "1.0e")
38 	FICL_TOKEN(ficlInstructionFNeg1, "-1.0e")
39 #endif /* FICL_WANT_FLOAT */
40 	FICL_INSTRUCTION_TOKEN(ficlInstructionPlus, "+", FICL_WORD_DEFAULT)
41 	FICL_INSTRUCTION_TOKEN(ficlInstructionMinus, "-", FICL_WORD_DEFAULT)
42 	FICL_INSTRUCTION_TOKEN(ficlInstruction1Plus, "1+", FICL_WORD_DEFAULT)
43 	FICL_INSTRUCTION_TOKEN(ficlInstruction1Minus, "1-", FICL_WORD_DEFAULT)
44 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Plus, "2+", FICL_WORD_DEFAULT)
45 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Minus, "2-", FICL_WORD_DEFAULT)
46 	FICL_INSTRUCTION_TOKEN(ficlInstructionSemiParen, "(;)",
47 	    FICL_WORD_COMPILE_ONLY)
48 	FICL_INSTRUCTION_TOKEN(ficlInstructionExitParen, "(exit)",
49 	    FICL_WORD_COMPILE_ONLY)
50 	FICL_INSTRUCTION_TOKEN(ficlInstructionDup, "dup", FICL_WORD_DEFAULT)
51 	FICL_INSTRUCTION_TOKEN(ficlInstructionSwap, "swap", FICL_WORD_DEFAULT)
52 	FICL_INSTRUCTION_TOKEN(ficlInstructionGreaterThan, ">",
53 	    FICL_WORD_DEFAULT)
54 	FICL_INSTRUCTION_TOKEN(ficlInstructionUGreaterThan, "u>",
55 	    FICL_WORD_DEFAULT)
56 	FICL_INSTRUCTION_TOKEN(ficlInstructionBranchParenWithCheck, "(branch)",
57 	    FICL_WORD_COMPILE_ONLY)
58 	FICL_INSTRUCTION_TOKEN(ficlInstructionBranchParen, "(branch-final)",
59 	    FICL_WORD_COMPILE_ONLY)
60 	FICL_INSTRUCTION_TOKEN(ficlInstructionBranch0ParenWithCheck,
61 	    "(branch0)", FICL_WORD_COMPILE_ONLY)
62 	FICL_INSTRUCTION_TOKEN(ficlInstructionBranch0Paren, "(branch0-final)",
63 	    FICL_WORD_COMPILE_ONLY)
64 	FICL_INSTRUCTION_TOKEN(ficlInstructionLiteralParen, "(literal)",
65 	    FICL_WORD_COMPILE_ONLY)
66 	FICL_INSTRUCTION_TOKEN(ficlInstructionLoopParen, "(loop)",
67 	    FICL_WORD_COMPILE_ONLY)
68 	FICL_INSTRUCTION_TOKEN(ficlInstructionOfParen, "(of)",
69 	    FICL_WORD_COMPILE_ONLY)
70 	FICL_INSTRUCTION_TOKEN(ficlInstructionPlusLoopParen, "(+loop)",
71 	    FICL_WORD_COMPILE_ONLY)
72 	FICL_INSTRUCTION_TOKEN(ficlInstructionFetch, "@", FICL_WORD_DEFAULT)
73 	FICL_INSTRUCTION_TOKEN(ficlInstructionStore, "!", FICL_WORD_DEFAULT)
74 	FICL_INSTRUCTION_TOKEN(ficlInstructionComma, ",", FICL_WORD_DEFAULT)
75 	FICL_INSTRUCTION_TOKEN(ficlInstructionCComma, "c,", FICL_WORD_DEFAULT)
76 	FICL_INSTRUCTION_TOKEN(ficlInstructionCells, "cells", FICL_WORD_DEFAULT)
77 	FICL_INSTRUCTION_TOKEN(ficlInstructionCellPlus, "cell+",
78 	    FICL_WORD_DEFAULT)
79 	FICL_INSTRUCTION_TOKEN(ficlInstructionNegate, "negate",
80 	    FICL_WORD_DEFAULT)
81 	FICL_INSTRUCTION_TOKEN(ficlInstructionStar, "*", FICL_WORD_DEFAULT)
82 	FICL_INSTRUCTION_TOKEN(ficlInstructionSlash, "/", FICL_WORD_DEFAULT)
83 	FICL_INSTRUCTION_TOKEN(ficlInstructionStarSlash, "*/",
84 	    FICL_WORD_DEFAULT)
85 	FICL_INSTRUCTION_TOKEN(ficlInstructionSlashMod, "/mod",
86 	    FICL_WORD_DEFAULT)
87 	FICL_INSTRUCTION_TOKEN(ficlInstructionStarSlashMod, "*/mod",
88 	    FICL_WORD_DEFAULT)
89 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Star, "2*", FICL_WORD_DEFAULT)
90 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Slash, "2/", FICL_WORD_DEFAULT)
91 
92 	FICL_INSTRUCTION_TOKEN(ficlInstructionColonParen, "** (colon) **",
93 	    FICL_WORD_COMPILE_ONLY)
94 	FICL_INSTRUCTION_TOKEN(ficlInstructionVariableParen, "(variable)",
95 	    FICL_WORD_COMPILE_ONLY)
96 	FICL_INSTRUCTION_TOKEN(ficlInstructionConstantParen, "(constant)",
97 	    FICL_WORD_COMPILE_ONLY)
98 	FICL_INSTRUCTION_TOKEN(ficlInstruction2ConstantParen, "(2constant)",
99 	    FICL_WORD_COMPILE_ONLY)
100 	FICL_INSTRUCTION_TOKEN(ficlInstruction2LiteralParen, "(2literal)",
101 	    FICL_WORD_COMPILE_ONLY)
102 	FICL_INSTRUCTION_TOKEN(ficlInstructionDoDoes, "** do-does **",
103 	    FICL_WORD_COMPILE_ONLY)
104 	FICL_INSTRUCTION_TOKEN(ficlInstructionDoParen, "(do)",
105 	    FICL_WORD_COMPILE_ONLY)
106 	FICL_INSTRUCTION_TOKEN(ficlInstructionDoesParen, "(does)",
107 	    FICL_WORD_COMPILE_ONLY)
108 	FICL_INSTRUCTION_TOKEN(ficlInstructionQDoParen, "(?do)",
109 	    FICL_WORD_COMPILE_ONLY)
110 	FICL_INSTRUCTION_TOKEN(ficlInstructionCreateParen, "(create)",
111 	    FICL_WORD_COMPILE_ONLY)
112 	FICL_INSTRUCTION_TOKEN(ficlInstructionStringLiteralParen, "(.\")",
113 	    FICL_WORD_COMPILE_ONLY)
114 	FICL_INSTRUCTION_TOKEN(ficlInstructionCStringLiteralParen, "(c\")",
115 	    FICL_WORD_COMPILE_ONLY)
116 
117 	FICL_INSTRUCTION_TOKEN(ficlInstructionPlusStore, "+!",
118 	    FICL_WORD_DEFAULT)
119 	FICL_INSTRUCTION_TOKEN(ficlInstruction0Less, "0<", FICL_WORD_DEFAULT)
120 	FICL_INSTRUCTION_TOKEN(ficlInstruction0Greater, "0>", FICL_WORD_DEFAULT)
121 	FICL_INSTRUCTION_TOKEN(ficlInstruction0Equals, "0=", FICL_WORD_DEFAULT)
122 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Store, "2!", FICL_WORD_DEFAULT)
123 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Fetch, "2@", FICL_WORD_DEFAULT)
124 	FICL_INSTRUCTION_TOKEN(ficlInstructionOver, "over", FICL_WORD_DEFAULT)
125 	FICL_INSTRUCTION_TOKEN(ficlInstructionRot, "rot", FICL_WORD_DEFAULT)
126 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Drop, "2drop", FICL_WORD_DEFAULT)
127 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Dup, "2dup", FICL_WORD_DEFAULT)
128 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Over, "2over", FICL_WORD_DEFAULT)
129 	FICL_INSTRUCTION_TOKEN(ficlInstruction2Swap, "2swap", FICL_WORD_DEFAULT)
130 	FICL_INSTRUCTION_TOKEN(ficlInstructionFromRStack, "r>",
131 	    FICL_WORD_COMPILE_ONLY)
132 	FICL_INSTRUCTION_TOKEN(ficlInstructionFetchRStack, "r@",
133 	    FICL_WORD_COMPILE_ONLY)
134 	FICL_INSTRUCTION_TOKEN(ficlInstruction2ToR, "2>r",
135 	    FICL_WORD_COMPILE_ONLY)
136 	FICL_INSTRUCTION_TOKEN(ficlInstruction2RFrom, "2r>",
137 	    FICL_WORD_COMPILE_ONLY)
138 	FICL_INSTRUCTION_TOKEN(ficlInstruction2RFetch, "2r@",
139 	    FICL_WORD_COMPILE_ONLY)
140 	FICL_INSTRUCTION_TOKEN(ficlInstructionLess, "<", FICL_WORD_DEFAULT)
141 	FICL_INSTRUCTION_TOKEN(ficlInstructionEquals, "=", FICL_WORD_DEFAULT)
142 	FICL_INSTRUCTION_TOKEN(ficlInstructionToRStack, ">r",
143 	    FICL_WORD_COMPILE_ONLY)
144 	FICL_INSTRUCTION_TOKEN(ficlInstructionQuestionDup, "?dup",
145 	    FICL_WORD_DEFAULT)
146 	FICL_INSTRUCTION_TOKEN(ficlInstructionAnd, "and", FICL_WORD_DEFAULT)
147 	FICL_INSTRUCTION_TOKEN(ficlInstructionCStore, "c!", FICL_WORD_DEFAULT)
148 	FICL_INSTRUCTION_TOKEN(ficlInstructionCFetch, "c@", FICL_WORD_DEFAULT)
149 	FICL_INSTRUCTION_TOKEN(ficlInstructionDrop, "drop", FICL_WORD_DEFAULT)
150 	FICL_INSTRUCTION_TOKEN(ficlInstructionPick, "pick", FICL_WORD_DEFAULT)
151 	FICL_INSTRUCTION_TOKEN(ficlInstructionRoll, "roll", FICL_WORD_DEFAULT)
152 	FICL_INSTRUCTION_TOKEN(ficlInstructionMinusRoll, "-roll",
153 	    FICL_WORD_DEFAULT)
154 	FICL_INSTRUCTION_TOKEN(ficlInstructionMinusRot, "-rot",
155 	    FICL_WORD_DEFAULT)
156 	FICL_INSTRUCTION_TOKEN(ficlInstructionFill, "fill", FICL_WORD_DEFAULT)
157 	FICL_INSTRUCTION_TOKEN(ficlInstructionSToD, "s>d", FICL_WORD_DEFAULT)
158 	FICL_INSTRUCTION_TOKEN(ficlInstructionULess, "u<", FICL_WORD_DEFAULT)
159 
160 	FICL_INSTRUCTION_TOKEN(ficlInstructionQuadFetch, "q@",
161 	    FICL_WORD_DEFAULT)
162 	FICL_INSTRUCTION_TOKEN(ficlInstructionQuadStore, "q!",
163 	    FICL_WORD_DEFAULT)
164 	FICL_INSTRUCTION_TOKEN(ficlInstructionWFetch, "w@", FICL_WORD_DEFAULT)
165 	FICL_INSTRUCTION_TOKEN(ficlInstructionWStore, "w!", FICL_WORD_DEFAULT)
166 
167 	FICL_INSTRUCTION_TOKEN(ficlInstructionInvert, "invert",
168 	    FICL_WORD_DEFAULT)
169 	FICL_INSTRUCTION_TOKEN(ficlInstructionLShift, "lshift",
170 	    FICL_WORD_DEFAULT)
171 	FICL_INSTRUCTION_TOKEN(ficlInstructionMax, "max", FICL_WORD_DEFAULT)
172 	FICL_INSTRUCTION_TOKEN(ficlInstructionMin, "min", FICL_WORD_DEFAULT)
173 	FICL_INSTRUCTION_TOKEN(ficlInstructionMove, "move", FICL_WORD_DEFAULT)
174 	FICL_INSTRUCTION_TOKEN(ficlInstructionOr, "or", FICL_WORD_DEFAULT)
175 	FICL_INSTRUCTION_TOKEN(ficlInstructionRShift, "rshift",
176 	    FICL_WORD_DEFAULT)
177 	FICL_INSTRUCTION_TOKEN(ficlInstructionXor, "xor", FICL_WORD_DEFAULT)
178 
179 	FICL_INSTRUCTION_TOKEN(ficlInstructionI, "i", FICL_WORD_COMPILE_ONLY)
180 	FICL_INSTRUCTION_TOKEN(ficlInstructionJ, "j", FICL_WORD_COMPILE_ONLY)
181 	FICL_INSTRUCTION_TOKEN(ficlInstructionK, "k", FICL_WORD_COMPILE_ONLY)
182 
183 	FICL_INSTRUCTION_TOKEN(ficlInstructionCompare, "compare",
184 	    FICL_WORD_DEFAULT)
185 	FICL_INSTRUCTION_TOKEN(ficlInstructionCompareInsensitive,
186 	    "compare-insensitive", FICL_WORD_DEFAULT)
187 	FICL_INSTRUCTION_TOKEN(ficlInstructionRandom, "random",
188 	    FICL_WORD_DEFAULT)
189 	FICL_INSTRUCTION_TOKEN(ficlInstructionSeedRandom, "seed-random",
190 	    FICL_WORD_DEFAULT)
191 
192 	FICL_INSTRUCTION_TOKEN(ficlInstructionLeave, "leave",
193 	    FICL_WORD_COMPILE_ONLY)
194 	FICL_INSTRUCTION_TOKEN(ficlInstructionUnloop, "unloop",
195 	    FICL_WORD_COMPILE_ONLY)
196 
197 #if FICL_WANT_USER
198 	FICL_INSTRUCTION_TOKEN(ficlInstructionUserParen, "(user)",
199 	    FICL_WORD_DEFAULT)
200 #endif /* FICL_WANT_USER */
201 
202 #if FICL_WANT_LOCALS
203 	FICL_INSTRUCTION_TOKEN(ficlInstructionLinkParen, "(link)",
204 	    FICL_WORD_COMPILE_ONLY)
205 	FICL_INSTRUCTION_TOKEN(ficlInstructionUnlinkParen, "(unlink)",
206 	    FICL_WORD_COMPILE_ONLY)
207 
208 	FICL_INSTRUCTION_TOKEN(ficlInstructionGetLocalParen, "(@local)",
209 	    FICL_WORD_COMPILE_ONLY)
210 	FICL_INSTRUCTION_TOKEN(ficlInstructionGet2LocalParen, "(@2Local)",
211 	    FICL_WORD_COMPILE_ONLY)
212 	FICL_INSTRUCTION_TOKEN(ficlInstructionToLocalParen, "(toLocal)",
213 	    FICL_WORD_COMPILE_ONLY)
214 	FICL_INSTRUCTION_TOKEN(ficlInstructionTo2LocalParen, "(to2Local)",
215 	    FICL_WORD_COMPILE_ONLY)
216 
217 	FICL_INSTRUCTION_TOKEN(ficlInstructionGetLocal0, "(@local0)",
218 	    FICL_WORD_COMPILE_ONLY)
219 	FICL_INSTRUCTION_TOKEN(ficlInstructionGet2Local0, "(@2Local0)",
220 	    FICL_WORD_COMPILE_ONLY)
221 	FICL_INSTRUCTION_TOKEN(ficlInstructionToLocal0, "(toLocal0)",
222 	    FICL_WORD_COMPILE_ONLY)
223 	FICL_INSTRUCTION_TOKEN(ficlInstructionTo2Local0, "(To2Local0)",
224 	    FICL_WORD_COMPILE_ONLY)
225 
226 	FICL_INSTRUCTION_TOKEN(ficlInstructionGetLocal1, "(@local1)",
227 	    FICL_WORD_COMPILE_ONLY)
228 	FICL_INSTRUCTION_TOKEN(ficlInstructionToLocal1, "(toLocal1)",
229 	    FICL_WORD_COMPILE_ONLY)
230 
231 #if FICL_WANT_FLOAT
232 	FICL_INSTRUCTION_TOKEN(ficlInstructionGetFLocalParen, "(@fLocal)",
233 	    FICL_WORD_COMPILE_ONLY)
234 	FICL_INSTRUCTION_TOKEN(ficlInstructionGetF2LocalParen, "(@f2Local)",
235 	    FICL_WORD_COMPILE_ONLY)
236 	FICL_INSTRUCTION_TOKEN(ficlInstructionToFLocalParen, "(toFLocal)",
237 	    FICL_WORD_COMPILE_ONLY)
238 	FICL_INSTRUCTION_TOKEN(ficlInstructionToF2LocalParen, "(toF2Local)",
239 	    FICL_WORD_COMPILE_ONLY)
240 #endif /* FICL_WANT_FLOAT */
241 
242 #endif /* FICL_WANT_LOCALS */
243 
244 #if FICL_WANT_FLOAT
245 	FICL_INSTRUCTION_TOKEN(ficlInstructionFLiteralParen, "(fliteral)",
246 	    FICL_WORD_DEFAULT)
247 	FICL_INSTRUCTION_TOKEN(ficlInstructionFConstantParen, "(fconstant)",
248 	    FICL_WORD_DEFAULT)
249 	FICL_INSTRUCTION_TOKEN(ficlInstructionF2ConstantParen, "(f2constant)",
250 	    FICL_WORD_DEFAULT)
251 
252 	FICL_INSTRUCTION_TOKEN(ficlInstructionFPlus, "f+", FICL_WORD_DEFAULT)
253 	FICL_INSTRUCTION_TOKEN(ficlInstructionFMinus, "f-", FICL_WORD_DEFAULT)
254 	FICL_INSTRUCTION_TOKEN(ficlInstructionFStar, "f*", FICL_WORD_DEFAULT)
255 	FICL_INSTRUCTION_TOKEN(ficlInstructionFSlash, "f/", FICL_WORD_DEFAULT)
256 	FICL_INSTRUCTION_TOKEN(ficlInstructionFNegate, "fnegate",
257 	    FICL_WORD_DEFAULT)
258 	FICL_INSTRUCTION_TOKEN(ficlInstructionFPlusI, "f+i", FICL_WORD_DEFAULT)
259 	FICL_INSTRUCTION_TOKEN(ficlInstructionFMinusI, "f-i", FICL_WORD_DEFAULT)
260 	FICL_INSTRUCTION_TOKEN(ficlInstructionFStarI, "f*i", FICL_WORD_DEFAULT)
261 	FICL_INSTRUCTION_TOKEN(ficlInstructionFSlashI, "f/i", FICL_WORD_DEFAULT)
262 	FICL_INSTRUCTION_TOKEN(ficlInstructionIMinusF, "i-f", FICL_WORD_DEFAULT)
263 	FICL_INSTRUCTION_TOKEN(ficlInstructionISlashF, "i/f", FICL_WORD_DEFAULT)
264 
265 	FICL_INSTRUCTION_TOKEN(ficlInstructionFFrom, "float>",
266 	    FICL_WORD_DEFAULT)
267 	FICL_INSTRUCTION_TOKEN(ficlInstructionToF, ">float", FICL_WORD_DEFAULT)
268 	FICL_INSTRUCTION_TOKEN(ficlInstructionIntToFloat, "int>float",
269 	    FICL_WORD_DEFAULT)
270 	FICL_INSTRUCTION_TOKEN(ficlInstructionFloatToInt, "float>int",
271 	    FICL_WORD_DEFAULT)
272 
273 	FICL_INSTRUCTION_TOKEN(ficlInstructionFFetch, "f@", FICL_WORD_DEFAULT)
274 	FICL_INSTRUCTION_TOKEN(ficlInstructionFStore, "f!", FICL_WORD_DEFAULT)
275 	FICL_INSTRUCTION_TOKEN(ficlInstructionF2Fetch, "f2@", FICL_WORD_DEFAULT)
276 	FICL_INSTRUCTION_TOKEN(ficlInstructionF2Store, "f2!", FICL_WORD_DEFAULT)
277 	FICL_INSTRUCTION_TOKEN(ficlInstructionFPlusStore, "f+!",
278 	    FICL_WORD_DEFAULT)
279 
280 	FICL_INSTRUCTION_TOKEN(ficlInstructionFDrop, "fdrop", FICL_WORD_DEFAULT)
281 	FICL_INSTRUCTION_TOKEN(ficlInstructionF2Drop, "f2drop",
282 	    FICL_WORD_DEFAULT)
283 	FICL_INSTRUCTION_TOKEN(ficlInstructionFDup, "fdup", FICL_WORD_DEFAULT)
284 	FICL_INSTRUCTION_TOKEN(ficlInstructionF2Dup, "f2dup", FICL_WORD_DEFAULT)
285 	FICL_INSTRUCTION_TOKEN(ficlInstructionFMinusRoll, "f-roll",
286 	    FICL_WORD_DEFAULT)
287 	FICL_INSTRUCTION_TOKEN(ficlInstructionFMinusRot, "f-rot",
288 	    FICL_WORD_DEFAULT)
289 	FICL_INSTRUCTION_TOKEN(ficlInstructionFQuestionDup, "f?dup",
290 	    FICL_WORD_DEFAULT)
291 	FICL_INSTRUCTION_TOKEN(ficlInstructionFOver, "fover", FICL_WORD_DEFAULT)
292 	FICL_INSTRUCTION_TOKEN(ficlInstructionF2Over, "f2over",
293 	    FICL_WORD_DEFAULT)
294 	FICL_INSTRUCTION_TOKEN(ficlInstructionFPick, "fpick", FICL_WORD_DEFAULT)
295 	FICL_INSTRUCTION_TOKEN(ficlInstructionFRoll, "froll", FICL_WORD_DEFAULT)
296 	FICL_INSTRUCTION_TOKEN(ficlInstructionFRot, "frot", FICL_WORD_DEFAULT)
297 	FICL_INSTRUCTION_TOKEN(ficlInstructionFSwap, "fswap", FICL_WORD_DEFAULT)
298 	FICL_INSTRUCTION_TOKEN(ficlInstructionF2Swap, "f2swap",
299 	    FICL_WORD_DEFAULT)
300 
301 	FICL_INSTRUCTION_TOKEN(ficlInstructionF0Less, "f0<", FICL_WORD_DEFAULT)
302 	FICL_INSTRUCTION_TOKEN(ficlInstructionFLess, "f<", FICL_WORD_DEFAULT)
303 	FICL_INSTRUCTION_TOKEN(ficlInstructionF0Equals, "f0=",
304 	    FICL_WORD_DEFAULT)
305 	FICL_INSTRUCTION_TOKEN(ficlInstructionFEquals, "f=", FICL_WORD_DEFAULT)
306 	FICL_INSTRUCTION_TOKEN(ficlInstructionF0Greater, "f0>",
307 	    FICL_WORD_DEFAULT)
308 	FICL_INSTRUCTION_TOKEN(ficlInstructionFGreater, "f>", FICL_WORD_DEFAULT)
309 
310 #endif  /* FICL_WANT_FLOAT */
311 
312 	FICL_TOKEN(ficlInstructionExitInnerLoop, "** exit inner loop **")
313