[Pas2js] Building problem

[Michael Van Canneyt]

On Tue, 29 Sep 2020, Ryan Joseph wrote:

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

You have a completely wrong system unit ?

Line 369 is in the interface part, revision 887 contains this on line 369

function ParamCount: Longint;
function ParamStr(Index: Longint): String;

The delete() declaration does not contain assembler.

Michael.