[Pas2js] Building problem

Ryan Joseph genericptr at gmail.com
Wed Sep 30 04:26:53 CEST 2020



> On Sep 29, 2020, at 10:03 AM, Michael Van Canneyt <michael at freepascal.org> wrote:
> 
> That should be correct. Didn't know for sure the ~ is supported.
> 
> Not sure what version you are using, though:
> 
> Line 369 contains (in my copy):
> 
> function ParamStr(Index: Longint): String;
> 
> The 1.4.x (released) version contains a comment on line 369.
> 

I'm on 1.5.1.

Here's the problem. A bug then? Looks like assembler shouldn't be in the interface part.

procedure Delete(var S: String; Index, Size: Integer); assembler; overload;

procedure Delete(var S: String; Index, Size: Integer);
var
  h: String;
begin // <<<<<<< 369
  if (Index<1) or (Index>length(S)) or (Size<=0) then exit;
  h:=S;
  S:=copy(h,1,Index-1)+copy(h,Index+Size);
end;


Regards,
	Ryan Joseph



More information about the Pas2js mailing list