Merge pull request #8108 from LemonBoy/fix-5958 - Nim - This repository contains the Nim compiler, Nim's stdlib, tools, and documentation. (mirror)

diff options

author	Andreas Rumpf <rumpf_a@web.de>	2018-06-26 23:16:40 +0200
committer	GitHub <noreply@github.com>	2018-06-26 23:16:40 +0200
commit	ccb15148370f78768c6a5655f2b09d8ab9e85768 (patch)
tree	c50eff36ca3b315024ff43fc2f0741e414cc2e52 /tests/vm/tvmmisc.nim
parent	bf5de98c6a68c73fb9a5e638b3877e5ef4674791 (diff)
parent	f559e62e45b4be227d494e75fe82f571ee410840 (diff)
download	Nim-ccb15148370f78768c6a5655f2b09d8ab9e85768.tar.gz

Merge pull request #8108 from LemonBoy/fix-5958

Make `static` blocks introduce their own scope

Diffstat (limited to 'tests/vm/tvmmisc.nim')

-rw-r--r--

tests/vm/tvmmisc.nim

1 files changed, 2 insertions, 2 deletions

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - 411string.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal-light"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/411string.mu'>https://github.com/akkartik/mu/blob/main/411string.mu</a> <pre id='vimCodeElement'> 1 # read up to 'len' graphemes after skipping the first 'start' ones 2 fn <a href='411string.mu.html#L2'>substring</a> in: (addr array byte), start: int, len: int, out-ah: (addr handle array byte) { 3 var in-stream: (stream byte 0x100) 4 var in-stream-addr/esi: (addr stream byte) <- address in-stream 5 <a href='108write.subx.html#L24'>write</a> in-stream-addr, in 6 var out-stream: (stream byte 0x100) 7 var out-stream-addr/edi: (addr stream byte) <- address out-stream 8 $substring:core: { 9 # skip 'start' graphemes 10 var i/eax: int <- copy 0 11 { 12 compare i, start 13 break-if->= 14 { 15 var dummy/eax: grapheme <- <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr 16 compare dummy, 0xffffffff # end-of-file 17 break-if-= $substring:core 18 } 19 i <- increment 20 loop 21 } 22 # copy 'len' graphemes 23 i <- copy 0 24 { 25 compare i, len 26 break-if->= 27 { 28 var g/eax: grapheme <- <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr 29 compare g, 0xffffffff # end-of-file 30 break-if-= $substring:core 31 <a href='403unicode.mu.html#L379'>write-grapheme</a> out-stream-addr, g 32 } 33 i <- increment 34 loop 35 } 36 } 37 <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> out-stream-addr, out-ah 38 } 39 40 fn <a href='411string.mu.html#L40'>test-substring</a> { 41 var out-h: (handle array byte) 42 var out-ah/edi: (addr handle array byte) <- address out-h 43 # prefix substrings 44 <a href='411string.mu.html#L2'>substring</a> 0, 0, 3, out-ah 45 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 46 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "", "F - <a href='411string.mu.html#L40'>test-substring</a>/null" 47 <a href='411string.mu.html#L2'>substring</a> "", 0, 3, out-ah 48 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 49 #? print-string-to-real-screen out 50 #? print-string-to-real-screen "\n" 51 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "", "F - <a href='411string.mu.html#L40'>test-substring</a>/empty" 52 # 53 <a href='411string.mu.html#L2'>substring</a> "abcde", 0, 3, out-ah 54 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 55 #? print-string-to-real-screen out 56 #? print-string-to-real-screen "\n" 57 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "abc", "F - <a href='411string.mu.html#L40'>test-substring</a>/truncate" 58 # 59 <a href='411string.mu.html#L2'>substring</a> "abcde", 0, 5, out-ah 60 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 61 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "abcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/all" 62 # 63 <a href='411string.mu.html#L2'>substring</a> "abcde", 0, 7, out-ah 64 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 65 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "abcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/too-small" 66 # substrings outside string 67 <a href='411string.mu.html#L2'>substring</a> "abcde", 6, 1, out-ah 68 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 69 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "", "F - <a href='411string.mu.html#L40'>test-substring</a>/start-too-large" 70 # trim prefix 71 <a href='411string.mu.html#L2'>substring</a> "", 2, 3, out-ah 72 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 73 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-empty" 74 # 75 <a href='411string.mu.html#L2'>substring</a> "abcde", 1, 2, out-ah 76 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 77 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "bc", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-truncate" 78 # 79 <a href='411string.mu.html#L2'>substring</a> "abcde", 1, 4, out-ah 80 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 81 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "bcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-all" 82 # 83 <a href='411string.mu.html#L2'>substring</a> "abcde", 1, 5, out-ah 84 var out/eax: (addr array byte) <- <a href='120allocate.subx.html#L256'>lookup</a> *out-ah 85 <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, "bcde", "F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small" 86 } 87 88 fn <a href='411string.mu.html#L88'>split-string</a> in: (addr array byte), delim: grapheme, out: (addr handle array (handle array byte)) { 89 var in-stream: (stream byte 0x100) 90 var in-stream-addr/esi: (addr stream byte) <- address in-stream 91 <a href='108write.subx.html#L24'>write</a> in-stream-addr, in 92 var tokens-stream: (stream (handle array byte) 0x100) 93 var tokens-stream-addr/edi: (addr stream (handle array byte)) <- address tokens-stream 94 var curr-stream: (stream byte 0x100) 95 var curr-stream-addr/ecx: (addr stream byte) <- address curr-stream 96 $split-string:core: { 97 var g/eax: grapheme <- <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr 98 compare g, 0xffffffff 99 break-if-= 100 #? print-grapheme-to-real-screen g 101 #? print-string-to-real-screen "\n" 102 compare g, delim 103 { 104 break-if-!= 105 # token complete; flush 106 var token: (handle array byte) 107 var token-ah/eax: (addr handle array byte) <- address token 108 <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream-addr, token-ah 109 <a href='309stream.subx.html#L54'>write-to-stream</a> tokens-stream-addr, token-ah 110 <a href='106stream.subx.html#L17'>clear-stream</a> curr-stream-addr 111 loop $split-string:core 112 } 113 <a href='403unicode.mu.html#L379'>write-grapheme</a> curr-stream-addr, g 114 loop 115 } 116 <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> tokens-stream-addr, out 117 } 118 119 fn <a href='411string.mu.html#L119'>test-split-string</a> { 120 var out-h: (handle array (handle array byte)) 121 var out-ah/edi: (addr handle array (handle array byte)) <- address out-h 122 # prefix substrings 123 <a href='411string.mu.html#L88'>split-string</a> "bab", 0x61, out-ah 124 # no crash 125 } </pre> </body> </html>


context:
space:
mode: