c4hspで作ったstrlen的な処理が標準命令より早い | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
/*// c4hsp で使ったCのソースコード
int func(unsigned char *str) {
    unsigned char *p = str;
    while ( *( p++ ) );
    return (p - str -1);
}
#define OPT maximum // disable, small, fast, maximum (不使用, 最小化, 速度, 最大限の最適化)
#define LINE 8
#define VECTORTYPE ()
#define MODULE mod_strlen2
#define FUNC strlen2
*/
// c4hsp で出力した機械語モジュール
#ifndef strlen2
#module mod_strlen2
#uselib "kernel32.dll"
#func VirtualAllocmod_strlen2 "VirtualAlloc" int, int, int, int
#func VirtualFreemod_strlen2 "VirtualFree" int, int, int
#define NULL                   0x00000000
#define PAGE_EXECUTE_READWRITE 0x00000040
#define MEM_COMMIT             0x00001000
#define MEM_RESERVE            0x00002000
#define MEM_DECOMMIT           0x00004000
#define MEM_RELEASE            0x00008000
#deffunc mod_strlen2_destructor onexit
    if(NULL != strlen2_ptr) {
        VirtualFreemod_strlen2 strlen2_ptr, 20, MEM_DECOMMIT
        VirtualFreemod_strlen2 strlen2_ptr, 0, MEM_RELEASE
        strlen2_ptr = NULL
    }
    return
#deffunc mod_strlen2_constructor
    mod_strlen2_destructor
    VirtualAllocmod_strlen2 NULL, 20, MEM_RESERVE, PAGE_EXECUTE_READWRITE
    VirtualAllocmod_strlen2 stat, 20, MEM_COMMIT, PAGE_EXECUTE_READWRITE
    strlen2_ptr    = stat
    dupptr strlen2_bin, stat, 20, vartype("int")
    strlen2_bin(0) = $04244C8B, $108AC18B, $75D28440, $48C12BF9, $000000C3
    return
// マクロだったのを関数化した
#defcfunc strlen2 var s
    prm@mod_strlen2 = varptr(s)
    return callfunc(prm@mod_strlen2, strlen2_ptr@mod_strlen2, 1)
#global
mod_strlen2_constructor
#endif
#include "winmm.as"
    // 適当にテキスト作成
    mes "文字列作成中...\n"
    size = 1024 * 1024 * 100    ; 100MB
    sdim a, size + 1
    memset a, 'a', size
    // 計測
    max = 10    ; 10 回繰り返す。size * max で 1000MB相当
    mes "strlen 計測中..."
    timeGetTime :time1 = stat
    repeat max
        l1 = strlen(a)
    loop
    timeGetTime :mes "所要時間：" + (stat - time1) + "ms" + ", 取得値：" + l1 + "byte"
    mes "strlen2 計測中..."
    timeGetTime :time1 = stat
    repeat max
        l2 = strlen2(a)
    loop
    timeGetTime :mes "所要時間：" + (stat - time1) + "ms" + ", 取得値：" + l2 + "byte"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX