ChangeLog 20000502-17:15 GMT+1

harbour/ChangeLog

@@ -1,3 +1,17 @@
+20000502-17:15 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *makefile.bc
+    *source/rtl/Makefile
+    *source/vm/Makefile
+    -source/rtl/eval.c
+    +source/vm/eval.c
+	* fixed bug in EVAL function when a parameter was passed using
+	the reference
+	* since the EVAL function is using a direct stack access instead
+	of hb_param() function the file eval.c is now moved into 
+	VM directory
+	
+
 20000502-16:22 GMT+1 Ryszard Glab <rglab@imid.med.pl>
 
     *source/compiler/harbour.l

harbour/makefile.bc

@@ -817,6 +817,10 @@ $(OBJ_DIR)\dynsym.obj : $(VM_DIR)\dynsym.c
    $(CC) $(CLIBFLAGS) -o$@ $**
    tlib $(VM_LIB) $(ARFLAGS) -+$@,,
 
+$(OBJ_DIR)\eval.obj : $(VM_DIR)\eval.c
+   $(CC) $(CLIBFLAGS) -o$@ $**
+   tlib $(VM_LIB) $(ARFLAGS) -+$@,,
+
 $(OBJ_DIR)\extend.obj : $(VM_DIR)\extend.c
    $(CC) $(CLIBFLAGS) -o$@ $**
    tlib $(VM_LIB) $(ARFLAGS) -+$@,,
@@ -1077,10 +1081,6 @@ $(OBJ_DIR)\errorsys.obj : $(OBJ_DIR)\errorsys.c
    $(CC) $(CLIBFLAGS) -o$@ $**
    tlib $(RTL_LIB) $(ARFLAGS) -+$@,,
 
-$(OBJ_DIR)\eval.obj : $(RTL_DIR)\eval.c
-   $(CC) $(CLIBFLAGS) -o$@ $**
-   tlib $(RTL_LIB) $(ARFLAGS) -+$@,,
-
 $(OBJ_DIR)\fieldbl.c : $(RTL_DIR)\fieldbl.prg
    $(HARBOUR_EXE) $(HARBOURFLAGS) $** -o$@
 

harbour/source/rtl/Makefile

@@ -28,7 +28,6 @@ C_SOURCES=\
 	do.c         \
 	empty.c      \
 	errorapi.c   \
-	eval.c       \
 	filesys.c    \
 	fkmax.c      \
 	fnsplit.c    \

harbour/source/vm/Makefile

@@ -14,6 +14,7 @@ C_SOURCES=\
 	debug.c      \
 	dynsym.c     \
 	codebloc.c   \
+	eval.c       \
 	extend.c     \
 	fm.c         \
 	hvm.c        \

harbour/source/vm/eval.c

@@ -49,8 +49,12 @@ HB_FUNC( EVAL )
 
       hb_vmPushSymbol( &hb_symEval );
       hb_vmPush( pItem );
+      /* NOTE: hb_param(0 function cannot be used for parameter access
+       * because we need to pass the references too.
+       * hb_param() is dereferencing the passed parameters
+      */
       for( uiParam = 2; uiParam <= uiPCount; uiParam++ )
-         hb_vmPush( hb_param( uiParam, HB_IT_ANY ) );
+	hb_vmPush( hb_stack.pBase + 1 + uiParam );
       hb_vmDo( uiPCount - 1 );
    }
    else