16
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 12, 2016, 08:13:54 pm »
Блин, скопировал не оттуда. locsRead должно быть вместо n, или наоборот.
Новости:
Онлайн компилятор Oberon-07/11
Путеводитель по Оберон-проектам.
Логи jabber-конференции.
Онлайн исходники BlackBox: тут:WeBB и на github
Исходники Project Oberon V4 на github.
Сборник решений задач книги "Современное программирование с нуля!" тут. А обсуждение здесь.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
17
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 12, 2016, 08:01:41 pm »
Тест для Ulm
Код: [Выделить]
MODULE tulm;
IMPORT SYSTEM, StdIO,InOut;
VAR
inf:StdIO.FILE;
inbuf: ARRAY [0..1023] OF CARDINAL;
VAR
n : CARDINAL;
ok:BOOLEAN;
BEGIN
ok := StdIO.Fopen(inf, "input", StdIO.read, FALSE);
IF ok THEN
locsRead := 1023;
ok := StdIO.Fread(SYSTEM.ADR(inbuf), 4, locsRead ,inf);
IF ok THEN
InOut.WriteCard(locsRead,8); InOut.WriteLn;
END;
ok := StdIO.Fclose(inf);
ELSE
InOut.WriteString("open fail"); InOut.WriteLn;
END;
END tulm.
gm2 tulm.mod -flibs=ulm,pim 18
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 12, 2016, 07:59:07 pm »
По-всякому. А на Ext4 ничего не открывает.
19
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 12, 2016, 07:52:37 pm »
Хм, на FAT32 все работает, даже XDS.
20
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 12, 2016, 07:49:24 pm »
32 бита.
Я уже дошел до си и fopen. Там тоже -1 и гуглить "Value too large for defined data type".
Я уже дошел до си и fopen. Там тоже -1 и гуглить "Value too large for defined data type".
22
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 12, 2016, 05:10:53 pm »
Пишут
Код: [Выделить]
#RTS: unhandled exception #1: IOException.notAvailable ReadилиКод: [Выделить]
EXCEPTIONS.mod:57:3:IOChan: ChanId specified is invalid in RAISE
23
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 12, 2016, 02:52:35 pm »
Оказывается, xds под линуксом не умеет работать с файлами > 2GB :-(. Программы просто падают при первой же попытке чтения.
И у gm2 такая же фича, по крайней мере с библиотеками ISO.
И у gm2 такая же фича, по крайней мере с библиотеками ISO.
24
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 08, 2016, 08:38:41 pm »
Это не для моего :-). Мне кажется bucketsort с фиксированными корзинами должен на таких задачах страдать.
25
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 08, 2016, 06:53:39 pm »
Интересно, а срди тестов есть распределения с малой дисперсией?
26
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 07, 2016, 05:30:00 am »Для внешней сортировки всегда полезнее иметь несколько дисков, чем несколько процессоров.Да, а многопоточное решение по производительности не отличимо в этом тесте от однопоточного.
Что очень странно. Единственное объяснение, которое я могу придумать - все уперлось в диск. А наблюдаемая разница на моем нетбуке - это потому что проц совсем дохлый.
27
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 07, 2016, 05:24:34 am »То есть выходит, что чтобы и читать и писать, нужно использовать openedforrandom. Т.е., вероятно, использовать не SeqFile, а RndFile.Я надеялся, что SeqFile как-то оптимизирван для последовательного чтения. Но похоже, там банально вызывается какой-нибудь fread/fwrite без буфферизации. Попробовал еще на аде. Там та же петрушка, только ещё медленнее раза в 2-3.
28
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 06, 2016, 04:33:20 pm »Да! Еще надо поставить либу pth - если система дебианоподобная, то так: apt-get install libpth-devО! Поставил и заработало, даже собирать не пришлось.
Некоторые особенности сразу вылезли. Например, строку-константу нельзя индексировать.
29
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 06, 2016, 03:33:39 pm »
Насколько я понимаю, проблема в чем-то вроде, что файл был открыт c флагом O_WRONLY а надо было с O_RDWR. Это если на позиксно-сишный язык переводить.
[/quote]
Ну да. Но там же написано
[/quote]
Ну да. Но там же написано
Код: [Выделить]
SeqFile.OpenWrite(spill[spno], name, SeqFile.raw+SeqFile.read+SeqFile.old, res);
30
Общий раздел / Re: Расширенный тест на производительность.
« : Декабрь 06, 2016, 02:31:52 pm »
Вот тебе и стандарты ISO. :-( Сейчас еще обнаружил, что в xds CARD16, CARD32..., а в gm2 CARDINAL16, CARDINAL32...
Пробовал gm2 из пакета поставить, вроде установилось, но не работает.
Пробовал gm2 из пакета поставить, вроде установилось, но не работает.