2021-07-03 05:07:57 +01:00
<!DOCTYPE HTML>
< html >
< head >
< meta http-equiv = "Content-Type" content = "text/html;charset=US-ASCII" >
2021-09-22 04:45:45 +01:00
< meta name = "generator" content = "ZealOS V1.01" >
2021-07-03 05:07:57 +01:00
< style type = "text/css" >
2021-07-29 03:20:15 +01:00
body {background-color:#fef1f0;}
.cF0{color:#000000;background-color:#fef1f0;}
.cF1{color:#0148a4;background-color:#fef1f0;}
.cF2{color:#3b7901;background-color:#fef1f0;}
.cF3{color:#057c7e;background-color:#fef1f0;}
.cF4{color:#bb2020;background-color:#fef1f0;}
.cF5{color:#9e42ae;background-color:#fef1f0;}
.cF6{color:#b57901;background-color:#fef1f0;}
.cF7{color:#b2b6af;background-color:#fef1f0;}
.cF8{color:#555753;background-color:#fef1f0;}
.cF9{color:#678fbb;background-color:#fef1f0;}
.cFA{color:#82bc49;background-color:#fef1f0;}
.cFB{color:#0097a2;background-color:#fef1f0;}
.cFC{color:#e26a6a;background-color:#fef1f0;}
.cFD{color:#c671bc;background-color:#fef1f0;}
.cFE{color:#c7ab00;background-color:#fef1f0;}
.cFF{color:#fef1f0;background-color:#fef1f0;}
2021-07-03 05:07:57 +01:00
< / style >
< / head >
< body >
2021-07-05 01:12:38 +01:00
< pre style = "font-family:monospace;font-size:12pt" >
2021-07-03 05:07:57 +01:00
< a name = "l1" > < / a > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > Option< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > num, < / span > < span class = cF1 > Bool< / span > < span class = cF0 > val)
Rename abs_addres to abs_address.
Update documentation/comments to rename addr, fun, var, stmt, blk, desc, reg, seg, ptr, dup, clus, val, and bttn, to address, function, variable, statement, block, description, register, segment, pointer, duplicate, cluster, value, and button, respectively.
2021-10-07 02:35:32 +01:00
< a name = "l2" > < / a > {< / span > < span class = cF2 > //Set compiler < / span > < a href = "https://zeal-operating-system.github.io/ZealOS/Doc/Options.DD.html#l1" > < span class = cF4 > Option< / span > < / a > < span class = cF2 > to value.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l3" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > BEqual< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> opts, num, val);
2021-07-03 05:07:57 +01:00
< a name = "l4" > < / a > }
< a name = "l5" > < / a >
< a name = "l6" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > OptionGet< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > num)
2021-07-26 20:29:49 +01:00
< a name = "l7" > < / a > {< / span > < span class = cF2 > //Get state of compiler < / span > < a href = "https://zeal-operating-system.github.io/ZealOS/Kernel/KernelA.HH.html#l1676" > < span class = cF4 > option< / span > < / a > < span class = cF2 > .< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l8" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > Bt< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> opts, num);
2021-07-03 05:07:57 +01:00
< a name = "l9" > < / a > }
< a name = "l10" > < / a >
< a name = "l11" > < / a > < / span > < span class = cF1 > asm< / span > < span class = cF0 > {
2021-07-26 20:29:49 +01:00
< a name = "l12" > < / a > < / span > < span class = cFD > _LAST_FUN< / span > < span class = cF0 > :: < / span > < span class = cF2 > //See < / span > < a href = "https://zeal-operating-system.github.io/ZealOS/Kernel/KUtils.CC.html#l415" > < span class = cF4 > _CALL_IND< / span > < / a > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l13" > < / a > < / span > < span class = cF1 > PUSH< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 >
< a name = "l14" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 > , < / span > < span class = cFC > RSP< / span > < span class = cF0 >
< a name = "l15" > < / a > < / span > < span class = cF1 > PUSH< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 >
< a name = "l16" > < / a > < / span > < span class = cF1 > PUSH< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l17" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l18" > < / a > < / span > < span class = cF1 > XOR< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > RAX< / span > < span class = cF0 >
< a name = "l19" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > FS< / span > < span class = cF0 > :< / span > < span class = cF9 > CTask< / span > < span class = cF0 > .last_fun[< / span > < span class = cFC > RAX< / span > < span class = cF0 > ]
< a name = "l20" > < / a > < / span > < span class = cF1 > TEST< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > RAX< / span > < span class = cF0 >
< a name = "l21" > < / a > < / span > < span class = cF1 > JZ< / span > < span class = cF0 > @@10
< a name = "l22" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RDX< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF9 > CHashFun< / span > < span class = cF0 > .exe_addr[< / span > < span class = cFC > RAX< / span > < span class = cF0 > ]
2021-07-03 05:07:57 +01:00
< a name = "l23" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l24" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF3 > SF_ARG1< / span > < span class = cF0 > [< / span > < span class = cFC > RBP< / span > < span class = cF0 > ] < / span > < span class = cF2 > // argc< / span > < span class = cF0 >
< a name = "l25" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF3 > SF_ARG2< / span > < span class = cF0 > [< / span > < span class = cFC > RBP< / span > < span class = cF0 > ] < / span > < span class = cF2 > // argv< / span > < span class = cF0 >
< a name = "l26" > < / a > < / span > < span class = cF1 > SHL< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cFE > 3< / span > < span class = cF0 >
< a name = "l27" > < / a > < / span > < span class = cF1 > SUB< / span > < span class = cF0 > < / span > < span class = cFC > RSP< / span > < span class = cF0 > , < / span > < span class = cFC > RCX< / span > < span class = cF0 >
< a name = "l28" > < / a > < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 > , < / span > < span class = cFC > RSP< / span > < span class = cF0 >
< a name = "l29" > < / a > < / span > < span class = cF1 > REP_MOVSB< / span > < span class = cF0 >
< a name = "l30" > < / a > < / span > < span class = cF1 > TEST< / span > < span class = cF0 > < / span > < span class = cFC > RDX< / span > < span class = cF0 > , < / span > < span class = cFC > RDX< / span > < span class = cF0 >
< a name = "l31" > < / a > < / span > < span class = cF1 > JZ< / span > < span class = cF0 > @@05
2021-07-03 05:07:57 +01:00
< a name = "l32" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l33" > < / a > < / span > < span class = cF1 > CALL< / span > < span class = cF0 > < / span > < span class = cFC > RDX< / span > < span class = cF0 >
< a name = "l34" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 >
< a name = "l35" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 >
< a name = "l36" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 >
< a name = "l37" > < / a > < / span > < span class = cF1 > RET1< / span > < span class = cF0 > < / span > < span class = cFE > 16< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l38" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l39" > < / a > @@05: < / span > < span class = cF1 > MOV< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cF9 > U64< / span > < span class = cF0 > < / span > < span class = cF3 > SF_ARG1< / span > < span class = cF0 > [< / span > < span class = cFC > RBP< / span > < span class = cF0 > ] < / span > < span class = cF2 > // argc< / span > < span class = cF0 >
< a name = "l40" > < / a > < / span > < span class = cF1 > SHL< / span > < span class = cF0 > < / span > < span class = cFC > RCX< / span > < span class = cF0 > , < / span > < span class = cFE > 3< / span > < span class = cF0 >
< a name = "l41" > < / a > < / span > < span class = cF1 > ADD< / span > < span class = cF0 > < / span > < span class = cFC > RSP< / span > < span class = cF0 > , < / span > < span class = cFC > RCX< / span > < span class = cF0 >
< a name = "l42" > < / a > < / span > < span class = cF1 > XOR< / span > < span class = cF0 > < / span > < span class = cFC > RAX< / span > < span class = cF0 > , < / span > < span class = cFC > RAX< / span > < span class = cF0 >
< a name = "l43" > < / a > @@10: < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RDI< / span > < span class = cF0 >
< a name = "l44" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RSI< / span > < span class = cF0 >
< a name = "l45" > < / a > < / span > < span class = cF1 > POP< / span > < span class = cF0 > < / span > < span class = cFC > RBP< / span > < span class = cF0 >
< a name = "l46" > < / a > < / span > < span class = cF1 > RET1< / span > < span class = cF0 > < / span > < span class = cFE > 16< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l47" > < / a > }
Rename abs_addres to abs_address.
Update documentation/comments to rename addr, fun, var, stmt, blk, desc, reg, seg, ptr, dup, clus, val, and bttn, to address, function, variable, statement, block, description, register, segment, pointer, duplicate, cluster, value, and button, respectively.
2021-10-07 02:35:32 +01:00
< a name = "l48" > < / a > < / span > < span class = cF1 > _extern< / span > < span class = cF0 > < / span > < span class = cFD > _LAST_FUN< / span > < span class = cF0 > < / span > < span class = cF9 > I64< / span > < span class = cF0 > < / span > < span class = cF5 > LastFun< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > argc, < / span > < span class = cF9 > I64< / span > < span class = cF0 > *argv); < / span > < span class = cF2 > //Execute last function with args.< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l49" > < / a >
< a name = "l50" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > < / span > < span class = cF5 > PassTrace< / span > < span class = cF0 > (< / span > < span class = cF9 > I64< / span > < span class = cF0 > i=< / span > < span class = cFE > 0b10001111101< / span > < span class = cF0 > )
< a name = "l51" > < / a > {< / span > < span class = cF2 > //Ctrls which optimizer passes are displayed.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l52" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > old = < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> pass_trace;
2021-07-03 05:07:57 +01:00
< a name = "l53" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l54" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (i)
< a name = "l55" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> saved_pass_trace = i;
< a name = "l56" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> pass_trace = i;
2021-07-03 05:07:57 +01:00
< a name = "l57" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l58" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > old;
2021-07-03 05:07:57 +01:00
< a name = "l59" > < / a > }
< a name = "l60" > < / a >
< a name = "l61" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > Trace< / span > < span class = cF0 > (< / span > < span class = cF1 > Bool< / span > < span class = cF0 > val=< / span > < span class = cF3 > ON< / span > < span class = cF0 > )
< a name = "l62" > < / a > {< / span > < span class = cF2 > //Displays assembly code output from compiler.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l63" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > Option< / span > < span class = cF0 > (< / span > < span class = cF3 > OPTf_TRACE< / span > < span class = cF0 > , val);
2021-07-03 05:07:57 +01:00
< a name = "l64" > < / a > }
< a name = "l65" > < / a >
< a name = "l66" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > < / span > < span class = cF5 > Echo< / span > < span class = cF0 > (< / span > < span class = cF1 > Bool< / span > < span class = cF0 > val)
< a name = "l67" > < / a > {< / span > < span class = cF2 > //Displays text as it is being compiled.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l68" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > < / span > < span class = cF5 > Option< / span > < span class = cF0 > (< / span > < span class = cF3 > OPTf_ECHO< / span > < span class = cF0 > , val);
2021-07-03 05:07:57 +01:00
< a name = "l69" > < / a > }
< a name = "l70" > < / a >
< a name = "l71" > < / a > < / span > < span class = cF1 > U0< / span > < span class = cF0 > < / span > < span class = cF5 > StreamPrint< / span > < span class = cF0 > (< / span > < span class = cF1 > U8< / span > < span class = cF0 > *format, ...)
< a name = "l72" > < / a > {< / span > < span class = cF2 > //Injects text into the compile stream. Used in #exe{} blocks.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l73" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *buf = < / span > < span class = cF5 > StrPrintJoin< / span > < span class = cF0 > (< / span > < span class = cF3 > NULL< / span > < span class = cF0 > , format, argc, argv), *st;
< a name = "l74" > < / a > < / span > < span class = cF9 > CCompCtrl< / span > < span class = cF0 > *cc = < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc;
< a name = "l75" > < / a > < / span > < span class = cF9 > CStreamBlk< / span > < span class = cF0 > *tmpe = cc-> last_stream_blk;
2021-07-03 05:07:57 +01:00
< a name = "l76" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l77" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (tmpe != & cc-> next_stream_blk)
< a name = "l78" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l79" > < / a > st = < / span > < span class = cF5 > MStrPrint< / span > < span class = cF0 > (< / span > < span class = cF6 > " %s%s" < / span > < span class = cF0 > , tmpe-> body, buf);
< a name = "l80" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (tmpe-> body);
< a name = "l81" > < / a > tmpe-> body = st;
< a name = "l82" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l83" > < / a > < / span > < span class = cF1 > else< / span > < span class = cF0 >
Rename abs_addres to abs_address.
Update documentation/comments to rename addr, fun, var, stmt, blk, desc, reg, seg, ptr, dup, clus, val, and bttn, to address, function, variable, statement, block, description, register, segment, pointer, duplicate, cluster, value, and button, respectively.
2021-10-07 02:35:32 +01:00
< a name = "l84" > < / a > < / span > < span class = cF5 > PrintErr< / span > < span class = cF0 > (< / span > < span class = cF6 > " No exe{} block\n" < / span > < span class = cF0 > );
2021-07-04 23:11:34 +01:00
< a name = "l85" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (buf);
2021-07-03 05:07:57 +01:00
< a name = "l86" > < / a > }
< a name = "l87" > < / a >
< a name = "l88" > < / a > < / span > < span class = cF1 > U0< / span > < span class = cF0 > < / span > < span class = cF5 > StreamDir< / span > < span class = cF0 > ()
< a name = "l89" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l90" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *dirname;
2021-07-03 05:07:57 +01:00
< a name = "l91" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l92" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (dirname = < / span > < span class = cF5 > DirFile< / span > < span class = cF7 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> last_cc-> lex_include_stack-> full_name< / span > < span class = cF7 > )< / span > < span class = cF0 > )
< a name = "l93" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l94" > < / a > < / span > < span class = cF5 > StreamPrint< / span > < span class = cF0 > (< / span > < span class = cF6 > " \" %s\" " < / span > < span class = cF0 > , dirname);
< a name = "l95" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (dirname);
< a name = "l96" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l97" > < / a > }
< a name = "l98" > < / a >
< a name = "l99" > < / a > < / span > < span class = cF9 > CD2I32< / span > < span class = cF0 > *< / span > < span class = cF5 > LexD2I32< / span > < span class = cF0 > (< / span > < span class = cF9 > CCompCtrl< / span > < span class = cF0 > *cc, < / span > < span class = cF9 > CD2I32< / span > < span class = cF0 > *p)
< a name = "l100" > < / a > {< / span > < span class = cF2 > //Not CosmiC. Sprite-like lex 2D point.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l101" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > '('< / span > < span class = cF0 > )
< a name = "l102" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting '(' at " < / span > < span class = cF0 > );
< a name = "l103" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip (< / span > < span class = cF0 >
< a name = "l104" > < / a > p-> x = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l105" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ','< / span > < span class = cF0 > )
< a name = "l106" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ',' at " < / span > < span class = cF0 > );
< a name = "l107" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip ,< / span > < span class = cF0 >
< a name = "l108" > < / a > p-> y = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l109" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ')'< / span > < span class = cF0 > )
< a name = "l110" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ')' at " < / span > < span class = cF0 > );
< a name = "l111" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip )< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l112" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l113" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > p;
2021-07-03 05:07:57 +01:00
< a name = "l114" > < / a > }
< a name = "l115" > < / a >
< a name = "l116" > < / a > < / span > < span class = cF9 > CD3I32< / span > < span class = cF0 > *< / span > < span class = cF5 > LexD3I32< / span > < span class = cF0 > (< / span > < span class = cF9 > CCompCtrl< / span > < span class = cF0 > *cc,< / span > < span class = cF9 > CD3I32< / span > < span class = cF0 > *p)
< a name = "l117" > < / a > {< / span > < span class = cF2 > //Not CosmiC. Sprite-like lex 3D point.< / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l118" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > '('< / span > < span class = cF0 > )
< a name = "l119" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting '(' at " < / span > < span class = cF0 > );
< a name = "l120" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip (< / span > < span class = cF0 >
< a name = "l121" > < / a > p-> x = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l122" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ','< / span > < span class = cF0 > )
< a name = "l123" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ',' at " < / span > < span class = cF0 > );
< a name = "l124" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip ,< / span > < span class = cF0 >
< a name = "l125" > < / a > p-> y = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l126" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ','< / span > < span class = cF0 > )
< a name = "l127" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ',' at " < / span > < span class = cF0 > );
< a name = "l128" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip ,< / span > < span class = cF0 >
< a name = "l129" > < / a > p-> z = < / span > < span class = cF5 > LexExpressionI64< / span > < span class = cF0 > (cc);
< a name = "l130" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (cc-> token != < / span > < span class = cF6 > ')'< / span > < span class = cF0 > )
< a name = "l131" > < / a > < / span > < span class = cF5 > LexExcept< / span > < span class = cF0 > (cc, < / span > < span class = cF6 > " Expecting ')' at " < / span > < span class = cF0 > );
< a name = "l132" > < / a > < / span > < span class = cF5 > Lex< / span > < span class = cF0 > (cc); < / span > < span class = cF2 > // Skip )< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l133" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l134" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > p;
2021-07-03 05:07:57 +01:00
< a name = "l135" > < / a > }
< a name = "l136" > < / a >
< a name = "l137" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *< / span > < span class = cFD > CmdLinePrompt< / span > < span class = cF0 > ()
< a name = "l138" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l139" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > i;
< a name = "l140" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *res, *st;
2021-07-03 05:07:57 +01:00
< a name = "l141" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l142" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> new_answer)
< a name = "l143" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l144" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_type & ~< / span > < span class = cFE > 1< / span > < span class = cF0 > != < / span > < span class = cF3 > RT_I0< / span > < span class = cF0 > )
< a name = "l145" > < / a > {
< a name = "l146" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_type == < / span > < span class = cF3 > RT_F64< / span > < span class = cF0 > )
< a name = "l147" > < / a > < / span > < span class = cF6 > " %8.6fs ansf=%15.7g\n" < / span > < span class = cF0 > , < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_time, < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer;
< a name = "l148" > < / a > < / span > < span class = cF1 > else< / span > < span class = cF0 >
< a name = "l149" > < / a > < / span > < span class = cF6 > " %8.6fs ans=0x%08X=%d\n" < / span > < span class = cF0 > , < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_time, < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer, < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer;
< a name = "l150" > < / a > }
< a name = "l151" > < / a > < / span > < span class = cF1 > else< / span > < span class = cF0 >
< a name = "l152" > < / a > {
< a name = "l153" > < / a > < / span > < span class = cF6 > " %8.6fs\n" < / span > < span class = cF0 > , < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer_time;
< a name = "l154" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> answer = < / span > < span class = cFE > 0< / span > < span class = cF0 > ;
< a name = "l155" > < / a > }
< a name = "l156" > < / a > < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> new_answer = < / span > < span class = cF3 > FALSE< / span > < span class = cF0 > ;
< a name = "l157" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l158" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (st = < / span > < span class = cF5 > DirCur< / span > < span class = cF0 > )
< a name = "l159" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l160" > < / a > < / span > < span class = cF6 > " %s" < / span > < span class = cF0 > , st;
< a name = "l161" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (st);
< a name = "l162" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l163" > < / a > < / span > < span class = cF6 > '> '< / span > < span class = cF0 > ;
< a name = "l164" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > IsDebugMode< / span > < span class = cF0 > & & < / span > < span class = cF5 > IsRaw< / span > < span class = cF0 > )
< a name = "l165" > < / a > < / span > < span class = cF5 > RawDr< / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = "l166" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l167" > < / a > < / span > < span class = cF5 > LBts< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> task_flags, < / span > < span class = cF3 > TASKf_CMD_LINE_PROMPT< / span > < span class = cF0 > );
< a name = "l168" > < / a > st = < / span > < span class = cF5 > StrGet< / span > < span class = cF0 > (,, < / span > < span class = cF3 > SGF_SHIFT_ESC_EXIT< / span > < span class = cF0 > );
< a name = "l169" > < / a > < / span > < span class = cF5 > LBtr< / span > < span class = cF0 > (& < / span > < span class = cF5 > Fs< / span > < span class = cF0 > -> task_flags, < / span > < span class = cF3 > TASKf_CMD_LINE_PROMPT< / span > < span class = cF0 > );
2021-07-03 05:07:57 +01:00
< a name = "l170" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l171" > < / a > i = < / span > < span class = cF5 > StrLen< / span > < span class = cF0 > (st);
< a name = "l172" > < / a > res = < / span > < span class = cF5 > MAlloc< / span > < span class = cF0 > (i + < / span > < span class = cFE > 1< / span > < span class = cF0 > + < / span > < span class = cFE > 2< / span > < span class = cF0 > );
< a name = "l173" > < / a > < / span > < span class = cF5 > MemCopy< / span > < span class = cF0 > (res, st, i + < / span > < span class = cFE > 1< / span > < span class = cF0 > );
< a name = "l174" > < / a > i--;
< a name = "l175" > < / a > < / span > < span class = cF1 > while< / span > < span class = cF0 > (i > = < / span > < span class = cFE > 0< / span > < span class = cF0 > & & < / span > < span class = cF5 > Bt< / span > < span class = cF7 > (< / span > < span class = cFB > char_bmp_white_space< / span > < span class = cF0 > , res[i]< / span > < span class = cF7 > )< / span > < span class = cF0 > )
< a name = "l176" > < / a > i--;
< a name = "l177" > < / a > i++;
< a name = "l178" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (i > < / span > < span class = cFE > 0< / span > < span class = cF0 > & & res[i - < / span > < span class = cFE > 1< / span > < span class = cF0 > ] == < / span > < span class = cF6 > ';'< / span > < span class = cF0 > )
< a name = "l179" > < / a > res[i++] = < / span > < span class = cF6 > ';'< / span > < span class = cF0 > ; < / span > < span class = cF2 > // The Lex goes one beyond< / span > < span class = cF0 >
< a name = "l180" > < / a > res[i++] = < / span > < span class = cF6 > '\n'< / span > < span class = cF0 > ; < / span > < span class = cF2 > // #define goes to '\n'< / span > < span class = cF0 >
< a name = "l181" > < / a > res[i] = < / span > < span class = cFE > 0< / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = "l182" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l183" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (st);
2021-07-03 05:07:57 +01:00
< a name = "l184" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l185" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > res;
2021-07-03 05:07:57 +01:00
< a name = "l186" > < / a > }
< / span > < / pre > < / body >
< / html >
