Recent

Author Topic: [BUG] Cannot Create Package [Windows 64, Lazarus 2.0]  (Read 1624 times)

HuntingKashket

  • New member
  • *
  • Posts: 33
  • I'm interested in upgrading everything
Re: [BUG] Cannot Create Package [Windows 64, Lazarus 2.0]
« Reply #15 on: March 17, 2019, 04:24:18 pm »
Also:
Multiple constant cases:
Code: Pascal  [Select]
  1. {$IFDEF PHP7}
  2.    ZEND_MODULE_API_NO = 20151012;
  3. {$ELSE}
  4.   {$IFDEF PHP530}
  5.     ZEND_MODULE_API_NO                        =
  6.    {$IFDEF PHP560}
  7.     20131226
  8.    {$ELSE}
  9.     {$IFDEF PHP550}20121212{$ELSE}{$IFDEF PHP540}20100525{$ELSE}20090626{$ENDIF}{$ENDIF}
  10.     {$ENDIF};
  11.   {$ELSE}
  12.   {$IFDEF PHP520}
  13.     ZEND_MODULE_API_NO                          = 20060613;
  14.   {$ELSE}
  15.   {$IFDEF PHP512}
  16.    ZEND_MODULE_API_NO                          = 20050922;
  17.     {$ELSE}
  18.      {$IFDEF PHP511}
  19.      ZEND_MODULE_API_NO                       = 20050922;
  20.       {$ELSE}
  21.        {$IFDEF PHP510}
  22.        ZEND_MODULE_API_NO                     = 20050617;
  23.         {$ELSE}
  24.           {$IFDEF PHP504}
  25.           ZEND_MODULE_API_NO                  =  20041030;
  26.            {$ELSE}
  27.             ZEND_MODULE_API_NO                =  20040412;
  28.           {$ENDIF}
  29.        {$ENDIF}
  30.      {$ENDIF}
  31.    {$ENDIF}
  32.    {$ENDIF}
  33. {$ENDIF}
  34. {$ENDIF}
  35.  

Short function cases:
Code: Pascal  [Select]
  1. {$IFDEF PHP5}
  2. procedure delphi_is_uc(ht : integer; return_value : pzval; return_value_ptr : ppzval; this_ptr : pzval;
  3.       return_value_used : integer; TSRMLS_DC : pointer); cdecl;
  4. {$ELSE}
  5. procedure delphi_is_uc(ht : integer; return_value : pzval; this_ptr : pzval;
  6.       return_value_used : integer; TSRMLS_DC : pointer);
  7. {$ENDIF}
  8. begin
  9.     {$IFDEF PHP_UNICE}ZVAL_TRUE{$ELSE}ZVAL_FALSE{$ENDIF}(return_value);
  10. end;
  11.  

Short variable cases:
Code: Pascal  [Select]
  1. FileName: {$IFDEF PHP_UNICE}String{$ELSE}AnsiString{$ENDIF};
  2.  
Leu Zenin
-------------------------------
Lazarus 2.1.0  with FPC 3.1
Windows 8.1 x64