From d7d9f2bee5f73dc5405363b62034a5b9da6c2614 Mon Sep 17 00:00:00 2001
From: Ryszard Glab <rglab@imid.med.pl>
Date: Sun, 30 Apr 2000 11:44:51 +0000
Subject: [PATCH] ChangeLog 20000430-13:50 GMT+1

---
 harbour/ChangeLog                 | 8 ++++++++
 harbour/source/compiler/harbour.c | 2 +-
 harbour/source/compiler/hbpcode.c | 2 +-
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 56f48aeb8a..43fd39122a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+20000430-13:50 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/compiler/harbour.c
+	*fixed possible memory reallocation error in hb_compNOOPadd()
+	
+    *source/compiler/hbpcode.c
+	*fixed pVar -> pSym
+
 20000430 04:10 GMT-3 Luiz Rafael Culik <culik@sl.conex.net>
 *contrib/libgt/doc/gendoc.bat
  contrib/libgt/doc/gendoc.cmd
diff --git a/harbour/source/compiler/harbour.c b/harbour/source/compiler/harbour.c
index 259083eb56..51a8254786 100644
--- a/harbour/source/compiler/harbour.c
+++ b/harbour/source/compiler/harbour.c
@@ -1312,7 +1312,7 @@ void hb_compNOOPadd( PFUNCTION pFunc, ULONG ulPos )
 {
    pFunc->iNOOPs++;
 
-   if( hb_comp_functions.pLast->pNOOPs )
+   if( pFunc->pNOOPs )
    {
       pFunc->pNOOPs = ( ULONG * ) hb_xrealloc( pFunc->pNOOPs, sizeof( ULONG ) * pFunc->iNOOPs );
       pFunc->pNOOPs[ pFunc->iNOOPs - 1 ] = ulPos;
diff --git a/harbour/source/compiler/hbpcode.c b/harbour/source/compiler/hbpcode.c
index c13723763b..5bc8b53b15 100644
--- a/harbour/source/compiler/hbpcode.c
+++ b/harbour/source/compiler/hbpcode.c
@@ -439,7 +439,7 @@ void hb_compStrongType( int iSize )
 
        pSym = hb_compSymbolGetPos( pFunc->pCode[ ulPos + 1 ] + pFunc->pCode[ ulPos + 2 ] * 256 );
 
-       if ( pVar )
+       if ( pSym )
           pFunc->pStack[ pFunc->iStackIndex++ ] = pSym->cType;
        else
           pFunc->pStack[ pFunc->iStackIndex++ ] = ' ';