From 1f91fe098435da45faa9541b2ec30e5be4ca33d8 Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Tue, 11 Nov 2014 13:49:45 -0800 Subject: [PATCH] Solve malloc alignment issues. --- arvo/hoon.hoon | 2 +- arvo/kahn.hoon | 20 +++++++++++--------- arvo/lunt.hoon | 3 ++- 3 files changed, 14 insertions(+), 11 deletions(-) diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon index 0835b79bb..a67f7d41a 100644 --- a/arvo/hoon.hoon +++ b/arvo/hoon.hoon @@ -2718,7 +2718,7 @@ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: section 2eF, parsing (ascii) :: :: -++ ace (just ' ') +all_p++ ace (just ' ') ++ bar (just '|') ++ bas (just '\\') ++ buc (just '$') diff --git a/arvo/kahn.hoon b/arvo/kahn.hoon index b6b2cfae3..97e46d261 100644 --- a/arvo/kahn.hoon +++ b/arvo/kahn.hoon @@ -11,7 +11,8 @@ ++ axle :: %kahn state $: %0 :: big=(unit ship) :: main ship, freeze - soc=(map monk node) :: state once big + soc=(map monk (pair (set duct) node)) :: state once big + red=(map duct monk) :: reverse subscribers == :: ++ cert (each will ,*) :: urbit or other ++ gift :: out result <-$ @@ -23,17 +24,18 @@ cet=cert :: certificate == :: ++ kiss :: social update - $: [%that p=monk q=(map monk link)] :: set links - [%this p=monk q=cert] :: set certificate + $: [%cert p=monk q=cert] :: set certificate + [%feel p=monk] :: watch identity + [%know p=monk q=(map monk link)] :: set forward links + [%nuke ~] :: erase caller == :: ++ link (pair rank ,@da) :: trust/expiration ++ rank :: privilege ring - $? %0 :: owner / admin - %1 :: guardian / employer - %2 :: partner / employee - %3 :: friend / customer - %4 :: neighbor/ contact - %5 :: zombie + $? %0 :: ownership + %1 :: tangible trust + %2 :: friendship + %3 :: neutral + %4 :: enemy == :: -- :: . == diff --git a/arvo/lunt.hoon b/arvo/lunt.hoon index 3caf840ec..023432cfc 100644 --- a/arvo/lunt.hoon +++ b/arvo/lunt.hoon @@ -58,7 +58,8 @@ why=(map duct born) :: hosted ships how=(map born duct) :: reverse why hut=(map born home) :: storage control - sto=(set husk) :: storage resources + ham=(set hulk) :: block stores + sto=(set husk) :: log stores com=(set ship) :: compute resources == :: -- ::