archive/ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2025-09-15 08:33:58 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Update for VMS ports.

Browse source 
* dln.c (dln_load): Modify to call lib$find_image_symbol for VMS.
        * io.c (rb_io_fwrite): Use fputc() for VMS non-stream file.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6793 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akiyoshi 2004-08-19 02:09:51 +00:00
parent c2d20d7f8c
commit a23bc67665
3 changed files with 74 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
io.c
View file

@ -135,7 +135,9 @@ static VALUE lineno = INT2FIX(0);
#elif defined(__BEOS__)
# define READ_DATA_PENDING(fp) (fp->_state._eof == 0)
#elif defined(__VMS)
# define READ_DATA_PENDING(fp) (((unsigned int)((*(fp))->_flag) & _IOEOF) == 0)
# define READ_DATA_PENDING_COUNT(fp) ((unsigned int)(*(fp))->_cnt)
# define READ_DATA_PENDING(fp) (((unsigned int)(*(fp))->_cnt) > 0)
# define READ_DATA_BUFFERED(fp) 0
#else
/* requires systems own version of the ReadDataPending() */
extern int ReadDataPending();
@ -385,7 +387,7 @@ rb_io_fwrite(ptr, len, f)
long n, r;
if ((n = len) <= 0) return n;
#ifdef __human68k__
#if defined(__human68k__) || defined(__vms)
do {
if (fputc(*ptr++, f) == EOF) {
if (ferror(f)) return -1L;