diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b2fc0ebd18..b13d1dbf2f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +19990526-22:53 Les Griffith + * added Bil Simser's gtapi.h to include + and the c files to source\rtl + * added to doc Bil's documentation re gtapi + 19990526-20:45 EST David G. Holm * ChangeLog - Removed excess whitespace from previous ChangeLog entry diff --git a/harbour/obj/symbols.obj b/harbour/obj/symbols.obj index e922fdf2ef..7fb9362bc2 100644 Binary files a/harbour/obj/symbols.obj and b/harbour/obj/symbols.obj differ diff --git a/harbour/tests/working/passref.prg b/harbour/tests/working/passref.prg index 8bee5842bf..715392cdfd 100644 --- a/harbour/tests/working/passref.prg +++ b/harbour/tests/working/passref.prg @@ -2,16 +2,22 @@ function main local a := 10 +local b := "X" qout('a := 10',a) -testfun(@a) -qout('return of reference should = 20',a,iif(a == 20,"worked","failed")) +qout('b := "X"',b) + +testfun(@a, @b) +qout('return of "a" should = 20',a,iif(a == 20,"worked","failed")) +qout('return of "b" should = A',b,iif(b == "A","worked","failed")) return nil -function testfun(b) +function testfun(b,c) b := b + 10 -qout('pointer+10 =',b) +c := "A" +qout('a pointer+10 =',b) +qout('b pointer := "A" =',c) return nil