diff --git a/examples/cuda-fanout/gpu-worker.lsp b/examples/cuda-fanout/gpu-worker.lsp index 07b27c8..23fa1c3 100644 --- a/examples/cuda-fanout/gpu-worker.lsp +++ b/examples/cuda-fanout/gpu-worker.lsp @@ -35,12 +35,15 @@ ;; Override via env or per host. "./shake256-fanout") -;; demo_ops lives in the foxhop ecdsa repo and runs upstream-format +;; bend-cuda lives in the foxhop ecdsa repo and runs upstream-format ;; ops.bin against the CPU+GPU simulators, writing (cuda-sim-result …) ;; portals via --portal. No daemon mode: spawn-per-call. +;; BEND_CUDA env override > legacy DEMO_OPS env > default bend-cuda path +;; > legacy demo_ops symlink (still in place during the rename transition). (define *binary-demo-ops* - (or (get-environment-variable "DEMO_OPS") - "/home/fox/git/www.foxhop.net/ecdsa/cuda/demo_ops")) + (or (get-environment-variable "BEND_CUDA") + (get-environment-variable "DEMO_OPS") + "/home/fox/git/www.foxhop.net/ecdsa/cuda/bend-cuda")) ;; cgbn-batch-worker — bend form B. CGBN bignum batch over BSHK protocol; ;; daemon mode mirrors shake256-fanout.cu (process-bin ). @@ -198,7 +201,7 @@ ;;; -- op handler -- cuda-sim-ops-bin ----------------------------- ;;; ;;; Request: (cuda-sim-ops-bin ) -;;; Spawns demo_ops --portal , drains its +;;; Spawns bend-cuda --portal , drains its ;;; stdout to EOF (process exit), reads the portal, returns the ;;; parsed (cuda-sim-result ...) form unchanged so callers can pull ;;; out gates / phase / timings. @@ -216,7 +219,7 @@ ;; Walks (a b c ...) looking for (name ); returns #f if missing. (define (portal-find-number form name) ;; Guard: form may arrive as #f when read-from-string sees an empty - ;; or malformed portal file (demo_ops crashed mid-write, OOM, etc). + ;; or malformed portal file (bend-cuda crashed mid-write, OOM, etc). ;; A bare (cdr #f) here historically crashed the gpu-worker with ;; "error: not a pair: #f", taking the port-8320 listener down. (cond @@ -263,7 +266,7 @@ (number->string n-batches) "--portal" portal-path)) (pair (spawn-process-stdio *binary-demo-ops* argv))) - ;; demo_ops does not read stdin; drain stdout until exit. + ;; bend-cuda does not read stdin; drain stdout until exit. (drain-to-eof (cdr pair)) (close-port (car pair)) (close-port (cdr pair))