fix a bug with the mtlb_load function. This prevented correct operation

on sparcs.  Thanks to Serge Steer at INRIA for fixing this bug.
This commit is contained in:
dmcmahill 2000-04-14 17:52:40 +00:00
parent 528893d837
commit 2719c40ee1
3 changed files with 40 additions and 2 deletions

View file

@ -1,4 +1,4 @@
$NetBSD: patch-sum,v 1.4 1999/12/22 13:25:41 dmcmahill Exp $
$NetBSD: patch-sum,v 1.5 2000/04/14 17:52:40 dmcmahill Exp $
MD5 (patch-aa) = 662473ff1e7d0de3f7b368bca08d4be9
MD5 (patch-ab) = 8563112e4a7074e8e30dcafe823bffb3
@ -14,3 +14,4 @@ MD5 (patch-ak) = 0c190279d557e1e1933bc7603783084f
MD5 (patch-al) = b4a8a71178e4d40bc252e24c7bc72cd6
MD5 (patch-am) = df104b6a6786ddeed792d9ce3c229514
MD5 (patch-an) = 0129ec4c3c258a9717a2480079a48697
MD5 (patch-ao) = 2422af6f5c3d0ff2a3bb32efd3b55342

View file

@ -0,0 +1,36 @@
$NetBSD: patch-ao,v 1.4 2000/04/14 17:52:40 dmcmahill Exp $
This is a big fix provided by INRIA (scilab authors)
--- ./macros/mtlb/mtlb_load.sci.orig Fri Nov 5 11:21:16 1999
+++ ./macros/mtlb/mtlb_load.sci Fri Apr 14 11:49:00 2000
@@ -36,9 +36,10 @@
while %t
offset=mtell(fd)
- mopt=mget(1,'ull',fd)
+ mopt=mget(1,'uil',fd)
if meof(fd)<>0 then break,end
if mopt>5000 then
mseek(offset,fd)
- mopt=mget(1,'ubl',fd)
+ mopt=mget(1,'uib',fd)
+
if mopt>5000 then
Error('Incorrect file')
@@ -53,8 +54,8 @@
select MOPT(1)
case 0
- fl='ull'
+ fl='uil'
flag=l_flags(MOPT(3)+1)
case 1
- fl='ubl'
+ fl='uib'
flag=b_flags(MOPT(3)+1)
case 2
@@ -70,5 +71,4 @@
if meof(fd)<>0 then Error('Incorrect file'),end
m=t(1);n=t(2);it=t(3),namelen=t(4)
-
name=mget(namelen,"c",fd);
if meof(fd)<>0 then Error('Incorrect file'),end

View file

@ -1,4 +1,4 @@
@comment $NetBSD: PLIST,v 1.5 1999/12/22 13:25:58 dmcmahill Exp $
@comment $NetBSD: PLIST,v 1.6 2000/04/14 17:52:41 dmcmahill Exp $
bin/scilab
lib/X11/app-defaults/Metanet-color
lib/X11/app-defaults/Xscilab
@ -2193,6 +2193,7 @@ share/${PKGNAME}/macros/mtlb/mtlb_length.bin
share/${PKGNAME}/macros/mtlb/mtlb_length.sci
share/${PKGNAME}/macros/mtlb/mtlb_load.bin
share/${PKGNAME}/macros/mtlb/mtlb_load.sci
share/${PKGNAME}/macros/mtlb/mtlb_load.sci.orig
share/${PKGNAME}/macros/mtlb/mtlb_loglog.bin
share/${PKGNAME}/macros/mtlb/mtlb_loglog.sci
share/${PKGNAME}/macros/mtlb/mtlb_max.bin