Browse Source

* Prefix and add const

Michaël Van Canneyt 11 months ago
parent
commit
9a0555cacd

+ 2 - 2
packages/wasm-utils/src/wasm.pas2js.regexp.pas

@@ -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;

+ 4 - 4
packages/wasm-utils/src/wasm.regexp.shared.pp

@@ -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 FlagsToString(S : Longint) : String;
+Function StringToRegexpFlags(const S : String; IgnoreUnknown : Boolean = True) : Longint;
+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;