X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fcasefile.c;h=7681a65f9d4e3e33b1c272760ed33ea0bc78e621;hb=e294a372f351d7105c21a2db58022af8b119aa64;hp=453fbf09da4a5af8f6a9effe85aeb3fe9d4fbad2;hpb=6abdd9ecfc1a5a9a6c4db1b675249357da453167;p=pspp-builds.git

diff --git a/src/data/casefile.c b/src/data/casefile.c
index 453fbf09..7681a65f 100644
--- a/src/data/casefile.c
+++ b/src/data/casefile.c
@@ -545,8 +545,14 @@ casefile_get_reader (const struct casefile *cf_)
 struct casereader *
 casefile_get_random_reader (const struct casefile *cf) 
 {
-  struct casereader *reader = casefile_get_reader (cf);
+  struct casefile  *mutable_casefile = (struct casefile*) cf;
+  struct casereader *reader;
+
+  enum { WRITE, READ } mode = cf->mode ;
+  reader = casefile_get_reader (cf);
   reader->random = true;
+  mutable_casefile->mode = mode;
+  
   return reader;
 }