mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-09 01:28:19 +02:00
fixes for fpc 1.1
git-svn-id: trunk@2509 -
This commit is contained in:
parent
16b307ddad
commit
32eb52d99f
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -654,5 +654,6 @@ lcl/vclglobals.pp svneol=native#text/pascal
|
||||
packager/lazaruspackageintf.pas svneol=native#text/pascal
|
||||
tools/apiwizz/apiwizard.pp svneol=native#text/pascal
|
||||
tools/apiwizz/apiwizz.pp svneol=native#text/pascal
|
||||
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
|
||||
|
@ -1535,6 +1535,7 @@ 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');
|
||||
@ -1554,6 +1555,7 @@ Procedure DeleteCriticalSection(var CritSection: TRTLCriticalSection);
|
||||
begin
|
||||
writeln('DeleteCriticalSection(TRTLCriticalSection) Not implemented yet');
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
procedure RaiseLastOSError;
|
||||
begin
|
||||
@ -1568,6 +1570,9 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.74 2003/03/15 13:26:07 mattias
|
||||
fixes for fpc 1.1
|
||||
|
||||
Revision 1.73 2003/02/28 19:54:05 mattias
|
||||
added ShowWindow
|
||||
|
||||
|
34
tools/install/create_fpcsrc-1.1_rpm.sh
Normal file
34
tools/install/create_fpcsrc-1.1_rpm.sh
Normal file
@ -0,0 +1,34 @@
|
||||
#!/bin/bash
|
||||
|
||||
set -x
|
||||
set -e
|
||||
|
||||
Year=02
|
||||
Month=12
|
||||
Day=25
|
||||
|
||||
|
||||
Date=20$Year$Month$Day
|
||||
LazVersion=1.1
|
||||
LazRelease=laz.$Date
|
||||
SrcTGZ=fpcsrc-$LazVersion-$LazRelease.tgz
|
||||
SpecFile=fpcsrc-$LazVersion-$LazRelease.spec
|
||||
|
||||
# download fpc cvs if necessary
|
||||
if [ ! -f $SrcTGZ ]; then
|
||||
./create_fpc_snapshot_tgz.sh $SrcTGZ -D $Month/$Day/$Year
|
||||
fi
|
||||
|
||||
# copy src tgz into building directory
|
||||
cp $SrcTGZ /usr/src/redhat/SOURCES/
|
||||
|
||||
# create spec file
|
||||
cat fpcsrc.spec | \
|
||||
sed -e "s/LAZVERSION/$LazVersion/g" -e "s/LAZRELEASE/$LazRelease/" \
|
||||
> $SpecFile
|
||||
|
||||
# build rpm
|
||||
rpm -ba $SpecFile
|
||||
|
||||
# end.
|
||||
|
46
tools/install/fpcsrc.spec
Normal file
46
tools/install/fpcsrc.spec
Normal file
@ -0,0 +1,46 @@
|
||||
Name: fpcsrc
|
||||
Version: LAZVERSION
|
||||
Release: LAZRELEASE
|
||||
Copyright: GPL
|
||||
Group: Development/Languages
|
||||
Source: %{name}-%{version}-%{release}.tgz
|
||||
Summary: FreePascal sources
|
||||
Packager: Mattias Gaertner (mattias@freepascal.org)
|
||||
URL: http://www.freepascal.org/
|
||||
BuildRoot: %{_tmppath}/fpcsrc-build
|
||||
|
||||
%description
|
||||
The Free Pascal Compiler is a Turbo Pascal 7.0 and Delphi compatible 32bit
|
||||
Pascal Compiler. It comes with fully TP 7.0 compatible run-time library.
|
||||
Some extensions are added to the language, like function overloading. Shared
|
||||
libraries can be linked. Basic Delphi support is already implemented (classes,
|
||||
exceptions, ansistrings, RTTI). This package contains the sources for the
|
||||
commandline compiler and utils. Provided units are the runtime library (RTL),
|
||||
free component library (FCL), gtk, ncurses, zlib, mysql, postgres, ibase
|
||||
bindings and many more.
|
||||
|
||||
%prep
|
||||
|
||||
%setup -c
|
||||
|
||||
%build
|
||||
|
||||
%install
|
||||
if [ %{buildroot} != "/" ]; then
|
||||
rm -rf %{buildroot}
|
||||
fi
|
||||
mkdir -p %{buildroot}%{_datadir}/fpcsrc
|
||||
cp -a fpc/* %{buildroot}%{_datadir}/fpcsrc/
|
||||
|
||||
%clean
|
||||
if [ %{buildroot} != "/" ]; then
|
||||
rm -rf %{buildroot}
|
||||
fi
|
||||
|
||||
%files
|
||||
%defattr(-,root,root)
|
||||
%{_datadir}/fpcsrc
|
||||
|
||||
%changelog
|
||||
|
||||
|
53
tools/install/lazarus.spec
Normal file
53
tools/install/lazarus.spec
Normal file
@ -0,0 +1,53 @@
|
||||
Name: lazarus
|
||||
Version: LAZVERSION
|
||||
Release: LAZRELEASE
|
||||
Copyright: GPL
|
||||
Group: Development/Tools
|
||||
Source: LAZSOURCE
|
||||
Summary: Lazarus Component Library and IDE
|
||||
Packager: Mattias Gaertner (mattias@freepascal.org)
|
||||
URL: http://www.lazarus.freepascal.org/
|
||||
BuildRoot: %{_tmppath}/lazarus-build
|
||||
BuildRequires: fpc >= 1.0.7
|
||||
Requires: fpcsrc >= 1.0.7
|
||||
|
||||
%define lazdir %{_datadir}/lazarus
|
||||
|
||||
%description
|
||||
Lazarus is a free RAD tool for freepascal using the lazarus component library.
|
||||
|
||||
%prep
|
||||
%setup -c
|
||||
|
||||
%build
|
||||
cd lazarus
|
||||
make
|
||||
|
||||
%install
|
||||
if [ %{buildroot} != "/" ]; then
|
||||
rm -rf %{buildroot}
|
||||
fi
|
||||
mkdir -p %{buildroot}%{_datadir}/lazarus
|
||||
mkdir -p %{buildroot}%{_bindir}
|
||||
mkdir -p %{buildroot}%{_datadir}/pixmaps
|
||||
mkdir -p %{buildroot}%{_datadir}/gnome/apps/Development
|
||||
cp -a lazarus/* %{buildroot}%{_datadir}/lazarus/
|
||||
install -m 644 lazarus/images/ide_icon48x48.png %{buildroot}%{_datadir}/pixmaps/lazarus.png
|
||||
install -m 644 lazarus/gnome.ide.desktop %{buildroot}%{_datadir}/gnome/apps/Development/lazarus.desktop
|
||||
ln -sf %{lazdir}/lazarus %{buildroot}%{_bindir}/lazarus
|
||||
|
||||
%clean
|
||||
if [ %{buildroot} != "/" ]; then
|
||||
rm -rf %{buildroot}
|
||||
fi
|
||||
|
||||
%files
|
||||
%defattr(-,root,root)
|
||||
%{_datadir}/lazarus
|
||||
%{_bindir}/lazarus
|
||||
%{_datadir}/pixmaps/lazarus.png
|
||||
%{_datadir}/gnome/apps/Development/lazarus.desktop
|
||||
|
||||
%changelog
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user