From 4eb690edb36596fc2c61972de6985aa908ba8e2a Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 3 Apr 2000 19:22:13 +0000 Subject: [PATCH] 20000403-21:08 GMT+1 Victor Szakats --- harbour/source/rtl/readvar.prg | 5 +++-- harbour/source/tools/ctposupp.c | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/harbour/source/rtl/readvar.prg b/harbour/source/rtl/readvar.prg index 5519f7f741..131ef87d5e 100644 --- a/harbour/source/rtl/readvar.prg +++ b/harbour/source/rtl/readvar.prg @@ -33,12 +33,13 @@ * */ -FUNCTION ReadVar( cNewVarName ) +FUNCTION ReadVar( cVarName ) STATIC s_cVarName := "" + LOCAL cOldVarName IF __GetListActive() != NIL - RETURN __GetListActive():ReadVar( cNewVarName ) + RETURN __GetListActive():ReadVar( cVarName ) ENDIF cOldVarName := s_cVarName diff --git a/harbour/source/tools/ctposupp.c b/harbour/source/tools/ctposupp.c index b486f634b2..93ef34c75c 100644 --- a/harbour/source/tools/ctposupp.c +++ b/harbour/source/tools/ctposupp.c @@ -39,7 +39,7 @@ HB_FUNC( CT_POSUPPER ) { - BYTE * pbyString = hb_parc( 1 ); + BYTE * pbyString = ( BYTE * ) hb_parc( 1 ); ULONG ulLen = hb_parclen( 1 ); ULONG ulPos;