23be942b6a
[BENCHMARKS] * NEW: Little meaningless changes. [INTERPRETER] * NEW: JIT: Support for FOR EACH loops. * BUG: JIT: Handle function values that are put on stack before calling them. [COMPILER] * NEW: JIT: Optimization of mathematic functions. * NEW: JIT: Support for FOR EACH loops. * NEW: JIT: Remove successive POP_x() / PUSH_x(). * NEW: JIT: Optimization of DIV and MOD. * NEW: JIT: Support of internal control local variables used by SELECT and FOR EACH. * NEW: JIT: Support for SWAP. [GB.JIT] * NEW: Optimization of mathematic functions. * NEW: Variants management. * NEW: All conversions are handled now. * NEW: FOR EACH loops are implemented.
21 lines
365 B
Text
Executable file
21 lines
365 B
Text
Executable file
#!/usr/bin/env gbs3
|
|
|
|
Dim S As String = "abcdefgh" & "efghefgh"
|
|
Dim M As Integer = (1024 \ Len(S)) * 512
|
|
Dim G As String
|
|
Dim I As Integer
|
|
Dim L As Integer
|
|
Dim F As Float = Timer
|
|
|
|
While I < M + 1000
|
|
|
|
Inc I
|
|
G &= S
|
|
G = Replace(G, "efgh", "____")
|
|
L = Len(G)
|
|
If L Mod (1024*64) = 0 Then
|
|
Print CInt(Timer - F);"sec\t\t";L \ 1024;"kb"
|
|
Flush
|
|
Endif
|
|
|
|
Wend
|