> No, I meant simply with an include file with defines like:
> {$define RTL_INCLUDE_ANSISTRING}
> {$define RTL_INCLUDE_WIDESTRING}
> { $define RTL_INCLUDE_TEXTIO}
> {$define RTL_INCLUDE_FILEIO}
> {$define RTL_INCLUDE_HEAPMANAGER}
> {$define RTL_INCLUDE_FLOAT}
> {$define RTL_INCLUDE_FLOAT_TRANSCENDENT}
>
This could be nice
I use the following when I compile the system unit
I have collected the relevant INC files in the "inc" folder
<make_system.sh>
#!/bin/sh
arm-linux-as prt0.as -o prt0.o
./ppcarm -Us -Sg -a -Fi./inc -uHASWIDESTRING -
uHASWIDECHAR -uHASVARIANT -ufpdocsystem
system.pp
<EOF>
I got some errors using -uHASWIDESTRING -
uHASWIDECHAR. It looked like not all INC files was
finished working on.
When I compile my test program (Puts text on a display) the
BIN file has the size off 11 KB. That looks OK to me.
The -uHASWIDESTRING -uHASWIDECHAR has no inpact
on the size of my program, but the -uHASVARIANT redused
size with 10 KB.
My first system unit linked together with only a "begin end" in
the program produced 380 Byte.
<system.pp>
unit system;
interface
{$Y-}
implementation
procedure
fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS'];
{$ifdef hascompilerproc} compilerproc; {$endif}
begin
end;
Procedure do_exit;[Public,Alias:'FPC_DO_EXIT'];
begin
end;
begin
end.
<EOF>
--
Carsten Bager
Bøvlingbjerg El-automatik
Brørupvænget 10
7650 Bøvlingbjerg
Tlf. +4597885222 Fax +4597885434
http://www.beas.dk
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
