Lines Matching +full:ccode +full:- +full:map
38 * Command-line entry point.
52 if (!a.StartsWith("-")) { in Main()
56 if (a == "--") { in Main()
65 while (a.StartsWith("-")) { in Main()
151 .GetManifestResourceStream("t0-kernel"))) in Main()
175 " -o file use 'file' as base for output file name (default: 't0out')"); in Usage()
177 " -r name use 'name' as base for run function (default: same as output)"); in Usage()
179 " -m name[,name...]"); in Usage()
183 " -nf disable flow analysis"); in Usage()
194 * value -(y+1).
211 * Defined words are referenced by name in this map. Names are
212 * string-sensitive; for better reproducibility, the map is sorted
231 * C code defined for words is kept in this map, by word name.
306 * add-cc: in T0Comp()
310 AddNative("add-cc:", false, SType.BLANK, cpu => { in T0Comp()
338 "C-only word: " + tt); in T0Comp()
368 * make-CX in T0Comp()
372 * (min-max, inclusive). in T0Comp()
374 AddNative("make-CX", false, new SType(3, 1), cpu => { in T0Comp()
393 * range (min-max, inclusive) of the C expression when in T0Comp()
479 AddNative("define-word", false, cpu => { in T0Comp()
606 AddNative("new-data-block", false, cpu => { in T0Comp()
615 AddNative("define-data-word", false, cpu => { in T0Comp()
637 AddNative("current-data", false, cpu => { in T0Comp()
649 AddNative("data-add8", false, cpu => { in T0Comp()
665 AddNative("data-set8", false, cpu => { in T0Comp()
683 AddNative("data-get8", false, new SType(1, 1), cpu => { in T0Comp()
697 AddNative("compile-local-read", false, cpu => { in T0Comp()
701 AddNative("compile-local-write", false, cpu => { in T0Comp()
738 AddNative("cs-pick", false, cpu => { in T0Comp()
742 AddNative("cs-roll", false, cpu => { in T0Comp()
746 AddNative("next-word", false, cpu => { in T0Comp()
810 AddNative("-rot", false, new SType(3, 3), cpu => { in T0Comp()
845 AddNative("-", false, new SType(2, 1), cpu => { in T0Comp()
857 cpu.Push(new TValue(a.x - b.x)); in T0Comp()
861 a.x -= bx; in T0Comp()
866 cpu.Push(-ax); in T0Comp()
992 for (int i = n - 1; i >= 0; i --) { in T0Comp()
1043 delayedChar = -(c + 1); in NextChar()
1064 * Un-read the character value 'c'. That value MUST be the one
1081 delayedChar = -(delayedChar + 1); in Unread()
1174 if (-- count == 0) { in ParseCCodeNF()
1198 if (t == "--") { in ParseStackEffectNF()
1206 dout = -1; in ParseStackEffectNF()
1246 if (-- hexNum == 0) { in ParseString()
1294 * start of next line, then a double-quote character).
1357 return -1; in DecHex()
1367 return c - '0'; in HexVal()
1369 return c - ('A' - 10); in HexVal()
1371 return c - ('a' - 10); in HexVal()
1373 return -1; in HexVal()
1401 delayedChar = -1; in ProcessInput()
1407 new OpcodeJumpUncond(-2) in ProcessInput()
1464 string ccode; in GetCCode()
1465 allCCode.TryGetValue(name, out ccode); in GetCCode()
1466 return ccode; in GetCCode()
1557 * encoded in 7-bit chunk, with big-endian signed in Generate()
1558 * convention. Each 7-bit chunk is encoded over one byte; in Generate()
1580 string ccode = GetCCode(w.Name); in Generate()
1581 if (ccode == null) { in Generate()
1590 if (ccodeUni.ContainsKey(ccode)) { in Generate()
1591 sn = ccodeUni[ccode]; in Generate()
1595 ccodeUni[ccode] = sn; in Generate()
1615 int numInterpreted = curSlot - slotInterpreted; in Generate()
1623 "Non-interpreted entry point"); in Generate()
1640 interpretedEntry[w.Slot - slotInterpreted] = in Generate()
1647 * interpreted) then we can use "one-byte code" which is in Generate()
1663 int totalLen = -1; in Generate()
1723 x = (uint32_t)-neg; in Generate()
1731 return -(int32_t)~x - 1; in Generate()
1816 t0_newip = &t0_codeblock[t0_caddr[(slot) - T0_INTERPRETED]]; \ in Generate()
1819 *((rp) ++) = (uint32_t)((ip) - &t0_codeblock[0]) + (t0_lnum << 16); \ in Generate()
1829 t0ctx->ip = &t0_codeblock[0]; \ in Generate()
1830 T0_ENTER(t0ctx->ip, t0ctx->rp, slot); \ in Generate()
1855 #define T0_LOCAL(x) (*(rp - 2 - (x))) in Generate()
1856 #define T0_POP() (*-- dp) in Generate()
1857 #define T0_POPi() (*(int32_t *)(-- dp)) in Generate()
1858 #define T0_PEEK(x) (*(dp - 1 - (x))) in Generate()
1859 #define T0_PEEKi(x) (*(int32_t *)(dp - 1 - (x))) in Generate()
1862 #define T0_RPOP() (*-- rp) in Generate()
1863 #define T0_RPOPi() (*(int32_t *)(-- rp)) in Generate()
1868 uint32_t t0tmp = *(dp - 1 - t0len); \ in Generate()
1869 memmove(dp - t0len - 1, dp - t0len, t0len * sizeof *dp); \ in Generate()
1870 *(dp - 1) = t0tmp; \ in Generate()
1873 uint32_t t0tmp = *(dp - 2); \ in Generate()
1874 *(dp - 2) = *(dp - 1); \ in Generate()
1875 *(dp - 1) = t0tmp; \ in Generate()
1878 uint32_t t0tmp = *(dp - 3); \ in Generate()
1879 *(dp - 3) = *(dp - 2); \ in Generate()
1880 *(dp - 2) = *(dp - 1); \ in Generate()
1881 *(dp - 1) = t0tmp; \ in Generate()
1884 uint32_t t0tmp = *(dp - 1); \ in Generate()
1885 *(dp - 1) = *(dp - 2); \ in Generate()
1886 *(dp - 2) = *(dp - 3); \ in Generate()
1887 *(dp - 3) = t0tmp; \ in Generate()
1898 dp = ((t0_context *)t0ctx)->dp; in Generate()
1899 rp = ((t0_context *)t0ctx)->rp; in Generate()
1900 ip = ((t0_context *)t0ctx)->ip; in Generate()
1913 rp -= (t0x >> 16); in Generate()
1969 ((t0_context *)t0ctx)->dp = dp; in Generate()
1970 ((t0_context *)t0ctx)->rp = rp; in Generate()
1971 ((t0_context *)t0ctx)->ip = ip; in Generate()
2037 if (tt.StartsWith("-")) { in TryParseLiteral()
2066 if ((uint)d > uint.MaxValue - acc) { in TryParseLiteral()
2076 x = -x; in TryParseLiteral()