zoukankan      html  css  js  c++  java
  • 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/

  • 相关阅读:
    面向对象-类
    模块04
    总结
    昨天的新的解决方法
    感冒了~ vs中py和vb实现一个小算法
    vs2015社区版不支持installshield
    网站被黑了
    2018/11/18(python)
    2018/11/14
    2018/11/12(python)
  • 原文地址:https://www.cnblogs.com/stevenlaz/p/3277125.html
Copyright © 2011-2022 走看看