Commit a648c07a authored by Alexander Gall's avatar Alexander Gall

Include auxiliary objects in segments

parent bb36077e
...@@ -293,7 +293,7 @@ sub parse_shmem() { ...@@ -293,7 +293,7 @@ sub parse_shmem() {
## Weird: when an non-existant object is accessed for the ## Weird: when an non-existant object is accessed for the
## first time, the result is undef, but subsequent accesses ## first time, the result is undef, but subsequent accesses
## return a reference to an empty hash :/ ## return a reference to an empty hash :/
if ($name =~ /^_X/ or (not defined $oid_node or if (not $name =~ /^_X/ and (not defined $oid_node or
keys(%{$oid_node}) == 0)) { keys(%{$oid_node}) == 0)) {
##warn "$idx: unokwn object $name, skipping"; ##warn "$idx: unokwn object $name, skipping";
} else { } else {
......
...@@ -107,8 +107,6 @@ sub FETCH { ...@@ -107,8 +107,6 @@ sub FETCH {
if ($stamp_abs != 0) { if ($stamp_abs != 0) {
$stamp = 100*(time() - $stamp_abs); $stamp = 100*(time() - $stamp_abs);
} }
} else {
print("abs ticks $aux_name\n");
} }
} }
return $stamp; return $stamp;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment