Skip to content

Instantly share code, notes, and snippets.

package Alt is
type Alt_Cond is (Alt_B => 1, Alt_C => 2) with Size => 8;
generic
session FSM is
Alt_Cond : Alt_Cond;
begin
state Init is
begin
@senier
senier / hikey960_aosp-boot.log
Created March 19, 2019 15:47
HiKey960 AOSP 9.0 boot failure
hikey960 boarid:5301 xloader use UART6
scsysstat_value[0].
clear reset source
last_keypoint0,reboot_type0
secdbg not DCU.
SecDbgVer exit
xloader chipid is: 0x36600110, start at 331ms.
Build Date: Sep 19 2017, 15:34:09
[clock_init] ++
@senier
senier / ada
Created January 24, 2019 14:28
Set up Ada paths
export PATH=/usr/local/gnat/bin:/usr/local/spark/bin:/usr/local/gps/bin:${PATH}
export PS1='\[\033[01;34m\]\w\[\033[00m\] \[\033[01;31m\]Ada\[\033[00m\]> '
@senier
senier / .gitignore
Last active January 12, 2019 20:20
C++ method in Ada
obj
@senier
senier / build.gpr
Last active January 12, 2019 12:12
C++ destructor in Ada
project Build
is
for Languages use ("C++", "Ada");
for Create_Missing_Dirs use "True";
for Source_Dirs use (".");
for Object_Dir use "obj";
for Exec_Dir use ".";
for Main use ("main.adb");
end Build;
package body Slice_Postcon
is
function Check_Proto (Data : Data_Type) return Boolean
is
begin
if Data (Data'First) = 'X'
then
pragma Assume (Is_Proto (Data (Data'First + 1 .. Data'Last)));
return True;