Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
C
clim-tos
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container Registry
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Alastair Bridgewater
clim-tos
Commits
82009233
Commit
82009233
authored
32 years ago
by
cer
Browse files
Options
Downloads
Patches
Plain Diff
jdimerge
parent
7e82e262
No related branches found
No related tags found
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
ChangeLog.n
+102
-0
102 additions, 0 deletions
ChangeLog.n
Makefile
+3
-2
3 additions, 2 deletions
Makefile
with
105 additions
and
2 deletions
ChangeLog.n
+
102
−
0
View file @
82009233
--------------------------------------------------------------------------------
from jdi: Wed May 13 17:13:58 PDT 1992
Added print-object method for window-repaint-event
Optimize invoke-with-sheet-medium.
Made xm-proto-callback-info c-type be :in-foreign-space by default
since it is captured by C.
Made ':line-dashes t' work by fixing adjust-ink.
Optimized port-draw-* functions.
Optimized convert-to-device-* macros.
Added fast-abs macro to lisp-utilities. Do abs() assuming all fixnums.
Lots of other speedups.
Made object-display slot fixed index (0).
Fixed Lisp's slot-value-using-class macro to allow this
without having to heavily munge CLIM source.
Cached clip-mask in medium. Update it lazily when needed. Invalidate
it when necessary.
Cached clip-mask in medium, and medium in ink.
Only send a request to X when necessary.
Wrote lisp-xdrawstring.
Added XmMyDrawingArea (for lack of better name). It compresses
exposure events.
Made xid->object mapping be specialized per display.
Highly optimized set-values, get-values, and resource converters
Other misc stuff too boring to describe here.
Timings of:
(defun foo (port sheet)
(declare (optimize (speed 3) (safety 0)))
(dotimes (i 1000) (silica:mirror-region* port sheet)))
Where sheet is the application pane.
Original:
cpu time (non-gc) 1983 msec user, 34 msec system
cpu time (gc) 0 msec user, 0 msec system
cpu time (total) 1983 msec user, 34 msec system
real time 2030 msec
space allocation:
24010 cons cells, 0 symbols, 72096 other bytes,
After resource allocation and rework of get-values:
cpu time (non-gc) 1400 msec user, 33 msec system
cpu time (gc) 0 msec user, 0 msec system
cpu time (total) 1400 msec user, 33 msec system
real time 1450 msec
space allocation:
13002 cons cells, 0 symbols, 32 other bytes,
After caching whole sucker in class:
cpu time (non-gc) 583 msec user, 0 msec system
cpu time (gc) 0 msec user, 0 msec system
cpu time (total) 583 msec user, 0 msec system
real time 600 msec
space allocation:
4002 cons cells, 0 symbols, 32 other bytes,
--
Timings of:
(defun bar (viewport)
(declare (optimize (speed 3) (safety 0)))
(let ((vertbar (silica::scroller-pane-vertical-scroll-bar
(sheet-parent (sheet-parent viewport)))))
(dotimes (i 1000) (silica:change-scroll-bar-values vertbar :slider-size .8 :value .1))))
Where sheet is the viewport after the Gettysburg demo runs.
Original:
cpu time (non-gc) 2850 msec user, 66 msec system
cpu time (gc) 0 msec user, 0 msec system
cpu time (total) 2850 msec user, 66 msec system
real time 3000 msec
space allocation:
32010 cons cells, 0 symbols, 368096 other bytes,
After caching whole sucker in class:
cpu time (non-gc) 1300 msec user, 16 msec system
cpu time (gc) 0 msec user, 0 msec system
cpu time (total) 1300 msec user, 16 msec system
real time 1360 msec
space allocation:
11001 cons cells, 0 symbols, 256032 other bytes,
--------------------------------------------------------------------------------
from jdi: Tue Apr 21 16:45:10 PDT 1992
FILES MOVED OR CHANGED:
...
...
This diff is collapsed.
Click to expand it.
Makefile
+
3
−
2
View file @
82009233
# $fiHeader: Makefile,v 1.2
7
92/05/
07 13:13:41
cer Exp Locker: cer $
# $fiHeader: Makefile,v 1.2
8
92/05/
13 17:11:04
cer Exp Locker: cer $
#
# Makefile for CLIM 2.0
#
...
...
@@ -51,7 +51,8 @@ TMP = /usr/tmp
SRC_FILES
=
*
/
*
.lisp
*
.lisp Makefile
*
/Makefile misc/make-stub-file
\
misc/undefinedsymbols misc/undefinedsymbols.olit
\
misc/undefinedsymbols.motif misc/undefinedsymbols.xt
misc/undefinedsymbols.motif misc/undefinedsymbols.xt
\
xlib/xlibsupport.c misc/MyDrawingA
*
.[hc]
DEST
=
/dev/null
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment