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