RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Как ускорить OS/2 или я ничего не понял?


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Nick Kurshev
To : ???
Subj : Как ускорить OS/2 или я ничего не понял?
>
> > Ну допустим у меня есть сильное подозрение на плохую работу malloc-free,
> > которые активно используется в многочисленных циклах. Не переписывать же
> > по этому поводу сорцы? Проблемы в том что все вышезаявленные ранее программы
> > типа rar, infozip, ... почти не пользуются динамической памятью во время работы,
> > а консольная часть моего проекта не влияет (ПОВТОРЯЮСЬ!!!) на результаты теста.
> > И хватит косить на VIO/MOU/KBD проблемы реально сидят в DOSCALLS.
> >
> В примерах VP есть программа memmgrex
> Результаты работы
> OS/2 Intel Celeron 433
> Test: Simple Get/FreeMem Total Calls Time/msec
> - GetMem 1000 0.45
> - FreeMem 1000 0.49
> - ReAllocMem 1000 1.92
>
> Test: Exceptions Total Calls Time/msec
> - GetMem 2999 8.55
> - FreeMem 3002 4.86
> - ReAllocMem 0 0.00
>
> Test: TStringList usage Total Calls Time/msec
> - GetMem 2002 60.23
> - FreeMem 2004 13.79
> - ReAllocMem 1064 162.67
>
> ------------------------
> Total execution time : 405.29 msec
> Of which Memory Management : 252.96 msec
>
> Windows98 Intel Celeron 466
> Test: Simple Get/FreeMem Total Calls Time/msec
> - GetMem 1000 0.55
> - FreeMem 1000 0.50
> - ReAllocMem 1000 1.93
>
> Test: Exceptions Total Calls Time/msec
> - GetMem 2999 6.92
> - FreeMem 3002 2.74
> - ReAllocMem 0 0.00
>
> Test: TStringList usage Total Calls Time/msec
> - GetMem 2002 87.55
> - FreeMem 2004 47.61
> - ReAllocMem 1064 211.44
>
> ------------------------
> Total execution time : 582.70 msec
> Of which Memory Management : 359,25 msec
>
> И ещё один тест
> Program search;
>
> Uses Use32, Dos, VPUtils, Os2Def, Os2Base;
> var
> seek_pos: Ulong;
> UCString: Array [0..16] of Char;
> LCString: Array [0..16] of Char;
> txt_ln: Ulong;
> Str_ln: Ulong;
> Count: Ulong;
> CTbl: Array[0..1023] of Byte;
> abBuffer: Array[0..65535*32] of Byte;
> Ulrc: ApiRet;
> Hf: HFile;
> UlAction: Ulong;
> CbRead: Ulong;
> tm: Ulong;
> etm: Ulong;
> Procedure prn_res;
> begin
> Writeln('Found at offset ',seek_pos - str_ln);
> end;
> Procedure Build_Tbl;
> begin
> asm
> mov edi,offset CTbl
> mov ecx,256
> xor eax,eax
> rep stosd
> mov esi,offset UCString
> mov ecx,[str_ln]
> mov edx,80000000h
> mov edi,offset CTbl
> @Build_Tbl1:
> xor eax,eax
> lodsb
> shl eax,2
> or [edi+eax],edx
> shr edx,1
> loop @Build_Tbl1
> mov esi,offset LCString
> mov edi,offset CTbl
> mov ecx,[str_ln]
> mov edx,80000000h
> @Build_Tbl2:
> xor eax,eax
> lodsb
> shl eax,2
> or [edi+eax],edx
> shr edx,1
> loop @Build_Tbl2
> end;
> end;
>
> Procedure Search_Str;
> begin
> asm
> mov edi,offset Ctbl
> mov esi,offset abBuffer
> mov ecx,[str_ln]
> dec ecx
> mov ebx,[cbRead]
> mov edx,80000000h
> shr edx,cl
> mov ecx,ebx
> mov ebx,edx
> xor edx,edx
> @sr1: xor eax,eax
> lodsb
> inc [seek_pos]
> shl ax,2
> shr edx,1
> or edx,80000000h
> and edx,[edi+eax]
> push edx
> and edx,ebx
> or edx,edx
> pop edx
> jnz @found
> loop @sr1
> jmp @exit
> @found:
> pushad
> inc [count]
> call prn_res
> popad
> jecxz @exit
> jmp @sr1
> @exit:
> end;
> end;
> Begin
> UCString := 'STRING FOR SEARCH';
> LCString := 'string_for_search';
> str_ln:=17;
> txt_ln:=65535*32;
> seek_pos:=0;
>
> Build_Tbl;
> tm:=GetTimemsec;
>
> ulrc := DosOpen(
> 'test_file.dat',
> hf,
> ulAction,
> 0,
> file_Normal,
> file_Open,
> open_access_ReadOnly or
> open_share_DenyNone,
> nil);
>
> If ulrc = 0 then
> begin
> tm:= GetTimemsec;
> cbRead:=65535*32;
> While cbRead <> 0 do
> begin
> DosRead(
> hf,
> abBuffer,
> sizeof(abBuffer),
> cbRead);
> If cbRead<>0 then Search_Str;
> end;
> DosClose(hf);
> etm:= getTimemsec-tm;
> WriteLn('Reading ',seek_pos,' bytes');
> WriteLn('Found ',count,' strings');
> Writeln('Elapsed time is ',etm,' mSec');
> end;
> end.
>
>
> OS/2 c заремленным call prn_res
>
> Reading 80668225 bytes
> Found 2592 strings
> Elapsed time is 6210 mSec
>
> с перенапровлением вывода в файл
>
> Reading 80668225 bytes
> Found 2592 strings
> Elapsed time is 6990 mSec
>
> Windows98
> Перекомпайлено на Delfi c заменой соответствующих API
> Первый случай ок.32 сек.
> Второй случай больше двух минут
> Так-же рекомендую сравнить NEON3D и True Spectra под OS/2 и NT

Всем спасибо - посидел еще с проектом - выловил таки одно узкое место.
Уж и не знаю проекта-ли или СИСТЕМЫ.

Получил следующие цифры (для случая с MMF):

Linux=7 sec
WinNT=7 sec
OS/2 =8 sec (причем при первом запуске 19 sec)

что я здесь имею ввиду под певрым запуском - не важно сколько работает система
важно что программа запущена впервые. Проблема в том что при втором запуске
запись идет в файл уже находящийся в кеши. Эти 8 sec интересны только с точки
зрения замера чистой производительности, на практике же все будут пользоваться
программой для соверщения операции только однажды.

В чем была проблема - как правильно заметили OS/2 гуру - самое тормозное место
в OS/2 - опрос клавиатуры и мыши (KBDCALLS и MOUCALLS). Странно - но работа
DOS версии, с той-же самой техникой опроса консоли в той-же самой OS/2, значительно
быстрее.

P.S.: А то что Netscape вешает насмерть OS/2 - это недостаток нетшкафа или
достоинство OS/2?

P.P.S.: Sorry! Не хотел обидеть чьи-либо религиозные чувства.

Mon 03 Dec 2001 18:39 Mozilla/4.61 [ru] (Win95; I)



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.