[Win32forth-cvs] win32forth/src/lib ADO.f,1.2,1.3

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7247/win32forth/src/lib

Modified Files:
	ADO.f 
Log Message:
gah:Modified EOF: and BOF: to use sw@ since (at least on W98) they are 16-bit values

Index: ADO.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ADO.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ADO.f	19 Aug 2006 02:46:50 -0000	1.2
--- ADO.f	21 Aug 2006 15:02:23 -0000	1.3
***************
*** 329,337 ****
  :M EOF: ( -- flag )
  \ *G Flag that indicates if the current record position is after the last record.
!         xtra rec COM _Recordset GetEOF drop xtra @ ;M
  
  :M BOF: ( -- flag )
  \ *G Flag that indicates if the current record position is before the first record.
!         xtra rec COM _Recordset GetBOF drop xtra @ ;M
  
  :M FieldCnt: ( -- n )
--- 329,337 ----
  :M EOF: ( -- flag )
  \ *G Flag that indicates if the current record position is after the last record.
!         xtra rec COM _Recordset GetEOF drop xtra sw@ ;M
  
  :M BOF: ( -- flag )
  \ *G Flag that indicates if the current record position is before the first record.
!         xtra rec COM _Recordset GetBOF drop xtra sw@ ;M
  
  :M FieldCnt: ( -- n )