Remove more usages of unary lt (fixes #6634) (#6641)

* fixes #6634

* remove more usages of unary <
This commit is contained in:
Fabian Keller 2017-10-31 19:48:01 +01:00 • committed by Andreas Rumpf
commit 7c03c882f5
6 changed files with 7 additions and 7 deletions

View file

@ -339,7 +339,7 @@ proc makeNotType*(c: PContext, t1: PType): PType =
proc nMinusOne*(n: PNode): PNode = proc nMinusOne*(n: PNode): PNode =
result = newNode(nkCall, n.info, @[ result = newNode(nkCall, n.info, @[
newSymNode(getSysMagic("<", mUnaryLt)), newSymNode(getSysMagic("pred", mPred)),
n]) n])
# Remember to fix the procs below this one when you make changes! # Remember to fix the procs below this one when you make changes!

View file

@ -261,7 +261,7 @@ proc genericHash(dest: pointer, mt: PNimType): int =
proc dbgRegisterWatchpoint(address: pointer, name: cstring, proc dbgRegisterWatchpoint(address: pointer, name: cstring,
typ: PNimType) {.compilerproc.} = typ: PNimType) {.compilerproc.} =
let L = watchPointsLen let L = watchPointsLen
for i in 0.. <L: for i in 0 .. pred(L):
if watchPoints[i].name == name: if watchPoints[i].name == name:
# address may have changed: # address may have changed:
watchPoints[i].address = address watchPoints[i].address = address
@ -288,7 +288,7 @@ var
proc checkWatchpoints = proc checkWatchpoints =
let L = watchPointsLen let L = watchPointsLen
for i in 0.. <L: for i in 0 .. pred(L):
let newHash = genericHash(watchPoints[i].address, watchPoints[i].typ) let newHash = genericHash(watchPoints[i].address, watchPoints[i].typ)
if newHash != watchPoints[i].oldValue: if newHash != watchPoints[i].oldValue:
dbgWatchpointHook(watchPoints[i].name) dbgWatchpointHook(watchPoints[i].name)

View file

@ -48,7 +48,7 @@ proc reprStrAux(result: var string, s: cstring; len: int) =
add result, "nil" add result, "nil"
return return
add result, reprPointer(cast[pointer](s)) & "\"" add result, reprPointer(cast[pointer](s)) & "\""
for i in 0.. <len: for i in 0 .. pred(len):
let c = s[i] let c = s[i]
case c case c
of '"': add result, "\\\"" of '"': add result, "\\\""