diff options
Diffstat (limited to 'source/common.elna')
| -rw-r--r-- | source/common.elna | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/source/common.elna b/source/common.elna index 428c4ec..65b0a65 100644 --- a/source/common.elna +++ b/source/common.elna @@ -78,4 +78,12 @@ begin end return result +proc free_and_nil*#[T](ptr: ^T) -> ^T +begin + if ptr <> nil then + free(ptr) + end +return nil + end. + |