Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
89bdabd4 by Raymond Toy at 2023-04-30T15:08:48-07:00
More pot file updates on linux.
- - - - -
2 changed files:
- src/i18n/locale/cmucl-unix.pot
- src/i18n/locale/cmucl.pot
Changes:
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1356,6 +1356,14 @@ msgid ""
"found."
msgstr ""
+#: src/code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID. If\n"
+" not found, NIL is returned with a second value indicating the cause\n"
+" of the failure. In particular, if the second value is 0 (or\n"
+" ENONENT, ESRCH, EBADF, etc.), then the uid was not found."
+msgstr ""
+
#: src/code/unix.lisp
msgid ""
"Unix-times returns information about the cpu time usage of the process\n"
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -9591,15 +9591,6 @@ msgid ""
" an otherwise undefined logical host."
msgstr ""
-#: src/code/pathname.lisp
-msgid ""
-"When non-NIL, pathnames are on Darwin are normalized when created.\n"
-" Otherwise, the pathnames are unchanged.\n"
-"\n"
-" This must be NIL during bootstrapping because Unicode is not yet\n"
-" available."
-msgstr ""
-
#: src/code/pathname.lisp
msgid "A path specification, either a string, file-stream or pathname."
msgstr ""
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/89bdabd46d7958eb6692b96…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/89bdabd46d7958eb6692b96…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
89bdabd4 by Raymond Toy at 2023-04-30T15:08:48-07:00
More pot file updates on linux.
- - - - -
2 changed files:
- src/i18n/locale/cmucl-unix.pot
- src/i18n/locale/cmucl.pot
Changes:
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1356,6 +1356,14 @@ msgid ""
"found."
msgstr ""
+#: src/code/unix.lisp
+msgid ""
+"Return a USER-INFO structure for the user identified by UID. If\n"
+" not found, NIL is returned with a second value indicating the cause\n"
+" of the failure. In particular, if the second value is 0 (or\n"
+" ENONENT, ESRCH, EBADF, etc.), then the uid was not found."
+msgstr ""
+
#: src/code/unix.lisp
msgid ""
"Unix-times returns information about the cpu time usage of the process\n"
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -9591,15 +9591,6 @@ msgid ""
" an otherwise undefined logical host."
msgstr ""
-#: src/code/pathname.lisp
-msgid ""
-"When non-NIL, pathnames are on Darwin are normalized when created.\n"
-" Otherwise, the pathnames are unchanged.\n"
-"\n"
-" This must be NIL during bootstrapping because Unicode is not yet\n"
-" available."
-msgstr ""
-
#: src/code/pathname.lisp
msgid "A path specification, either a string, file-stream or pathname."
msgstr ""
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/89bdabd46d7958eb6692b96…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/89bdabd46d7958eb6692b96…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
65bf9fa5 by Raymond Toy at 2023-04-30T07:59:16-07:00
Update pot files for Darwin
- - - - -
3 changed files:
- src/i18n/locale/cmucl-bsd-os.pot
- src/i18n/locale/cmucl-unix.pot
- src/i18n/locale/cmucl.pot
Changes:
=====================================
src/i18n/locale/cmucl-bsd-os.pot
=====================================
@@ -15,22 +15,10 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
-#: src/code/bsd-os.lisp
-msgid "Version string for supporting software"
-msgstr ""
-
-#: src/code/bsd-os.lisp
-msgid "Returns a string describing version of the supporting software."
-msgstr ""
-
#: src/code/bsd-os.lisp
msgid "Unix system call getrusage failed: ~A."
msgstr ""
-#: src/code/bsd-os.lisp
-msgid "Getpagesize failed: ~A"
-msgstr ""
-
#: src/code/signal.lisp
msgid "Emt instruction"
msgstr ""
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1356,14 +1356,6 @@ msgid ""
"found."
msgstr ""
-#: src/code/unix.lisp
-msgid ""
-"Return a USER-INFO structure for the user identified by UID. If\n"
-" not found, NIL is returned with a second value indicating the cause\n"
-" of the failure. In particular, if the second value is 0 (or\n"
-" ENONENT, ESRCH, EBADF, etc.), then the uid was not found."
-msgstr ""
-
#: src/code/unix.lisp
msgid ""
"Unix-times returns information about the cpu time usage of the process\n"
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -9591,6 +9591,15 @@ msgid ""
" an otherwise undefined logical host."
msgstr ""
+#: src/code/pathname.lisp
+msgid ""
+"When non-NIL, pathnames are on Darwin are normalized when created.\n"
+" Otherwise, the pathnames are unchanged.\n"
+"\n"
+" This must be NIL during bootstrapping because Unicode is not yet\n"
+" available."
+msgstr ""
+
#: src/code/pathname.lisp
msgid "A path specification, either a string, file-stream or pathname."
msgstr ""
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/65bf9fa57e161241ac528f1…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/65bf9fa57e161241ac528f1…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
48aa21e0 by Raymond Toy at 2023-04-28T20:59:32-07:00
Update release notes for issue #192
- - - - -
1 changed file:
- src/general-info/release-21e.md
Changes:
=====================================
src/general-info/release-21e.md
=====================================
@@ -84,6 +84,7 @@ public domain.
* ~~#173~~ Add pprinter for `define-assembly-routine`.
* ~~#176~~ `SHORT-SITE-NAME` and `LONG-SITE-NAME` return `NIL`.
* ~~#177~~ Add pprinter for `deftransform` and `defoptimizer`.
+ * ~~#192~~ Print radix marker in disassemblies and adjust note column to be larger for x86.
* Other changes:
* Improvements to the PCL implementation of CLOS:
* Changes to building procedure:
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/48aa21e0b2ff64c1db1688b…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/48aa21e0b2ff64c1db1688b…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
784a143b by Raymond Toy at 2023-04-29T03:54:43+00:00
Fix #192: Print radix marker in disassemblies; adjust note column
- - - - -
ce57a9f2 by Raymond Toy at 2023-04-29T03:55:21+00:00
Merge branch 'issue-192-disassemble-prints-radix-marker' into 'master'
Fix #192: Print radix marker in disassemblies; adjust note column
Closes #192
See merge request cmucl/cmucl!143
- - - - -
4 changed files:
- src/code/exports.lisp
- src/code/misc.lisp
- src/compiler/disassem.lisp
- src/i18n/locale/cmucl.pot
Changes:
=====================================
src/code/exports.lisp
=====================================
@@ -1365,7 +1365,9 @@
(:export "*NOTE-COLUMN*" "*OPCODE-COLUMN-WIDTH*" "ADD-COMMENT-HOOK"
"ADD-HOOK" "ADD-NOTE-HOOK" "ARG-VALUE" "CREATE-DSTATE"
"DISASSEM-STATE" "DISASSEMBLE" "DISASSEMBLE-CODE-COMPONENT"
- "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY" "DISASSEMBLE-SEGMENT"
+ "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY"
+ "*DISASSEMBLE-PRINT-RADIX*"
+ "DISASSEMBLE-SEGMENT"
"DISASSEMBLE-SEGMENTS" "DSTATE-CODE" "DSTATE-CURPOS"
"DSTATE-GET-PROP" "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
"DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START" "FIELD-TYPE"
=====================================
src/code/misc.lisp
=====================================
@@ -181,5 +181,7 @@
"Disassemble the machine code associated with OBJECT, which can be a
function, a lambda expression, or a symbol with a function definition. If
it is not already compiled, the compiler is called to produce something to
- disassemble."
+ disassemble.
+
+ Also see disassem:disassemble for finer control of disassembly."
(disassem:disassemble object))
=====================================
src/compiler/disassem.lisp
=====================================
@@ -102,7 +102,9 @@
"The width of the column in which instruction-names are printed.
NIL means use the default. A value of zero gives the effect of not
aligning the arguments at all.")
-(defvar *note-column* 45
+(defvar *note-column*
+ #-x86 45
+ #+x86 55
"The column in which end-of-line comments for notes are started.")
(defconstant default-opcode-column-width 6)
@@ -3316,12 +3318,16 @@
:format-control (intl:gettext "Can't make a compiled function from ~S")
:format-arguments (list name)))))
+(defvar *disassemble-print-radix*
+ t
+ "Default value for :radix argument for disassem:disassemble")
+
(defun disassemble (object &key (stream *standard-output*)
(use-labels t)
(backend c:*native-backend*)
(base 16)
(case :downcase)
- (radix *print-radix*))
+ (radix *disassemble-print-radix*))
"Disassemble the machine code associated with OBJECT, which can be a
function, a lambda expression, or a symbol with a function definition. If
it is not already compiled, the compiler is called to produce something to
@@ -3336,7 +3342,7 @@
:Radix
The disassembler uses the specified base, case, and radix when
printing the disassembled code. The default values are 16,
- :downcase, and *print-radix*, respectively."
+ :downcase, and *disassemble-print-radix*, respectively."
(declare (type (or function symbol cons) object)
(type (or (member t) stream) stream)
(type (member t nil) use-labels)
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -5694,7 +5694,9 @@ msgid ""
"If\n"
" it is not already compiled, the compiler is called to produce something "
"to\n"
-" disassemble."
+" disassemble.\n"
+"\n"
+" Also see disassem:disassemble for finer control of disassembly."
msgstr ""
#: src/code/misc-doc.lisp
@@ -17387,6 +17389,10 @@ msgstr ""
msgid "Can't make a compiled function from ~S"
msgstr ""
+#: src/compiler/disassem.lisp
+msgid "Default value for :radix argument for disassem:disassemble"
+msgstr ""
+
#: src/compiler/disassem.lisp
msgid ""
"Disassemble the machine code associated with OBJECT, which can be a\n"
@@ -17405,7 +17411,7 @@ msgid ""
" :Radix\n"
" The disassembler uses the specified base, case, and radix when\n"
" printing the disassembled code. The default values are 16,\n"
-" :downcase, and *print-radix*, respectively."
+" :downcase, and *disassemble-print-radix*, respectively."
msgstr ""
#: src/compiler/disassem.lisp
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/8826d962b0a76b7b0d1cfd…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/8826d962b0a76b7b0d1cfd…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-192-disassemble-prints-radix-marker at cmucl / cmucl
Commits:
c662da73 by Raymond Toy at 2023-04-28T07:20:34-07:00
Add *disassemble-print-radix* as the default for :radix
Export this symbol too to make it clear that this is the API and
we're allowing users to modify this.
Update `disassemble` docstring to mention `disassem:disasemble`.
- - - - -
4 changed files:
- src/code/exports.lisp
- src/code/misc.lisp
- src/compiler/disassem.lisp
- src/i18n/locale/cmucl.pot
Changes:
=====================================
src/code/exports.lisp
=====================================
@@ -1368,7 +1368,9 @@
(:export "*NOTE-COLUMN*" "*OPCODE-COLUMN-WIDTH*" "ADD-COMMENT-HOOK"
"ADD-HOOK" "ADD-NOTE-HOOK" "ARG-VALUE" "CREATE-DSTATE"
"DISASSEM-STATE" "DISASSEMBLE" "DISASSEMBLE-CODE-COMPONENT"
- "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY" "DISASSEMBLE-SEGMENT"
+ "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY"
+ "*DISASSEMBLE-PRINT-RADIX*"
+ "DISASSEMBLE-SEGMENT"
"DISASSEMBLE-SEGMENTS" "DSTATE-CODE" "DSTATE-CURPOS"
"DSTATE-GET-PROP" "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
"DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START" "FIELD-TYPE"
=====================================
src/code/misc.lisp
=====================================
@@ -181,5 +181,7 @@
"Disassemble the machine code associated with OBJECT, which can be a
function, a lambda expression, or a symbol with a function definition. If
it is not already compiled, the compiler is called to produce something to
- disassemble."
+ disassemble.
+
+ Also see disassem:disassemble for finer control of disassembly."
(disassem:disassemble object))
=====================================
src/compiler/disassem.lisp
=====================================
@@ -3318,12 +3318,16 @@
:format-control (intl:gettext "Can't make a compiled function from ~S")
:format-arguments (list name)))))
+(defvar *disassemble-print-radix*
+ t
+ "Default value for :radix argument for disassem:disassemble")
+
(defun disassemble (object &key (stream *standard-output*)
(use-labels t)
(backend c:*native-backend*)
(base 16)
(case :downcase)
- (radix t))
+ (radix *disassemble-print-radix*))
"Disassemble the machine code associated with OBJECT, which can be a
function, a lambda expression, or a symbol with a function definition. If
it is not already compiled, the compiler is called to produce something to
@@ -3338,7 +3342,7 @@
:Radix
The disassembler uses the specified base, case, and radix when
printing the disassembled code. The default values are 16,
- :downcase, and T, respectively."
+ :downcase, and *disassemble-print-radix*, respectively."
(declare (type (or function symbol cons) object)
(type (or (member t) stream) stream)
(type (member t nil) use-labels)
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -5694,7 +5694,9 @@ msgid ""
"If\n"
" it is not already compiled, the compiler is called to produce something "
"to\n"
-" disassemble."
+" disassemble.\n"
+"\n"
+" Also see disassem:disassemble for finer control of disassembly."
msgstr ""
#: src/code/misc-doc.lisp
@@ -17387,6 +17389,10 @@ msgstr ""
msgid "Can't make a compiled function from ~S"
msgstr ""
+#: src/compiler/disassem.lisp
+msgid "Default value for :radix argument for disassem:disassemble"
+msgstr ""
+
#: src/compiler/disassem.lisp
msgid ""
"Disassemble the machine code associated with OBJECT, which can be a\n"
@@ -17405,7 +17411,7 @@ msgid ""
" :Radix\n"
" The disassembler uses the specified base, case, and radix when\n"
" printing the disassembled code. The default values are 16,\n"
-" :downcase, and T, respectively."
+" :downcase, and *disassemble-print-radix*, respectively."
msgstr ""
#: src/compiler/disassem.lisp
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c662da73c4ea1e29e947b92…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c662da73c4ea1e29e947b92…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-185-x86-shorter-insts at cmucl / cmucl
Commits:
db1e9b11 by Carl S. Shapiro at 2023-04-26T22:59:49+00:00
Simplify test using `sign-extend`.
- - - - -
1 changed file:
- src/compiler/x86/insts.lisp
Changes:
=====================================
src/compiler/x86/insts.lisp
=====================================
@@ -1274,12 +1274,7 @@
#b00000100
#b00000101)))
(emit-sized-immediate segment size src))
- ((and (not (eq size :byte))
- (or (<= -128 src 127)
- ;; Check that the top 25 bits are all ones so
- ;; that sign-extending an 8-bit value produces
- ;; the desired 32-bit value.
- (= (ldb (byte 25 7) src) #x1ffffff)))
+ ((and (not (eq size :byte)) (<= -128 (sign-extend src 32) 127))
(emit-byte segment #b10000011)
(emit-ea segment dst opcode allow-constants)
(emit-byte segment (ldb (byte 8 0) src)))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/db1e9b11dc19a5c3cedea51…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/db1e9b11dc19a5c3cedea51…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
c2a99381 by Raymond Toy at 2023-04-26T21:38:42+00:00
Fix #131: Move unix-uname to contrib/unix
- - - - -
acb29d8f by Raymond Toy at 2023-04-26T21:38:42+00:00
Merge branch 'issue-131-move-unix-uname' into 'master'
Fix #131: Move unix-uname to contrib/unix
Closes #131
See merge request cmucl/cmucl!142
- - - - -
5 changed files:
- src/code/exports.lisp
- src/code/unix.lisp
- src/contrib/unix/unix-glibc2.lisp
- src/contrib/unix/unix.lisp
- src/i18n/locale/cmucl-unix.pot
Changes:
=====================================
src/code/exports.lisp
=====================================
@@ -249,9 +249,6 @@
"OPEN-DIR"
"READ-DIR"
- ;; linux-os, sunos-os.
- "UNIX-UNAME"
-
;; filesys.lisp
"UNIX-GETPWUID"
@@ -411,7 +408,7 @@
"TIOCSETP"
"TTY-IUCLC"
"TTY-OCRNL" "TTY-OFDEL" "TTY-OFILL" "TTY-OLCUC" "TTY-ONLRET" "TTY-ONOCR"
- "TTY-XCASE" "UNIX-DUP2" "UNIX-GETITIMER" "UNIX-PID" "UNIX-UNAME"
+ "TTY-XCASE" "UNIX-DUP2" "UNIX-GETITIMER" "UNIX-PID"
"UTSNAME"
)
#+solaris
=====================================
src/code/unix.lisp
=====================================
@@ -2724,27 +2724,6 @@
(machine (array char 65))
(domainname (array char 65))))
-(defun unix-uname ()
- _N"Unix-uname returns information from the uname(2) system call.
- The return values are
-
- Name of the operating system
- Name of this node within some implementation-defined network, if any
- Release level of this operating system
- Version level of this operating system release
- Name of the hardware type on which the system is running"
- (with-alien ((names (struct utsname)))
- (syscall* (#-(or freebsd (and x86 solaris)) "uname"
- #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h
- #+freebsd "__xuname" #+freebsd int
- (* (struct utsname)))
- (values (cast (slot names 'sysname) c-string)
- (cast (slot names 'nodename) c-string)
- (cast (slot names 'release) c-string)
- (cast (slot names 'version) c-string)
- (cast (slot names 'machine) c-string))
- #+freebsd 256
- (addr names))))
;;; For asdf. Well, only getenv, but might as well make it symmetric.
=====================================
src/contrib/unix/unix-glibc2.lisp
=====================================
@@ -1908,5 +1908,26 @@ in at a time in poll.")
:until (zerop (sap-int (alien-sap member)))
:collect (string (cast member c-call:c-string))))))))
+(defun unix-uname ()
+ _N"Unix-uname returns information from the uname(2) system call.
+ The return values are
+
+ Name of the operating system
+ Name of this node within some implementation-defined network, if any
+ Release level of this operating system
+ Version level of this operating system release
+ Name of the hardware type on which the system is running"
+ (with-alien ((names (struct utsname)))
+ (syscall* (#-(or freebsd (and x86 solaris)) "uname"
+ #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h
+ #+freebsd "__xuname" #+freebsd int
+ (* (struct utsname)))
+ (values (cast (slot names 'sysname) c-string)
+ (cast (slot names 'nodename) c-string)
+ (cast (slot names 'release) c-string)
+ (cast (slot names 'version) c-string)
+ (cast (slot names 'machine) c-string))
+ #+freebsd 256
+ (addr names))))
;; EOF
=====================================
src/contrib/unix/unix.lisp
=====================================
@@ -929,4 +929,25 @@
_N"Unix-getpagesize returns the number of bytes in a system page."
(int-syscall ("getpagesize")))
+(defun unix-uname ()
+ _N"Unix-uname returns information from the uname(2) system call.
+ The return values are
+
+ Name of the operating system
+ Name of this node within some implementation-defined network, if any
+ Release level of this operating system
+ Version level of this operating system release
+ Name of the hardware type on which the system is running"
+ (with-alien ((names (struct utsname)))
+ (syscall* (#-(or freebsd (and x86 solaris)) "uname"
+ #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h
+ #+freebsd "__xuname" #+freebsd int
+ (* (struct utsname)))
+ (values (cast (slot names 'sysname) c-string)
+ (cast (slot names 'nodename) c-string)
+ (cast (slot names 'release) c-string)
+ (cast (slot names 'version) c-string)
+ (cast (slot names 'machine) c-string))
+ #+freebsd 256
+ (addr names))))
;; EOF
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1370,18 +1370,6 @@ msgid ""
" and its children."
msgstr ""
-#: src/code/unix.lisp
-msgid ""
-"Unix-uname returns information from the uname(2) system call.\n"
-" The return values are\n"
-"\n"
-" Name of the operating system\n"
-" Name of this node within some implementation-defined network, if any\n"
-" Release level of this operating system\n"
-" Version level of this operating system release\n"
-" Name of the hardware type on which the system is running"
-msgstr ""
-
#: src/code/unix.lisp
msgid ""
"Get the value of the environment variable named Name. If no such\n"
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/90a5e5690f8baa91a3484f…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/90a5e5690f8baa91a3484f…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-185-x86-shorter-insts at cmucl / cmucl
Commits:
54ba7245 by Carl S. Shapiro at 2023-04-25T23:53:54+00:00
Simplify testing for signed-imm-byte data using sign-extend function.,
- - - - -
1 changed file:
- src/compiler/x86/insts.lisp
Changes:
=====================================
src/compiler/x86/insts.lisp
=====================================
@@ -1304,19 +1304,12 @@
(defun arith-logical-constant-control (chunk inst stream dstate)
(declare (ignore inst stream))
- (let ((opcode (ldb (byte 8 0) chunk))
- (signed-imm-data (ldb (byte 8 16) chunk)))
- ;; See emit-random-arith-inst for the case where we use an 8-bit
- ;; signed immediate value in the instruction. We print a note
- ;; only if we have a 8-bit immediate and the 8-bit value is
- ;; negative (MSB is 1).
- (when (and (= opcode #b10000011)
- (logbitp 7 signed-imm-data))
- (disassem:note #'(lambda (stream)
- (princ (ldb (byte 32 0)
- (sign-extend signed-imm-data 8))
- stream))
- dstate))))
+ (when (= (ldb (byte 8 0) chunk) #b10000011)
+ (let ((imm (sign-extend (ldb (byte 8 16) chunk) 8)))
+ (when (minusp imm)
+ (disassem:note #'(lambda (stream)
+ (princ (ldb (byte 32 0) imm) stream))
+ dstate)))))
(eval-when (compile eval)
(defun arith-inst-printer-list (subop &key control)
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/54ba7245abe655147e6dfe0…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/54ba7245abe655147e6dfe0…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
31825793 by Raymond Toy at 2023-04-25T20:49:36+00:00
Fix #189: Move get-system-info from unix.lisp to os.lisp
- - - - -
90a5e569 by Raymond Toy at 2023-04-25T20:49:36+00:00
Merge branch 'issue-189-move-get-system-info' into 'master'
Fix #189: Move get-system-info from unix.lisp to os.lisp
Closes #189
See merge request cmucl/cmucl!141
- - - - -
5 changed files:
- src/code/os.lisp
- src/code/unix.lisp
- src/i18n/locale/cmucl-linux-os.pot
- + src/i18n/locale/cmucl-os.pot
- src/i18n/locale/cmucl-unix.pot
Changes:
=====================================
src/code/os.lisp
=====================================
@@ -15,7 +15,7 @@
(in-package "SYSTEM")
(use-package "EXTENSIONS")
-(intl:textdomain "cmucl-linux-os")
+(intl:textdomain "cmucl-os")
(export '(get-page-size))
@@ -33,3 +33,27 @@
maybe-page-size))
+;;; GET-SYSTEM-INFO -- Interface
+;;;
+;;; Return system time, user time (in usec) and number of page
+;;; faults.
+;;;
+(defun get-system-info ()
+ _N"Get system information consisting of the user time (in usec), the
+ system time (in usec) and the number of major page faults."
+ (alien:with-alien ((utime unix:int64-t 0)
+ (stime unix:int64-t 0)
+ (major-fault c-call:long 0))
+ (let ((rc (alien:alien-funcall
+ (alien:extern-alien "os_get_system_info"
+ (function c-call:int
+ (* unix:int64-t)
+ (* unix:int64-t)
+ (* c-call:long)))
+ (alien:addr utime)
+ (alien:addr stime)
+ (alien:addr major-fault))))
+ (when (minusp rc)
+ (error (intl:gettext "Unix system call getrusage failed: ~A.")
+ (unix:get-unix-error-msg utime)))
+ (values utime stime major-fault))))
=====================================
src/code/unix.lisp
=====================================
@@ -2921,28 +2921,3 @@
(extern-alien "os_get_locale_codeset"
(function (* char))))
c-string))
-
-;;; GET-SYSTEM-INFO -- Interface
-;;;
-;;; Return system time, user time (in usec) and number of page
-;;; faults.
-;;;
-(defun get-system-info ()
- "Get system information consisting of the user time (in usec), the
- system time (in usec) and the number of major page faults."
- (with-alien ((utime int64-t 0)
- (stime int64-t 0)
- (major-fault c-call:long 0))
- (let ((rc (alien-funcall
- (extern-alien "os_get_system_info"
- (function c-call:int
- (* int64-t)
- (* int64-t)
- (* c-call:long)))
- (addr utime)
- (addr stime)
- (addr major-fault))))
- (when (minusp rc)
- (error (intl:gettext "Unix system call getrusage failed: ~A.")
- (unix:get-unix-error-msg utime)))
- (values utime stime major-fault))))
=====================================
src/i18n/locale/cmucl-linux-os.pot
=====================================
@@ -19,14 +19,6 @@ msgstr ""
msgid "Getpagesize failed: ~A"
msgstr ""
-#: src/code/os.lisp
-msgid "Return the system page size"
-msgstr ""
-
-#: src/code/os.lisp
-msgid "get-page-size failed: ~A"
-msgstr ""
-
#: src/code/signal.lisp
msgid "Stack fault on coprocessor"
msgstr ""
=====================================
src/i18n/locale/cmucl-os.pot
=====================================
@@ -0,0 +1,35 @@
+#@ cmucl-os
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL(a)li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: src/code/os.lisp
+msgid "Return the system page size"
+msgstr ""
+
+#: src/code/os.lisp
+msgid "get-page-size failed: ~A"
+msgstr ""
+
+#: src/code/os.lisp
+msgid ""
+"Get system information consisting of the user time (in usec), the\n"
+" system time (in usec) and the number of major page faults."
+msgstr ""
+
+#: src/code/os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1444,13 +1444,3 @@ msgstr ""
msgid "Get the codeset from the locale"
msgstr ""
-#: src/code/unix.lisp
-msgid ""
-"Get system information consisting of the user time (in usec), the\n"
-" system time (in usec) and the number of major page faults."
-msgstr ""
-
-#: src/code/unix.lisp
-msgid "Unix system call getrusage failed: ~A."
-msgstr ""
-
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/412d65234e9caf87ba2f9b…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/412d65234e9caf87ba2f9b…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-189-move-get-system-info at cmucl / cmucl
Commits:
527160e8 by Raymond Toy at 2023-04-21T07:17:03-07:00
Update pot files
cmucl-linux-os.pot has changed because we moved some functions.
Likewise cmucl-unix.pot has changed too.
Add cmucl-os.pot to hold the new OS strings from os.lisp.
- - - - -
3 changed files:
- src/i18n/locale/cmucl-linux-os.pot
- + src/i18n/locale/cmucl-os.pot
- src/i18n/locale/cmucl-unix.pot
Changes:
=====================================
src/i18n/locale/cmucl-linux-os.pot
=====================================
@@ -19,14 +19,6 @@ msgstr ""
msgid "Getpagesize failed: ~A"
msgstr ""
-#: src/code/os.lisp
-msgid "Return the system page size"
-msgstr ""
-
-#: src/code/os.lisp
-msgid "get-page-size failed: ~A"
-msgstr ""
-
#: src/code/signal.lisp
msgid "Stack fault on coprocessor"
msgstr ""
=====================================
src/i18n/locale/cmucl-os.pot
=====================================
@@ -0,0 +1,35 @@
+#@ cmucl-os
+
+# SOME DESCRIPTIVE TITLE
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL(a)li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: src/code/os.lisp
+msgid "Return the system page size"
+msgstr ""
+
+#: src/code/os.lisp
+msgid "get-page-size failed: ~A"
+msgstr ""
+
+#: src/code/os.lisp
+msgid ""
+"Get system information consisting of the user time (in usec), the\n"
+" system time (in usec) and the number of major page faults."
+msgstr ""
+
+#: src/code/os.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1444,13 +1444,3 @@ msgstr ""
msgid "Get the codeset from the locale"
msgstr ""
-#: src/code/unix.lisp
-msgid ""
-"Get system information consisting of the user time (in usec), the\n"
-" system time (in usec) and the number of major page faults."
-msgstr ""
-
-#: src/code/unix.lisp
-msgid "Unix system call getrusage failed: ~A."
-msgstr ""
-
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/527160e8cc697f24a5c980c…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/527160e8cc697f24a5c980c…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-180-get-page-size-in-c at cmucl / cmucl
Commits:
6fc4c2a1 by Raymond Toy at 2023-04-19T10:05:41-07:00
Update pot files
- - - - -
3 changed files:
- src/i18n/locale/cmucl-linux-os.pot
- src/i18n/locale/cmucl-unix.pot
- src/i18n/locale/cmucl.pot
Changes:
=====================================
src/i18n/locale/cmucl-linux-os.pot
=====================================
@@ -16,11 +16,15 @@ msgstr ""
"Content-Transfer-Encoding: 8bit\n"
#: src/code/linux-os.lisp
-msgid "Returns a string describing version of the supporting software."
+msgid "Getpagesize failed: ~A"
msgstr ""
-#: src/code/linux-os.lisp
-msgid "Unix system call getrusage failed: ~A."
+#: src/code/os.lisp
+msgid "Return the system page size"
+msgstr ""
+
+#: src/code/os.lisp
+msgid "get-page-size failed: ~A"
msgstr ""
#: src/code/signal.lisp
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1445,6 +1445,12 @@ msgid "Get the codeset from the locale"
msgstr ""
#: src/code/unix.lisp
-msgid "get-page-size failed: ~A"
+msgid ""
+"Get system information consisting of the user time (in usec), the\n"
+" system time (in usec) and the number of major page faults."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Unix system call getrusage failed: ~A."
msgstr ""
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -5646,6 +5646,14 @@ msgstr ""
msgid "Returns a string describing the supporting software."
msgstr ""
+#: src/code/misc.lisp
+msgid "Version string for supporting software"
+msgstr ""
+
+#: src/code/misc.lisp
+msgid "Returns a string describing version of the supporting software."
+msgstr ""
+
#: src/code/misc.lisp
msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp."
msgstr ""
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6fc4c2a1c1645c04661b21c…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6fc4c2a1c1645c04661b21c…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-180-get-page-size-in-c at cmucl / cmucl
Commits:
02884455 by Raymond Toy at 2023-04-19T09:57:08-07:00
Fix typo in comment
- - - - -
1 changed file:
- src/code/os.lisp
Changes:
=====================================
src/code/os.lisp
=====================================
@@ -1,8 +1,8 @@
;;; -*- Package: SYSTEM -*-
;;;
;;; **********************************************************************
-;;; This code was written as part of the CMU Common Lisp project at
-;;; and has been placed in the public domain.
+;;; This code was written as part of the CMU Common Lisp project and
+;;; has been placed in the public domain.
;;;
(ext:file-comment
"$Header: src/code/os.lisp $")
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0288445524ea7ded798be22…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0288445524ea7ded798be22…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
38daa5e2 by Raymond Toy at 2023-04-19T15:13:28+00:00
Add missing colon after "Version"
- - - - -
de972bb3 by Raymond Toy at 2023-04-19T15:32:14+00:00
Merge branch 'rtoy-master-patch-80206' into 'master'
Add missing colon after "Version"
See merge request cmucl/cmucl!140
- - - - -
1 changed file:
- .gitlab/issue_templates/Bug.md
Changes:
=====================================
.gitlab/issue_templates/Bug.md
=====================================
@@ -16,7 +16,7 @@ If applicable, add screenshots to help explain your problem.
## Desktop (please complete the following information):
- OS: [e.g. Linux]
- - Version [e.g. 21c]
+ - Version: [e.g. 21c]
## Additional context
Add any other context about the problem here.
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2556df76cb546b458f21fa…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2556df76cb546b458f21fa…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
2556df76 by Raymond Toy at 2023-04-19T07:38:34-07:00
Update pot files
Forgot to update these in the merges, so let's do them all now.
- - - - -
2 changed files:
- src/i18n/locale/cmucl-linux-os.pot
- src/i18n/locale/cmucl-unix.pot
Changes:
=====================================
src/i18n/locale/cmucl-linux-os.pot
=====================================
@@ -15,10 +15,6 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
-#: src/code/linux-os.lisp
-msgid "Unix system call getrusage failed: ~A."
-msgstr ""
-
#: src/code/linux-os.lisp
msgid "Getpagesize failed: ~A"
msgstr ""
=====================================
src/i18n/locale/cmucl-unix.pot
=====================================
@@ -1448,3 +1448,13 @@ msgstr ""
msgid "Get the codeset from the locale"
msgstr ""
+#: src/code/unix.lisp
+msgid ""
+"Get system information consisting of the user time (in usec), the\n"
+" system time (in usec) and the number of major page faults."
+msgstr ""
+
+#: src/code/unix.lisp
+msgid "Unix system call getrusage failed: ~A."
+msgstr ""
+
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2556df76cb546b458f21fa2…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2556df76cb546b458f21fa2…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-120-software-type-in-c at cmucl / cmucl
Commits:
550b8762 by Raymond Toy at 2023-04-19T06:54:41-07:00
Address review comments
Remove the decache comment in `os-init` in bsd-os.lisp and
linux-os.lisp.
- - - - -
2 changed files:
- src/code/bsd-os.lisp
- src/code/linux-os.lisp
Changes:
=====================================
src/code/bsd-os.lisp
=====================================
@@ -54,7 +54,6 @@
;;; that set up the argument blocks for the server interfaces.
(defun os-init ()
- ;; Decache version on save, because it might not be the same when we restart.
(setf *software-version* nil))
;;; GET-PAGE-SIZE -- Interface
=====================================
src/code/linux-os.lisp
=====================================
@@ -31,7 +31,6 @@
;;; OS-Init initializes our operating-system interface.
;;;
(defun os-init ()
- ;; Decache version on save, because it might not be the same when we restart.
(setf *software-version* nil))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/550b876213f2ab6aded82ab…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/550b876213f2ab6aded82ab…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch issue-120-software-type-in-c at cmucl / cmucl
Commits:
72cdab53 by Raymond Toy at 2023-03-29T11:33:08-07:00
Fix warning about lack of prototype in os_get_locale_codeset.
Clang produces a warning for `char * os_get_locale_codeset()` because
we don't give a prototype for the arg of `os_get_locale_codeset`. So
just make it `void`.
- - - - -
bbfff3c0 by Raymond Toy at 2023-04-10T15:11:59+00:00
Fix #170: Move get-system-info to C
- - - - -
5196072a by Raymond Toy at 2023-04-10T15:12:01+00:00
Merge branch 'issue-179-get-system-info-in-c' into 'master'
Fix #170: Move get-system-info to C
Closes #170
See merge request cmucl/cmucl!137
- - - - -
b2aee0f7 by Raymond Toy at 2023-04-17T08:14:29-07:00
Update cmucl.pot with latest source
Some docstrings have changed, so update cmucl.pot
- - - - -
3da41d71 by Raymond Toy at 2023-04-17T08:18:04-07:00
Merge branch 'master' into issue-120-software-type-in-c
- - - - -
9360c95c by Raymond Toy at 2023-04-17T08:21:11-07:00
Add comment for os_software_version.
- - - - -
8 changed files:
- src/code/bsd-os.lisp
- src/code/hpux-os.lisp
- src/code/irix-os.lisp
- src/code/linux-os.lisp
- src/code/osf1-os.lisp
- src/code/sunos-os.lisp
- src/code/unix.lisp
- src/lisp/os-common.c
Changes:
=====================================
src/code/bsd-os.lisp
=====================================
@@ -57,22 +57,6 @@
;; Decache version on save, because it might not be the same when we restart.
(setf *software-version* nil))
-;;; GET-SYSTEM-INFO -- Interface
-;;;
-;;; Return system time, user time and number of page faults.
-;;;
-(defun get-system-info ()
- (multiple-value-bind (err? utime stime maxrss ixrss idrss
- isrss minflt majflt)
- (unix:unix-getrusage unix:rusage_self)
- (declare (ignore maxrss ixrss idrss isrss minflt))
- (unless err?
- (error (intl:gettext "Unix system call getrusage failed: ~A.")
- (unix:get-unix-error-msg utime)))
-
- (values utime stime majflt)))
-
-
;;; GET-PAGE-SIZE -- Interface
;;;
;;; Return the system page size.
=====================================
src/code/hpux-os.lisp
=====================================
@@ -46,22 +46,6 @@
;; Decache version on save, because it might not be the same when we restart.
(setf *software-version* nil))
-;;; GET-SYSTEM-INFO -- Interface
-;;;
-;;; Return system time, user time and number of page faults.
-;;;
-(defun get-system-info ()
- (multiple-value-bind
- (err? utime stime maxrss ixrss idrss isrss minflt majflt)
- (unix:unix-getrusage unix:rusage_self)
- (declare (ignore maxrss ixrss idrss isrss minflt))
- (cond ((null err?)
- (error "Unix system call getrusage failed: ~A."
- (unix:get-unix-error-msg utime)))
- (T
- (values utime stime majflt)))))
-
-
;;; GET-PAGE-SIZE -- Interface
;;;
;;; Return the system page size.
=====================================
src/code/irix-os.lisp
=====================================
@@ -48,22 +48,6 @@
;; Decache version on save, because it might not be the same when we restart.
(setf *software-version* nil))
-;;; GET-SYSTEM-INFO -- Interface
-;;;
-;;; Return system time, user time and number of page faults.
-;;;
-(defun get-system-info ()
- (multiple-value-bind
- (err? utime stime maxrss ixrss idrss isrss minflt majflt)
- (unix:unix-getrusage unix:rusage_self)
- (declare (ignore maxrss ixrss idrss isrss minflt))
- (cond ((null err?)
- (error "Unix system call getrusage failed: ~A."
- (unix:get-unix-error-msg utime)))
- (T
- (values utime stime majflt)))))
-
-
;;; GET-PAGE-SIZE -- Interface
;;;
;;; Return the system page size.
=====================================
src/code/linux-os.lisp
=====================================
@@ -35,22 +35,6 @@
(setf *software-version* nil))
-;;; GET-SYSTEM-INFO -- Interface
-;;;
-;;; Return system time, user time and number of page faults.
-;;;
-(defun get-system-info ()
- (multiple-value-bind (err? utime stime maxrss ixrss idrss
- isrss minflt majflt)
- (unix:unix-getrusage unix:rusage_self)
- (declare (ignore maxrss ixrss idrss isrss minflt))
- (unless err?
- (error (intl:gettext "Unix system call getrusage failed: ~A.")
- (unix:get-unix-error-msg utime)))
-
- (values utime stime majflt)))
-
-
;;; GET-PAGE-SIZE -- Interface
;;;
;;; Return the system page size.
=====================================
src/code/osf1-os.lisp
=====================================
@@ -47,23 +47,6 @@
(defun os-init ()
(setf *software-version* nil))
-;;; GET-SYSTEM-INFO -- Interface
-;;;
-;;; Return system time, user time and number of page faults. For
-;;; page-faults, we add pagein and pageout, since that is a somewhat more
-;;; interesting number than the total faults.
-;;;
-(defun get-system-info ()
- (multiple-value-bind (err? utime stime maxrss ixrss idrss
- isrss minflt majflt)
- (unix:unix-getrusage unix:rusage_self)
- (declare (ignore maxrss ixrss idrss isrss minflt))
- (unless err?
- (error "Unix system call getrusage failed: ~A."
- (unix:get-unix-error-msg utime)))
- (values utime stime majflt)))
-
-
;;; GET-PAGE-SIZE -- Interface
;;;
;;; Return the system page size.
=====================================
src/code/sunos-os.lisp
=====================================
@@ -41,21 +41,6 @@
;; Decache version on save, because it might not be the same when we restart.
(setf *software-version* nil))
-;;; GET-SYSTEM-INFO -- Interface
-;;;
-;;; Return system time, user time and number of page faults.
-;;;
-(defun get-system-info ()
- (multiple-value-bind
- (err? utime stime maxrss ixrss idrss isrss minflt majflt)
- (unix:unix-getrusage unix:rusage_self)
- (declare (ignore maxrss ixrss idrss isrss minflt))
- (cond ((null err?)
- (error (intl:gettext "Unix system call getrusage failed: ~A.")
- (unix:get-unix-error-msg utime)))
- (T
- (values utime stime majflt)))))
-
;;; GET-PAGE-SIZE -- Interface
;;;
;;; Return the system page size.
=====================================
src/code/unix.lisp
=====================================
@@ -2927,3 +2927,28 @@
(extern-alien "os_get_locale_codeset"
(function (* char))))
c-string))
+
+;;; GET-SYSTEM-INFO -- Interface
+;;;
+;;; Return system time, user time (in usec) and number of page
+;;; faults.
+;;;
+(defun get-system-info ()
+ "Get system information consisting of the user time (in usec), the
+ system time (in usec) and the number of major page faults."
+ (with-alien ((utime int64-t 0)
+ (stime int64-t 0)
+ (major-fault c-call:long 0))
+ (let ((rc (alien-funcall
+ (extern-alien "os_get_system_info"
+ (function c-call:int
+ (* int64-t)
+ (* int64-t)
+ (* c-call:long)))
+ (addr utime)
+ (addr stime)
+ (addr major-fault))))
+ (when (minusp rc)
+ (error (intl:gettext "Unix system call getrusage failed: ~A.")
+ (unix:get-unix-error-msg utime)))
+ (values utime stime major-fault))))
=====================================
src/lisp/os-common.c
=====================================
@@ -15,6 +15,7 @@
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
+#include <sys/resource.h>
#include <sys/stat.h>
#include <sys/utsname.h>
#include <unistd.h>
@@ -800,11 +801,41 @@ os_get_lc_messages(char *buf, int len)
}
char *
-os_get_locale_codeset()
+os_get_locale_codeset(void)
{
return nl_langinfo(CODESET);
}
+/*
+ * Get system info consisting of the utime (in usec), the stime (in
+ * usec) and the number of major page faults. The return value is the
+ * return code from getrusage.
+ */
+int
+os_get_system_info(int64_t* utime, int64_t* stime, long* major_fault)
+{
+ struct rusage usage;
+ int rc;
+
+ *utime = 0;
+ *stime = 0;
+ *major_fault = 0;
+
+ rc = getrusage(RUSAGE_SELF, &usage);
+ if (rc == 0) {
+ *utime = usage.ru_utime.tv_sec * 1000000 + usage.ru_utime.tv_usec;
+ *stime = usage.ru_stime.tv_sec * 1000000 + usage.ru_stime.tv_usec;
+ *major_fault = usage.ru_majflt;
+ }
+
+ return rc;
+}
+
+/*
+ * Get the software version. This is the same as "uname -r", the release.
+ * A pointer to a static string is returned. If uname fails, an empty
+ * string is returned.
+ */
char*
os_software_version(void)
{
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9d629ff45cb7439b9434b9…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9d629ff45cb7439b9434b9…
You're receiving this email because of your account on gitlab.common-lisp.net.
Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
b2aee0f7 by Raymond Toy at 2023-04-17T08:14:29-07:00
Update cmucl.pot with latest source
Some docstrings have changed, so update cmucl.pot
- - - - -
1 changed file:
- src/i18n/locale/cmucl.pot
Changes:
=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -4014,10 +4014,9 @@ msgstr ""
#: src/code/string.lisp
msgid ""
-"Convert String to NFD (or NFKD). If :darwinp is non-NIL, then\n"
-" characters in the ranges U2000-U2FFF, UF900-UFA6A, and\n"
-" U2F800-U2FA1D are not decomposed, as specified for Darwin\n"
-" pathnames."
+"Convert STRING to NFD (or NFKD). If :darwinp is non-NIL, then\n"
+" characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n"
+" are not decomposed, as specified for Darwin pathnames."
msgstr ""
#: src/code/string.lisp
@@ -5651,10 +5650,6 @@ msgstr ""
msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp."
msgstr ""
-#: src/code/misc.lisp
-msgid "Unknown"
-msgstr ""
-
#: src/code/misc.lisp
msgid "Returns a string with the abbreviated site name."
msgstr ""
@@ -5663,10 +5658,6 @@ msgstr ""
msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp."
msgstr ""
-#: src/code/misc.lisp
-msgid "Site name not initialized"
-msgstr ""
-
#: src/code/misc.lisp
msgid "Returns a string with the long form of the site name."
msgstr ""
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b2aee0f70567e3e36579517…
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b2aee0f70567e3e36579517…
You're receiving this email because of your account on gitlab.common-lisp.net.