suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

wchar_t is atomic, new commands for __asm blocks

Browse Source 
svn: r2996
This commit is contained in:
Eli Barzilay 2006-05-21 09:15:17 +00:00
parent 0517952105
commit 9382e21ede
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/private/xform.ss
View File

@ -874,7 +874,7 @@
(define asm-commands (define asm-commands
;; When outputting, add newline before these syms ;; When outputting, add newline before these syms
;; (for __asm blocks in Windows) ;; (for __asm blocks in Windows)
'(mov shl shld shr shrd sar)) '(mov shl shld shr shrd sar lock setc))
(define (get-constructor v) (define (get-constructor v)
(cond (cond
@ -934,7 +934,7 @@
;; Accum top-level typedefs for pointers and non-pointers as a list-of-sym: ;; Accum top-level typedefs for pointers and non-pointers as a list-of-sym:
(define pointer-types '()) (define pointer-types '())
(define non-pointer-types '(int char long unsigned ulong uint void float double uchar)) (define non-pointer-types '(int char long unsigned ulong uint void float double uchar wchar_t))
;; Accum top-level struct decls as list of (cons sym (list (cons symbol vtype) ...)) ;; Accum top-level struct decls as list of (cons sym (list (cons symbol vtype) ...))
(define struct-defs '()) (define struct-defs '())