fix: address pointer increment bug

kgryte · kgryte · commit 7be4df1ff62f · 2025-05-22T01:32:29.000-07:00
---
type: pre_commit_static_analysis_report
description: Results of running static analysis checks when committing changes.
report:
  - task: lint_filenames
    status: passed
  - task: lint_editorconfig
    status: passed
  - task: lint_markdown
    status: na
  - task: lint_package_json
    status: na
  - task: lint_repl_help
    status: na
  - task: lint_javascript_src
    status: passed
  - task: lint_javascript_cli
    status: na
  - task: lint_javascript_examples
    status: na
  - task: lint_javascript_tests
    status: na
  - task: lint_javascript_benchmarks
    status: na
  - task: lint_python
    status: na
  - task: lint_r
    status: na
  - task: lint_c_src
    status: na
  - task: lint_c_examples
    status: na
  - task: lint_c_benchmarks
    status: na
  - task: lint_c_tests_fixtures
    status: na
  - task: lint_shell
    status: na
  - task: lint_typescript_declarations
    status: na
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---
diff --git a/lib/node_modules/@stdlib/blas/ext/base/gsumkbn2/lib/accessors.js b/lib/node_modules/@stdlib/blas/ext/base/gsumkbn2/lib/accessors.js
@@ -79,6 +79,7 @@ function gsumkbn2( N, x, strideX, offsetX ) {
 		return N * get( xbuf, ix );
 	}
 	v = get( xbuf, ix );
+	ix += strideX;
 	sum = v;
 
 	// In order to preserve the sign of zero which can be lost during compensated summation below, find the first non-zero element...
@@ -94,7 +95,6 @@ function gsumkbn2( N, x, strideX, offsetX ) {
 		}
 	} else {
 		flg = true;
-		ix += strideX;
 		i = 1;
 	}
 	ccs = 0.0; // second order correction term for lost low order bits
diff --git a/lib/node_modules/@stdlib/blas/ext/base/gsumkbn2/lib/ndarray.js b/lib/node_modules/@stdlib/blas/ext/base/gsumkbn2/lib/ndarray.js
@@ -75,6 +75,7 @@ function gsumkbn2( N, x, strideX, offsetX ) {
 		return N * x[ ix ];
 	}
 	v = x[ ix ];
+	ix += strideX;
 	sum = v;
 
 	// In order to preserve the sign of zero which can be lost during compensated summation below, find the first non-zero element...
@@ -90,7 +91,6 @@ function gsumkbn2( N, x, strideX, offsetX ) {
 		}
 	} else {
 		flg = true;
-		ix += strideX;
 		i = 1;
 	}
 	ccs = 0.0; // second order correction term for lost low order bits

Original file line number	Diff line number	Diff line change
`@@ -79,6 +79,7 @@ function gsumkbn2( N, x, strideX, offsetX ) {`
`79`	`79`	`return N * get( xbuf, ix );`
`80`	`80`	`}`
`81`	`81`	`v = get( xbuf, ix );`
	`82`	`+ ix += strideX;`
`82`	`83`	`sum = v;`
`83`	`84`
`84`	`85`	`// In order to preserve the sign of zero which can be lost during compensated summation below, find the first non-zero element...`
`@@ -94,7 +95,6 @@ function gsumkbn2( N, x, strideX, offsetX ) {`
`94`	`95`	`}`
`95`	`96`	`} else {`
`96`	`97`	`flg = true;`
`97`		`- ix += strideX;`
`98`	`98`	`i = 1;`
`99`	`99`	`}`
`100`	`100`	`ccs = 0.0; // second order correction term for lost low order bits`
Original file line number	Diff line number	Diff line change
`@@ -75,6 +75,7 @@ function gsumkbn2( N, x, strideX, offsetX ) {`
`75`	`75`	`return N * x[ ix ];`
`76`	`76`	`}`
`77`	`77`	`v = x[ ix ];`
	`78`	`+ ix += strideX;`
`78`	`79`	`sum = v;`
`79`	`80`
`80`	`81`	`// In order to preserve the sign of zero which can be lost during compensated summation below, find the first non-zero element...`
`@@ -90,7 +91,6 @@ function gsumkbn2( N, x, strideX, offsetX ) {`
`90`	`91`	`}`
`91`	`92`	`} else {`
`92`	`93`	`flg = true;`
`93`		`- ix += strideX;`
`94`	`94`	`i = 1;`
`95`	`95`	`}`
`96`	`96`	`ccs = 0.0; // second order correction term for lost low order bits`