Хочу перевести функцию работы со строками на асм вставки под delphi и максимально оптимизировать.

Сейчас на форуме: tyns777 (+4 невидимых)

Посл.ответ	Сообщение
ToBad Ранг: 450.3 (мудрец), 13thx Активность: 0.2↘0 Статус: Участник	Создано: 12 октября 2009 15:44 · Личное сообщение · #1 Хочу написать на асме вставки в процедуру для Дельфи которая приведённа ниже. Желательно конечно переписать полностью на асме. Работать должна с длинными строками более 255 символов. Смысл думаю понятен, выделяет строку по номеру через разделитель. Например GetSubStr('aaa:bb:c:ddd:e',':',2) вернёт строку bb, если разделителя не найдено возвращаем передаваемую строку в случае индекса 1, или пустую строку в случае другого. Если в строке нет элемента с таким номером, то пустую возвращаем. Так же хотелось бы сделать что бы разделитель был не обязательно однобайтовый... В общем спрашиваю по тому, что возможно кто посоветует готовое решение или может даже подобная функция есть в дельфи, либо кто-то за пять минут черкнёт. Я в свою очередь тоже попытаюсь изобразить на асме это, но хотелось бы максимально оптимизировано, а я в этом не силён... Приведённая функция работает сейчас хуже, чем описано как должна работать, но и этого в принципе достаточно, лишь бы шустро было... Code: function GetSubStr(st:string; expl:string; n:integer):string; Var p,i:integer; Begin for i:=1 to n-1 do begin p:=pos(expl,st); st:=copy(st,p+1,Length(st)-p); while (pos(expl,st)=1) and (length(st)>0) do delete(st,1,1); end; p:=pos(expl,st); if p<>0 then result:=copy(st,1,p-1) else result:=st; End;

