net/cvsup/files/patch-ab


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

--- suplib/src/FileAttr.m3.orig	Mon Feb  1 14:44:53 1999
+++ suplib/src/FileAttr.m3	Sun Sep  9 10:51:30 2001
@@ -102,6 +102,7 @@
     ELSE
       fa.mask := fa.mask + AttrTypes{AttrType.FileType};  (* Always valid. *)
     END;
+    fa.mask := fa.mask * Supported[fa.fileType];
     IF AttrType.ModTime IN fa.mask THEN
       fa.stat.st_mtime := ScanInt(t, pos, ModTimeRadix, "modTime");
     END;
@@ -271,7 +272,7 @@
       ch := Text.GetChar(t, pos);
       INC(pos);
       IF ch < '0' OR ch > '9' THEN EXIT END;
-      count := Word.Plus(Word.Times(val, 10), ORD(ch) - ORD('0'));
+      count := Word.Plus(Word.Times(count, 10), ORD(ch) - ORD('0'));
     END;
     IF pos >= tLen OR ch # '#' THEN
       RAISE TokScan.Error("Missing \"#\" in " & what);