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

fcl-js: fixed compilation

Browse Source 
git-svn-id: trunk@40099 -
This commit is contained in:
Mattias Gaertner 2018-10-30 23:18:55 +00:00
parent bbb5943fef
commit 7afd157d35
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-js/src/jssrcmap.pas
View File

@ -51,7 +51,6 @@ uses
const
Base64Chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
DefaultSrcMapHeader = ')]}'''+LineEnding;
type
EJSSourceMap = class(Exception);
@ -167,6 +166,8 @@ type
property Sorted: boolean read FSorted write SetSorted; // Segments are sorted for GeneratedLine/Col
end;
function DefaultSrcMapHeader: string;
function EncodeBase64VLQ(i: NativeInt): String; // base64 Variable Length Quantity
function DecodeBase64VLQ(const s: string): NativeInt; // base64 Variable Length Quantity
function DecodeBase64VLQ(
@ -180,6 +181,11 @@ procedure DebugSrcMapLine(GeneratedLine: integer; var GeneratedLineSrc: String;
implementation
function DefaultSrcMapHeader: string;
begin
Result:=')]}'''+LineEnding;
end;
function EncodeBase64VLQ(i: NativeInt): String;
{ Convert signed number to base64-VLQ:
Each base64 has 6bit, where the most significant bit is the continuation bit