2007-08-29 11:16:31 +02:00
|
|
|
@echo off
|
|
|
|
|
|
2007-09-04 15:23:24 +02:00
|
|
|
set FPRTL={FreePascal RTL source code, example c:\fp\src\rtl}
|
2007-08-29 11:16:31 +02:00
|
|
|
set INCS=-Fi%FPRTL%\inc;%FPRTL%\i386;%FPRTL%\objpas;%FPRTL%\objpas\sysutils;%FPRTL%\objpas\classes
|
|
|
|
|
set UNTS=-Fu%FPRTL%\inc;%FPRTL%\i386;%FPRTL%\objpas
|
2007-10-27 18:38:51 +02:00
|
|
|
set BUILDPATH=..\units
|
|
|
|
|
set FPCARGS=-n -Twin32 -Sge5 -O3pPENTIUM3 -CfSSE -di386 -FU%BUILDPATH% %INCS% %UNTS%
|
2007-08-29 11:16:31 +02:00
|
|
|
|
|
|
|
|
fpc system.pp -Us %FPCARGS%
|
|
|
|
|
if errorlevel 1 goto error
|
|
|
|
|
|
|
|
|
|
fpc %FPRTL%\objpas\objpas.pp %FPCARGS%
|
|
|
|
|
if errorlevel 1 goto error
|
|
|
|
|
|
|
|
|
|
fpc buildrtl.pp %FPCARGS%
|
|
|
|
|
if errorlevel 0 goto end
|
|
|
|
|
|
|
|
|
|
:error
|
|
|
|
|
echo An error occured while building RTL
|
|
|
|
|
|
|
|
|
|
:end
|
