Add uval-o, value-flavored user-o

cross.fs

@@ -3477,6 +3477,11 @@ DO: true abort" not in cross compiler!" ;DO
 Build: 0 au, dup class-o ! X , ;Build
 by User
 
+Builder uval-o
+DO: true abort" not in cross compiler!" ;DO
+Build: 0 au, dup class-o ! X , ;Build
+by UValue
+
 >TARGET
 : umethod ( m v -- m' v )
     over >r no-loop on T : H compile u#exec class-o @ T , H
@@ -3854,6 +3859,7 @@ Cond: IS        cross-record-name T ' >body H compile ALiteral compile ! ;Cond
 Cond: TO        T ' >body H compile ALiteral compile ! ;Cond
 : TO            T ' >body ! H ;
 Cond: UTO       compile useraddr T ' >body @ , H compile ! ;Cond
+: UTO           T ' >body @ H tup@ + X ! ;
 Cond: UADDR     compile useraddr T ' >body @ , H ;Cond
 [THEN]
 

kernel/memory.fs

@@ -25,8 +25,8 @@ here
 ' heap-resize a,
 A, here Aconstant heap-words
 
-user-o current-memory-words
-heap-words current-memory-words A!
+uval-o current-memory-words
+heap-words uto current-memory-words
 0 0
 umethod allocate ( u -- a_addr wior )	\ memory
     \G Allocate @i{u} address units of contiguous data space. The

user-object.fs

@@ -4,6 +4,8 @@ Variable class-o
 
 : user-o ( "name" -- )
     0 uallot class-o !  User ;
+: uval-o ( "name" -- )
+    0 uallot class-o !  UValue ;
 
 : umethod ( m v -- m' v )
     postpone nocov[