puck/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

* Protect the true', false' and `__overrides' constants. Without

Browse source 
an ATprotect call, these could be garbage collected, leading to
  weird crashes or wrong results.
This commit is contained in:
Eelco Dolstra 2010-03-02 20:09:12 +00:00
parent 3f9e647ae8
commit 56af8e86e3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/aterm-helper.pl
View file

@ -146,8 +146,9 @@ while (<STDIN>) {
my $value = $2; my $value = $2;
print HEADER "extern ATerm $name;\n"; print HEADER "extern ATerm $name;\n";
print IMPL "ATerm $name = 0;\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*$/) { elsif (/^\s*init\s+(\w+)\s*$/) {
$initFun = $1; $initFun = $1;