From 3aa92d7d362d1923efeec00ef73d15bc2286310e Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 5 May 2000 17:55:43 +0000
Subject: [PATCH] 20000505-19:56 GMT+1

---
 harbour/source/compiler/genobj32.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/harbour/source/compiler/genobj32.c b/harbour/source/compiler/genobj32.c
index 951718ae80..7a4ada6ae0 100644
--- a/harbour/source/compiler/genobj32.c
+++ b/harbour/source/compiler/genobj32.c
@@ -525,10 +525,10 @@ static void DataSegment( FILE * hObjFile, BYTE * symbol, ULONG wSymLen, ULONG wS
         {
           ulFunctionOffset = ( hb_compFunctionGetPos( pSymbol->szName ) - 1 ) *
             sizeof( prgFunction );
-          * ( ( ULONG * ) &symbol[ 5 ] ) = ulFunctionOffset;
+          * ( ( ULONG * ) &symbol[ 8 ] ) = ulFunctionOffset; /* 8 offset of function pointer into symbol */
         }
       else
-        * ( ( ULONG * ) &symbol[ 5 ] ) = 0;
+        * ( ( ULONG * ) &symbol[ 8 ] ) = 0; /* 8 offset of function pointer into symbol */
 
       if( pSymbol->cScope == HB_FS_MESSAGE )
         symbol[ 4 ] = HB_FS_PUBLIC;