git-svn-id: trunk@26631 -
@@ -1,4 +1,4 @@
-{ %OPT=-Oodfa -Sew -vw }
+{ %OPT=-Oodfa -Sew -vw -Oonodeadvalues }
type
to1 = object
procedure Init;
@@ -1,5 +1,5 @@
{ %fail }
-{ %opt=-Sew -vw }
+{ %opt=-Sew -vw -Oonodeadvalues}
var
a : array[0..32] of byte;