support for --cs:partial
This commit is contained in:
parent
c11398ea0d
commit
367abca382
3 changed files with 14 additions and 2 deletions
|
|
@ -24,10 +24,13 @@ type
|
|||
s*: string
|
||||
next*: PIdent # for hash-table chaining
|
||||
h*: THash # hash value of s
|
||||
|
||||
|
||||
var firstCharIsCS*: bool
|
||||
var buckets*: array[0..4096 * 2 - 1, PIdent]
|
||||
|
||||
proc cmpIgnoreStyle(a, b: cstring, blen: int): int =
|
||||
if firstCharIsCS:
|
||||
if a[0] != b[0]: return 1
|
||||
var i = 0
|
||||
var j = 0
|
||||
result = 1
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue