paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 13:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Move basenenc back to fcl-base, sysutils is needed

Browse Source 
(cherry picked from commit 7626af634c)
This commit is contained in:
Michaël Van Canneyt 2021-11-13 14:43:51 +01:00 committed by marcoonthegit
parent ceddfd11cc
commit f6e7ee1212
3 changed files with 5 additions and 4 deletions
packages
fcl-base
fpmake.pp
src
basenenc.pp
rtl-extra
fpmake.pp

1
packages/fcl-base/fpmake.pp
View File

@ -139,6 +139,7 @@ begin
P.Sources.AddSrcFiles('src/win/fclel.*', P.Directory);
// Install windows resources
P.InstallFiles.Add('src/win/fclel.res',AllWindowsOSes,'$(unitinstalldir)');
T:=P.Targets.addUnit('basenenc.pp');
// Examples
P.ExamplePath.Add('examples');

7
packages/rtl-extra/src/inc/basenenc.pp → packages/fcl-base/src/basenenc.pp
View File

@ -19,9 +19,10 @@ unit basenenc;
interface
uses Types, SysUtils;
uses SysUtils;
Type
TBytes = Array of Byte;
{ TAlphabetEncoder }
TReverseAlphabet = Array[0..255] of Byte;
@ -42,7 +43,7 @@ Type
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_');
Private
FBits : Byte;
FAlphabet : TByteDynArray;
FAlphabet : TBytes;
FReverse : TReverseAlphabet;
FPadding : Integer;
class var StdEncoders : Array[TStandardEncoder] of TAlphabetEncoder;
@ -74,7 +75,7 @@ Type
// Bits per characters
Property Bits : Byte Read FBits;
// ASCII value of characters
Property Alphabet : TByteDynArray Read FAlphabet;
Property Alphabet : TBytes Read FAlphabet;
// Reverse byte->character map
Property Reverse : TReverseAlphabet Read FReverse;
// Bits of padding

1
packages/rtl-extra/fpmake.pp
View File

@ -117,7 +117,6 @@ begin
end;
T:=P.Targets.AddUnit('objects.pp',ObjectsOSes);
T:=P.Targets.AddUnit('basenenc.pp');
T:=P.Targets.AddUnit('printer.pp',PrinterOSes);
T.Dependencies.AddInclude('printerh.inc',PrinterOSes);