MMX, SSE и т.д. в VB

[Vovik]

Собсно, это реально на VB?

[tyomitch]

Что конкретно нужно?

[jangle]

Собсно, это реально на VB?

Странный вопрос, если вспомнить, что в VB нет инлайн асма. Можно использовать прошивку в код VB скомпилированных асмовых бинарников внешним компилятором. Тогда надо спрашивать, реально ли MMX/SSE например в MASM? Ответ да реально. Но очень не удобно, все это отлаживать в VB проекте.
Кстати, можно использовать компилятор PB 8 версии (написать DLL и подключить к твоему проекту), PB знает инструкции MMX. SSE - к сожалению нет, поэтому надо извращатся через !db, и писать макросы, например:

pavgb mm0,mm1 => !db &h0f, &he0, &hc1 'будет иметь такой вид

Криво конечно, но намного удобнее чем секс с прошивкой асмовых бинарников в VB код.

[keks-n]

Можно не извращаться и написать DLL на асме(можно на VC). А с подобными извращениями можно и в VB асм-код встроить без DLL вообще.

[Vovik]

Что конкретно нужно?

Чисто средствами VB проверить на поддержку MMX, SSE ну и соответственно заменить CopyMem..

[tyomitch]

Чисто средствами VB не удастся.
Чисто проверить можно вызовом CPUID, например подобным этому способом. Там используется API CallWindowProc.

[jangle]

Чисто средствами VB проверить на поддержку MMX, SSE ну и соответственно заменить CopyMem..

Никак. Хотя если в VB был асм, проверку устроить как два пальца об асфальт, очень просто. А так, х.з. как надо извращаться.

Если нужно, код проверки на асме:

Код: Выделить всё

#Compile Exe
#Dim All

Function CPU (ByVal TI As Long) As Long
    #Register None
    Local L As Long
    ! pushad
    ! pushfd
    ! mov eax, 1
    ! cpuid
    ! mov L, edx
    ! popfd
    ! popad
    L = IsTrue(Bit(L,  TI) = 1)
    Function =  L
End Function

Function PBMain () As Long
  If CPU(23)<0 Then MsgBox "Поддерживатеся MMX"
  If CPU(25)<0 Then MsgBox "Поддерживатеся SSE"
  If CPU(26)<0 Then MsgBox "Поддерживатеся SSE2"
  If CPU(0)<0 Then MsgBox  "Поддерживатеся SSE3"
  If CPU(28)<0 Then MsgBox "Поддерживатеся Hyper Threading Technology"
  If CPU(30)<0 Then MsgBox "Поддерживатеся 3DNow extensions"
  If CPU(31)<0 Then MsgBox "Поддерживатеся 3DNow"
  If CPU(7)<0 Then MsgBox  "Поддерживатеся Speed Step Technology"
  If CPU(29)<0 Then MsgBox "Поддерживатеся Thermal Monitor V1"
  If CPU(8)<0 Then MsgBox  "Поддерживатеся Thermal Monitor V2"
End Function
                 

[Vovik]

А что скажите про это?

[tyomitch]

Что это не чистый VB, ессно.
Там для вызова асмовских вставок перезаписывают VTbl класса.
Ничем не лучше и не проще, чем с CallWindowProc.

[Vovik]

Что это не чистый VB, ессно.
Там для вызова асмовских вставок перезаписывают VTbl класса.
Ничем не лучше и не проще, чем с CallWindowProc.

Темыч, если тебе не сложно, не мог бы ты наваять примерчик...

[tyomitch]

Вот перевод для кода от jangle, которому как два пальца.

Код: Выделить всё

Option Explicit

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (lpfn As Any, ByVal param) As Long

Function Cpuid1() As Long
Cpuid1 = CallWindowProc(ByVal "j" + Chr$(1) + "XS" + Chr$(15) + Chr$(162) + "[" + Chr$(146) + Chr$(194) + Chr$(16), Null)
End Function

