Rev 616 | Rev 666 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
616 | bw | 1 | @echo off |
2 | |||
619 | bw | 3 | set FPRTL={FreePascal RTL source code, example c:\fp\src\rtl} |
616 | bw | 4 | set INCS=-Fi%FPRTL%\inc;%FPRTL%\i386;%FPRTL%\objpas;%FPRTL%\objpas\sysutils;%FPRTL%\objpas\classes |
5 | set UNTS=-Fu%FPRTL%\inc;%FPRTL%\i386;%FPRTL%\objpas |
||
6 | set FPCARGS=-Twin32 -Se5 -Sg -n -O3pPENTIUM3 -CfSSE -di386 -FU..\units %INCS% %UNTS% |
||
7 | |||
8 | fpc system.pp -Us %FPCARGS% |
||
9 | if errorlevel 1 goto error |
||
10 | |||
11 | fpc %FPRTL%\objpas\objpas.pp %FPCARGS% |
||
12 | if errorlevel 1 goto error |
||
13 | |||
14 | fpc buildrtl.pp %FPCARGS% |
||
15 | if errorlevel 0 goto end |
||
16 | |||
17 | :error |
||
18 | echo An error occured while building RTL |
||
19 | |||
20 | :end |