tests/system/trealloc.nim


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

discard """
  output: '''success'''
"""

# bug #4818

# Test that this completes without OOM.

const BUFFER_SIZE = 5000
var buffer = cast[ptr uint16](alloc(BUFFER_SIZE))

var total_size: int64 = 0
for i in 0 .. 4000:
    let size = BUFFER_SIZE * i
    #echo "requesting ", size
    total_size += size.int64
    buffer = cast[ptr uint16](realloc(buffer, size))
    #echo totalSize, " total: ", getTotalMem(), " occupied: ", getOccupiedMem(), " free: ", getFreeMem()

dealloc(buffer)
echo "success"

class="p">: graph.config)
  rawMessage(graph.config, hintProcessing, s.name.s)

proc verboseProcess(context: PPassContext, n: PNode): PNode =
  result = n
  let v = VerboseRef(context)
  if v.config.verbosity == 3:
    # system.nim deactivates all hints, for verbosity:3 we want the processing
    # messages nonetheless, so we activate them again unconditionally:
    incl(v.config.notes, hintProcessing)
    message(v.config, n.info, hintProcessing, $idgen.gFrontendId)

const verbosePass* = makePass(open = verboseOpen, process = verboseProcess)