fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20000403-21:08 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-04-03 19:22:13 +00:00
parent ff0b12babb
commit 4eb690edb3
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/source/rtl/readvar.prg
View File

@@ -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

2
harbour/source/tools/ctposupp.c
View File

@@ -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;