Mercurial > mxe-octave
view src/build-msvctools/libgfortran-dllinit.c @ 5531:eae508c12529
Add build rule for build-octave (bug #49503).
* src/build-octave.mk: Add new build rule for build-octave which can be used for
cross-building binary packages that depend on Octave as a build tool.
* dist-files.mk: Add new file to list.
* index.html: Add new package to list.
* src/of-communications.mk, src/of-image.mk, src/of-mapping.mk,
src/of-optiminterp.mk, src/of-sparsersb.mk, src/of-statistics.mk,
src/of-windows.mk: Add optional dependency on build-octave.
* configure.ac: Add new configure switch "--disable-system-octave" that is
needed to build the build-octave package.
* Makefile.in: Add variable "USE_SYSTEM_OCTAVE". Exclude build-octave from the
default build tools and build it only if a package explicitly depends on it.
Display warning about missing native Octave version only if necessary.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Tue, 08 Sep 2020 23:04:38 +0200 |
parents | f8299bb6c872 |
children |
line wrap: on
line source
#include <stdlib.h> #include <stdio.h> #define WIN32_LEAN_AND_MEAN #include <windows.h> extern void _gfortrani_init_variables (void); extern void _gfortrani_init_units (void); extern void _gfortrani_close_units (void); extern void _gfortrani_set_fpu (void); extern void _gfortrani_init_compile_options (void); extern void _gfortran_random_seed_i4 (void *a, void *b, void *c); extern int _gfortrani_big_endian; extern void __msvc_free_exe_path (void); static void __cdecl __msvc_init (void) { _gfortrani_big_endian = 0; _gfortrani_init_variables (); _gfortrani_init_units (); _gfortrani_set_fpu (); _gfortrani_init_compile_options (); _gfortran_random_seed_i4 (NULL, NULL, NULL); } static void __cdecl __msvc_cleanup (void) { _gfortrani_close_units (); __msvc_free_exe_path (); } BOOL WINAPI DllMain (HINSTANCE hinstDLL, DWORD fdwreason, LPVOID lpvReserved) { switch (fdwreason) { case DLL_PROCESS_ATTACH: __msvc_init (); break; case DLL_PROCESS_DETACH: __msvc_cleanup (); break; default: break; } return TRUE; }