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