kapcioszek/sillymachine
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implemented adding file size to memory size to ensure executable always fits

Browse Source
This commit is contained in:
Bartłomiej Szostak 2024-04-21 12:24:42 +02:00
parent b7b8ce8054
commit 8897298e11
No known key found for this signature in database
GPG Key ID: 562DACF230A18086
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/sillymachine.adb
View File

@ -16,6 +16,7 @@ procedure sillymachine is
I : Integer := 0; I : Integer := 0;
Value : Byte; Value : Byte;
ExecSize : Integer := 0;
MemorySize : Integer := 1048576; -- default memory is 1 mb (TODO: figure out why 8 mb produces STORAGE_ERROR) MemorySize : Integer := 1048576; -- default memory is 1 mb (TODO: figure out why 8 mb produces STORAGE_ERROR)
begin begin
@ -73,6 +74,9 @@ begin
MemorySize := 1048576 * Integer'Value(Argument (2)); MemorySize := 1048576 * Integer'Value(Argument (2));
end if; end if;
ExecSize := Integer(Ada.Directories.Size(FileName));
MemorySize := MemorySize + ExecSize;
declare declare
MemoryArr : ByteArr (0 .. MemorySize); MemoryArr : ByteArr (0 .. MemorySize);
begin begin
@ -89,7 +93,7 @@ begin
end loop; end loop;
Bin_IO.Close(F); Bin_IO.Close(F);
for i in 0 .. 15 loop for i in 0 .. 30 loop
Put_Line(Byte'Image(MemoryArr (i))); Put_Line(Byte'Image(MemoryArr (i)));
end loop; end loop;