diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-10-04 00:51:52 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-10-04 00:51:52 +0200 |
| commit | 8a6ed3a4ddf9c4e16bb4ddc3b8c5094bb937598b (patch) | |
| tree | 18198be391a5fd4b10421c1850f1046b3c2e12c4 /source/common.elna | |
| parent | e4ce7f658741a7428597da4872435a1b0bae944c (diff) | |
| download | elna-8a6ed3a4ddf9c4e16bb4ddc3b8c5094bb937598b.tar.gz | |
Update the old compiler with the new syntax
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. + |