瀏覽代碼

* Prefix and add const

Michaël Van Canneyt 11 月之前
父節點
當前提交
9a0555cacd
共有 2 個文件被更改,包括 6 次插入6 次删除
  1. 2 2
      packages/wasm-utils/src/wasm.pas2js.regexp.pas
  2. 4 4
      packages/wasm-utils/src/wasm.regexp.shared.pp

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

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

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

@@ -59,8 +59,8 @@ Const
   regexpFN_GetIndexes = 'get_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
 
@@ -72,7 +72,7 @@ uses
 {$ENDIF}
 
 
-Function StringToFlags(S : String; IgnoreUnknown : Boolean = True) : Longint;
+Function StringToRegexpFlags(const S : String; IgnoreUnknown : Boolean = True) : Longint;
 
 var
   C : Char;
@@ -100,7 +100,7 @@ begin
    end;
 end;
 
-Function FlagsToString(S : Longint) : String;
+Function RegexpFlagsToString(S : Longint) : String;
 
 var
   C,I : Longint;