tinycc/win32/lib/crt1.c

// =============================================
// crt1.c

// _UNICODE for tchar.h, UNICODE for API
#include <tchar.h>

#include <stdio.h>
#include <stdlib.h>

#define _UNKNOWN_APP    0
#define _CONSOLE_APP    1
#define _GUI_APP        2

#define _MCW_PC         0x00030000 // Precision Control
#define _PC_24          0x00020000 // 24 bits
#define _PC_53          0x00010000 // 53 bits
#define _PC_64          0x00000000 // 64 bits

typedef struct
{
    int newmode;
} _startupinfo;

#ifdef _UNICODE
#define __tgetmainargs __wgetmainargs
#define _tstart _wstart
#define _tmain wmain
#define _runtmain _runwmain
#else
#define __tgetmainargs __getmainargs
#define _tstart _start
#define _tmain main
#define _runtmain _runmain
#endif

int __cdecl __tgetmainargs(int *pargc, _TCHAR ***pargv, _TCHAR ***penv, int globb, _startupinfo*);
void __cdecl __set_app_type(int apptype);
unsigned int __cdecl _controlfp(unsigned int new_value, unsigned int mask);
extern int _tmain(int argc, _TCHAR * argv[], _TCHAR * env[]);

/* Allow command-line globbing with "int _dowildcard = 1;" in the user source */
int _dowildcard;

void _tstart(void)
{
    __TRY__
    int argc, ret;
    _TCHAR **argv;
    _TCHAR **env;
    _startupinfo start_info;

    // Sets the current application type
    __set_app_type(_CONSOLE_APP);

    // Set default FP precision to 53 bits (8-byte double)
    // _MCW_PC (Precision control) is not supported on
    // the ARM and x64 architectures
#ifdef __i386
    _controlfp(_PC_53, _MCW_PC);
#endif

    start_info.newmode = 0;
    __tgetmainargs( &argc, &argv, &env, _dowildcard, &start_info);
    ret = _tmain(argc, argv, env);
    exit(ret);
}

void _runtmain(int argc0, /* as tcc passed in */ char **argv0)
{
    __TRY__
    int argc, ret;
    _TCHAR **argv;
    _TCHAR **env;
    _startupinfo start_info;

    __set_app_type(_CONSOLE_APP);

#ifdef __i386
    _controlfp(_PC_53, _MCW_PC);
#endif

    start_info.newmode = 0;
    __tgetmainargs( &argc, &argv, &env, _dowildcard, &start_info);
    ret = _tmain(argc0, argv + argc - argc0, env);
    exit(ret);
}

// =============================================