/dports/lang/fth/fth-1.4.1/ficl/ |
H A D | utility.c | 137 result.remainder = (ficlUnsigned)(q - (result.quotient * y)); in ficl2UnsignedDivide() 168 uqr = ficl2UnsignedDivide((ficl2Unsigned)num, (ficlUnsigned)den); in ficl2IntegerDivideSymmetric() 197 int ficlIsPowerOfTwo(ficlUnsigned u) in ficlIsPowerOfTwo() 200 ficlUnsigned t = 2; in ficlIsPowerOfTwo() 223 pwr = ficlIsPowerOfTwo((ficlUnsigned)radix); in ficlLtoa() 232 ficlUnsigned v = (ficlUnsigned) value; in ficlLtoa() 233 ficlUnsigned mask = (ficlUnsigned) ~(((ficlUnsigned)(-1)) << pwr); in ficlLtoa() 248 result = ficl2UnsignedDivide(v, (ficlUnsigned)radix); in ficlLtoa() 265 char *ficlUltoa(ficlUnsigned value, char *string, int radix ) in ficlUltoa() 283 result = ficl2UnsignedDivide(ud, (ficlUnsigned)radix); in ficlUltoa() [all …]
|
H A D | ficl.h | 272 typedef ficlUnsigned32 ficlUnsigned; typedef 432 ficlUnsigned remainder; 463 ficlUnsigned u; 555 ficlUnsigned length; 565 ficlUnsigned length; 1107 ficlUnsigned hash; 1191 int ficlIsPowerOfTwo(ficlUnsigned); 1293 ficlPrimitive, ficlUnsigned); 1295 ficlInstruction, ficlUnsigned); 1313 ficlPrimitive, ficlUnsigned); [all …]
|
H A D | hash.c | 104 ficlUnsigned ficlHashCode(ficlString s) in ficlHashCode() 127 return ((ficlUnsigned)code); in ficlHashCode() 164 ficlWord *ficlHashLookup(ficlHash *hash, ficlString name, ficlUnsigned hashCode) in ficlHashLookup() 166 ficlUnsigned nCmp = name.length; in ficlHashLookup() 168 ficlUnsigned hashIdx; in ficlHashLookup()
|
H A D | dictionary.c | 262 ficlDictionaryAppendUnsigned(dict, (ficlUnsigned)value); in ficlDictionaryAppendConstantInstruction() 389 ficlUnsigned flags) in ficlDictionaryAppendWord() 441 ficlUnsigned flags) in ficlDictionaryAppendPrimitive() 452 ficlUnsigned flags) in ficlDictionarySetPrimitive() 473 ficlUnsigned flags) in ficlDictionaryAppendInstruction() 478 (ficlUnsigned)(FICL_WORD_INSTRUCTION | flags)); in ficlDictionaryAppendInstruction() 484 ficlUnsigned flags) in ficlDictionarySetInstruction() 489 (ficlUnsigned)(FICL_WORD_INSTRUCTION | flags)); in ficlDictionarySetInstruction() 602 if (word->name && (ficlUnsigned)strlen(word->name) != word->length) in ficlDictionaryIsAWord() 657 ficlUnsigned hashCode; in ficlDictionaryLookup() [all …]
|
H A D | prefix.c | 109 ficlUnsigned i; in ficlVmParsePrefix() 130 ficlUnsigned n = word->length; in ficlVmParsePrefix() 150 ficlUnsigned oldbase = vm->base; in ficlPrimitiveTempBase() 152 ficlUnsigned base = ficlStackPopUnsigned(vm->dataStack); in ficlPrimitiveTempBase()
|
H A D | ficllocal.h | 103 typedef unsigned long ficlUnsigned; typedef 190 ficlDictionaryAppendPrimitive(Dict, Name, Code, (ficlUnsigned)(Type)) 208 (ficlUnsigned)(Type)); \
|
H A D | primitives.c | 701 ficlUnsigned fixupCount; in ficlPrimitiveEndcaseCoIm() 772 ficlUnsigned fixupCount; in ficlPrimitiveEndofCoIm() 1384 ficlUnsigned length; in ficlPrimitiveSLiteralCoIm() 1694 ficlUnsigned length; in ficlPrimitiveToNumber() 1697 ficlUnsigned digit, base = vm->base; in ficlPrimitiveToNumber() 1710 digit = (ficlUnsigned)(c - '0'); in ficlPrimitiveToNumber() 2146 ficlUnsigned length; in ficlPrimitiveType() 2920 ficlUnsigned u1; in ficlPrimitiveUMSlashMod() 2953 ficlUnsigned u1; in ficlPrimitiveUMStar() 2954 ficlUnsigned u2; in ficlPrimitiveUMStar() [all …]
|
H A D | stack.c | 269 ficlUnsigned ficlStackPopUnsigned(ficlStack *stack) in ficlStackPopUnsigned() 271 ficlUnsigned u = STACK_UINT_REF(stack); in ficlStackPopUnsigned() 339 void ficlStackPushUnsigned(ficlStack *stack, ficlUnsigned u) in ficlStackPushUnsigned()
|
H A D | vm.c | 304 volatile ficlUnsigned u; in ficlVmInnerLoop() 403 ficlUnsigned length; in ficlVmInnerLoop() 985 ficlUnsigned u1, u2, uMin; in ficlVmInnerLoop() 1093 ficlUnsigned a, b; in ficlVmInnerLoop() 1341 ficlUnsigned nBits; in ficlVmInnerLoop() 1352 ficlUnsigned nBits; in ficlVmInnerLoop() 2271 ficlUnsigned length = 0; in ficlVmGetWord0() 2775 ficlUnsigned length = FICL_STRING_GET_LENGTH(s); in ficlVmParseNumber() 2776 ficlUnsigned accu, digit, base = vm->base; in ficlVmParseNumber() 2820 digit = (ficlUnsigned)(c - '0'); in ficlVmParseNumber() [all …]
|
H A D | search.c | 179 ficlUnsigned hashCode; in ficlPrimitiveSearchWordlist() 278 ficlUnsigned nBuckets; in ficlPrimitiveFiclWordlist()
|
H A D | unix.c | 78 ficlFileTruncate(ficlFile *ff, ficlUnsigned size) in ficlFileTruncate()
|
/dports/lang/ficl/ficl-4.1.0/ |
H A D | utility.c | 65 int ficlIsPowerOfTwo(ficlUnsigned u) in ficlIsPowerOfTwo() 68 ficlUnsigned t = 2; in ficlIsPowerOfTwo() 94 pwr = ficlIsPowerOfTwo((ficlUnsigned)radix); in ficlLtoa() 103 ficlUnsigned v = (ficlUnsigned) value; in ficlLtoa() 104 ficlUnsigned mask = (ficlUnsigned) ~(-1 << pwr); in ficlLtoa() 115 FICL_UNSIGNED_TO_2UNSIGNED((ficlUnsigned)value, v); in ficlLtoa() 118 result = ficl2UnsignedDivide(v, (ficlUnsigned)radix); in ficlLtoa() 137 char *ficlUltoa(ficlUnsigned value, char *string, int radix ) in ficlUltoa() 154 result = ficl2UnsignedDivide(ud, (ficlUnsigned)radix); in ficlUltoa() 190 int ficlStrincmp(char *cp1, char *cp2, ficlUnsigned count) in ficlStrincmp()
|
H A D | ficl.h | 475 typedef ficlUnsigned32 ficlUnsigned; typedef 716 ficlUnsigned high; 717 ficlUnsigned low; 749 …TFORM_EXTERN ficl2Unsigned ficl2UnsignedMultiply(ficlUnsigned x, ficlUnsigned y); 750 … ficl2UnsignedMultiplyAccumulate(ficl2Unsigned u, ficlUnsigned mul, ficlUnsigned add); 766 ficlUnsigned remainder; 809 ficlUnsigned u; 881 ficlUnsigned length; 931 ficlUnsigned size; /* size of the stack, in cells */ 1068 ficlUnsigned state; /* compiling or interpreting */ [all …]
|
H A D | double.c | 56 ficl2UnsignedQR ficl2UnsignedDivide(ficl2Unsigned q, ficlUnsigned y) in ficl2UnsignedDivide() 112 ficl2Unsigned ficl2UnsignedMultiplyAccumulate(ficl2Unsigned u, ficlUnsigned mul, ficlUnsigned add) in ficl2UnsignedMultiplyAccumulate() 188 ficl2Unsigned ficl2UnsignedMultiply(ficlUnsigned x, ficlUnsigned y) in ficl2UnsignedMultiply() 313 ficl2UnsignedQR ficl2UnsignedDivide(ficl2Unsigned q, ficlUnsigned y) in ficl2UnsignedDivide() 416 uqr = ficl2UnsignedDivide(FICL_2INTEGER_TO_2UNSIGNED(num), (ficlUnsigned)den); in ficl2IntegerDivideFloored() 463 uqr = ficl2UnsignedDivide(FICL_2INTEGER_TO_2UNSIGNED(num), (ficlUnsigned)den); in ficl2IntegerDivideSymmetric()
|
H A D | stack.c | 245 ficlUnsigned ficlStackPopUnsigned(ficlStack *stack) in ficlStackPopUnsigned() 267 ficlUnsigned high = ficlStackPopUnsigned(stack); in ficlStackPop2Unsigned() 268 ficlUnsigned low = ficlStackPopUnsigned(stack); in ficlStackPop2Unsigned() 302 void ficlStackPushUnsigned(ficlStack *stack, ficlUnsigned u) in ficlStackPushUnsigned()
|
H A D | compatibility.c | 18 FICL_PLATFORM_EXTERN ficlUnsigned stackPopUNS (ficlStack *stack) { return ficlStackPopUnsigned(st… in stackPopUNS() 22 FICL_PLATFORM_EXTERN void stackPushUNS (ficlStack *stack, ficlUnsigned u) { ficlStackPushUn… in stackPushUNS() 66 FICL_PLATFORM_EXTERN int isPowerOfTwo(ficlUnsigned u) { return ficlIsPowerOfTwo(u); } in isPowerOfTwo() 76 char *ultoa(ficlUnsigned value, char *string, int radix ) { return ficlUltoa(value, string, r… in ultoa() 84 FICL_PLATFORM_EXTERN int strincmp(char *cp1, char *cp2, ficlUnsigned count) { return ficlSt… in strincmp() 110 FICL_PLATFORM_EXTERN void dictAppendUNS (ficlDictionary *dictionary, ficlUnsigned u) { ficl… in dictAppendUNS()
|
H A D | vm.c | 273 ficlUnsigned u; in ficlVmInnerLoop() 827 dataTop->u = (ficlUnsigned)*integer32; in ficlVmInnerLoop() 863 dataTop->u = ((ficlUnsigned)*integer8); in ficlVmInnerLoop() 1053 ficlUnsigned nBits; in ficlVmInnerLoop() 1054 ficlUnsigned x1; in ficlVmInnerLoop() 1066 ficlUnsigned nBits; in ficlVmInnerLoop() 1067 ficlUnsigned x1; in ficlVmInnerLoop() 1120 ficlUnsigned u; in ficlVmInnerLoop() 1190 ficlUnsigned u1, u2, uMin; in ficlVmInnerLoop() 1323 ficlUnsigned a, b; in ficlVmInnerLoop() [all …]
|
H A D | primitives.c | 302 ficlUnsigned u; in ficlPrimitiveUDot() 316 ficlUnsigned u; in ficlPrimitiveHexDot() 686 ficlUnsigned fixupCount; in ficlPrimitiveEndcaseCoIm() 1445 ficlUnsigned length; in ficlPrimitiveSLiteralCoIm() 1747 ficlUnsigned c; in ficlPrimitiveToNumber() 1748 ficlUnsigned digit; in ficlPrimitiveToNumber() 1834 ficlUnsigned size; in ficlPrimitiveAccept() 1837 ficlUnsigned length; in ficlPrimitiveAccept() 2913 ficlUnsigned u1; in ficlPrimitiveUMSlashMod() 2949 ficlUnsigned u2; in ficlPrimitiveUMStar() [all …]
|
/dports/lang/ficl/ficl-4.1.0/ficlplatform/ |
H A D | unix.h | 36 typedef ficlUnsigned64 ficlUnsigned; typedef 39 typedef uintptr_t ficlUnsigned; typedef
|
H A D | alpha.h | 26 typedef ficlUnsigned64 ficlUnsigned; typedef
|
H A D | ansi.h | 11 typedef uintptr_t ficlUnsigned; typedef
|
H A D | win32.h | 44 typedef ficlUnsigned32 ficlUnsigned; typedef
|
H A D | unix.c | 9 int ficlFileTruncate(ficlFile *ff, ficlUnsigned size) in ficlFileTruncate()
|
/dports/lang/fth/fth-1.4.1/src/ |
H A D | proc.c | 836 ficlUnsigned u; in ficl_tick_set_im() 904 ficlUnsigned u; in ficl_set_xt() 1557 ficlUnsigned u; in ficl_latestxt_co_im() 1579 ficlUnsigned u; in ficl_get_func_name_co_im() 1596 ficlUnsigned u; in ficl_filename_im() 1615 ficlUnsigned u; in ficl_lineno_im() 2106 ficlUnsigned u; in ficl_extended_args_co_im() 2337 ficlUnsigned u; in ficl_init_locals() 2387 ficlUnsigned flag; in ficl_begin_definition() 2418 ficlUnsigned flag; in ficl_lambda_definition() [all …]
|
H A D | symbol.c | 312 ficlUnsigned u; in ficl_symbol_intern_im() 315 u = (ficlUnsigned) ficlInstructionLiteralParen; in ficl_symbol_intern_im() 447 ficlUnsigned u; in ficl_keyword_intern_im() 450 u = (ficlUnsigned) ficlInstructionLiteralParen; in ficl_keyword_intern_im()
|