paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 23:08:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

improved rpm building and added support for 1.0.7

Browse Source 
git-svn-id: trunk@2544 -
This commit is contained in:
mattias 2002-08-17 23:41:28 +00:00
parent 5ecf25d25e
commit 38b82fdea9
4 changed files with 65 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -666,6 +666,7 @@ packager/lazaruspackageintf.pas svneol=native#text/pascal
packager/pkggraphexporer.pas svneol=native#text/pascal
tools/apiwizz/apiwizard.pp svneol=native#text/pascal
tools/apiwizz/apiwizz.pp svneol=native#text/pascal
tools/install/create_fpc_export_tgz.sh -text svneol=native#application/x-sh
tools/install/create_fpcsrc-1.1_rpm.sh -text svneol=native#application/x-sh
tools/lazarusmake.ini svneol=native#text/plain
tools/lazres.pp svneol=native#text/pascal

5
lcl/include/winapi.inc
View File

@ -1535,7 +1535,6 @@ begin
Result := R or (G shl 8) or (B Shl 16);
end;
{$IFDEF VER1_0}
Procedure InitializeCriticalSection(var CritSection: TRTLCriticalSection);
begin
writeln('InitializeCriticalSection(TRTLCriticalSection) Not implemented yet');
@ -1555,7 +1554,6 @@ Procedure DeleteCriticalSection(var CritSection: TRTLCriticalSection);
begin
writeln('DeleteCriticalSection(TRTLCriticalSection) Not implemented yet');
end;
{$ENDIF}
procedure RaiseLastOSError;
begin
@ -1570,6 +1568,9 @@ end;
{ =============================================================================
$Log$
Revision 1.75 2003/03/16 13:47:45 mattias
improved rpm building and added support for 1.0.7
Revision 1.74 2003/03/15 13:26:07 mattias
fixes for fpc 1.1

5
lcl/include/winapih.inc
View File

@ -360,12 +360,10 @@ Function RGB(R, G, B : Byte) : TColorRef;
//##apiwiz##epi## // Do not remove
{$IFDEF VER1_0}
Procedure InitializeCriticalSection(var CritSection: TRTLCriticalSection);
Procedure EnterCriticalSection(var CritSection: TRTLCriticalSection);
Procedure LeaveCriticalSection(var CritSection: TRTLCriticalSection);
Procedure DeleteCriticalSection(var CritSection: TRTLCriticalSection);
{$ENDIF}
// should go to sysutils.pp
procedure RaiseLastOSError;
@ -375,6 +373,9 @@ procedure RaiseLastOSError;
{ =============================================================================
$Log$
Revision 1.69 2003/03/16 13:47:45 mattias
improved rpm building and added support for 1.0.7
Revision 1.68 2003/03/15 13:26:07 mattias
fixes for fpc 1.1

58
tools/install/create_fpc_export_tgz.sh Normal file
View File

@ -0,0 +1,58 @@
#!/bin/bash
set -x
set -e
Usage="$0 "'outputfilename devel or stable [cvs date mm/dd/yy]'
OutputFile=$1
FPCVersion=$2
FPCDate=$3
TempDir=/tmp/fpc_cvs_export/
FPCVersionOk=no
for ver in devel stable; do
if [ "x$FPCVersion" = "x$ver" ]; then
FPCVersionOk=yes
fi
done
if [ "x$FPCVersionOk" = "xno" ]; then
echo $Usage
exit -1
fi
if [ "x$OutputFile" = "x" ]; then
echo $Usage
exit -1
fi
if [ "x$FPCDate" = "x" ]; then
FPCDate='NOW'
fi
echo downloading cvs $CVSParams ...
mkdir -p $TempDir
cd $TempDir
rm -rf fpc
export CVSROOT=:pserver:cvs@cvs.freepascal.org:/FPC/CVS
echo 'The password is: cvs'
cvs login
cvs -z3 export -D $FPCDate fpc
if [ "x$FPCVersion' = "xstable" ]; then
Dirs='compiler rtl logs install'
rm -rf $Dirs
for dir in $Dirs; do
cvs -z3 export -D $FPCDate fpc/$dir
done
fi
cd -
# pack
echo 'creating tgz ...'
tar czf fpc_src.tgz fpc
cd -
mv /tmp/fpc_src.tgz $OutputFile
rm -rf /tmp/fpc
# end.