From ec72c83800160d4f43132e6509fbaeeb119ce983 Mon Sep 17 00:00:00 2001 From: Satoshi Asami Date: Thu, 16 Dec 1999 08:11:01 +0000 Subject: Fix problem that could cause cvsup to abort in some cases. Submitted by: jdp --- lang/modula-3-lib/files/patch-bv | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 lang/modula-3-lib/files/patch-bv (limited to 'lang/modula-3-lib/files/patch-bv') diff --git a/lang/modula-3-lib/files/patch-bv b/lang/modula-3-lib/files/patch-bv new file mode 100644 index 000000000000..25cb3af0e4fc --- /dev/null +++ b/lang/modula-3-lib/files/patch-bv @@ -0,0 +1,11 @@ +--- m3/m3core/src/float/Common/DragonInt.m3.orig Fri Jul 7 13:26:16 1995 ++++ m3/m3core/src/float/Common/DragonInt.m3 Wed Dec 15 09:17:34 1999 +@@ -421,7 +421,7 @@ + t.s := n_words; + t.w := s.next; + INC (s.next, n_words); +- IF (s.next > NUMBER (s.w^)) THEN Expand (s); END; ++ IF (s.next >= NUMBER (s.w^)) THEN Expand (s); END; + RETURN ADR (s.w[t.w]); + END InitValue; + -- cgit v1.2.3