"middleware out of memory error" while using "magit-status" with forge enabled in Termux emacs. #387

omecamtiv · 2021-08-12T17:56:30Z

omecamtiv
Aug 12, 2021

Behaviour expected: To show the magit status buffer.
Observed: "middleware out of memory" error
Steps to reproduce: Launch "magit-status" from a git project in Termux. Without forge magit is working fine.

BackTrace:

Debugger entered--Lisp error: (emacsql-memory "middleware out of memory")
  signal(emacsql-memory ("middleware out of memory"))                        #f(compiled-function (_ code message) "Get condition for MESSAGE provided from SQLite." #<bytecode 0x1cd3d37fbd>)(#<forge-database forge-database-1cd3f435b0> 7 "middleware out of memory")
  apply(#f(compiled-function (_ code message) "Get condition for MESSAGE provided from SQLite." #<bytecode 0x1cd3d37fbd>) #<forge-database forge-database-1cd3f435b0> (7 "middleware out of memory"))
  emacsql-handle(#<forge-database forge-database-1cd3f435b0> 7 "middleware out of memory")
  #f(compiled-function (connection) "Parse well-formed output into an s-expression." #<bytecode 0x1cd3fe6ce5>)(#<forge-database forge-database-1cd3f435b0>)
  apply(#f(compiled-function (connection) "Parse well-formed output into an s-expression." #<bytecode 0x1cd3fe6ce5>) #<forge-database forge-database-1cd3f435b0> nil)
  emacsql-parse(#<forge-database forge-database-1cd3f435b0>)
  #f(compiled-function (connection sql &rest args) "Send SQL s-expression to CONNECTION and return the results." #<bytecode 0x1cd422ba51>)(#<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000)
  apply(#f(compiled-function (connection sql &rest args) "Send SQL s-expression to CONNECTION and return the results." #<bytecode 0x1cd422ba51>) (#<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000))
  #f(compiled-function (&rest cnm-args) #<bytecode 0x1cd3f43665>)(#<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000)
  apply(#f(compiled-function (&rest cnm-args) #<bytecode 0x1cd3f43665>) #<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000)
  (mapcar #'closql--extern-unbound (apply cl--cnm connection sql (mapcar #'(lambda (arg) (if (stringp arg) (let (...) (set-text-properties 0 ... nil copy) copy) arg)) args)))
  (progn (mapcar #'closql--extern-unbound (apply cl--cnm connection sql (mapcar #'(lambda (arg) (if (stringp arg) (let ... ... copy) arg)) args))))
  (closure (t) (cl--cnm connection sql &rest args) "\n\n(fn CONNECTION SQL &rest ARGS)" (progn (mapcar #'closql--extern-unbound (apply cl--cnm connection sql (mapcar #'(lambda ... ...) args)))))(#f(compiled-function (&rest cnm-args) #<bytecode 0x1cd3f43665>) #<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000)
  apply((closure (t) (cl--cnm connection sql &rest args) "\n\n(fn CONNECTION SQL &rest ARGS)" (progn (mapcar #'closql--extern-unbound (apply cl--cnm connection sql (mapcar #'(lambda ... ...) args))))) #f(compiled-function (&rest cnm-args) #<bytecode 0x1cd3f43665>) (#<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000))
  #f(compiled-function (&rest args) #<bytecode 0x1cd41d093d>)(#<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000)
  apply(#f(compiled-function (&rest args) #<bytecode 0x1cd41d093d>) #<forge-database forge-database-1cd3f435b0> ([:pragma (= busy-timeout $s1)] 15000))
  emacsql(#<forge-database forge-database-1cd3f435b0> [:pragma (= busy-timeout $s1)] 15000)
  #f(compiled-function (#<forge-database forge-database-1cd3f435b0> (:file "/data/data/com.termux/files/home/.emacs.d/forge-da..."))
  apply(#f(compiled-function
  #f(compiled-function (&rest args) #<bytecode 0x1cd41cffb9>)(#<forge-database forge-database-1cd3f435b0> (:file "/data/data/com.termux/files/home/.emacs.d/forge-da..."))
  apply(#f(compiled-function (&rest args) #<bytecode 0x1cd41cffb9>) #<forge-database forge-database-1cd3f435b0> (:file "/data/data/com.termux/files/home/.emacs.d/forge-da..."))
  initialize-instance(#<forge-database forge-database-1cd3f435b0> (:file "/data/data/com.termux/files/home/.emacs.d/forge-da..."))
  #f(compiled-function (class &rest slots) "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object." #<bytecode 0x1cd3ed4e71>)(forge-database :file "/data/data/com.termux/files/home/.emacs.d/forge-da...")
  apply(#f(compiled-function (class &rest slots) "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object." #<bytecode 0x1cd3ed4e71>) forge-database (:file "/data/data/com.termux/files/home/.emacs.d/forge-da..."))
  make-instance(forge-database :file "/data/data/com.termux/files/home/.emacs.d/forge-da...")
  (let ((db-init (not (and file (file-exists-p file)))) (db (make-instance class :file file))) (set-process-query-on-exit-flag (eieio-oref db 'process) nil) (if debug (progn (emacsql-enable-debugging db))) (emacsql db (emacsql db [:pragma (= foreign-keys on)])) (if db-init (progn (closql--db-init db))) (if variable (progn (set variable db))) db)
  (or (let ((db (and variable (symbol-value variable)))) (and db (emacsql-live-p db) (prog1 db (emacsql db [:pragma (= foreign-keys on)])))) (let ((db-init (not (and file (file-exists-p file)))) (db (make-instance class :file file))) (set-process-query-on-exit-flag (eieio-oref db 'process) nil) (if debug (progn (emacsql-enable-debugging db))) (emacsql db (emacsql db [:pragma (= foreign-keys on)])) (if db-init (progn (closql--db-init db))) (if variable (progn (set variable db))) db))
  (progn (or (let ((db (and variable (symbol-value variable)))) (and db (emacsql-live-p db) (prog1 db (emacsql db [:pragma (= foreign-keys on)])))) (let ((db-init (not (and file (file-exists-p file)))) (db (make-instance class :file file))) (set-process-query-on-exit-flag (eieio-oref db 'process) nil) (if debug (progn (emacsql-enable-debugging db))) (emacsql db (emacsql db [:pragma (= foreign-keys on)])) (if db-init (progn (closql--db-init db))) (if variable (progn (set variable db))) db)))
  (closure (t) (class &optional variable file debug) (progn (or (let ((db (and variable ...))) (and db (emacsql-live-p db) (prog1 db (emacsql db ...)))) (let ((db-init (not ...)) (db (make-instance class :file file))) (set-process-query-on-exit-flag (eieio-oref db 'process) nil) (if debug (progn (emacsql-enable-debugging db))) (emacsql db (emacsql db [:pragma ...])) (if db-init (progn (closql--db-init db))) (if variable (progn (set variable db))) db))))(forge-database forge--db-connection "/data/data/com.termux/files/home/.emacs.d/forge-da..." t)
  apply((closure (t) (class &optional variable file debug) (progn (or (let ((db (and variable ...))) (and db (emacsql-live-p db) (prog1 db (emacsql db ...)))) (let ((db-init (not ...)) (db (make-instance class :file file))) (set-process-query-on-exit-flag (eieio-oref db 'process) nil) (if debug (progn (emacsql-enable-debugging db))) (emacsql db (emacsql db [:pragma ...])) (if db-init (progn (closql--db-init db))) (if variable (progn (set variable db))) db)))) forge-database (forge--db-connection "/data/data/com.termux/files/home/.emacs.d/forge-da..." t))
  closql-db(forge-database forge--db-connection "/data/data/com.termux/files/home/.emacs.d/forge-da..." t)
  (if (and forge--db-connection (emacsql-live-p forge--db-connection)) nil (make-directory (file-name-directory forge-database-file) t) (closql-db 'forge-database 'forge--db-connection forge-database-file t) (let* ((db forge--db-connection) (version (closql--db-get-version db)) (version (forge--db-maybe-update forge--db-connection version))) (cond ((> version forge--db-version) (emacsql-close db) (user-error "The Forge database was created with a newer Forge ..." "You need to update the Forge package.")) ((< version forge--db-version) (emacsql-close db) (error "BUG: The Forge database scheme changed %s" "and there is no upgrade path")))))
  forge-db()
  (apply #'emacsql (forge-db) sql args)
  (if (stringp sql) (emacsql (forge-db) (apply #'format sql args)) (apply #'emacsql (forge-db) sql args))
  forge-sql([:select * :from repository :where (and (= forge $s1) (= owner $s2) (= name $s3))] "github.com" "sudipta-nandan" ".emacs.d")
  (car (forge-sql [:select * :from repository :where (and (= forge $s1) (= owner $s2) (= name $s3))] forge owner name))
  (let* ((row (car (forge-sql [:select * :from repository :where (and (= forge $s1) (= owner $s2) (= name $s3))] forge owner name))) (obj (and row (closql--remake-instance class (forge-db) row)))) (if obj (progn (eieio-oset obj 'apihost apihost) (eieio-oset obj 'githost githost) (eieio-oset obj 'remote remote))) (cond ((and (eq demand t) (or (not obj) (eieio-oref obj 'sparse-p))) (error "Cannot use `%s' in %S yet.\n%s" this-command (magit-toplevel) "Use `M-x forge-add-repository' before trying again...")) ((and (eq demand 'full) obj (eieio-oref obj 'sparse-p)) (setq obj nil))) (if (and (memq demand '(stub create)) (not obj)) (progn (let* ((val (forge--repository-ids class host owner name (eq demand ...))) (x70 (car val)) (x71 (cdr val))) (let ((forge-id x71) (id x70)) (if (setq obj (forge-get-repository ...)) nil (setq obj (funcall class :id id :forge-id forge-id :forge forge :owner owner :name name :apihost apihost :githost githost :remote remote)) (if (eq demand ...) (progn ...))))))) obj)
  (let ((class x68) (forge x66) (apihost x64) (githost x62)) (let* ((row (car (forge-sql [:select * :from repository :where (and ... ... ...)] forge owner name))) (obj (and row (closql--remake-instance class (forge-db) row)))) (if obj (progn (eieio-oset obj 'apihost apihost) (eieio-oset obj 'githost githost) (eieio-oset obj 'remote remote))) (cond ((and (eq demand t) (or (not obj) (eieio-oref obj 'sparse-p))) (error "Cannot use `%s' in %S yet.\n%s" this-command (magit-toplevel) "Use `M-x forge-add-repository' before trying again...")) ((and (eq demand 'full) obj (eieio-oref obj 'sparse-p)) (setq obj nil))) (if (and (memq demand '(stub create)) (not obj)) (progn (let* ((val (forge--repository-ids class host owner name ...)) (x70 (car val)) (x71 (cdr val))) (let ((forge-id x71) (id x70)) (if (setq obj ...) nil (setq obj ...) (if ... ...)))))) obj))
  (let* ((x62 (car spec)) (x63 (cdr spec)) (x64 (car x63)) (x65 (cdr x63)) (x66 (car x65)) (x67 (cdr x65)) (x68 (car x67)) (x69 (cdr x67))) (let ((class x68) (forge x66) (apihost x64) (githost x62)) (let* ((row (car (forge-sql [:select * :from repository :where ...] forge owner name))) (obj (and row (closql--remake-instance class (forge-db) row)))) (if obj (progn (eieio-oset obj 'apihost apihost) (eieio-oset obj 'githost githost) (eieio-oset obj 'remote remote))) (cond ((and (eq demand t) (or (not obj) (eieio-oref obj ...))) (error "Cannot use `%s' in %S yet.\n%s" this-command (magit-toplevel) "Use `M-x forge-add-repository' before trying again...")) ((and (eq demand 'full) obj (eieio-oref obj 'sparse-p)) (setq obj nil))) (if (and (memq demand '(stub create)) (not obj)) (progn (let* ((val ...) (x70 ...) (x71 ...)) (let (... ...) (if ... nil ... ...))))) obj)))
  (if spec (let* ((x62 (car spec)) (x63 (cdr spec)) (x64 (car x63)) (x65 (cdr x63)) (x66 (car x65)) (x67 (cdr x65)) (x68 (car x67)) (x69 (cdr x67))) (let ((class x68) (forge x66) (apihost x64) (githost x62)) (let* ((row (car (forge-sql ... forge owner name))) (obj (and row (closql--remake-instance class ... row)))) (if obj (progn (eieio-oset obj 'apihost apihost) (eieio-oset obj 'githost githost) (eieio-oset obj 'remote remote))) (cond ((and (eq demand t) (or ... ...)) (error "Cannot use `%s' in %S yet.\n%s" this-command (magit-toplevel) "Use `M-x forge-add-repository' before trying again...")) ((and (eq demand ...) obj (eieio-oref obj ...)) (setq obj nil))) (if (and (memq demand '...) (not obj)) (progn (let* (... ... ...) (let ... ...)))) obj))) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  No entry for %..." host 'forge-alist))))
  (let* ((spec (and t (assoc host forge-alist)))) (if spec (let* ((x62 (car spec)) (x63 (cdr spec)) (x64 (car x63)) (x65 (cdr x63)) (x66 (car x65)) (x67 (cdr x65)) (x68 (car x67)) (x69 (cdr x67))) (let ((class x68) (forge x66) (apihost x64) (githost x62)) (let* ((row (car ...)) (obj (and row ...))) (if obj (progn (eieio-oset obj ... apihost) (eieio-oset obj ... githost) (eieio-oset obj ... remote))) (cond ((and ... ...) (error "Cannot use `%s' in %S yet.\n%s" this-command ... "Use `M-x forge-add-repository' before trying again...")) ((and ... obj ...) (setq obj nil))) (if (and (memq demand ...) (not obj)) (progn (let* ... ...))) obj))) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  No entry for %..." host 'forge-alist)))))
  (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list nil (+ 3 (length --cl-rest--))))) (let* ((spec (and t (assoc host forge-alist)))) (if spec (let* ((x62 (car spec)) (x63 (cdr spec)) (x64 (car x63)) (x65 (cdr x63)) (x66 (car x65)) (x67 (cdr x65)) (x68 (car x67)) (x69 (cdr x67))) (let ((class x68) (forge x66) (apihost x64) (githost x62)) (let* ((row ...) (obj ...)) (if obj (progn ... ... ...)) (cond (... ...) (... ...)) (if (and ... ...) (progn ...)) obj))) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  No entry for %..." host 'forge-alist))))))
  (let* ((--cl-rest-- (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list nil (length --cl-rest--))))) (host (if (= (length --cl-rest--) 3) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal 'wrong-number-of-arguments (list nil (length --cl-rest--))))) (owner (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (name (car --cl-rest--)) (remote (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (demand (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list nil (+ 3 (length --cl-rest--))))) (let* ((spec (and t (assoc host forge-alist)))) (if spec (let* ((x62 (car spec)) (x63 (cdr spec)) (x64 (car x63)) (x65 (cdr x63)) (x66 (car x65)) (x67 (cdr x65)) (x68 (car x67)) (x69 (cdr x67))) (let ((class x68) (forge x66) (apihost x64) (githost x62)) (let* (... ...) (if obj ...) (cond ... ...) (if ... ...) obj))) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  No entry for %..." host 'forge-alist)))))))
  (progn (let* ((--cl-rest-- (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- ...))) (signal 'wrong-number-of-arguments (list nil (length --cl-rest--))))) (host (if (= (length --cl-rest--) 3) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- ...))) (signal 'wrong-number-of-arguments (list nil (length --cl-rest--))))) (owner (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (name (car --cl-rest--)) (remote (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--))))) (demand (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list nil (+ 3 (length --cl-rest--))))) (let* ((spec (and t (assoc host forge-alist)))) (if spec (let* ((x62 ...) (x63 ...) (x64 ...) (x65 ...) (x66 ...) (x67 ...) (x68 ...) (x69 ...)) (let (... ... ... ...) (let* ... ... ... ... obj))) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  No entry for %..." host ...))))))))
  (closure (t) (&rest --cl-rest--) "((host owner name) &optional remote demand)\n\nRetur..." (progn (let* ((--cl-rest-- (if --cl-rest-- (car-safe ...) (signal ... ...))) (host (if (= ... 3) (car-safe ...) (signal ... ...))) (owner (car-safe (prog1 --cl-rest-- ...))) (name (car --cl-rest--)) (remote (car-safe (prog1 --cl-rest-- ...))) (demand (car-safe (prog1 --cl-rest-- ...)))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list nil ...))) (let* ((spec ...)) (if spec (let* ... ...) (if ... ...)))))))(("github.com" "sudipta-nandan" ".emacs.d") "origin" full)
  apply((closure (t) (&rest --cl-rest--) "((host owner name) &optional remote demand)\n\nRetur..." (progn (let* ((--cl-rest-- (if --cl-rest-- (car-safe ...) (signal ... ...))) (host (if (= ... 3) (car-safe ...) (signal ... ...))) (owner (car-safe (prog1 --cl-rest-- ...))) (name (car --cl-rest--)) (remote (car-safe (prog1 --cl-rest-- ...))) (demand (car-safe (prog1 --cl-rest-- ...)))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list nil ...))) (let* ((spec ...)) (if spec (let* ... ...) (if ... ...))))))) ("github.com" "sudipta-nandan" ".emacs.d") ("origin" full))
  forge-get-repository(("github.com" "sudipta-nandan" ".emacs.d") "origin" full)
  (if parts (forge-get-repository parts remote demand) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s isn't a for..." url))))
  (let* ((parts (and t (forge--split-url url)))) (if parts (forge-get-repository parts remote demand) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s isn't a for..." url)))))
  (progn (let* ((parts (and t (forge--split-url url)))) (if parts (forge-get-repository parts remote demand) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s isn't a for..." url))))))
  (closure (t) (url &optional remote demand) "Return the repository at URL." (progn (let* ((parts (and t (forge--split-url url)))) (if parts (forge-get-repository parts remote demand) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s isn't a for..." url)))))))("[email protected]:sudipta-nandan/.emacs.d.git" "origin" full)
  apply((closure (t) (url &optional remote demand) "Return the repository at URL." (progn (let* ((parts (and t (forge--split-url url)))) (if parts (forge-get-repository parts remote demand) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s isn't a for..." url))))))) "[email protected]:sudipta-nandan/.emacs.d.git" ("origin" full))
  forge-get-repository("[email protected]:sudipta-nandan/.emacs.d.git" "origin" full)
  (and t (forge-get-repository url remote demand))
  (let* ((repo (and t (forge-get-repository url remote demand)))) (if repo (progn (eieio-oset repo 'worktree (magit-toplevel)) repo) nil))
  (if url (let* ((repo (and t (forge-get-repository url remote demand)))) (if repo (progn (eieio-oset repo 'worktree (magit-toplevel)) repo) nil)) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s\n%s  %s" (cond (remote (format "No url configured for %S." remote)) (remotes "Cannot decide on remote to use.") (t "No remote configured.")) "You might have to set `forge.remote'." "See https://magit.vc/manual/forge/Token-Creation.h..."))))
  (let* ((url (and t (and remote (magit-git-string "remote" "get-url" remote))))) (if url (let* ((repo (and t (forge-get-repository url remote demand)))) (if repo (progn (eieio-oset repo 'worktree (magit-toplevel)) repo) nil)) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s\n%s  %s" (cond (remote (format "No url configured for %S." remote)) (remotes "Cannot decide on remote to use.") (t "No remote configured.")) "You might have to set `forge.remote'." "See https://magit.vc/manual/forge/Token-Creation.h...")))))
  (let* ((remotes (magit-list-remotes)) (remote (or remote (if (cdr remotes) (car (member (forge--get-remote) remotes)) (car remotes))))) (let* ((url (and t (and remote (magit-git-string "remote" "get-url" remote))))) (if url (let* ((repo (and t (forge-get-repository url remote demand)))) (if repo (progn (eieio-oset repo 'worktree (magit-toplevel)) repo) nil)) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s\n%s  %s" (cond (remote ...) (remotes "Cannot decide on remote to use.") (t "No remote configured.")) "You might have to set `forge.remote'." "See https://magit.vc/manual/forge/Token-Creation.h..."))))))
  (let ((value (let* ((remotes (magit-list-remotes)) (remote (or remote (if ... ... ...)))) (let* ((url (and t ...))) (if url (let* (...) (if repo ... nil)) (if (memq demand forge--signal-no-entry) (progn ...))))))) (let* ((v (cons G9 value)) (v magit--refresh-cache)) (setcdr v (cons v (cdr v)))) value)
  (if it (progn (let* ((v magit--refresh-cache)) (setcar (car v) (+ (car (car v)) 1))) (cdr it)) (let* ((v magit--refresh-cache)) (setcdr (car v) (+ (cdr (car v)) 1))) (let ((value (let* ((remotes (magit-list-remotes)) (remote (or remote ...))) (let* ((url ...)) (if url (let* ... ...) (if ... ...)))))) (let* ((v (cons G9 value)) (v magit--refresh-cache)) (setcdr v (cons v (cdr v)))) value))
  (let ((it (assoc G9 (cdr magit--refresh-cache)))) (if it (progn (let* ((v magit--refresh-cache)) (setcar (car v) (+ (car (car v)) 1))) (cdr it)) (let* ((v magit--refresh-cache)) (setcdr (car v) (+ (cdr (car v)) 1))) (let ((value (let* ((remotes ...) (remote ...)) (let* (...) (if url ... ...))))) (let* ((v (cons G9 value)) (v magit--refresh-cache)) (setcdr v (cons v (cdr v)))) value)))
  (let ((G9 (list default-directory 'forge-get-repository demand))) (let ((it (assoc G9 (cdr magit--refresh-cache)))) (if it (progn (let* ((v magit--refresh-cache)) (setcar (car v) (+ (car ...) 1))) (cdr it)) (let* ((v magit--refresh-cache)) (setcdr (car v) (+ (cdr (car v)) 1))) (let ((value (let* (... ...) (let* ... ...)))) (let* ((v (cons G9 value)) (v magit--refresh-cache)) (setcdr v (cons v (cdr v)))) value))))
  (if magit--refresh-cache (let ((G9 (list default-directory 'forge-get-repository demand))) (let ((it (assoc G9 (cdr magit--refresh-cache)))) (if it (progn (let* ((v magit--refresh-cache)) (setcar (car v) (+ ... 1))) (cdr it)) (let* ((v magit--refresh-cache)) (setcdr (car v) (+ (cdr ...) 1))) (let ((value (let* ... ...))) (let* ((v ...) (v magit--refresh-cache)) (setcdr v (cons v ...))) value)))) (let* ((remotes (magit-list-remotes)) (remote (or remote (if (cdr remotes) (car (member ... remotes)) (car remotes))))) (let* ((url (and t (and remote (magit-git-string "remote" "get-url" remote))))) (if url (let* ((repo (and t ...))) (if repo (progn (eieio-oset repo ... ...) repo) nil)) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s\n%s  %s" (cond ... ... ...) "You might have to set `forge.remote'." "See https://magit.vc/manual/forge/Token-Creation.h...")))))))
  (or forge-buffer-repository (and forge-buffer-topic (forge-get-repository forge-buffer-topic)) (if magit--refresh-cache (let ((G9 (list default-directory 'forge-get-repository demand))) (let ((it (assoc G9 (cdr magit--refresh-cache)))) (if it (progn (let* (...) (setcar ... ...)) (cdr it)) (let* ((v magit--refresh-cache)) (setcdr (car v) (+ ... 1))) (let ((value ...)) (let* (... ...) (setcdr v ...)) value)))) (let* ((remotes (magit-list-remotes)) (remote (or remote (if (cdr remotes) (car ...) (car remotes))))) (let* ((url (and t (and remote ...)))) (if url (let* ((repo ...)) (if repo (progn ... repo) nil)) (if (memq demand forge--signal-no-entry) (progn (error "Cannot determine forge repository.  %s\n%s  %s" ... "You might have to set `forge.remote'." "See https://magit.vc/manual/forge/Token-Creation.h..."))))))))
  (progn (or forge-buffer-repository (and forge-buffer-topic (forge-get-repository forge-buffer-topic)) (if magit--refresh-cache (let ((G9 (list default-directory 'forge-get-repository demand))) (let ((it (assoc G9 ...))) (if it (progn (let* ... ...) (cdr it)) (let* (...) (setcdr ... ...)) (let (...) (let* ... ...) value)))) (let* ((remotes (magit-list-remotes)) (remote (or remote (if ... ... ...)))) (let* ((url (and t ...))) (if url (let* (...) (if repo ... nil)) (if (memq demand forge--signal-no-entry) (progn ...))))))))
  (closure (t) (demand &optional remote) "Return the current forge repository.\n\nIf the `forg..." (progn (or forge-buffer-repository (and forge-buffer-topic (forge-get-repository forge-buffer-topic)) (if magit--refresh-cache (let ((G9 ...)) (let (...) (if it ... ... ...))) (let* ((remotes ...) (remote ...)) (let* (...) (if url ... ...)))))))(full)
  apply((closure (t) (demand &optional remote) "Return the current forge repository.\n\nIf the `forg..." (progn (or forge-buffer-repository (and forge-buffer-topic (forge-get-repository forge-buffer-topic)) (if magit--refresh-cache (let ((G9 ...)) (let (...) (if it ... ... ...))) (let* ((remotes ...) (remote ...)) (let* (...) (if url ... ...))))))) full nil)
  forge-get-repository(full)
  (and t (forge-get-repository 'full))
  (let* ((repo (and t (forge-get-repository 'full))) (format (and repo (eieio-oref repo 'issue-url-format)))) (if format (progn (if bug-reference-url-format nil (set (make-local-variable 'bug-reference-url-format) (if (and (fboundp ...) (forge-gitlab-repository--eieio-childp repo)) #'(lambda nil ...) (forge--format repo 'issue-url-format '...))) (set (make-local-variable 'bug-reference-bug-regexp) (if (and (fboundp ...) (forge-gitlab-repository--eieio-childp repo)) "\\(?3:[!#]\\)\\(?2:[0-9]+\\)" "#\\(?2:[0-9]+\\)"))) (if (derived-mode-p 'prog-mode) (bug-reference-prog-mode 1) (bug-reference-mode 1)) (add-hook 'completion-at-point-functions 'forge-topic-completion-at-point nil t)) nil))
  (if default-directory (let* ((repo (and t (forge-get-repository 'full))) (format (and repo (eieio-oref repo 'issue-url-format)))) (if format (progn (if bug-reference-url-format nil (set (make-local-variable 'bug-reference-url-format) (if (and ... ...) #'... (forge--format repo ... ...))) (set (make-local-variable 'bug-reference-bug-regexp) (if (and ... ...) "\\(?3:[!#]\\)\\(?2:[0-9]+\\)" "#\\(?2:[0-9]+\\)"))) (if (derived-mode-p 'prog-mode) (bug-reference-prog-mode 1) (bug-reference-mode 1)) (add-hook 'completion-at-point-functions 'forge-topic-completion-at-point nil t)) nil)) nil)
  (let* ((default-directory (and t (magit--safe-default-directory nil)))) (if default-directory (let* ((repo (and t (forge-get-repository 'full))) (format (and repo (eieio-oref repo 'issue-url-format)))) (if format (progn (if bug-reference-url-format nil (set (make-local-variable ...) (if ... ... ...)) (set (make-local-variable ...) (if ... "\\(?3:[!#]\\)\\(?2:[0-9]+\\)" "#\\(?2:[0-9]+\\)"))) (if (derived-mode-p 'prog-mode) (bug-reference-prog-mode 1) (bug-reference-mode 1)) (add-hook 'completion-at-point-functions 'forge-topic-completion-at-point nil t)) nil)) nil))
  forge-bug-reference-setup()
  run-hooks(change-major-mode-after-body-hook special-mode-hook magit-section-mode-hook magit-mode-hook magit-status-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook special-mode-hook magit-section-mode-hook magit-mode-hook magit-status-mode-hook))
  run-mode-hooks(magit-status-mode-hook)
  magit-status-mode()
  magit-setup-buffer-internal(magit-status-mode nil ((magit-buffer-diff-args ("--no-ext-diff")) (magit-buffer-diff-files nil) (magit-buffer-log-args ("-n256" "--decorate")) (magit-buffer-log-files nil)))
  magit-status-setup-buffer("/data/data/com.termux/files/home/.emacs.d/")
  magit-status(nil ((5 . 5) (("/data/data/com.termux/files/home/.emacs.d/" "remote" "get-url" "origin") . "[email protected]:sudipta-nandan/.emacs.d.git") (("/data/data/com.termux/files/home/.emacs.d/" . magit-toplevel) . "/data/data/com.termux/files/home/.emacs.d/") (("/data/data/com.termux/files/home/.emacs.d/" "rev-parse" "--show-cdup") . "") (("/data/data/com.termux/files/home/.emacs.d/" "rev-parse" "--show-toplevel") . "/data/data/com.termux/files/home/.emacs.d")))
  funcall-interactively(magit-status nil ((5 . 5) (("/data/data/com.termux/files/home/.emacs.d/" "remote" "get-url" "origin") . "[email protected]:sudipta-nandan/.emacs.d.git") (("/data/data/com.termux/files/home/.emacs.d/" . magit-toplevel) . "/data/data/com.termux/files/home/.emacs.d/") (("/data/data/com.termux/files/home/.emacs.d/" "rev-parse" "--show-cdup") . "") (("/data/data/com.termux/files/home/.emacs.d/" "rev-parse" "--show-toplevel") . "/data/data/com.termux/files/home/.emacs.d")))
  call-interactively(magit-status nil nil)
  command-execute(magit-status)

Please look into this matter. I'm using Emacs in Termux.

Answered by tarsius

Aug 12, 2021

In that issue there is a link to a fix: magit/emacsql#79. You could help moving that along by trying it out locally and then commenting on that pull-request, stating whether it worked for you.

The commentary of emacsql-sqlite3.el has a section titled "About Closql", which explains how to monkey patch closql to use this implementation. Forge uses Closql. I would not generally recommend doing that but as a short term fix it might work.

I would recommend deleting the emacsql-sqlite3 database once you move back to emacsql-sqlite. Until you do I ask you to always disclose that you are using emacsql-sqlite3 (resp. a db that was touched by it) when reporting an issue with emacsql, closql or forge.…

View full answer

tarsius · 2021-08-12T20:04:29Z

tarsius
Aug 12, 2021
Maintainer

The error comes from sqlite and means... well what it says: out of memory. I don't know what middleware means here and how to give it more memory. I also don't use termux but am guessing that that it somehow limits how much memory is available and that that can be increased using a configuration setting.

6 replies

omecamtiv Aug 12, 2021
Author

Similar issues was also addressed in - org-roam package for emacs. As addressed there the emacsql-sqlite somehow doesn't work with Termux. The workaround given was to use emacsql-sqlite3 package. Any idea how can i implement emacsql-sqlite3 in forge db building process. Is it possible to provide any leads regarding this?

tarsius Aug 12, 2021
Maintainer

Could please link to the issue where they come to that conclusion?

omecamtiv Aug 12, 2021
Author

This is the link to the issue: org-roam #1605

tarsius Aug 12, 2021
Maintainer

In that issue there is a link to a fix: magit/emacsql#79. You could help moving that along by trying it out locally and then commenting on that pull-request, stating whether it worked for you.

The commentary of emacsql-sqlite3.el has a section titled "About Closql", which explains how to monkey patch closql to use this implementation. Forge uses Closql. I would not generally recommend doing that but as a short term fix it might work.

I would recommend deleting the emacsql-sqlite3 database once you move back to emacsql-sqlite. Until you do I ask you to always disclose that you are using emacsql-sqlite3 (resp. a db that was touched by it) when reporting an issue with emacsql, closql or forge. (I now suspect that some of the mystery bugs that have been reported in the past are due to this hackery.)

Answer selected by tarsius

omecamtiv Aug 13, 2021
Author

I tried the monkey patch mentioned in emacsql-sqlite3 but it was of no help. But tried the fix mentioned. Now forge is working fine. And thanks to you magit and forge are both great packages for git control in emacs. I'm a noob in these... but I've started enjoying a lot using these.

tarsius Aug 13, 2021
Maintainer

Great!
Please don't forget to mention that on the pull-request. Looks like a ping is needed there and if it is a positive ping that's even better.
Thanks!

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

"middleware out of memory error" while using "magit-status" with forge enabled in Termux emacs. #387

{{title}}

{{editor}}'s edit

{{editor}}'s edit

Replies: 1 comment 6 replies

{{title}}

{{title}}

{{editor}}'s edit

{{editor}}'s edit

{{title}}

{{title}}

{{editor}}'s edit

{{editor}}'s edit

{{title}}

{{title}}

{{title}}

Select a reply

"middleware out of memory error" while using "magit-status" with forge enabled in Termux emacs. #387

omecamtiv Aug 12, 2021

Replies: 1 comment · 6 replies

tarsius Aug 12, 2021 Maintainer

omecamtiv Aug 12, 2021 Author

tarsius Aug 12, 2021 Maintainer

omecamtiv Aug 12, 2021 Author

tarsius Aug 12, 2021 Maintainer

omecamtiv Aug 13, 2021 Author

tarsius Aug 13, 2021 Maintainer

omecamtiv
Aug 12, 2021

Replies: 1 comment 6 replies

tarsius
Aug 12, 2021
Maintainer

omecamtiv Aug 12, 2021
Author

tarsius Aug 12, 2021
Maintainer

omecamtiv Aug 12, 2021
Author

tarsius Aug 12, 2021
Maintainer

omecamtiv Aug 13, 2021
Author

tarsius Aug 13, 2021
Maintainer