« Reply #15 on: March 17, 2019, 04:24:18 pm »
Also:
Multiple constant cases:
{$IFDEF PHP7}
ZEND_MODULE_API_NO = 20151012;
{$ELSE}
{$IFDEF PHP530}
ZEND_MODULE_API_NO =
{$IFDEF PHP560}
20131226
{$ELSE}
{$IFDEF PHP550}20121212{$ELSE}{$IFDEF PHP540}20100525{$ELSE}20090626{$ENDIF}{$ENDIF}
{$ENDIF};
{$ELSE}
{$IFDEF PHP520}
ZEND_MODULE_API_NO = 20060613;
{$ELSE}
{$IFDEF PHP512}
ZEND_MODULE_API_NO = 20050922;
{$ELSE}
{$IFDEF PHP511}
ZEND_MODULE_API_NO = 20050922;
{$ELSE}
{$IFDEF PHP510}
ZEND_MODULE_API_NO = 20050617;
{$ELSE}
{$IFDEF PHP504}
ZEND_MODULE_API_NO = 20041030;
{$ELSE}
ZEND_MODULE_API_NO = 20040412;
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
Short function cases:
{$IFDEF PHP5}
procedure delphi_is_uc(ht : integer; return_value : pzval; return_value_ptr : ppzval; this_ptr : pzval;
return_value_used : integer; TSRMLS_DC : pointer); cdecl;
{$ELSE}
procedure delphi_is_uc(ht : integer; return_value : pzval; this_ptr : pzval;
return_value_used : integer; TSRMLS_DC : pointer);
{$ENDIF}
begin
{$IFDEF PHP_UNICE}ZVAL_TRUE{$ELSE}ZVAL_FALSE{$ENDIF}(return_value);
end;
Short variable cases:
FileName: {$IFDEF PHP_UNICE}String{$ELSE}AnsiString{$ENDIF};
Logged
Leu Zenin
-------------------------------
Lazarus 2.1.0 with FPC 3.1
Windows 8.1 x64