Fix typos
This commit is contained in:
parent
b14b2400fd
commit
bcd8de5c9a
|
@ -330,7 +330,7 @@
|
||||||
;;; (define top-wrap '((top)))
|
;;; (define top-wrap '((top)))
|
||||||
;;; (define top-marked?
|
;;; (define top-marked?
|
||||||
;;; (lambda (w) (memq 'top (wrap-marks w))))
|
;;; (lambda (w) (memq 'top (wrap-marks w))))
|
||||||
;;; On ther other hand, we don't do this consistently; we define make-wrap,
|
;;; On the other hand, we don't do this consistently; we define make-wrap,
|
||||||
;;; wrap-marks, and wrap-subst simply as
|
;;; wrap-marks, and wrap-subst simply as
|
||||||
;;; (define make-wrap cons)
|
;;; (define make-wrap cons)
|
||||||
;;; (define wrap-marks car)
|
;;; (define wrap-marks car)
|
||||||
|
|
|
@ -59,7 +59,7 @@ DrRacket redraws a full window's worth of text
|
||||||
(queue-callback
|
(queue-callback
|
||||||
(λ ()
|
(λ ()
|
||||||
(set! times '())
|
(set! times '())
|
||||||
(set! s (make-semaphore)) ;; because earlier paints happend before we were ready
|
(set! s (make-semaphore)) ;; because earlier paints happened before we were ready
|
||||||
(for ([i (in-range number-of-experiments)])
|
(for ([i (in-range number-of-experiments)])
|
||||||
(collect-garbage) (collect-garbage) (collect-garbage)
|
(collect-garbage) (collect-garbage) (collect-garbage)
|
||||||
(send ec refresh)
|
(send ec refresh)
|
||||||
|
|
|
@ -431,7 +431,7 @@
|
||||||
(thread
|
(thread
|
||||||
(lambda ()
|
(lambda ()
|
||||||
;; Ideally, this loop retains only `loop`
|
;; Ideally, this loop retains only `loop`
|
||||||
;; and `sema`. If it retains everything refereneced
|
;; and `sema`. If it retains everything referenced
|
||||||
;; or defined in the module, though, at least make
|
;; or defined in the module, though, at least make
|
||||||
;; sure it doesn't retain the whole namespace
|
;; sure it doesn't retain the whole namespace
|
||||||
(let loop () (sync sema) (loop)))))))
|
(let loop () (sync sema) (loop)))))))
|
||||||
|
|
|
@ -115,7 +115,7 @@
|
||||||
=stderr> #rx"unexpected checksum")
|
=stderr> #rx"unexpected checksum")
|
||||||
|
|
||||||
(shelly-case
|
(shelly-case
|
||||||
"remote/URL/http directory, non-existant file"
|
"remote/URL/http directory, non-existent file"
|
||||||
$ "raco pkg install http://localhost:9997/pkg-test1.rar" =exit> 1)
|
$ "raco pkg install http://localhost:9997/pkg-test1.rar" =exit> 1)
|
||||||
(shelly-case
|
(shelly-case
|
||||||
"remote/URL/http directory, no manifest fail"
|
"remote/URL/http directory, no manifest fail"
|
||||||
|
|
|
@ -165,7 +165,7 @@
|
||||||
;; When taking a lock, we need to consistently
|
;; When taking a lock, we need to consistently
|
||||||
;; use the main destination (where we'll write)
|
;; use the main destination (where we'll write)
|
||||||
;; and not find a ".zo" file that exists in an
|
;; and not find a ".zo" file that exists in an
|
||||||
;; ealier root:
|
;; earlier root:
|
||||||
(list (car roots))
|
(list (car roots))
|
||||||
roots)
|
roots)
|
||||||
;; In cross-multi mode, we need to default to the
|
;; In cross-multi mode, we need to default to the
|
||||||
|
|
|
@ -234,7 +234,7 @@
|
||||||
|
|
||||||
(define symbol-complex (trans (seqs L (arbno (alt L D)))))
|
(define symbol-complex (trans (seqs L (arbno (alt L D)))))
|
||||||
|
|
||||||
;; Accomodate things like 10_1 and 10.12.1 in `availability` attributes:
|
;; Accommodate things like 10_1 and 10.12.1 in `availability` attributes:
|
||||||
(define pseudo-symbol-complex (trans (alt*
|
(define pseudo-symbol-complex (trans (alt*
|
||||||
(seqs (arbno D) "_" (arbno D))
|
(seqs (arbno D) "_" (arbno D))
|
||||||
(seqs (one+ D) "[.]" (one+ D) "[.]" (one+ D)))))
|
(seqs (one+ D) "[.]" (one+ D) "[.]" (one+ D)))))
|
||||||
|
|
|
@ -119,7 +119,7 @@
|
||||||
p))]
|
p))]
|
||||||
[empty-cache (lambda ()
|
[empty-cache (lambda ()
|
||||||
;; If you try things the hard way with Obj-C 2.0,
|
;; If you try things the hard way with Obj-C 2.0,
|
||||||
;; you need to set up the cache. For ealier
|
;; you need to set up the cache. For earlier
|
||||||
;; versions, you need to set the cache to #f.
|
;; versions, you need to set the cache to #f.
|
||||||
#;
|
#;
|
||||||
(let ([p (malloc 'raw 1 _objc_cache)])
|
(let ([p (malloc 'raw 1 _objc_cache)])
|
||||||
|
|
|
@ -84,7 +84,7 @@
|
||||||
(equal? (subbytes bstr 0 4) #"\211PNG"))
|
(equal? (subbytes bstr 0 4) #"\211PNG"))
|
||||||
'png]
|
'png]
|
||||||
[else
|
[else
|
||||||
;; Asume BMP
|
;; Assume BMP
|
||||||
'bmp]))
|
'bmp]))
|
||||||
|
|
||||||
(define (ico-png-width i)
|
(define (ico-png-width i)
|
||||||
|
|
|
@ -576,7 +576,7 @@
|
||||||
;; for the executable and icon, but we don't want absolute
|
;; for the executable and icon, but we don't want absolute
|
||||||
;; paths in an in-place build. So, the ".desktop" files
|
;; paths in an in-place build. So, the ".desktop" files
|
||||||
;; in an in-place build won't be usable directly, but they
|
;; in an in-place build won't be usable directly, but they
|
||||||
;; adn be patched up by `setup/unixstyle-install'.
|
;; and be patched up by `setup/unixstyle-install'.
|
||||||
(let ([p (simple-form-path (path->complete-path p))])
|
(let ([p (simple-form-path (path->complete-path p))])
|
||||||
(if (or user?
|
(if (or user?
|
||||||
(get-absolute-installation?))
|
(get-absolute-installation?))
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
; defines common data used by the PLaneT system
|
; defines common data used by the PLaneT system
|
||||||
; ==========================================================================================
|
; ==========================================================================================
|
||||||
|
|
||||||
; exn:i/o:protocol: exception indicating that a protocol error occured
|
; exn:i/o:protocol: exception indicating that a protocol error occurred
|
||||||
(define-struct (exn:i/o:protocol exn:fail:network) ())
|
(define-struct (exn:i/o:protocol exn:fail:network) ())
|
||||||
|
|
||||||
; FULL-PKG-SPEC : struct pkg-spec
|
; FULL-PKG-SPEC : struct pkg-spec
|
||||||
|
|
|
@ -144,7 +144,7 @@ in several significant ways:
|
||||||
work across module boundaries.
|
work across module boundaries.
|
||||||
|
|
||||||
The `struct' signature form for `unit/sig' introduces
|
The `struct' signature form for `unit/sig' introduces
|
||||||
expansion-time information into importing units that immitates that
|
expansion-time information into importing units that imitates that
|
||||||
of a `define-struct' declaration. The information is currently
|
of a `define-struct' declaration. The information is currently
|
||||||
limited, in that subtyping relations are not exposed and the actual
|
limited, in that subtyping relations are not exposed and the actual
|
||||||
structure type may have more fields than declared in the
|
structure type may have more fields than declared in the
|
||||||
|
|
|
@ -51,7 +51,7 @@
|
||||||
;; This thread is the part that makes the channel asynchronous.
|
;; This thread is the part that makes the channel asynchronous.
|
||||||
;; It waits for a combination of gets and puts as appropriate.
|
;; It waits for a combination of gets and puts as appropriate.
|
||||||
;; Note that we start it with `thread/suspend-kill', and we
|
;; Note that we start it with `thread/suspend-kill', and we
|
||||||
;; resume the manager thread with the current thread everytime
|
;; resume the manager thread with the current thread every time
|
||||||
;; we want to talk to the manager thread, which effectively
|
;; we want to talk to the manager thread, which effectively
|
||||||
;; means that the manager thread is not bound by a custodian
|
;; means that the manager thread is not bound by a custodian
|
||||||
;; that is weaker than any of its user's custodians (and thus,
|
;; that is weaker than any of its user's custodians (and thus,
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
;; This module is preserved only for backward compatiblity
|
;; This module is preserved only for backward compatibility
|
||||||
(module reader '#%kernel
|
(module reader '#%kernel
|
||||||
(#%require (submod racket/base reader))
|
(#%require (submod racket/base reader))
|
||||||
(#%provide (all-from (submod racket/base reader))))
|
(#%provide (all-from (submod racket/base reader))))
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
;; This module is preserved only for backward compatiblity
|
;; This module is preserved only for backward compatibility
|
||||||
(module reader '#%kernel
|
(module reader '#%kernel
|
||||||
(#%require (submod racket reader))
|
(#%require (submod racket reader))
|
||||||
(#%provide (all-from (submod racket reader))))
|
(#%provide (all-from (submod racket reader))))
|
||||||
|
|
|
@ -122,7 +122,7 @@
|
||||||
[parsed-ps (map parse ps)]
|
[parsed-ps (map parse ps)]
|
||||||
[parsed-lp (rearm+parse #'lp)])
|
[parsed-lp (rearm+parse #'lp)])
|
||||||
;; duplicates within *one* of the ps is fine, but duplicates
|
;; duplicates within *one* of the ps is fine, but duplicates
|
||||||
;; *accross multiple* of the ps is an error, at least for now
|
;; *across multiple* of the ps is an error, at least for now
|
||||||
(check-list-no-order-duplicates (cons parsed-lp parsed-ps))
|
(check-list-no-order-duplicates (cons parsed-lp parsed-ps))
|
||||||
(GSeq (cons (list parsed-lp)
|
(GSeq (cons (list parsed-lp)
|
||||||
(for/list ([p parsed-ps]) (list p)))
|
(for/list ([p parsed-ps]) (list p)))
|
||||||
|
@ -143,7 +143,7 @@
|
||||||
;; parsed versions of ps
|
;; parsed versions of ps
|
||||||
[parsed-ps (map rearm+parse ps)])
|
[parsed-ps (map rearm+parse ps)])
|
||||||
;; duplicates within *one* of the ps is fine, but duplicates
|
;; duplicates within *one* of the ps is fine, but duplicates
|
||||||
;; *accross multiple* of the ps is an error, at least for now
|
;; *across multiple* of the ps is an error, at least for now
|
||||||
(check-list-no-order-duplicates parsed-ps)
|
(check-list-no-order-duplicates parsed-ps)
|
||||||
(GSeq (for/list ([p parsed-ps]) (list p))
|
(GSeq (for/list ([p parsed-ps]) (list p))
|
||||||
(map (lambda _ 1) ps)
|
(map (lambda _ 1) ps)
|
||||||
|
|
|
@ -1749,7 +1749,7 @@
|
||||||
(write-receipt-hash receipt-path ht2)))
|
(write-receipt-hash receipt-path ht2)))
|
||||||
|
|
||||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Foriegn Libraries and Man Pages ;;
|
;; Foreign Libraries and Man Pages ;;
|
||||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(define (make-copy/move-step what
|
(define (make-copy/move-step what
|
||||||
|
|
|
@ -27,7 +27,7 @@
|
||||||
;;
|
;;
|
||||||
;; (<m-id>)
|
;; (<m-id>)
|
||||||
;;
|
;;
|
||||||
;; to check whether the match suceeded (which makes sense only if a
|
;; to check whether the match succeeded (which makes sense only if a
|
||||||
;; guard or `#:try` is included) or
|
;; guard or `#:try` is included) or
|
||||||
;;
|
;;
|
||||||
;; (<m-id> '<pattern-id>)
|
;; (<m-id> '<pattern-id>)
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
(require "built-in-symbol.rkt")
|
(require "built-in-symbol.rkt")
|
||||||
|
|
||||||
;; Identifers used in the compiler's output; we make distinct names
|
;; Identifiers used in the compiler's output; we make distinct names
|
||||||
;; for them once to avoid shadowing of other collisions
|
;; for them once to avoid shadowing of other collisions
|
||||||
(provide phase-shift-id
|
(provide phase-shift-id
|
||||||
dest-phase-id
|
dest-phase-id
|
||||||
|
|
|
@ -3716,7 +3716,7 @@ static Scheme_Object *ffi_do_call(int argc, Scheme_Object *argv[], Scheme_Object
|
||||||
/* Use `data' to make sure it's kept alive (as far as the GC is concerned)
|
/* Use `data' to make sure it's kept alive (as far as the GC is concerned)
|
||||||
until the foreign call returns: */
|
until the foreign call returns: */
|
||||||
if ((void*)data == (void*)scheme_true)
|
if ((void*)data == (void*)scheme_true)
|
||||||
scheme_signal_error("dummy test suceeded!?");
|
scheme_signal_error("dummy test succeeded!?");
|
||||||
|
|
||||||
if (save_errno != 0) save_errno_values(save_errno);
|
if (save_errno != 0) save_errno_values(save_errno);
|
||||||
ivals = NULL; /* no need now to hold on to this */
|
ivals = NULL; /* no need now to hold on to this */
|
||||||
|
|
|
@ -2883,7 +2883,7 @@ static Scheme_Object *ffi_do_call(int argc, Scheme_Object *argv[], Scheme_Object
|
||||||
/* Use `data' to make sure it's kept alive (as far as the GC is concerned)
|
/* Use `data' to make sure it's kept alive (as far as the GC is concerned)
|
||||||
until the foreign call returns: */
|
until the foreign call returns: */
|
||||||
if ((void*)data == (void*)scheme_true)
|
if ((void*)data == (void*)scheme_true)
|
||||||
scheme_signal_error("dummy test suceeded!?");
|
scheme_signal_error("dummy test succeeded!?");
|
||||||
|
|
||||||
if (save_errno != 0) save_errno_values(save_errno);
|
if (save_errno != 0) save_errno_values(save_errno);
|
||||||
ivals = NULL; /* no need now to hold on to this */
|
ivals = NULL; /* no need now to hold on to this */
|
||||||
|
|
|
@ -66,7 +66,7 @@ $LCFI3:
|
||||||
blt bytes, v0, sixteen
|
blt bytes, v0, sixteen
|
||||||
|
|
||||||
ADDU v0, bytes, 7 # make sure it is aligned
|
ADDU v0, bytes, 7 # make sure it is aligned
|
||||||
and v0, -8 # to an 8 byte boundry
|
and v0, -8 # to an 8 byte boundary
|
||||||
|
|
||||||
sixteen:
|
sixteen:
|
||||||
SUBU $sp, v0 # move the stack pointer to reflect the
|
SUBU $sp, v0 # move the stack pointer to reflect the
|
||||||
|
|
|
@ -545,7 +545,7 @@ static ULONG STDMETHODCALLTYPE classAddRef(IClassFactory *com_obj)
|
||||||
// Since we never actually allocate/free an IClassFactory (ie, we
|
// Since we never actually allocate/free an IClassFactory (ie, we
|
||||||
// use just 1 static one), we don't need to maintain a separate
|
// use just 1 static one), we don't need to maintain a separate
|
||||||
// reference count for our IClassFactory. We'll just tell the caller
|
// reference count for our IClassFactory. We'll just tell the caller
|
||||||
// that there's at least one of our IClassFactory objects in existance
|
// that there's at least one of our IClassFactory objects in existence
|
||||||
return(1);
|
return(1);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -301,7 +301,7 @@ void GC_amiga_free_all_mem(void){
|
||||||
printf("GC_gcollect was called %d times to avoid returning NULL or start allocating with the MEMF_ANY flag.\n",numcollects);
|
printf("GC_gcollect was called %d times to avoid returning NULL or start allocating with the MEMF_ANY flag.\n",numcollects);
|
||||||
printf("%d of them was a success. (the others had to use allocation from the OS.)\n",nullretries);
|
printf("%d of them was a success. (the others had to use allocation from the OS.)\n",nullretries);
|
||||||
printf("\n");
|
printf("\n");
|
||||||
printf("Succeded forcing %d gc-allocations (%d bytes) of chip-mem to be fast-mem.\n",succ,succ2);
|
printf("Succeeded forcing %d gc-allocations (%d bytes) of chip-mem to be fast-mem.\n",succ,succ2);
|
||||||
printf("Failed forcing %d gc-allocations (%d bytes) of chip-mem to be fast-mem.\n",nsucc,nsucc2);
|
printf("Failed forcing %d gc-allocations (%d bytes) of chip-mem to be fast-mem.\n",nsucc,nsucc2);
|
||||||
printf("\n");
|
printf("\n");
|
||||||
printf(
|
printf(
|
||||||
|
|
|
@ -117,7 +117,7 @@
|
||||||
|
|
||||||
* mark.c (GC_push_next_marked): correct comment.
|
* mark.c (GC_push_next_marked): correct comment.
|
||||||
* Makefile.direct: document NO_PROC_STAT.
|
* Makefile.direct: document NO_PROC_STAT.
|
||||||
* include/private/gcconfig.h: Accomodate NO_PROC_STAT.
|
* include/private/gcconfig.h: Accommodate NO_PROC_STAT.
|
||||||
|
|
||||||
2008-01-10 Hans Boehm <Hans.Boehm@hp.com>
|
2008-01-10 Hans Boehm <Hans.Boehm@hp.com>
|
||||||
|
|
||||||
|
@ -277,7 +277,7 @@
|
||||||
* dbg_mlc.c: Use random() on all glibc systems.
|
* dbg_mlc.c: Use random() on all glibc systems.
|
||||||
* mach_dep.c (GC_with_callee_saves_pushed): Don't use getcontext() on
|
* mach_dep.c (GC_with_callee_saves_pushed): Don't use getcontext() on
|
||||||
HURD. Add comment.
|
HURD. Add comment.
|
||||||
* pthread_stop_world.c (GC_suspend_handler, GC_stop_init): Accomodate
|
* pthread_stop_world.c (GC_suspend_handler, GC_stop_init): Accommodate
|
||||||
systems without SA_SIGINFO.
|
systems without SA_SIGINFO.
|
||||||
|
|
||||||
2007-08-14 Hans Boehm <Hans.Boehm@hp.com> (partly really Henrik Theiling)
|
2007-08-14 Hans Boehm <Hans.Boehm@hp.com> (partly really Henrik Theiling)
|
||||||
|
@ -469,7 +469,7 @@
|
||||||
2007-05-23 Hans Boehm <Hans.Boehm@hp.com> (Really mostly Romano Paolo Tenca)
|
2007-05-23 Hans Boehm <Hans.Boehm@hp.com> (Really mostly Romano Paolo Tenca)
|
||||||
|
|
||||||
* gc_dlopen.c, thread_local_alloc.c, threadlibs.c, win32_threads.c,
|
* gc_dlopen.c, thread_local_alloc.c, threadlibs.c, win32_threads.c,
|
||||||
tests/test.c: Accomodate GC_WIN32_PTHREADS.
|
tests/test.c: Accommodate GC_WIN32_PTHREADS.
|
||||||
* include/gc.h: Don't include windows.h for GC_WIN32_PTHREADS.
|
* include/gc.h: Don't include windows.h for GC_WIN32_PTHREADS.
|
||||||
* include/gc_config_macros.h: Define both PTHREADS and
|
* include/gc_config_macros.h: Define both PTHREADS and
|
||||||
GC_WIN32_THREADS.
|
GC_WIN32_THREADS.
|
||||||
|
|
|
@ -76,6 +76,6 @@ Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
|
||||||
|
|
||||||
When using the new "configure; make" build process, please
|
When using the new "configure; make" build process, please
|
||||||
run configure with the --disable-shared option. "Make check" does not
|
run configure with the --disable-shared option. "Make check" does not
|
||||||
yet pass with dynamic libraries. Ther reasons for that are not yet
|
yet pass with dynamic libraries. Their reasons for that are not yet
|
||||||
understood. (HB, paraphrasing message from Hironori SAKAMOTO.)
|
understood. (HB, paraphrasing message from Hironori SAKAMOTO.)
|
||||||
|
|
||||||
|
|
|
@ -212,7 +212,7 @@ from are copied to the stack. Typically this can be done portably,
|
||||||
but on some platforms it may require assembly code, or just
|
but on some platforms it may require assembly code, or just
|
||||||
tweaking of conditional compilation tests.
|
tweaking of conditional compilation tests.
|
||||||
<P>
|
<P>
|
||||||
For GC7, if your platform supports <TT>getcontext()</tt>, then definining
|
For GC7, if your platform supports <TT>getcontext()</tt>, then defining
|
||||||
the macro <TT>UNIX_LIKE</tt> for your OS in <TT>gcconfig.h</tt>
|
the macro <TT>UNIX_LIKE</tt> for your OS in <TT>gcconfig.h</tt>
|
||||||
(if it isn't defined there already) is likely to solve the problem.
|
(if it isn't defined there already) is likely to solve the problem.
|
||||||
otherwise, if you are using gcc, <TT>_builtin_unwind_init()</tt>
|
otherwise, if you are using gcc, <TT>_builtin_unwind_init()</tt>
|
||||||
|
|
|
@ -1025,7 +1025,7 @@ struct _GC_arrays {
|
||||||
# endif
|
# endif
|
||||||
# ifdef MSWINCE
|
# ifdef MSWINCE
|
||||||
word _heap_lengths[MAX_HEAP_SECTS];
|
word _heap_lengths[MAX_HEAP_SECTS];
|
||||||
/* Commited lengths of memory regions obtained from kernel. */
|
/* Committed lengths of memory regions obtained from kernel. */
|
||||||
# endif
|
# endif
|
||||||
struct roots _static_roots[MAX_ROOT_SETS];
|
struct roots _static_roots[MAX_ROOT_SETS];
|
||||||
# if !defined(MSWIN32) && !defined(MSWINCE)
|
# if !defined(MSWIN32) && !defined(MSWINCE)
|
||||||
|
|
|
@ -435,7 +435,7 @@ static ptr_t backing_store_base_from_proc(void)
|
||||||
/* Some Linux distributions arrange to define __data_start. Some */
|
/* Some Linux distributions arrange to define __data_start. Some */
|
||||||
/* define data_start as a weak symbol. The latter is technically */
|
/* define data_start as a weak symbol. The latter is technically */
|
||||||
/* broken, since the user program may define data_start, in which */
|
/* broken, since the user program may define data_start, in which */
|
||||||
/* case we lose. Nonetheless, we try both, prefering __data_start. */
|
/* case we lose. Nonetheless, we try both, preferring __data_start. */
|
||||||
/* We assume gcc-compatible pragmas. */
|
/* We assume gcc-compatible pragmas. */
|
||||||
# pragma weak __data_start
|
# pragma weak __data_start
|
||||||
extern int __data_start[];
|
extern int __data_start[];
|
||||||
|
|
|
@ -152,7 +152,7 @@ Racket allocates the following kinds of memory objects:
|
||||||
|
|
||||||
void *GC_malloc_weak_box(void *p, void **secondary, int soffset);
|
void *GC_malloc_weak_box(void *p, void **secondary, int soffset);
|
||||||
|
|
||||||
If the `secondary' argument is not NULL, it points to an auxilliary
|
If the `secondary' argument is not NULL, it points to an auxiliary
|
||||||
address that should be zeroed (by the collector) whenever `val' is
|
address that should be zeroed (by the collector) whenever `val' is
|
||||||
zeroed. To allow zeroing in the interior of an allocated pointer,
|
zeroed. To allow zeroing in the interior of an allocated pointer,
|
||||||
the zero-out address is determined by `secondary + soffset'. The
|
the zero-out address is determined by `secondary + soffset'. The
|
||||||
|
|
|
@ -2647,7 +2647,7 @@ void scheme_check_future_work()
|
||||||
else {
|
else {
|
||||||
/* If ft is touching another future, then the other
|
/* If ft is touching another future, then the other
|
||||||
future may resume ft while we grab the continuation.
|
future may resume ft while we grab the continuation.
|
||||||
Withold ft->can_continue_sema for now, so that we can
|
Withhold ft->can_continue_sema for now, so that we can
|
||||||
capture the continuation, and then double-check
|
capture the continuation, and then double-check
|
||||||
afterward whether the continuation wants a lwc: */
|
afterward whether the continuation wants a lwc: */
|
||||||
can_continue_sema = ft->can_continue_sema;
|
can_continue_sema = ft->can_continue_sema;
|
||||||
|
|
|
@ -1298,7 +1298,7 @@ _arm_cc_vorsl(jit_state_t _jitp, int cc, int o, int r0, int r1, int i0)
|
||||||
/* "oi" should be the result of encode_vfp_double */
|
/* "oi" should be the result of encode_vfp_double */
|
||||||
#define _VIMM(oi,r0) arm_vodi(oi,r0)
|
#define _VIMM(oi,r0) arm_vodi(oi,r0)
|
||||||
#define _VIMMQ(oi,r0) arm_voqi(oi|ARM_V_Q,r0)
|
#define _VIMMQ(oi,r0) arm_voqi(oi|ARM_V_Q,r0)
|
||||||
/* index is multipled by four */
|
/* index is multiplied by four */
|
||||||
#define _CC_VLDRN_F32(cc,r0,r1,i0) arm_cc_vldst(cc,ARM_VLDR,r0,r1,i0)
|
#define _CC_VLDRN_F32(cc,r0,r1,i0) arm_cc_vldst(cc,ARM_VLDR,r0,r1,i0)
|
||||||
#define _VLDRN_F32(r0,r1,i0) _CC_VLDRN_F32(ARM_CC_AL,r0,r1,i0)
|
#define _VLDRN_F32(r0,r1,i0) _CC_VLDRN_F32(ARM_CC_AL,r0,r1,i0)
|
||||||
#define _CC_VLDR_F32(cc,r0,r1,i0) arm_cc_vldst(cc,ARM_VLDR|ARM_P,r0,r1,i0)
|
#define _CC_VLDR_F32(cc,r0,r1,i0) arm_cc_vldst(cc,ARM_VLDR|ARM_P,r0,r1,i0)
|
||||||
|
|
|
@ -10147,7 +10147,7 @@ static void optimize_uses_of_mutable_imply_early_alloc(Scheme_IR_Let_Value *at_i
|
||||||
int i, j;
|
int i, j;
|
||||||
Scheme_IR_Let_Value *irlv = at_irlv;
|
Scheme_IR_Let_Value *irlv = at_irlv;
|
||||||
|
|
||||||
/* We we're reinterpreting a `letrec` as `let*`, and when it realy
|
/* We we're reinterpreting a `letrec` as `let*`, and when it really
|
||||||
must be `let*` instead of `let`, and when a mutable variable is
|
must be `let*` instead of `let`, and when a mutable variable is
|
||||||
involved, then we need to tell the `resolve` pass that the
|
involved, then we need to tell the `resolve` pass that the
|
||||||
mutable varaiable's value must be boxed immediately, instead of
|
mutable varaiable's value must be boxed immediately, instead of
|
||||||
|
|
|
@ -411,7 +411,7 @@ void scheme_init_port_places(void)
|
||||||
custodian). */
|
custodian). */
|
||||||
|
|
||||||
if (!stdin_refcount) {
|
if (!stdin_refcount) {
|
||||||
/* Referece counts are needed for stdio and places; start
|
/* Reference counts are needed for stdio and places; start
|
||||||
at 1 in main place, but then cancel initial count */
|
at 1 in main place, but then cancel initial count */
|
||||||
stdin_refcount = malloc_refcount(1, 0);
|
stdin_refcount = malloc_refcount(1, 0);
|
||||||
stdout_refcount = malloc_refcount(1, 0);
|
stdout_refcount = malloc_refcount(1, 0);
|
||||||
|
|
Loading…
Reference in New Issue
Block a user