1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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
|
