FIX: Access Violation Error on 16 MB Windows NT System

MORE INFORMATION

Sample Code to Reproduce Problem

*-- Begin Code Example
SET ESCAPE OFF
SET TALK OFF
SET FULL ON
SET DELETED ON
SET EXCLUSIVE OFF
SET EXACT ON
SET MULTILOCKS ON

CLOSE DATA ALL

IF !FILE( 'mydbc.dbc' )
    CREATE DATABASE mydbc
    OPEN DATA mydbc EXCLUSIVE
    CREATE TABLE mytable (keyfld n(10) PRIMARY KEY)
    CLOSE DATA ALL
ENDIF

USE mytable
CALC MAX(keyfld) TO m.keyfld

IF CURSORSETPROP('buffering', 5 )
    ? 'table buffering enabled'

    FOR i = 1 TO 4000
        m.keyfld = m.keyfld + 1
            IF i % 100 = 0
                ? i, ' records added'
            ENDIF
            INSERT INTO mytable (keyfld) VALUES (m.keyfld)
    ENDFOR

    ? 'beginning transaction'
    BEGIN TRANSACTION
    ? 'transaction begun'

    IF TABLEUPDATE( .t. )
            ? 'table update succeeded'
    ELSE
            ? 'table update failed'
            =TABLEREVERT(.t.)
    ENDIF

    ? 'ending transaction'
    END TRANSACTION
    ? 'transaction ended'

ENDIF
WAIT WINDOW
CLOSE DATA ALL
*-- End Code Example