Showing the changes to src (3 of 3 files). Show all
Unified · Split
| @@ -697,9 +697,9 @@ ios_pipe(ios *s, ios_flags flags, int *otherside) · 696 unmodified lines | |||
| 697 | s->bm = IOS_BUF_NONE; | 697 | s->bm = IOS_BUF_NONE; |
| 698 | *otherside = fd[1]; | 698 | *otherside = fd[1]; |
| 699 | if((flags & IOS_READ) == 0) | 699 | if((flags & IOS_READ) == 0) |
| 700 | s->flags |= IOS_FL_RDONLY; | 700 | s->flags |= IOS_FL_RDONLY; |
| 701 | else if((flags & IOS_WRITE) == 0) | 701 | else if((flags & IOS_WRITE) == 0) |
| 702 | s->flags |= IOS_FL_WRONLY; | 702 | s->flags |= IOS_FL_WRONLY; |
| 703 | return s; | 703 | return s; |
| 704 | } | 704 | } |
| 705 | 705 | ||
| @@ -277,7 +277,7 @@ again: · 276 unmodified lines | |||
| 277 | return RS->toktype; | 277 | return RS->toktype; |
| 278 | } | 278 | } |
| 279 | 279 | ||
| 280 | if(c == '(') | 280 | if(c == '(') |
| 281 | RS->toktype = TOK_OPEN; | 281 | RS->toktype = TOK_OPEN; |
| 282 | else if(c == ')') | 282 | else if(c == ')') |
| 283 | RS->toktype = TOK_CLOSE; | 283 | RS->toktype = TOK_CLOSE; |
| @@ -302,7 +302,7 @@ again: · 18 unmodified lines | |||
| 302 | do{ | 302 | do{ |
| 303 | ch = ios_getc(IO); | 303 | ch = ios_getc(IO); |
| 304 | }while(ch != IOS_EOF && ch != '\n'); | 304 | }while(ch != IOS_EOF && ch != '\n'); |
| 305 | goto again; | 305 | goto again; |
| 306 | }else if(c == '#'){ | 306 | }else if(c == '#'){ |
| 307 | if(terminator()) | 307 | if(terminator()) |
| 308 | cthrow(parse_error("unexpected terminator"), dummy); | 308 | cthrow(parse_error("unexpected terminator"), dummy); |
| @@ -373,7 +373,7 @@ again: · 64 unmodified lines | |||
| 373 | do{ | 373 | do{ |
| 374 | ch = ios_getc(IO); | 374 | ch = ios_getc(IO); |
| 375 | }while(ch != IOS_EOF && ch != '\n'); | 375 | }while(ch != IOS_EOF && ch != '\n'); |
| 376 | goto again; | 376 | goto again; |
| 377 | }else if(sl_unlikely(c == '|')){ | 377 | }else if(sl_unlikely(c == '|')){ |
| 378 | // multiline comment | 378 | // multiline comment |
| 379 | int commentlevel = 1; | 379 | int commentlevel = 1; |
| @@ -398,11 +398,11 @@ again: · 18 unmodified lines | |||
| 398 | goto hashpipe_gotc; | 398 | goto hashpipe_gotc; |
| 399 | } | 399 | } |
| 400 | } | 400 | } |
| 401 | goto again; | 401 | goto again; |
| 402 | }else if(sl_unlikely(c == ';')){ | 402 | }else if(sl_unlikely(c == ';')){ |
| 403 | // datum comment | 403 | // datum comment |
| 404 | (void)do_read_sexpr(sl_unbound); // skip | 404 | (void)do_read_sexpr(sl_unbound); // skip |
| 405 | goto again; | 405 | goto again; |
| 406 | }else if(sl_unlikely(c == ':')){ | 406 | }else if(sl_unlikely(c == ':')){ |
| 407 | // gensym | 407 | // gensym |
| 408 | if(terminator()) | 408 | if(terminator()) |
| @@ -541,7 +541,7 @@ MAKE_OP(ARGC) · 540 unmodified lines | |||
| 541 | 541 | ||
| 542 | MAKE_OP(ARGCL) | 542 | MAKE_OP(ARGCL) |
| 543 | { | 543 | { |
| 544 | n = GET_S32(ip); | 544 | n = GET_S32(ip); |
| 545 | ip += 4; | 545 | ip += 4; |
| 546 | if(sl_unlikely(nargs != n)){ | 546 | if(sl_unlikely(nargs != n)){ |
| 547 | ENTER; | 547 | ENTER; |