diff options
Diffstat (limited to 'src/interfaces/ecpg/preproc/parse.pl')
| -rw-r--r-- | src/interfaces/ecpg/preproc/parse.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interfaces/ecpg/preproc/parse.pl b/src/interfaces/ecpg/preproc/parse.pl index 99c1931c943..23280102035 100644 --- a/src/interfaces/ecpg/preproc/parse.pl +++ b/src/interfaces/ecpg/preproc/parse.pl @@ -397,7 +397,7 @@ sub dump_fields { &add_to_buffer('rules', " \$\$=EMPTY; }"); } else { - # Go through each field and try to 'aggregate' the tokens into a single 'make_str' where possible + # Go through each field and try to 'aggregate' the tokens into a single 'mm_strdup' where possible $cnt = 0; for ($z = 0; $z < $len; $z++) { if (substr($flds{$z}, 1, 1) eq "\$") { @@ -410,7 +410,7 @@ sub dump_fields { while (1) { if ($z >= $len - 1 || substr($flds{$z + 1}, 1, 1) eq "\$") { # We're at the end... - $flds_new{$cnt++} = "make_str(\"" . $str . "\")"; + $flds_new{$cnt++} = "mm_strdup(\"" . $str . "\")"; last; } $z++; |