diff options
| author | Nicolas Pierron <nicolas.b.pierron@gmail.com> | 2010-03-14 11:58:07 +0000 |
|---|---|---|
| committer | Nicolas Pierron <nicolas.b.pierron@gmail.com> | 2010-03-14 11:58:07 +0000 |
| commit | 741b7577c14911fed71b6d52d8d90e88ef2e05ef (patch) | |
| tree | cabee93fbbc7c8b32b9cc485f1fab684b1d8996a /src/aterm-helper.pl | |
| parent | 2fb0df83e960d6b39dd43b47cc6168cad3732746 (diff) | |
Merge r20344 & r20346.
Diffstat (limited to 'src/aterm-helper.pl')
| -rwxr-xr-x | src/aterm-helper.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/aterm-helper.pl b/src/aterm-helper.pl index 9b2bde700..f1eb77ee8 100755 --- a/src/aterm-helper.pl +++ b/src/aterm-helper.pl @@ -146,8 +146,9 @@ while (<STDIN>) { my $value = $2; print HEADER "extern ATerm $name;\n"; print IMPL "ATerm $name = 0;\n"; - $init .= " $name = $value;\n"; - } + $init .= " $name = $value;\n"; + $init .= " ATprotect(&$name);\n"; + } elsif (/^\s*init\s+(\w+)\s*$/) { $initFun = $1; |