Andrey.Slepuhin (pooh@msu.ru)
Wed, 29 Sep 1999 13:29:43 +0400
"Andrey.Slepuhin" wrote:
[snip]
> 2) Наблюдаются глюки со входными форматами. Мне с большим трудом
> удалось локализовать ошибку, имея под рукой лишь автоматически
> сгенерированные из FLAC'а рефальские тексты. В итоге получился следующий
> пример:
>
> ====================8<========================
> $use Stdio;
>
> $func F (e.lc) (e.lr) t.p (e.ls) t.u = e.res ;
> * $func F e = e ;
> $func G e = e ;
>
> Main =
> 1 :: t.p,
> 2 :: e.l,
> 3 :: t.u,
> <G t.p e.l t.u>;
>
> G {
> t.p e.l t.u,
> <WriteLN t.p>
> <WriteLN e.l>
> <WriteLN t.u>
> <F (e.l) ( ) t.p (e.l) t.u>;
> };
>
> F {
> (e.lc) (e.lr) t.p (e.ls) t.u,
> <WriteLN e.lr>,
> <WriteLN e.ls>;
> };
> ====================8<========================
>
> pooh@thicket:~/work/flac$ rfp test.rf
> Refal Plus Compiler Version 1.8.00.8b-32bit 1991 R.F.Gurin,
> S.A.Romanenko
> and RCMS PSI AS RUSSIA, Pereslavl-Zalessky,1993 Copyright (c)
> /usr/bin/gcc -g -c test.s
>
> Dynamic memory 6708
> Max dynamic memory 12076
> test : No errors
> /usr/bin/gcc -g test.o /usr/refal-plus/inc/rfp.a -o test.out
>
> File test.out created
>
> pooh@thicket:~/work/flac$ ./test.out
> 1
> 2
> 3
>
> 3
> pooh@thicket:~/work/flac$
>
> Должно быть (получается, если использовать закомментированное
> объявление функции F):
>
> pooh@thicket:~/work/flac$ ./test.out
> 1
> 2
> 3
>
> 2
> pooh@thicket:~/work/flac$
>
> Более подробно на код я еще не смотрел. Если у кого-нибудь есть идеи -
> буду очень благодарен.
>
> Когда эта ошибка будет исправлена - выложу обновленные RPM'ы.
>
> Всего доброго,
> Андрей.
День добрый еще раз!
Кажется можно расслабиться - ошибку я нашел. Дело было в том,
что во время swap'а двух rlnod'ов, который проходит в два приема
(8 байт все-таки), при обмене первых половин был использован
неправильный режим адресации. После исправления ошибки "чистый"
(т.е. без модификаций) FLAC вроде бы собирается и работает нормально.
Новые RPM'ы выложу к вечеру.
Всего доброго,
Андрей.
This archive was generated by hypermail 2.0b3 on Wed Sep 29 1999 - 13:37:23 MSD