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

* Prefix and add const

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-09-08 10:31:39 +02:00
parent 44a0bdb82e
commit 9a0555cacd
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/wasm-utils/src/wasm.pas2js.regexp.pas
View File

@ -257,7 +257,7 @@ var
begin begin
lRegExp:=env.GetUTF8StringFromMem(aExpr,aExprLen); lRegExp:=env.GetUTF8StringFromMem(aExpr,aExprLen);
lFlags:=FlagsToString(aFlags); lFlags:=RegexpFlagsToString(aFlags);
{$IFNDEF NOLOGAPICALLS} {$IFNDEF NOLOGAPICALLS}
If LogAPICalls then If LogAPICalls then
LogCall('RegExp.Allocate("%s","%s",[%x])',[lRegExp,lFlags,aID]); LogCall('RegExp.Allocate("%s","%s",[%x])',[lRegExp,lFlags,aID]);
@ -363,7 +363,7 @@ begin
lRegExp:=FindRegExp(aExprID); lRegExp:=FindRegExp(aExprID);
if lRegExp=Nil then if lRegExp=Nil then
Exit(WASMRE_RESULT_INVALIDID); Exit(WASMRE_RESULT_INVALIDID);
lFlags:=StringToFlags(lRegexp.RegExp.Flags); lFlags:=StringToRegexpFlags(lRegexp.RegExp.Flags);
Env.SetMemInfoInt32(aFlags,lFLags); Env.SetMemInfoInt32(aFlags,lFLags);
Result:=WASMRE_RESULT_SUCCESS; Result:=WASMRE_RESULT_SUCCESS;
end; end;

8
packages/wasm-utils/src/wasm.regexp.shared.pp
View File

@ -59,8 +59,8 @@ Const
regexpFN_GetIndexes = 'get_indexes'; regexpFN_GetIndexes = 'get_indexes';
regexpFN_GetNamedGroupIndexes = 'get_named_group_indexes'; regexpFN_GetNamedGroupIndexes = 'get_named_group_indexes';
Function StringToFlags(S : String; IgnoreUnknown : Boolean = True) : Longint; Function StringToRegexpFlags(const S : String; IgnoreUnknown : Boolean = True) : Longint;
Function FlagsToString(S : Longint) : String; Function RegexpFlagsToString(S : Longint) : String;
implementation implementation
@ -72,7 +72,7 @@ uses
{$ENDIF} {$ENDIF}
Function StringToFlags(S : String; IgnoreUnknown : Boolean = True) : Longint; Function StringToRegexpFlags(const S : String; IgnoreUnknown : Boolean = True) : Longint;
var var
C : Char; C : Char;
@ -100,7 +100,7 @@ begin
end; end;
end; end;
Function FlagsToString(S : Longint) : String; Function RegexpFlagsToString(S : Longint) : String;
var var
C,I : Longint; C,I : Longint;