paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mark units compiled with cs_compilesystem with a corresponding flag

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-09-18 11:57:08 +02:00
parent aca84a8128
commit 7b09eee02a
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fppu.pas
View File

@ -1028,6 +1028,8 @@ var
include(moduleflags,mf_local_symtable);
if cs_checkpointer_called in current_settings.moduleswitches then
include(moduleflags,mf_checkpointer_called);
if cs_compilesystem in current_settings.moduleswitches then
include(moduleflags,mf_system_unit);
{$ifdef i8086}
if current_settings.x86memorymodel in [mm_medium,mm_large,mm_huge] then
include(moduleflags,mf_i8086_far_code);

3
compiler/globtype.pas
View File

@ -416,7 +416,8 @@ interface
mf_wasm_bf_exceptions, { unit was compiled in WebAssembly 'branchful' exceptions mode }
mf_wasm_js_exceptions, { unit was compiled in WebAssembly JavaScript-based exceptions mode }
mf_wasm_native_exceptions, { unit was compiled in WebAssembly native exceptions mode }
mf_wasm_threads { unit was compiled with WebAssembly multithreading support turned on }
mf_wasm_threads, { unit was compiled with WebAssembly multithreading support turned on }
mf_system_unit { unit was compiled as a System unit }
);
tmoduleflags = set of tmoduleflag;