Changeset 15276 in project for chicken/trunk


Ignore:
Timestamp:
07/30/09 10:51:41 (10 years ago)
Author:
felix winkelmann
Message:

strip unit names (if unit-name equals symbol in se); include windows.h and define WINAPI, when needed

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken.h

    r14279 r15276  
    319319#if defined(C_WINDOWS_GUI)
    320320# define C_MICROSOFT_WINDOWS
     321# include <windows.h>
     322# ifndef WINAPI
     323#  define WINAPI
     324# endif
    321325#else
    322326# define C_GENERIC_CONSOLE
  • chicken/trunk/compiler.scm

    r15246 r15276  
    12481248  (define (strip x)                     ; raw symbol
    12491249    (##sys#strip-syntax x se))
     1250  (define stripu ##sys#strip-syntax)
    12501251  (call-with-current-continuation
    12511252   (lambda (return)
     
    12551256     (case (##sys#strip-syntax (car spec)) ; no global aliasing
    12561257       ((uses)
    1257         (let ((us (strip (cdr spec))))
     1258        (let ((us (stripu (cdr spec))))
    12581259          (apply register-feature! us)
    12591260          (when (pair? us)
     
    12661267       ((unit)
    12671268        (check-decl spec 1 1)
    1268         (let* ([u (strip (cadr spec))]
     1269        (let* ([u (stripu (cadr spec))]
    12691270               [un (string->c-identifier (stringify u))] )
    12701271          (when (and unit-name (not (string=? unit-name un)))
  • chicken/trunk/csc.scm

    r15119 r15276  
    390390                                    (don't generate `main()')
    391391    -W  -windows                   compile as Windows GUI application
    392                                     (MSVC only)
    393392    -R  -require-extension NAME    require extension and import in compiled
    394393                                    code
Note: See TracChangeset for help on using the changeset viewer.