Rev 619 | Rev 790 | 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 |
||
| 666 | bw | 6 | set BUILDPATH=..\units |
| 7 | set FPCARGS=-n -Twin32 -Sge5 -O3pPENTIUM3 -CfSSE -di386 -FU%BUILDPATH% %INCS% %UNTS% |
||
| 616 | bw | 8 | |
| 9 | fpc system.pp -Us %FPCARGS% |
||
| 10 | if errorlevel 1 goto error |
||
| 11 | |||
| 12 | fpc %FPRTL%\objpas\objpas.pp %FPCARGS% |
||
| 13 | if errorlevel 1 goto error |
||
| 14 | |||
| 15 | fpc buildrtl.pp %FPCARGS% |
||
| 16 | if errorlevel 0 goto end |
||
| 17 | |||
| 18 | :error |
||
| 19 | echo An error occured while building RTL |
||
| 20 | |||
| 21 | :end |