Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Memory Alignment
--GNAT 4.9.3 with Ada.Text_IO; use Ada.Text_IO; procedure Hello is offset : Integer := 2; a : integer; begin offset := offset + ((a'alignment - (offset mod a'alignment)) mod a'alignment); Put_Line (offset'img); end Hello;
run
|
edit
|
history
|
help
1
ordenar.adb
Dynamic Dispatching with no dynamic allocation
Controlled types (temporary anonymous objects)
es_perfecto.adb
Ada Dimentional System
susuma_dos_enteros.adb
nested ADA code, same procedure name
1d array as 4d with easy reshaping
suma_enteros_ppal.adb
Dynamic Dispatching with dynamic allocation