Sub Main()
  If Cpuid1 And 2 ^ 23 Then MsgBox "Поддерживатеся MMX"
  If Cpuid1 And 2 ^ 25 Then MsgBox "Поддерживатеся SSE"
  If Cpuid1 And 2 ^ 26 Then MsgBox "Поддерживатеся SSE2"
  If Cpuid1 And 2 ^ 0 Then MsgBox "Поддерживатеся SSE3"
  If Cpuid1 And 2 ^ 28 Then MsgBox "Поддерживатеся Hyper Threading Technology"
  If Cpuid1 And 2 ^ 30 Then MsgBox "Поддерживатеся 3DNow extensions"
  If Cpuid1 < 0 Then MsgBox "Поддерживатеся 3DNow"
  If Cpuid1 And 2 ^ 7 Then MsgBox "Поддерживатеся Speed Step Technology"
  If Cpuid1 And 2 ^ 29 Then MsgBox "Поддерживатеся Thermal Monitor V1"
  If Cpuid1 And 2 ^ 8 Then MsgBox "Поддерживатеся Thermal Monitor V2"
End Sub


[Vovik]

Простите, но я не совсем понимаю, как копировать данные с помощью mmx, sse - если держит? Кстати, прога не показывает поддержку 3DNow и напротив, показывает, что мой проц держит SSE3, хотя EVEREST говорит обратное...

[tyomitch]

Кстати, прога не показывает поддержку 3DNow и напротив, показывает, что мой проц держит SSE3, хотя EVEREST говорит обратное...

Ну откуда я знаю, может у них в PB биты в обратном порядке нумеруются?
Пусть дальше jangle разбирается, которому как два пальца.

[jangle]

Кстати, прога не показывает поддержку 3DNow и напротив, показывает, что мой проц держит SSE3, хотя EVEREST говорит обратное...

Может биты перепутал, надо поднимать документацию по процам. MMX и SSE правильно отображаются?

Ну откуда я знаю, может у них в PB биты в обратном порядке нумеруются?
Пусть дальше jangle разбирается, которому как два пальца.

Нужно отключить автоматическое распределение регистров процессора директивой #Register None, без этого программа работает неправильно.

[Vovik]

MMX и SSE определяет правильно.... Народ, мне даже не важно смотреть, что там поддерживается... Покажите пож-ста пример, как копировать из одной переменной в другую с помощью SSE и MMX

[iGrok]

Тебе это так, для эксперимента? Или есть практическое применение?
MMX и SSE - они ведь только дают 64 / 128 битные регистры.. За счет этого копирование происходит немного быстрее, но это имеет смысл при большом объеме копируемых данных.
Мало того, все равно для их использования тебе придется писать процедурку на ассемблере, и встраивать в программу на vb.

Есть подозрение, что с практической точки зрения игра не стоит свеч.

[Vovik]

Тебе это так, для эксперимента? Или есть практическое применение?
MMX и SSE - они ведь только дают 64 / 128 битные регистры.. За счет этого копирование происходит немного быстрее, но это имеет смысл при большом объеме копируемых данных.
Мало того, все равно для их использования тебе придется писать процедурку на ассемблере, и встраивать в программу на vb.

Есть подозрение, что с практической точки зрения игра не стоит свеч.

А если это использовать в цикле, как думаешь, будет выигрышь (например, в игре)?

[Mikle]

Vovik

как копировать из одной переменной в другую с помощью SSE и MMX

MMX:

Код: Выделить всё

mov esi, Source
mov edi, Dest
mov ecx, CntOfQWords
lab0:
movq mm0, [esi]
movq [edi], mm0
add esi, 8
add edi, 8
loop lab0


Но сомневаюсь, что это будет быстрее, чем обычный rep movsd. Ты не там ищешь потерю скорости.

Правка:
Source и Dest передаются ByRef, CntOfQWords - ByVal.

[Vovik]

Спасибо Майкл за код, я уже решил не заморачиваться...

Но сомневаюсь, что это будет быстрее, чем обычный rep movsd. Ты не там ищешь потерю скорости.

Знаешь, я уже хватаюсь за все, что только можно.... Оптимизирую все, что могу... Вот и решил поэксперементировать с mmx, sse...

[iGrok]

А какой объем? Если ты пару гигов туда-сюда кидаешь - то будет быстрее..

[Vovik]

А какой объем? Если ты пару гигов туда-сюда кидаешь - то будет быстрее..

Все дело в том, что копирование данных происходит в цикле и, если, и копирование (допустим перекидывание из массива в массив) будет происходить быстрее, то время цикла уменьшится, что даст выигрыш в фпс.