Overview
| Comment: | some forgotten changes... hopefully good changes. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70-captain-ulex | v1.70-defunct-try |
| Files: | files | file ages | folders |
| SHA1: |
f86d0abaad16bc435375af6fe09eb4d4 |
| User & Date: | matt on 2020-01-28 20:07:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-01-29
| ||
| 21:06 | send-recieve fully using read/write (not a space-delimited string). check-in: 86f34c5c1b user: matt tags: v1.70-captain-ulex, v1.70-defunct-try | |
|
2020-01-28
| ||
| 20:07 | some forgotten changes... hopefully good changes. check-in: f86d0abaad user: matt tags: v1.70-captain-ulex, v1.70-defunct-try | |
|
2020-01-22
| ||
| 22:33 | wip-cleaning-up-send-receive check-in: 1dbae7035b user: matt tags: v1.70-captain-ulex, v1.70-defunct-try | |
Changes
Modified Makefile from [9634350b91] to [b026906876].
| ︙ | ︙ | |||
56 57 58 59 60 61 62 | MOIMPFILES = $(MSRCFILES:%.scm=%.import.o) GMOFILES = $(addprefix mofiles/,$(GMSRCFILES:%.scm=%.o)) # compiled import files GMOIMPFILES = $(GMSRCFILES:%.scm=%.import.o) %.import.o : %.import.scm | | | 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | MOIMPFILES = $(MSRCFILES:%.scm=%.import.o) GMOFILES = $(addprefix mofiles/,$(GMSRCFILES:%.scm=%.o)) # compiled import files GMOIMPFILES = $(GMSRCFILES:%.scm=%.import.o) %.import.o : %.import.scm csc $(CSCOPTS) -unit $*.import -c $*.import.scm -o $*.import.o # mofiles/ducttape-lib.o : ducttape-lib.scm ducttape/*scm # csc -I ducttape -J -c ducttape-lib.scm -o mofiles/ducttape-lib.o mofiles/%.o %.import.scm : %.scm @[ -e mofiles ] || mkdir -p mofiles csc $(CSCOPTS) -I $* -J -c $< -o mofiles/$*.o |
| ︙ | ︙ |
Modified runsmod.scm from [4385dac738] to [0d0f4df0dc].
| ︙ | ︙ | |||
7160 7161 7162 7163 7164 7165 7166 |
(let* ((existing-blocks (rmt:archive-get-allocations testname itempath dused))
(candidate-disks (map (lambda (block)
(list
(vector-ref block 1) ;; archive-area-name
(vector-ref block 2))) ;; disk-path
existing-blocks)))
(or (common:get-disk-with-most-free-space candidate-disks dused)
| | | 7160 7161 7162 7163 7164 7165 7166 7167 7168 7169 7170 7171 7172 7173 7174 |
(let* ((existing-blocks (rmt:archive-get-allocations testname itempath dused))
(candidate-disks (map (lambda (block)
(list
(vector-ref block 1) ;; archive-area-name
(vector-ref block 2))) ;; disk-path
existing-blocks)))
(or (common:get-disk-with-most-free-space candidate-disks dused)
(archive:allocate-new-archive-block #f #f #f #f #f #f #f)))) ;; BROKEN. testname itempath))))
;; allocate a new archive area
;;
(define (archive:allocate-new-archive-block blockid-cache run-area-home testsuite-name dneeded target run-name test-name)
(let ((key (conc testsuite-name "/" target "/" run-name "/" test-name)))
(if (hash-table-exists? blockid-cache key)
(hash-table-ref blockid-cache key)
|
| ︙ | ︙ |