rdd: mark dbAppend() C53 and Harbour extensions as such

vszakats · Jan 23, 2025 · 30d16b7 · 30d16b7
1 parent 83173b8
commit 30d16b7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/rdd/dbcmd.c b/src/rdd/dbcmd.c
@@ -267,13 +267,17 @@ HB_FUNC( DBAPPEND )
 
    if( pArea )
    {
+#if defined( HB_COMPAT_C53 ) && defined( HB_CLP_STRICT )
       HB_BOOL bUnLockAll = hb_parldef( 1, HB_TRUE );
+#else
+      HB_BOOL bUnLockAll = HB_TRUE;
+#endif
       HB_ERRCODE errCode;
 
       /* Clipper clears NETERR flag before APPEND */
       hb_rddSetNetErr( HB_FALSE );
       errCode = SELF_APPEND( pArea, bUnLockAll );
-      hb_retl( errCode == HB_SUCCESS );
+      hb_retl( errCode == HB_SUCCESS );  /* HB_EXTENSION */
    }
    else
       hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, HB_ERR_FUNCNAME );