Lazarus下面的javascript绑定另外一个版本bug修正

Lazarus下面的javascript绑定另外一个版本bug修正

从svn 检出的代码有几个问题

1.fpcjs.pas 单元开始有

{$IFDEF FPC}

{$MODE delphi}

{$ENDIF}

设置的delphi模式,可是后面有这样的代码

{$ifndef fpc}

// inc(argv,i); pom := pjsval(argv^); dec(argv,i);}   // this original code does not work in delphi 7

// pom := TArrayOfPjsval(argv)[i];                    // for some reason this is not working either, assuming type TArrayOfPjsval = array of pjsval;

pom := pjsval(integer(argv)+i*sizeof(pjsval));        // working hack

{$else}

pom := pjsval(argv + i);

{$endif}

注意红色的部分,其实作者是想在delphimode 使用

pom := pjsval(integer(argv)+i*sizeof(pjsval));        // working hack

可是用

{$ifndef fpc}

判断是不科学的，这句判定在lazarus编译的时候会认为

Fpc已经定义，所以执行

pom := pjsval(argv + i);

这句，导致错误。

修改的方法是,最前面变成

{$IFDEF FPC}

{$MODE delphi}

{$DEFINE myfpc}

{$ENDIF}

增加一个定义,然后后面这里

{$ifdef myfpc}

// inc(argv,i); pom := pjsval(argv^); dec(argv,i);}   // this original code does not work in delphi 7

// pom := TArrayOfPjsval(argv)[i];                    // for some reason this is not working either, assuming type TArrayOfPjsval = array of pjsval;

pom := pjsval(integer(argv)+i*sizeof(pjsval));        // working hack

{$else}

pom := pjsval(argv + i);

{$endif}

让他在delphi模式的时候执行 delphi 模式的指针操作。

Fpcjs源码库的来源是

http://code.google.com/p/fpcjs/