Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/MiscUtil/library/pickle-util.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/MiscUtil/library/pickle-util.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 652, Tue Jun 6 02:14:56 2000 UTC revision 653, Wed Jun 7 07:59:06 2000 UTC
# Line 251  Line 251 
251              val sz = pre_size pr              val sz = pre_size pr
252              val ie = int_encode sz              val ie = int_encode sz
253              val iesz = size ie              val iesz = size ie
254    
255                val _ = if iesz > 2 then ignore (w v (hcm, fwdm, ahm, nxt)) else ()
256    
257              (* Padding in front is better because the unpickler can              (* Padding in front is better because the unpickler can
258               * simply discard all leading 0s and does not need to know               * simply discard all leading 0s and does not need to know
259               * about the pickler's setting of "trialStart". *)               * about the pickler's setting of "trialStart". *)
# Line 259  Line 262 
262                  if n = 0 then pr                  if n = 0 then pr
263                  else pad (CONCAT (null, pr), n - 1)                  else pad (CONCAT (null, pr), n - 1)
264          in          in
265              if ilen < iesz then              if ilen < iesz then loop (nxt + 1, ilen + 1)
                 (print (concat ["%LAZY-PICKLE LOOP: sz = ", Int.toString sz,  
                                 ", iesz = ", Int.toString iesz, "\n"]);  
                  loop (nxt + 1, ilen + 1))  
266              else (codes, CONCAT (pad (STRING ie, ilen - iesz), pr), state)              else (codes, CONCAT (pad (STRING ie, ilen - iesz), pr), state)
267          end          end
268      in      in

Legend:
Removed from v.652  
changed lines
  Added in v.653

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0