Commit cf610d56 authored by Mark's avatar Mark
Browse files

Fix SYS:PROCESS-PID with SYS:RUN-PROGRAM

(reported by Eric Timmons)

Fixes <https://abcl.org/trac/ticket/480>
parent 5c17e567
......@@ -372,9 +372,10 @@ value
(defun %process-pid (jprocess)
(if (ext:os-unix-p)
(let* ((process-class
(if (pre-java-11-p)
"java.lang.UNIXProcess"
"java.lang.ProcessImpl"))
(java:jclass
(if (pre-java-11-p)
"java.lang.UNIXProcess"
"java.lang.ProcessImpl")))
(field
(java:jcall "getDeclaredField" process-class "pid")))
(java:jcall "setAccessible" field java:+true+)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment