English (en) │
français (fr) │
compilation of system units
To compile a system unit one calls FPC with the
This will tell the compiler that only basic type definitions are being made, and including a system unit is skipped.
Types such as
integer won't be available.
mandatory tasks of system unit
If you attempt to create your own system unit, you'll incrementally notice what the compiler needs or what the generated code expects. On a Linux target, the minimal system unit has to contain:
1 unit system; 2 3 interface
The type definition of
5 type 6 hresult = longint;
operatingsystem_result has to be declared.
The data stored at that position are communicated to the operating system as return value.
operatingsystem_result are defined in the
interface section is irrelevant.
However, it is very plausible to put those into the
interface section, so programs using this
system unit can manipulate those.
8 var 9 exitCode: hresult = 0; export name 'operatingsystem_result'; 10 11 implementation
Here comes to light what the system responsibilities are:
It has to initialize (or should) initialize units, that means call every unit's
For that the label
FPC_INITIALIZEUNITS has to be defined.
13 procedure initializeUnits; alias: 'FPC_INITIALIZEUNITS'; 14 begin 15 end;
Also the label
FPC_DO_EXIT has to be defined.
Here, system unit programmers have the chance to finalize units.
17 procedure doExit; alias: 'FPC_DO_EXIT'; 18 begin 19 end; 20 21 end.
Furthermore FPC will possibly complain the unit
fpintres.pp were missing.
So create a file
1 unit FPIntRes; 2 interface 3 implementation 4 end.
After doing so, you can compile your system unit with
fpc -Us system.pas, or directly create an empty program and compile it to examine the impact on the binary's size.
On a x86-64 Linux target the executable had a size of 2744 bytes.
The big trade-off is no convenience.
All functionality that can't be “implemented” by the compiler is gone.
ord still work, while
random are not available.
Confer the procedure
create_intern_symbols in compiler/psystem.pas.
initialization and finalization of units
For those who are curious, how to implement
FPC puts into every program's data section a
Compiling a program with the
-al flag will retain the assembler file.
Examining it you will encounter something like:
33 .section .data.n_INITFINAL 34 .balign 8 35 .globl INITFINAL 36 .type INITFINAL,@object 37 INITFINAL: 38 .quad 1,0 39 .quad INIT$_$SOMEUNIT 40 .quad FINALIZE$_$SOMEUNIT
For further investigations have a glimpse at an actual implementation helps: rtl/inc/system.inc.