Home
last modified time | relevance | path

Searched +refs:fasl +refs:char +refs:type (Results 1 – 25 of 146) sorted by relevance

123456

/dports/lang/racket/racket-8.3/collects/racket/
H A Dfasl.rkt59 (fasl-false-type 3)
60 (fasl-true-type 4)
61 (fasl-null-type 5)
70 (fasl-char-type 13)
254 [(char? v)
255 (write-byte fasl-char-type o)
256 (write-fasl-integer (char->integer v) o)]
383 ;; used by `fasl-graph-ref-type` and `fasl-graph-ref-type`:
456 [(fasl-char-type) (intern (integer->char (read-fasl-integer i)))]
492 [(fasl-vector-type fasl-immutable-vector-type)
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/racket/
H A Dfasl.rkt59 (fasl-false-type 3)
60 (fasl-true-type 4)
61 (fasl-null-type 5)
70 (fasl-char-type 13)
254 [(char? v)
255 (write-byte fasl-char-type o)
256 (write-fasl-integer (char->integer v) o)]
383 ;; used by `fasl-graph-ref-type` and `fasl-graph-ref-type`:
456 [(fasl-char-type) (intern (integer->char (read-fasl-integer i)))]
492 [(fasl-vector-type fasl-immutable-vector-type)
[all …]
/dports/lang/chez-scheme/ChezScheme-9.5.4/s/
H A Dfasl.ss257 (put-uptr p (char->integer (string-ref x i)))))))
325 [(integer-8 unsigned-8 char) ($object-ref 'unsigned-8 x addr)]
340 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)]))))
354 [(char single-float double-float) #t]
368 [(_ fasl-fld-type)
374 [(integer-8 unsigned-8 char) (put-padty fasl-fld-u8) (put-u8 p val) 1]
403 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)]))))
517 (define wrf-char
520 (fxlogor (fxsll (char->integer x) (constant char-data-offset))
521 (constant type-char))
[all …]
H A Dstrip.ss124 (string-set! s i (integer->char (read-uptr p))))
132 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
161 (read-byte! (char->integer #\() p) ;)
165 (if (eqv? c (char->integer #\)))
215 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum fasl-type-weak-pair)
287 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
310 (if (and (eqv? (get) (char->integer #\#))
311 (eqv? (get) (char->integer #\!))
313 (or (eqv? b (char->integer #\/))
314 (eqv? b (char->integer #\space)))))
[all …]
H A Dcmacros.ss415 (define-constant fasl-type-header 0)
416 (define-constant fasl-type-box 1)
417 (define-constant fasl-type-symbol 2)
418 (define-constant fasl-type-ratnum 3)
419 (define-constant fasl-type-vector 4)
422 (define-constant fasl-type-pair 7)
423 (define-constant fasl-type-flonum 8)
426 (define-constant fasl-type-code 11)
439 (define-constant fasl-type-rtd 24)
460 (define-constant fasl-type-gzip 43)
[all …]
H A Dcompile.ss278 (put-u8 p (constant fasl-type-entry))
281 (put-u8 p (constant fasl-type-library))
284 (put-u8 p (constant fasl-type-library-code))
289 (put-u8 p (constant fasl-type-closure))
295 (put-u8 p (constant fasl-type-code))
722 [(visit-stuff) x (c-print-fasl x op (constant fasl-type-visit))]
723 [(revisit-stuff) x (c-print-fasl x op (constant fasl-type-revisit))]
724 [else (c-print-fasl x op (constant fasl-type-visit-revisit))]))
1515 ($with-fasl-target (host-machine-type)
1658 (c-print-fasl ($np-boot-code 'invoke) op (constant fasl-type-visit-revisit))
[all …]
H A D7.ss148 (let ([bv (make-bytevector 8 (constant fasl-type-header))])
181 [(eqv? ty (constant fasl-type-header))
184 [(eqv? ty (constant fasl-type-visit))
186 [(eqv? ty (constant fasl-type-revisit))
187 (go2 (eqv? situation (constant fasl-type-visit)))]
188 [(eqv? ty (constant fasl-type-visit-revisit))
201 …[(or (eqv? compressed-flag (constant fasl-type-gzip)) (eqv? compressed-flag (constant fasl-type-lz…
217 [(p) (go p (constant fasl-type-visit-revisit))]
221 [(visit) (constant fasl-type-visit)]
222 [(revisit) (constant fasl-type-revisit)]
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/
H A Dfasl.ss304 (put-uptr p (char->integer (string-ref x i)))))))
390 [(integer-8 unsigned-8 char) ($object-ref 'unsigned-8 x addr)]
405 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)]))))
419 [(char single-float double-float) #t]
433 [(_ fasl-fld-type)
439 [(integer-8 unsigned-8 char) (put-padty fasl-fld-u8) (put-u8 p val) 1]
468 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)]))))
596 (define wrf-char
599 (fxlogor (fxsll (char->integer x) (constant char-data-offset))
600 (constant type-char))
[all …]
H A Dstrip.ss102 (string-set! s i (integer->char (read-uptr p))))
110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
142 (read-byte! (char->integer #\() p) ;)
146 (if (eqv? c (char->integer #\)))
196 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum
277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
315 (if (and (eqv? (get) (char->integer #\#))
316 (eqv? (get) (char->integer #\!))
318 (or (eqv? b (char->integer #\/))
319 (eqv? b (char->integer #\space)))))
[all …]
H A Dvfasl.ss217 (fasl-tuple (constant fasl-type-box) (vector v)))
225 [(fasl-type-immediate fasl-type-base-rtd) (enbox v)]
394 [(bv i char)
395 …(let ([n (bitwise-ior (bitwise-arithmetic-shift-left (char->integer char) (constant char-data-offs…
396 (constant type-char))])
401 (set-char! bv offset char))]))
538 [(fasl-type-entry fasl-type-library fasl-type-library-code)
577 [(fasl-type-box fasl-type-immutable-box)
590 [(fasl-type-ratnum)
628 [(fasl-type-symbol)
[all …]
H A Dcmacros.ss484 (define-constant fasl-type-header 0)
485 (define-constant fasl-type-box 1)
486 (define-constant fasl-type-symbol 2)
487 (define-constant fasl-type-ratnum 3)
491 (define-constant fasl-type-pair 7)
495 (define-constant fasl-type-code 11)
508 (define-constant fasl-type-rtd 24)
531 (define-constant fasl-type-gzip 44)
532 (define-constant fasl-type-lz4 45)
534 (define-constant fasl-type-fasl 100)
[all …]
H A Dcompile.ss318 (put-u8 p (constant fasl-type-entry))
321 (put-u8 p (constant fasl-type-library))
324 (put-u8 p (constant fasl-type-library-code))
329 (put-u8 p (constant fasl-type-closure))
335 (put-u8 p (constant fasl-type-code))
609 ($with-fasl-target (host-machine-type)
621 ($with-fasl-target (host-machine-type)
1615 ($with-fasl-target (host-machine-type)
1761 (c-print-fasl ($np-boot-code 'invoke) op (constant fasl-type-visit-revisit) #f #f)
1879 (put-u8 p (constant fasl-type-uncompressed))
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/s/
H A Dfasl.ss304 (put-uptr p (char->integer (string-ref x i)))))))
390 [(integer-8 unsigned-8 char) ($object-ref 'unsigned-8 x addr)]
405 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)]))))
419 [(char single-float double-float) #t]
433 [(_ fasl-fld-type)
439 [(integer-8 unsigned-8 char) (put-padty fasl-fld-u8) (put-u8 p val) 1]
468 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)]))))
596 (define wrf-char
599 (fxlogor (fxsll (char->integer x) (constant char-data-offset))
600 (constant type-char))
[all …]
H A Dstrip.ss102 (string-set! s i (integer->char (read-uptr p))))
110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
142 (read-byte! (char->integer #\() p) ;)
146 (if (eqv? c (char->integer #\)))
196 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum
277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
315 (if (and (eqv? (get) (char->integer #\#))
316 (eqv? (get) (char->integer #\!))
318 (or (eqv? b (char->integer #\/))
319 (eqv? b (char->integer #\space)))))
[all …]
H A Dvfasl.ss217 (fasl-tuple (constant fasl-type-box) (vector v)))
225 [(fasl-type-immediate fasl-type-base-rtd) (enbox v)]
394 [(bv i char)
395 …(let ([n (bitwise-ior (bitwise-arithmetic-shift-left (char->integer char) (constant char-data-offs…
396 (constant type-char))])
401 (set-char! bv offset char))]))
538 [(fasl-type-entry fasl-type-library fasl-type-library-code)
577 [(fasl-type-box fasl-type-immutable-box)
590 [(fasl-type-ratnum)
628 [(fasl-type-symbol)
[all …]
H A Dcmacros.ss484 (define-constant fasl-type-header 0)
485 (define-constant fasl-type-box 1)
486 (define-constant fasl-type-symbol 2)
487 (define-constant fasl-type-ratnum 3)
491 (define-constant fasl-type-pair 7)
495 (define-constant fasl-type-code 11)
508 (define-constant fasl-type-rtd 24)
531 (define-constant fasl-type-gzip 44)
532 (define-constant fasl-type-lz4 45)
534 (define-constant fasl-type-fasl 100)
[all …]
H A Dcompile.ss318 (put-u8 p (constant fasl-type-entry))
321 (put-u8 p (constant fasl-type-library))
324 (put-u8 p (constant fasl-type-library-code))
329 (put-u8 p (constant fasl-type-closure))
335 (put-u8 p (constant fasl-type-code))
609 ($with-fasl-target (host-machine-type)
621 ($with-fasl-target (host-machine-type)
1615 ($with-fasl-target (host-machine-type)
1761 (c-print-fasl ($np-boot-code 'invoke) op (constant fasl-type-visit-revisit) #f #f)
1879 (put-u8 p (constant fasl-type-uncompressed))
[all …]
H A D7.ss155 (let ([bv (make-bytevector 8 (constant fasl-type-header))])
204 [(eqv? ty (constant fasl-type-header))
207 [(eqv? ty (constant fasl-type-visit))
209 [(eqv? ty (constant fasl-type-revisit))
210 (go2 (eqv? situation (constant fasl-type-visit)))]
211 [(eqv? ty (constant fasl-type-visit-revisit))
225 …[(or (eqv? compressed-flag (constant fasl-type-gzip)) (eqv? compressed-flag (constant fasl-type-lz…
248 [(visit) (constant fasl-type-visit)]
249 [(revisit) (constant fasl-type-revisit)]
250 [(load) (constant fasl-type-visit-revisit)]
[all …]
/dports/lang/sbcl/sbcl-1.3.13/tests/
H A Dload.impure.lisp141 (load-and-assert fasl fasl fasl))))
152 (char *test-program-string* pointer))
155 (defmethod stream-unread-char ((stream load-impure-gray-stream) char)
190 (load-and-assert fasl fasl fasl)))
197 (load-and-assert partial fasl fasl)))
213 (load-and-assert fasl fasl fasl)))
287 (load-and-assert spec fasl fasl))))
301 (defun load-empty-file (type)
303 :type type)))
330 (fasl nil)
[all …]
/dports/lang/racket-minimal/racket-8.3/src/cs/c/
H A Dcross-serve.ss26 ;; Serve requests to compile or to fasl data:
32 (let ([compress? (eqv? (get-u8 in) (char->integer #\y))])
36 (case (integer->char cmd)
41 (parameterize ([optimize-level (if (fx= cmd (char->integer #\u))
44 [fasl-compressed compress?])
47 ;; Reads host fasl format, then writes target fasl format
52 [fasl-compressed compress?])
53 (fasl-write v o pred))))]
81 (define-record-type literal-placeholder
88 [literals (let ([vec (fasl-read (open-bytevector-input-port literals-bv))])
[all …]
/dports/lang/racket/racket-8.3/src/cs/c/
H A Dcross-serve.ss26 ;; Serve requests to compile or to fasl data:
32 (let ([compress? (eqv? (get-u8 in) (char->integer #\y))])
36 (case (integer->char cmd)
41 (parameterize ([optimize-level (if (fx= cmd (char->integer #\u))
44 [fasl-compressed compress?])
47 ;; Reads host fasl format, then writes target fasl format
52 [fasl-compressed compress?])
53 (fasl-write v o pred))))]
81 (define-record-type literal-placeholder
88 [literals (let ([vec (fasl-read (open-bytevector-input-port literals-bv))])
[all …]
/dports/lang/mosh/mosh-0.2.7/boot/runtimes/psyntax-mosh/psyntax/
H A Dcompat.ss43 (integer->char
44 (+ (char->integer #\a)
53 ((or (char<=? #\a c #\z)
54 (char<=? #\A c #\Z)
55 (char<=? #\0 c #\9)
60 (let ((n (char->integer c)))
100 ;;; - source is a pair of file-name x char-position
163 ;; (fasl-save fasl-file obj)
195 (let ([fasl-file (scm->fasl filename)])
203 (fasl-save fasl-file obj)
[all …]
/dports/devel/cl-asdf/asdf-a58828745a610c1af841a86587ba197707c89eb3/test/
H A Dtest-urls-1.script9 (with-open-file (stream1 url :element-type 'character
11 (with-open-file (stream2 local :element-type 'character
14 (let ((ch1 (read-char stream1 nil nil))
15 (ch2 (read-char stream2 nil nil)))
30 (test (test-fasl path))
H A Dtest-urls-2.script11 (with-open-file (stream1 url :element-type 'character
13 (with-open-file (stream2 local :element-type 'character
16 (let ((ch1 (read-char stream1 nil nil))
17 (ch2 (read-char stream2 nil nil)))
34 (test (test-fasl path))
/dports/math/reduce/Reduce-svn5758-src/psl/dist/comp/
H A Dfaslout.sl94 % checking for COMPILE flag on function type (EXPR, etc.). Changed to use
127 (load fasl-decls)))
155 (fasl-form u NIL))
215 (writechar (char blank)))
219 (de fasl-putd (u)
251 (fasl-form
261 (fasl-form
271 (fasl-form
281 (fasl-form
317 (progn (prin2t "FASLOUT: IN files; or type in expressions")
[all …]

123456