22 lines
377 B
SourcePawn
22 lines
377 B
SourcePawn
simple test for names = ft_getpnames() versus free_pnode(names)
|
|
* altermod
|
|
|
|
R1 1 0 RE
|
|
V1 1 0 1
|
|
|
|
.model RE r r=1
|
|
|
|
.control
|
|
op
|
|
print all
|
|
define gauss(nom, var, sig) (nom + (nom*var)/sig * sgauss(0))
|
|
altermod r1 R = (1 + (1 * 2) / 3 * sgauss(0)) ; no leak
|
|
* altermod @r1[r] = gauss(1,2,3) ; leak
|
|
* altermod r1 r = gauss(1,2,3) ; leak
|
|
op
|
|
print all
|
|
quit
|
|
.endc
|
|
|
|
.end
|