comparison src/fileio.c @ 1431:d065616e0836 v7.1.146

updated for version 7.1-146
author vimboss
date Mon, 29 Oct 2007 21:38:54 +0000
parents bac7c3fce150
children c7654c4db8fd
comparison
equal deleted inserted replaced
1430:342cf2a9f5cc 1431:d065616e0836
4249 * Explanation: VAX/DECC RTL insists that records in some RMS 4249 * Explanation: VAX/DECC RTL insists that records in some RMS
4250 * structures end with a newline (carriage return) character, and if 4250 * structures end with a newline (carriage return) character, and if
4251 * they don't it adds one. 4251 * they don't it adds one.
4252 * With other RMS structures it works perfect without this fix. 4252 * With other RMS structures it works perfect without this fix.
4253 */ 4253 */
4254 if ((buf->b_fab_rat & (FAB$M_FTN | FAB$M_CR)) != 0) 4254 if (buf->b_fab_rfm == FAB$C_VFC
4255 || ((buf->b_fab_rat & (FAB$M_FTN | FAB$M_CR)) != 0))
4255 { 4256 {
4256 int b2write; 4257 int b2write;
4257 4258
4258 buf->b_fab_mrs = (buf->b_fab_mrs == 0 4259 buf->b_fab_mrs = (buf->b_fab_mrs == 0
4259 ? MIN(4096, bufsize) 4260 ? MIN(4096, bufsize)