mescc: Add getenv.
[mes.git] / module / language / c99 / compiler.mes
index 3231f21cc99bd3ca98500cafb6ac5e2456f72fc7..331c7edca45de145cd82578f4424050dafb95984 100644 (file)
           (if global
               (let ((ptr (ident->pointer info o)))
                 (case ptr
-                  ((10)
-                   (list (lambda (f g ta t d)
-                           (i386:global->accu (+ (data-offset o g) d)))))
+                  ;; ((1)
+                  ;;  (list (lambda (f g ta t d)
+                  ;;          (i386:global->accu (+ (data-offset o g) d)))))
                   (else (list (lambda (f g ta t d)
                                 (append (i386:value->accu (+ (data-offset o g) d))))))))
               (error "TODO ident-address->accu" o))))))
 
-
 (define (ident-address->base info)
   (lambda (o)
     (let ((local (assoc-ref (.locals info) o))