Rev 619 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 616 | bw | 1 | @echo off |
| 2 | |||
| 3 | set FPRTL={path to original freepascal rtl source code, example ... \fp\src\rtl} |
||
| 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 |