mak Ранг: 673.3 (! !), 400thx Активность: 0.4↘0.31 Статус: Участник CyberMonk	Создано: 12 октября 2009 16:15 · Личное сообщение · #2 Вроде эта функция , но на асм полностью ... Code: InString proc startpos:DWORD,lpSource:DWORD,lpPattern:DWORD ; ------------------------------------------------------------------ ; InString searches for a substring in a larger string and if it is ; found, it returns its position in eax. ; ; It uses a one (1) based character index (1st character is 1, ; 2nd is 2 etc...) for both the "StartPos" parameter and the returned ; character position. ; ; Return Values. ; If the function succeeds, it returns the 1 based index of the start ; of the substring. ; 0 = no match found ; -1 = substring same length or longer than main string ; -2 = "StartPos" parameter out of range (less than 1 or longer than ; main string) ; ------------------------------------------------------------------ LOCAL sLen:DWORD LOCAL pLen:DWORD push ebx push esi push edi invoke StrLen,lpSource mov sLen, eax ; source length invoke StrLen,lpPattern mov pLen, eax ; pattern length cmp startpos, 1 jge @F mov eax, -2 jmp isOut ; exit if startpos not 1 or greater @@: dec startpos ; correct from 1 to 0 based index cmp eax, sLen jl @F mov eax, -1 jmp isOut ; exit if pattern longer than source @@: sub sLen, eax ; don't read past string end inc sLen mov ecx, sLen cmp ecx, startpos jg @F mov eax, -2 jmp isOut ; exit if startpos is past end @@: ; ---------------- ; setup loop code ; ---------------- mov esi, lpSource mov edi, lpPattern mov al, [edi] ; get 1st char in pattern add esi, ecx ; add source length neg ecx ; invert sign add ecx, startpos ; add starting offset jmp Scan_Loop align 16 ; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Pre_Scan: inc ecx ; start on next byte Scan_Loop: cmp al, [esi+ecx] ; scan for 1st byte of pattern je Pre_Match ; test if it matches inc ecx js Scan_Loop ; exit on sign inversion jmp No_Match Pre_Match: lea ebx, [esi+ecx] ; put current scan address in EBX mov edx, pLen ; put pattern length into EDX Test_Match: mov ah, [ebx+edx-1] ; load last byte of pattern length in main string cmp ah, [edi+edx-1] ; compare it with last byte in pattern jne Pre_Scan ; jump back on mismatch dec edx jnz Test_Match ; 0 = match, fall through on match ; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Match: add ecx, sLen mov eax, ecx inc eax jmp isOut No_Match: xor eax, eax isOut: pop edi pop esi pop ebx ret InString endp ----- RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube
fakit Ранг: 78.3 (постоянный) Активность: 0.03↘0 Статус: Участник	Создано: 12 октября 2009 18:12 · Личное сообщение · #3 есть готовые модули, faststring, qstring И т.д.
ToBad Ранг: 450.3 (мудрец), 13thx Активность: 0.2↘0 Статус: Участник	Создано: 12 октября 2009 18:42 · Личное сообщение · #4 mak пишет: Вроде эта функция , но на асм полностью ... Насколько я понял функция ищет позицию подстроки в основной строке с позиции указанной в startpos. Это лишь часть алгоритма, но и его можно использовать дописав остальное. Мне одно не ясно, похоже этот код древний очень, почему не используются инструкции типа SCAS? Не похож он на вершину оптимизации... fakit пишет: есть готовые модули, faststring, qstring И т.д. Ищу сейчас. Если под рукой есть ссылки - буду признателен.
ToBad Ранг: 450.3 (мудрец), 13thx Активность: 0.2↘0 Статус: Участник	Создано: 12 октября 2009 19:48 · Личное сообщение · #5 Вот нашёл интересный код на базе которого можно всё сделать: Code: proc search,_baseadr,_stradr,_basel,_strl pushad cld push [_strl] push [_stradr] call UpCases mov edi,[_baseadr] ; адрес базовой строки .NXTSE: mov esi,[_stradr] ; адрес искомой строки mov ecx,[_basel] mov al,byte[esi]; элемент repnz scasb jnz .SEARTH_ERROR dec edi mov esi,[_stradr] mov ecx,[_strl] ; длина строки repe cmpsb jnz .NXTSE mov eax,edi sub eax,[_strl] mov [resylt],eax jmp .EXT ;Строка найденна .SEARTH_ERROR: mov [resylt],0 .EXT: popad mov eax,[resylt] ret resylt dd 0 endp Отсюда выкинуть UpCases, добавить смещение с которого начинать поиск, добавить индекс нужного элемента, если результат найден, инкрементировать счётчик найденных вхождений и сравнивать с индексом, как только равны - отрезаем от позиции подстроки+длина подстроки до следующей если есть или до конца. Так примерно? p.s. Нашёл AcedStrings, как я понял дальнейшее развитие QStrings. Интересно, но нужно функции нет, есть из чего слепить, но хотелось бы всё в одной asm вставке...
ProTeuS Ранг: 172.2 (ветеран) Активность: 0.07↘0 Статус: Участник	Создано: 12 октября 2009 19:55 · Личное сообщение · #6 если не ошибаюсь Code: lea eax, STROKA push offset SubStr push eax call strstr add esp, 8 ----- HOW MUCH BLOOD WOULD YOU SHED TO STAY ALIVE
mak Ранг: 673.3 (! !), 400thx Активность: 0.4↘0.31 Статус: Участник CyberMonk	Создано: 12 октября 2009 21:36 · Личное сообщение · #7 Ну да , там можно задавать разные патерны , как ты и хотел , длинее , на выходе в есх длина слова , на еах расположение патерна. Пару строчек и код копируется откуда надо , длина кода известна , размер известен , начало тоже задается в начале кода. Копию делаешь как те угодно. Код не старый , команды типа lods, scas, movs медленее обычно , этот код был проверен и оттестирован тамерными макросами , и расчитан на скоростную оптимизацию но не размерную. Хочешь чтобы было быстрее задействуй сопроцессор. Результаты старых тестов данной процедуры Code: Intel(R) Core(TM)2 Duo CPU E8500 @ 3.16GHz (SSE4) Search Test 1 - value expected 37; lenSrchPattern ->22 InString - JJ: 38 ; clocks: 99 InString - Lingo: 37 ; clocks: 39 Search Test 2 - value expected 1007; lenSrchPattern ->17 InString - JJ: 1008 ; clocks: 22567 InString - Lingo: 1007 ; clocks: 6294 Search Test 3 - value expected 1008 ;lenSrchPattern ->16 InString - JJ: 1009 ; clocks: 712 InString - Lingo: 1008 ; clocks: 502 Search Test 4 - value expected 1008 ;lenSrchPattern ->16 InString - JJ: 1009 ; clocks: 6600 InString - Lingo: 1008 ; clocks: 1418 Search Test 5 - value expected 1008 ;lenSrchPattern ->16 InString - JJ: 1009 ; clocks: 5426 InString - Lingo: 1008 ; clocks: 1308 Search Test 6 - value expected 1008 ;lenSrchPattern ->16 InString - JJ: 1009 ; clocks: 629 InString - Lingo: 1008 ; clocks: 498 Search Test 7 - value expected 1009 ;lenSrchPattern ->14 InString - JJ: 1010 ; clocks: 625 InString - Lingo: 1009 ; clocks: 502 Search Test 8 - value expected 1001 ;lenSrchPattern ->1 InString - JJ: 0 ; clocks: 781 InString - Lingo: 1001 ; clocks: 102 Search Test 9 - value expected 1001 ;lenSrchPattern ->2 InString - JJ: 1002 ; clocks: 611 InString - Lingo: 1001 ; clocks: 512 Search Test 10 - value expected 1001 ;lenSrchPattern ->3 InString - JJ: 1002 ; clocks: 625 InString - Lingo: 1001 ; clocks: 435 Search Test 11 - value expected 1001 ;lenSrchPattern ->4 InString - JJ: 1002 ; clocks: 635 InString - Lingo: 1001 ; clocks: 496 Search Test 12 - value expected 1001 ;lenSrchPattern ->5 InString - JJ: 1002 ; clocks: 795 InString - Lingo: 1001 ; clocks: 638 Search Test 13 --Find 'Duplicate inc' in 'windows.inc' ;lenSrchPattern ->13 InString - JJ: 1127625 ; clocks: 679836 InString - Lingo: 1127624 ; clocks: 543385 Press ENTER to exit... ----- RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube
RUNaum Ранг: 25.1 (посетитель) Активность: 0.01↘0 Статус: Участник	Создано: 12 октября 2009 21:51 · Личное сообщение · #8 FastProject ;)
SLV Ранг: 309.8 (мудрец), 21thx Активность: 0.17↘0 Статус: Участник	Создано: 12 октября 2009 22:18 · Личное сообщение · #9 ntdll!strstr shlwapi!StrStrIA shlwapi!StrStrIW ----- Shalom ebanats!

Для печати