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 )
|
