Rev 666 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 666 | Rev 790 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | @echo off |
1 | @echo off |
2 | - | ||
3 | set FPRTL={FreePascal RTL source code, example c:\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 BUILDPATH=..\units |
- | |
7 | set FPCARGS=-n -Twin32 -Sge5 -O3pPENTIUM3 -CfSSE -di386 -FU%BUILDPATH% %INCS% %UNTS% |
- | |
8 | - | ||
9 | fpc system.pp -Us %FPCARGS% |
2 | fpcmake -Twin32 |
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 |
3 | make |
22 | 4 |