diff options
author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-06-26 18:24:58 +0000 |
---|---|---|
committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-06-26 18:24:58 +0000 |
commit | 7a425f71e38df08a35d0d416b508bd5c95ed5fa6 (patch) | |
tree | 3ba10893d2e9cca6d1a2b197e191bd1ea1eb208d | |
parent | 894d2b643d67ffa9919208327146911e56020ad4 (diff) | |
download | ruby-7a425f71e38df08a35d0d416b508bd5c95ed5fa6.tar.gz |
* io.c (io_fflush): need to check if closed after thread switch.
[ruby-dev:20351]
* io.c (fptr_finalize): ditto.
* string.c (rb_str_rindex_m): fixed wrong fix. should move backward
first only when matching from the end.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4006 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 10 | ||||
-rw-r--r-- | io.c | 6 | ||||
-rw-r--r-- | string.c | 7 |
3 files changed, 21 insertions, 2 deletions
@@ -1,3 +1,13 @@ +Fri Jun 27 03:24:54 2003 Nobuyoshi Nakada <nobu.nokada@softhome.net> + + * io.c (io_fflush): need to check if closed after thread switch. + [ruby-dev:20351] + + * io.c (fptr_finalize): ditto. + + * string.c (rb_str_rindex_m): fixed wrong fix. should move backward + first only when matching from the end. + Thu Jun 26 21:34:49 2003 Nobuyoshi Nakada <nobu.nokada@softhome.net> * class.c (class_instance_method_list): get rid of warning about @@ -301,7 +301,9 @@ io_fflush(f, fptr) { int n; - rb_thread_fd_writable(fileno(f)); + if (!rb_thread_fd_writable(fileno(f))) { + rb_io_check_closed(fptr); + } for (;;) { TRAP_BEG; n = fflush(f); @@ -1331,6 +1333,7 @@ fptr_finalize(fptr, noraise) e = errno; break; } + if (!fptr->f2) break; } fptr->f2 = 0; } @@ -1339,6 +1342,7 @@ fptr_finalize(fptr, noraise) while ((n1 = fclose(fptr->f)) < 0) { if (f2 != -1 || !(fptr->mode & FMODE_WBUF)) break; if (!rb_io_wait_writable(f1)) break; + if (!fptr->f) break; } fptr->f = 0; if (n1 < 0 && errno == EBADF && f1 == f2) { @@ -1010,8 +1010,13 @@ rb_str_rindex_m(argc, argv, str) char *p = RSTRING(str)->ptr + pos; char *pbeg = RSTRING(str)->ptr; - while (pbeg <= --p) { + if (pos == RSTRING(str)->len) { + if (pos == 0) return Qnil; + --p; + } + while (pbeg <= p) { if (*p == c) return LONG2NUM(p - RSTRING(str)->ptr); + p--; } return Qnil; } |