From 9382e21edec8cff30668ab144f8813e5801c8f25 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 21 May 2006 09:15:17 +0000 Subject: [PATCH] wchar_t is atomic, new commands for __asm blocks svn: r2996 --- collects/compiler/private/xform.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/private/xform.ss b/collects/compiler/private/xform.ss index 5d9ed1179f..7c47102cff 100644 --- a/collects/compiler/private/xform.ss +++ b/collects/compiler/private/xform.ss @@ -874,7 +874,7 @@ (define asm-commands ;; When outputting, add newline before these syms ;; (for __asm blocks in Windows) - '(mov shl shld shr shrd sar)) + '(mov shl shld shr shrd sar lock setc)) (define (get-constructor v) (cond @@ -934,7 +934,7 @@ ;; Accum top-level typedefs for pointers and non-pointers as a list-of-sym: (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) ...)) (define struct-defs '())