read -r -d should not ignore -r

NEWS

@@ -3,6 +3,11 @@ For full details, see the git log at: https://github.com/ksh93/ksh
 
 Any uppercase BUG_* names are modernish shell bug IDs.
 
+2020-06-16:
+
+- Passing the '-d' flag to the read builtin will no longer cause the '-r'
+  flag to be discarded when 'read -r -d' is run.
+
 2020-06-15:
 
 - The 'source' alias has been converted into a regular built-in command.

src/cmd/ksh93/bltins/read.c

@@ -103,8 +103,8 @@ int	b_read(int argc,char *argv[], Shbltin_t *context)
 		if(opt_info.arg && *opt_info.arg!='\n')
 		{
 			char *cp = opt_info.arg;
-			flags &= ~((1<<D_FLAG)-1);
-			flags |= (mbchar(cp)<< D_FLAG);
+			flags &= ((1<<D_FLAG+1)-1);
+			flags |= (mbchar(cp)<<D_FLAG+1) | (1<<D_FLAG);
 		}
 		break;
 	    case 'p':
@@ -283,7 +283,7 @@ int sh_readline(register Shell_t *shp,char **names, volatile int fd, int flags,s
 			tty_raw(fd,1);
 		if(!(flags&(N_FLAG|NN_FLAG)))
 		{
-			delim = ((unsigned)flags)>>D_FLAG;
+			delim = ((unsigned)flags)>>(D_FLAG+1);
 			ep->e_nttyparm.c_cc[VEOL] = delim;
 			ep->e_nttyparm.c_lflag |= ISIG;
 			tty_set(fd,TCSADRAIN,&ep->e_nttyparm);

src/cmd/ksh93/include/version.h

@@ -17,4 +17,4 @@
 *                  David Korn <dgk@research.att.com>                   *
 *                                                                      *
 ***********************************************************************/
-#define SH_RELEASE	"93u+m 2020-06-15"
+#define SH_RELEASE	"93u+m 2020-06-16"

src/cmd/ksh93/tests/builtins.sh

@@ -692,5 +692,10 @@ EOF
 PATH=/dev/null
 whence -q export) || err_exit '`builtin -d` deletes special builtins'
 
+# ======
+# `read -r -d` should not ignore `-r`
+printf '\\\000' | read -r -d ''
+[[ $REPLY == $'\\' ]] || err_exit "read -r -d '' ignores -r"
+
 # ======
 exit $((Errors<125?Errors:125))