diff options
Diffstat (limited to 'src/fltk-environment.ads')
| -rw-r--r-- | src/fltk-environment.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fltk-environment.ads b/src/fltk-environment.ads index 132e610..be32eee 100644 --- a/src/fltk-environment.ads +++ b/src/fltk-environment.ads @@ -295,7 +295,7 @@ private type Pref_Group is new Wrapper with record - Root_Ptr : Storage.Integer_Address; + Root_Ptr : Storage.Integer_Address := Null_Pointer; end record; overriding procedure Finalize |