diff options
Diffstat (limited to 'kernel/writer.sats')
| -rw-r--r-- | kernel/writer.sats | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/kernel/writer.sats b/kernel/writer.sats index c9b8814..43881b1 100644 --- a/kernel/writer.sats +++ b/kernel/writer.sats @@ -1,4 +1,4 @@ -#define N 80 * 25 +#define N 2000 datatype color = | Black @@ -21,7 +21,6 @@ datatype color = typedef screenChar = @{ ascii_character = char, color_code = uint8} -vtypedef tptr (a: t@ype, l:addr) = (a @ l | ptr l) -vtypedef writer = [l: addr] [n:nat | n < N] @{ column_position = size_t n, color_code = uint8 , buffer = tptr(@[screenChar][N],l)} +vtypedef writer = [l : agz] @{position = [a:int | a >= 0 && a < N] int (a), color_code = uint8 , buffer = (@[screenChar][N] @ l | ptr l)} fun print_char(c : char) : void |