xref: /titanic_51/usr/src/common/ficl/ficltokens.h (revision aa4720212c47618afebd2d574b20cc1ffc6110f8)
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, "(;)", FICL_WORD_COMPILE_ONLY)
47 FICL_INSTRUCTION_TOKEN(ficlInstructionExitParen, "(exit)",
48     FICL_WORD_COMPILE_ONLY)
49 FICL_INSTRUCTION_TOKEN(ficlInstructionDup, "dup", FICL_WORD_DEFAULT)
50 FICL_INSTRUCTION_TOKEN(ficlInstructionSwap, "swap", FICL_WORD_DEFAULT)
51 FICL_INSTRUCTION_TOKEN(ficlInstructionGreaterThan, ">", FICL_WORD_DEFAULT)
52 FICL_INSTRUCTION_TOKEN(ficlInstructionUGreaterThan, "u>", FICL_WORD_DEFAULT)
53 FICL_INSTRUCTION_TOKEN(ficlInstructionBranchParenWithCheck, "(branch)",
54     FICL_WORD_COMPILE_ONLY)
55 FICL_INSTRUCTION_TOKEN(ficlInstructionBranchParen, "(branch-final)",
56     FICL_WORD_COMPILE_ONLY)
57 FICL_INSTRUCTION_TOKEN(ficlInstructionBranch0ParenWithCheck, "(branch0)",
58     FICL_WORD_COMPILE_ONLY)
59 FICL_INSTRUCTION_TOKEN(ficlInstructionBranch0Paren, "(branch0-final)",
60     FICL_WORD_COMPILE_ONLY)
61 FICL_INSTRUCTION_TOKEN(ficlInstructionLiteralParen, "(literal)",
62     FICL_WORD_COMPILE_ONLY)
63 FICL_INSTRUCTION_TOKEN(ficlInstructionLoopParen, "(loop)",
64     FICL_WORD_COMPILE_ONLY)
65 FICL_INSTRUCTION_TOKEN(ficlInstructionOfParen, "(of)", FICL_WORD_COMPILE_ONLY)
66 FICL_INSTRUCTION_TOKEN(ficlInstructionPlusLoopParen, "(+loop)",
67     FICL_WORD_COMPILE_ONLY)
68 FICL_INSTRUCTION_TOKEN(ficlInstructionFetch, "@", FICL_WORD_DEFAULT)
69 FICL_INSTRUCTION_TOKEN(ficlInstructionStore, "!", FICL_WORD_DEFAULT)
70 FICL_INSTRUCTION_TOKEN(ficlInstructionComma, ",", FICL_WORD_DEFAULT)
71 FICL_INSTRUCTION_TOKEN(ficlInstructionCComma, "c,", FICL_WORD_DEFAULT)
72 FICL_INSTRUCTION_TOKEN(ficlInstructionCells, "cells", FICL_WORD_DEFAULT)
73 FICL_INSTRUCTION_TOKEN(ficlInstructionCellPlus, "cell+", FICL_WORD_DEFAULT)
74 FICL_INSTRUCTION_TOKEN(ficlInstructionNegate, "negate", FICL_WORD_DEFAULT)
75 FICL_INSTRUCTION_TOKEN(ficlInstructionStar, "*", FICL_WORD_DEFAULT)
76 FICL_INSTRUCTION_TOKEN(ficlInstructionSlash, "/", FICL_WORD_DEFAULT)
77 FICL_INSTRUCTION_TOKEN(ficlInstructionStarSlash, "*/", FICL_WORD_DEFAULT)
78 FICL_INSTRUCTION_TOKEN(ficlInstructionSlashMod, "/mod", FICL_WORD_DEFAULT)
79 FICL_INSTRUCTION_TOKEN(ficlInstructionStarSlashMod, "*/mod", FICL_WORD_DEFAULT)
80 FICL_INSTRUCTION_TOKEN(ficlInstruction2Star, "2*", FICL_WORD_DEFAULT)
81 FICL_INSTRUCTION_TOKEN(ficlInstruction2Slash, "2/", FICL_WORD_DEFAULT)
82 
83 FICL_INSTRUCTION_TOKEN(ficlInstructionColonParen, "** (colon) **",
84     FICL_WORD_COMPILE_ONLY)
85 FICL_INSTRUCTION_TOKEN(ficlInstructionVariableParen, "(variable)",
86     FICL_WORD_COMPILE_ONLY)
87 FICL_INSTRUCTION_TOKEN(ficlInstructionConstantParen, "(constant)",
88     FICL_WORD_COMPILE_ONLY)
89 FICL_INSTRUCTION_TOKEN(ficlInstruction2ConstantParen, "(2constant)",
90     FICL_WORD_COMPILE_ONLY)
91 FICL_INSTRUCTION_TOKEN(ficlInstruction2LiteralParen, "(2literal)",
92     FICL_WORD_COMPILE_ONLY)
93 FICL_INSTRUCTION_TOKEN(ficlInstructionDoDoes, "** do-does **",
94     FICL_WORD_COMPILE_ONLY)
95 FICL_INSTRUCTION_TOKEN(ficlInstructionDoParen, "(do)", FICL_WORD_COMPILE_ONLY)
96 FICL_INSTRUCTION_TOKEN(ficlInstructionDoesParen, "(does)",
97     FICL_WORD_COMPILE_ONLY)
98 FICL_INSTRUCTION_TOKEN(ficlInstructionQDoParen, "(?do)", FICL_WORD_COMPILE_ONLY)
99 FICL_INSTRUCTION_TOKEN(ficlInstructionCreateParen, "(create)",
100     FICL_WORD_COMPILE_ONLY)
101 FICL_INSTRUCTION_TOKEN(ficlInstructionStringLiteralParen, "(.\")",
102     FICL_WORD_COMPILE_ONLY)
103 FICL_INSTRUCTION_TOKEN(ficlInstructionCStringLiteralParen, "(c\")",
104     FICL_WORD_COMPILE_ONLY)
105 
106 FICL_INSTRUCTION_TOKEN(ficlInstructionPlusStore, "+!", FICL_WORD_DEFAULT)
107 FICL_INSTRUCTION_TOKEN(ficlInstruction0Less, "0<", FICL_WORD_DEFAULT)
108 FICL_INSTRUCTION_TOKEN(ficlInstruction0Greater, "0>", FICL_WORD_DEFAULT)
109 FICL_INSTRUCTION_TOKEN(ficlInstruction0Equals, "0=", FICL_WORD_DEFAULT)
110 FICL_INSTRUCTION_TOKEN(ficlInstruction2Store, "2!", FICL_WORD_DEFAULT)
111 FICL_INSTRUCTION_TOKEN(ficlInstruction2Fetch, "2@", FICL_WORD_DEFAULT)
112 FICL_INSTRUCTION_TOKEN(ficlInstructionOver, "over", FICL_WORD_DEFAULT)
113 FICL_INSTRUCTION_TOKEN(ficlInstructionRot, "rot", FICL_WORD_DEFAULT)
114 FICL_INSTRUCTION_TOKEN(ficlInstruction2Drop, "2drop", FICL_WORD_DEFAULT)
115 FICL_INSTRUCTION_TOKEN(ficlInstruction2Dup, "2dup", FICL_WORD_DEFAULT)
116 FICL_INSTRUCTION_TOKEN(ficlInstruction2Over, "2over", FICL_WORD_DEFAULT)
117 FICL_INSTRUCTION_TOKEN(ficlInstruction2Swap, "2swap", FICL_WORD_DEFAULT)
118 FICL_INSTRUCTION_TOKEN(ficlInstructionFromRStack, "r>", FICL_WORD_COMPILE_ONLY)
119 FICL_INSTRUCTION_TOKEN(ficlInstructionFetchRStack, "r@", FICL_WORD_COMPILE_ONLY)
120 FICL_INSTRUCTION_TOKEN(ficlInstruction2ToR, "2>r", FICL_WORD_COMPILE_ONLY)
121 FICL_INSTRUCTION_TOKEN(ficlInstruction2RFrom, "2r>", FICL_WORD_COMPILE_ONLY)
122 FICL_INSTRUCTION_TOKEN(ficlInstruction2RFetch, "2r@", FICL_WORD_COMPILE_ONLY)
123 FICL_INSTRUCTION_TOKEN(ficlInstructionLess, "<", FICL_WORD_DEFAULT)
124 FICL_INSTRUCTION_TOKEN(ficlInstructionEquals, "=", FICL_WORD_DEFAULT)
125 FICL_INSTRUCTION_TOKEN(ficlInstructionToRStack, ">r", FICL_WORD_COMPILE_ONLY)
126 FICL_INSTRUCTION_TOKEN(ficlInstructionQuestionDup, "?dup", FICL_WORD_DEFAULT)
127 FICL_INSTRUCTION_TOKEN(ficlInstructionAnd, "and", FICL_WORD_DEFAULT)
128 FICL_INSTRUCTION_TOKEN(ficlInstructionCStore, "c!", FICL_WORD_DEFAULT)
129 FICL_INSTRUCTION_TOKEN(ficlInstructionCFetch, "c@", FICL_WORD_DEFAULT)
130 FICL_INSTRUCTION_TOKEN(ficlInstructionDrop, "drop", FICL_WORD_DEFAULT)
131 FICL_INSTRUCTION_TOKEN(ficlInstructionPick, "pick", FICL_WORD_DEFAULT)
132 FICL_INSTRUCTION_TOKEN(ficlInstructionRoll, "roll", FICL_WORD_DEFAULT)
133 FICL_INSTRUCTION_TOKEN(ficlInstructionMinusRoll, "-roll", FICL_WORD_DEFAULT)
134 FICL_INSTRUCTION_TOKEN(ficlInstructionMinusRot, "-rot", FICL_WORD_DEFAULT)
135 FICL_INSTRUCTION_TOKEN(ficlInstructionFill, "fill", FICL_WORD_DEFAULT)
136 FICL_INSTRUCTION_TOKEN(ficlInstructionSToD, "s>d", FICL_WORD_DEFAULT)
137 FICL_INSTRUCTION_TOKEN(ficlInstructionULess, "u<", FICL_WORD_DEFAULT)
138 
139 FICL_INSTRUCTION_TOKEN(ficlInstructionQuadFetch, "q@", FICL_WORD_DEFAULT)
140 FICL_INSTRUCTION_TOKEN(ficlInstructionQuadStore, "q!", FICL_WORD_DEFAULT)
141 FICL_INSTRUCTION_TOKEN(ficlInstructionWFetch, "w@", FICL_WORD_DEFAULT)
142 FICL_INSTRUCTION_TOKEN(ficlInstructionWStore, "w!", FICL_WORD_DEFAULT)
143 
144 FICL_INSTRUCTION_TOKEN(ficlInstructionInvert, "invert", FICL_WORD_DEFAULT)
145 FICL_INSTRUCTION_TOKEN(ficlInstructionLShift, "lshift", FICL_WORD_DEFAULT)
146 FICL_INSTRUCTION_TOKEN(ficlInstructionMax, "max", FICL_WORD_DEFAULT)
147 FICL_INSTRUCTION_TOKEN(ficlInstructionMin, "min", FICL_WORD_DEFAULT)
148 FICL_INSTRUCTION_TOKEN(ficlInstructionMove, "move", FICL_WORD_DEFAULT)
149 FICL_INSTRUCTION_TOKEN(ficlInstructionOr, "or", FICL_WORD_DEFAULT)
150 FICL_INSTRUCTION_TOKEN(ficlInstructionRShift, "rshift", FICL_WORD_DEFAULT)
151 FICL_INSTRUCTION_TOKEN(ficlInstructionXor, "xor", FICL_WORD_DEFAULT)
152 
153 FICL_INSTRUCTION_TOKEN(ficlInstructionI, "i", FICL_WORD_COMPILE_ONLY)
154 FICL_INSTRUCTION_TOKEN(ficlInstructionJ, "j", FICL_WORD_COMPILE_ONLY)
155 FICL_INSTRUCTION_TOKEN(ficlInstructionK, "k", FICL_WORD_COMPILE_ONLY)
156 
157 FICL_INSTRUCTION_TOKEN(ficlInstructionCompare, "compare", FICL_WORD_DEFAULT)
158 FICL_INSTRUCTION_TOKEN(ficlInstructionCompareInsensitive, "compare-insensitive",
159     FICL_WORD_DEFAULT)
160 FICL_INSTRUCTION_TOKEN(ficlInstructionRandom, "random", FICL_WORD_DEFAULT)
161 FICL_INSTRUCTION_TOKEN(ficlInstructionSeedRandom, "seed-random",
162     FICL_WORD_DEFAULT)
163 
164 FICL_INSTRUCTION_TOKEN(ficlInstructionLeave, "leave", FICL_WORD_COMPILE_ONLY)
165 FICL_INSTRUCTION_TOKEN(ficlInstructionUnloop, "unloop", FICL_WORD_COMPILE_ONLY)
166 
167 #if FICL_WANT_USER
168 FICL_INSTRUCTION_TOKEN(ficlInstructionUserParen, "(user)", FICL_WORD_DEFAULT)
169 #endif /* FICL_WANT_USER */
170 
171 #if FICL_WANT_LOCALS
172 FICL_INSTRUCTION_TOKEN(ficlInstructionLinkParen, "(link)",
173     FICL_WORD_COMPILE_ONLY)
174 FICL_INSTRUCTION_TOKEN(ficlInstructionUnlinkParen, "(unlink)",
175     FICL_WORD_COMPILE_ONLY)
176 
177 FICL_INSTRUCTION_TOKEN(ficlInstructionGetLocalParen, "(@local)",
178     FICL_WORD_COMPILE_ONLY)
179 FICL_INSTRUCTION_TOKEN(ficlInstructionGet2LocalParen, "(@2Local)",
180     FICL_WORD_COMPILE_ONLY)
181 FICL_INSTRUCTION_TOKEN(ficlInstructionToLocalParen, "(toLocal)",
182     FICL_WORD_COMPILE_ONLY)
183 FICL_INSTRUCTION_TOKEN(ficlInstructionTo2LocalParen, "(to2Local)",
184     FICL_WORD_COMPILE_ONLY)
185 
186 FICL_INSTRUCTION_TOKEN(ficlInstructionGetLocal0, "(@local0)",
187     FICL_WORD_COMPILE_ONLY)
188 FICL_INSTRUCTION_TOKEN(ficlInstructionGet2Local0, "(@2Local0)",
189     FICL_WORD_COMPILE_ONLY)
190 FICL_INSTRUCTION_TOKEN(ficlInstructionToLocal0, "(toLocal0)",
191     FICL_WORD_COMPILE_ONLY)
192 FICL_INSTRUCTION_TOKEN(ficlInstructionTo2Local0, "(To2Local0)",
193     FICL_WORD_COMPILE_ONLY)
194 
195 FICL_INSTRUCTION_TOKEN(ficlInstructionGetLocal1, "(@local1)",
196     FICL_WORD_COMPILE_ONLY)
197 FICL_INSTRUCTION_TOKEN(ficlInstructionToLocal1, "(toLocal1)",
198     FICL_WORD_COMPILE_ONLY)
199 
200 #if FICL_WANT_FLOAT
201 FICL_INSTRUCTION_TOKEN(ficlInstructionGetFLocalParen, "(@fLocal)",
202     FICL_WORD_COMPILE_ONLY)
203 FICL_INSTRUCTION_TOKEN(ficlInstructionGetF2LocalParen, "(@f2Local)",
204     FICL_WORD_COMPILE_ONLY)
205 FICL_INSTRUCTION_TOKEN(ficlInstructionToFLocalParen, "(toFLocal)",
206     FICL_WORD_COMPILE_ONLY)
207 FICL_INSTRUCTION_TOKEN(ficlInstructionToF2LocalParen, "(toF2Local)",
208     FICL_WORD_COMPILE_ONLY)
209 #endif /* FICL_WANT_FLOAT */
210 
211 #endif /* FICL_WANT_LOCALS */
212 
213 #if FICL_WANT_FLOAT
214 FICL_INSTRUCTION_TOKEN(ficlInstructionFLiteralParen, "(fliteral)",
215     FICL_WORD_DEFAULT)
216 FICL_INSTRUCTION_TOKEN(ficlInstructionFConstantParen, "(fconstant)",
217     FICL_WORD_DEFAULT)
218 FICL_INSTRUCTION_TOKEN(ficlInstructionF2ConstantParen, "(f2constant)",
219     FICL_WORD_DEFAULT)
220 
221 FICL_INSTRUCTION_TOKEN(ficlInstructionFPlus, "f+", FICL_WORD_DEFAULT)
222 FICL_INSTRUCTION_TOKEN(ficlInstructionFMinus, "f-", FICL_WORD_DEFAULT)
223 FICL_INSTRUCTION_TOKEN(ficlInstructionFStar, "f*", FICL_WORD_DEFAULT)
224 FICL_INSTRUCTION_TOKEN(ficlInstructionFSlash, "f/", FICL_WORD_DEFAULT)
225 FICL_INSTRUCTION_TOKEN(ficlInstructionFNegate, "fnegate", FICL_WORD_DEFAULT)
226 FICL_INSTRUCTION_TOKEN(ficlInstructionFPlusI, "f+i", FICL_WORD_DEFAULT)
227 FICL_INSTRUCTION_TOKEN(ficlInstructionFMinusI, "f-i", FICL_WORD_DEFAULT)
228 FICL_INSTRUCTION_TOKEN(ficlInstructionFStarI, "f*i", FICL_WORD_DEFAULT)
229 FICL_INSTRUCTION_TOKEN(ficlInstructionFSlashI, "f/i", FICL_WORD_DEFAULT)
230 FICL_INSTRUCTION_TOKEN(ficlInstructionIMinusF, "i-f", FICL_WORD_DEFAULT)
231 FICL_INSTRUCTION_TOKEN(ficlInstructionISlashF, "i/f", FICL_WORD_DEFAULT)
232 
233 FICL_INSTRUCTION_TOKEN(ficlInstructionFFrom, "float>", FICL_WORD_DEFAULT)
234 FICL_INSTRUCTION_TOKEN(ficlInstructionToF, ">float", FICL_WORD_DEFAULT)
235 FICL_INSTRUCTION_TOKEN(ficlInstructionIntToFloat, "int>float",
236     FICL_WORD_DEFAULT)
237 FICL_INSTRUCTION_TOKEN(ficlInstructionFloatToInt, "float>int",
238     FICL_WORD_DEFAULT)
239 
240 FICL_INSTRUCTION_TOKEN(ficlInstructionFFetch, "f@", FICL_WORD_DEFAULT)
241 FICL_INSTRUCTION_TOKEN(ficlInstructionFStore, "f!", FICL_WORD_DEFAULT)
242 FICL_INSTRUCTION_TOKEN(ficlInstructionF2Fetch, "f2@", FICL_WORD_DEFAULT)
243 FICL_INSTRUCTION_TOKEN(ficlInstructionF2Store, "f2!", FICL_WORD_DEFAULT)
244 FICL_INSTRUCTION_TOKEN(ficlInstructionFPlusStore, "f+!", FICL_WORD_DEFAULT)
245 
246 FICL_INSTRUCTION_TOKEN(ficlInstructionFDrop, "fdrop", FICL_WORD_DEFAULT)
247 FICL_INSTRUCTION_TOKEN(ficlInstructionF2Drop, "f2drop", FICL_WORD_DEFAULT)
248 FICL_INSTRUCTION_TOKEN(ficlInstructionFDup, "fdup", FICL_WORD_DEFAULT)
249 FICL_INSTRUCTION_TOKEN(ficlInstructionF2Dup, "f2dup", FICL_WORD_DEFAULT)
250 FICL_INSTRUCTION_TOKEN(ficlInstructionFMinusRoll, "f-roll", FICL_WORD_DEFAULT)
251 FICL_INSTRUCTION_TOKEN(ficlInstructionFMinusRot, "f-rot", FICL_WORD_DEFAULT)
252 FICL_INSTRUCTION_TOKEN(ficlInstructionFQuestionDup, "f?dup", FICL_WORD_DEFAULT)
253 FICL_INSTRUCTION_TOKEN(ficlInstructionFOver, "fover", FICL_WORD_DEFAULT)
254 FICL_INSTRUCTION_TOKEN(ficlInstructionF2Over, "f2over", FICL_WORD_DEFAULT)
255 FICL_INSTRUCTION_TOKEN(ficlInstructionFPick, "fpick", FICL_WORD_DEFAULT)
256 FICL_INSTRUCTION_TOKEN(ficlInstructionFRoll, "froll", FICL_WORD_DEFAULT)
257 FICL_INSTRUCTION_TOKEN(ficlInstructionFRot, "frot", FICL_WORD_DEFAULT)
258 FICL_INSTRUCTION_TOKEN(ficlInstructionFSwap, "fswap", FICL_WORD_DEFAULT)
259 FICL_INSTRUCTION_TOKEN(ficlInstructionF2Swap, "f2swap", FICL_WORD_DEFAULT)
260 
261 FICL_INSTRUCTION_TOKEN(ficlInstructionF0Less, "f0<", FICL_WORD_DEFAULT)
262 FICL_INSTRUCTION_TOKEN(ficlInstructionFLess, "f<", FICL_WORD_DEFAULT)
263 FICL_INSTRUCTION_TOKEN(ficlInstructionF0Equals, "f0=", FICL_WORD_DEFAULT)
264 FICL_INSTRUCTION_TOKEN(ficlInstructionFEquals, "f=", FICL_WORD_DEFAULT)
265 FICL_INSTRUCTION_TOKEN(ficlInstructionF0Greater, "f0>", FICL_WORD_DEFAULT)
266 FICL_INSTRUCTION_TOKEN(ficlInstructionFGreater, "f>", FICL_WORD_DEFAULT)
267 
268 #endif  /* FICL_WANT_FLOAT */
269 
270 FICL_TOKEN(ficlInstructionExitInnerLoop, "** exit inner loop **")
271