aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Memory-allocation/Ada/memory-allocation-1.ada
View file

@ -1,5 +0,0 @@
declare
X : Integer; -- Allocated on the stack
begin
...
end; -- X is freed

6
Task/Memory-allocation/Ada/memory-allocation-2.ada
View file

@ -1,6 +0,0 @@
declare
type Integer_Ptr is access Integer;
Ptr : Integer_Ptr := new Integer; -- Allocated in the heap
begin
...
end; -- Memory is freed because Integer_Ptr is finalized

8
Task/Memory-allocation/Ada/memory-allocation-3.ada
View file

@ -1,8 +0,0 @@
declare
type Integer_Ptr is access Integer;
procedure Free is new Ada.Unchecked_Deallocation (Integer, Integer_Ptr)
Ptr : Integer_Ptr := new Integer; -- Allocated in the heap
begin
Free (Ptr); -- Explicit deallocation
...
end;

3
Task/Memory-allocation/Ada/memory-allocation-4.ada
View file

@ -1,3 +0,0 @@
package P is
X : Integer; -- Allocated in the result the package elaboration
end P;

15
Task/Memory-allocation/COBOL/memory-allocation.cobol
View file

@ -1,15 +0,0 @@
PROGRAM-ID. memory-allocation.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 based-data PIC X(20) VALUE "Hello, World!"
BASED.
PROCEDURE DIVISION.
*> INITIALIZED sets the data item to the VALUE.
ALLOCATE based-data INITIALIZED
DISPLAY based-data
FREE based-data
GOBACK
.