Files
Nim/tests/system/talloc.nim
jcosborn 8f4c5a8955 fixed #7894 (#8496)
make system tests run properly
2018-08-01 10:57:35 +02:00

61 lines
1.1 KiB
Nim

discard """
"""
var x: ptr int
x = cast[ptr int](alloc(7))
doAssert x != nil
x = cast[ptr int](x.realloc(2))
doAssert x != nil
x.dealloc()
x = createU(int, 3)
doAssert x != nil
x.dealloc()
x = create(int, 4)
doAssert cast[ptr array[4, int]](x)[0] == 0
doAssert cast[ptr array[4, int]](x)[1] == 0
doAssert cast[ptr array[4, int]](x)[2] == 0
doAssert cast[ptr array[4, int]](x)[3] == 0
x = x.resize(4)
doAssert x != nil
x.dealloc()
x = cast[ptr int](allocShared(100))
doAssert x != nil
deallocShared(x)
x = createSharedU(int, 3)
doAssert x != nil
x.deallocShared()
x = createShared(int, 3)
doAssert x != nil
doAssert cast[ptr array[3, int]](x)[0] == 0
doAssert cast[ptr array[3, int]](x)[1] == 0
doAssert cast[ptr array[3, int]](x)[2] == 0
doAssert x != nil
x = cast[ptr int](x.resizeShared(2))
doAssert x != nil
x.deallocShared()
x = create(int, 10)
doAssert x != nil
x = x.resize(12)
doAssert x != nil
x.dealloc()
x = createShared(int, 1)
doAssert x != nil
x = x.resizeShared(1)
doAssert x != nil
x.deallocShared()
x = cast[ptr int](alloc0(125 shl 23))
dealloc(x)
x = cast[ptr int](alloc0(126 shl 23))
dealloc(x)