paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not calculate array bounds in php, since they may be expressed via

Browse Source 
symbolic constants rather than numerically
  * replace an empty C array (such as int[0]) with an empty record declaration
    rather than with an array of one element, since it doesn't take up any
    space in C either

git-svn-id: trunk@18111 -
This commit is contained in:
Jonas Maebe 2011-08-06 12:21:40 +00:00
parent b59c42f2c7
commit 9de57f1bd8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/cocoaint/utils/source/objp.php
View File

@ -580,11 +580,14 @@ class ObjectivePParser extends ObjectivePParserBase {
// Makes a struct field into an inline array (or returns field un-changed)
function MakeFieldInlineArray ($io_field, $line, $name, $type) {
if (eregi("\[([0-9]+)\];", $line, $array_size)) {
$length = (int)$array_size[1] - 1;
if ($length > 0) {
$io_field = " $name: array[0..$length] of $type;";
}
if (eregi("\[([^]]+)\];", $line, $array_size)) {
if ($array_size[1] == "")
$io_field = "$name: array[0..0] of $type; { dynamically expanding, 0 elements in C }";
else if ($array_size[1] == "0")
$io_field = "$name: record end; { array of 0 elements in C, does not allocate space }";
else
// array_size[1] may be a symbolic constant rather than a number, so don't calculate in php
$io_field = "$name: array[0..($array_size[1])-1] of $type;";
}
return $io_field;