[JVCL-Checkins] dev/JVCL3/run JvInterpreter.pas,1.65,1.66 - Fixed Manis #2950: Bug in JvInterpreterVarAsType (JvInterpre

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6792/run

Modified Files:
	JvInterpreter.pas 
Log Message:
Fixed Manis #2950: Bug in JvInterpreterVarAsType (JvInterpreter)


Index: JvInterpreter.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvInterpreter.pas,v
retrieving revision 1.65
retrieving revision 1.66
diff -C2 -d -r1.65 -r1.66
*** JvInterpreter.pas	5 May 2005 20:11:06 -0000	1.65
--- JvInterpreter.pas	23 May 2005 20:06:46 -0000	1.66
***************
*** 2372,2382 ****
    else
    begin
      if TVarData(V).VType = varInteger then
!     begin
!       if (TVarData(V).VType = VarType) then
!         Result := Ord(V = True)
!       else
!         Result := Integer(V)
!     end
      else
      if TVarData(V).VType = varArray then
--- 2372,2380 ----
    else
    begin
+     if (TVarData(V).VType = varBoolean) and (VarType = varInteger) then
+       Result := Ord(V = True)
+     else
      if TVarData(V).VType = varInteger then
!       Result := Integer(V)
      else
      if TVarData(V).VType = varArray then