paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,6 +139,7 @@ begin
P.Sources.AddSrcFiles('src/win/fclel.*', P.Directory); P.Sources.AddSrcFiles('src/win/fclel.*', P.Directory);
// Install windows resources // Install windows resources
P.InstallFiles.Add('src/win/fclel.res',AllWindowsOSes,'$(unitinstalldir)'); P.InstallFiles.Add('src/win/fclel.res',AllWindowsOSes,'$(unitinstalldir)');
T:=P.Targets.addUnit('basenenc.pp');
// Examples // Examples
P.ExamplePath.Add('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 interface
uses Types, SysUtils; uses SysUtils;
Type Type
TBytes = Array of Byte;
{ TAlphabetEncoder } { TAlphabetEncoder }
TReverseAlphabet = Array[0..255] of Byte; TReverseAlphabet = Array[0..255] of Byte;
@ -42,7 +43,7 @@ Type
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_'); 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_');
Private Private
FBits : Byte; FBits : Byte;
FAlphabet : TByteDynArray; FAlphabet : TBytes;
FReverse : TReverseAlphabet; FReverse : TReverseAlphabet;
FPadding : Integer; FPadding : Integer;
class var StdEncoders : Array[TStandardEncoder] of TAlphabetEncoder; class var StdEncoders : Array[TStandardEncoder] of TAlphabetEncoder;
@ -74,7 +75,7 @@ Type
// Bits per characters // Bits per characters
Property Bits : Byte Read FBits; Property Bits : Byte Read FBits;
// ASCII value of characters // ASCII value of characters
Property Alphabet : TByteDynArray Read FAlphabet; Property Alphabet : TBytes Read FAlphabet;
// Reverse byte->character map // Reverse byte->character map
Property Reverse : TReverseAlphabet Read FReverse; Property Reverse : TReverseAlphabet Read FReverse;
// Bits of padding // Bits of padding

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

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