picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit fa996a99c89d0b4d498357f452a7786bd3bf9c9d
parent 5fea382d4970ab3272bc32e1cb4a61e876c62e17
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  8 Sep 2011 10:41:16 +0200

Using "uintNN_t" instead of "u_intNN_t" (C99 standard)
Diffstat:
Msrc/big.c | 8++++----
Msrc/pico.h | 3++-
Msrc/sym.c | 6+++---
3 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/src/big.c b/src/big.c @@ -1,4 +1,4 @@ -/* 09jul11abu +/* 08sep11abu * (c) Software Lab. Alexander Burger */ @@ -1118,10 +1118,10 @@ any doBitXor(any ex) { } /* Random numbers */ -static u_int64_t Seed; +static uint64_t Seed; -static u_int64_t initSeed(any x) { - u_int64_t n; +static uint64_t initSeed(any x) { + uint64_t n; for (n = 0; isCell(x); x = cdr(x)) n += initSeed(car(x)); diff --git a/src/pico.h b/src/pico.h @@ -1,8 +1,9 @@ -/* 22jul11abu +/* 08sep11abu * (c) Software Lab. Alexander Burger */ #include <stdio.h> +#include <stdint.h> #include <stdlib.h> #include <stdarg.h> #include <unistd.h> diff --git a/src/sym.c b/src/sym.c @@ -1,4 +1,4 @@ -/* 22jul11abu +/* 08sep11abu * (c) Software Lab. Alexander Burger */ @@ -1401,7 +1401,7 @@ any doMeta(any ex) { #define CHAR_LETTER 62 #define CHAR_DIGIT 512 -static u_int16_t Blocks[] = { +static uint16_t Blocks[] = { 0x1C2, 0x1C2, 0x1C1, 0x12C, 0x12B, 0x1A0, 0x1F8, 0x2DC, 0x25F, 0x2EE, 0x215, 0x346, 0x2DC, 0x326, 0x2BC, 0x216, 0x15F, 0x2D4, 0x376, 0x376, 0x376, 0x369, 0xFE8F, 0x344, 0xFF85, 0xFF65, 0xFDB5, 0xFDA1, 0x1B, 0x2C4, 0x1C, 0x47, 0xFEA8, 0xFF8C, 0x235, 0xFEFF, 0x1A, 0xFEBF, 0x26, 0xFB20, 0xFE28, 0x113, 0x104, 0xFB61, 0xFB5A, 0x10B, 0x109, 0xFE, @@ -1532,7 +1532,7 @@ static u_int16_t Blocks[] = { 0x528, 0x166B, 0x1667, 0x3FF, 0x9FC, 0x9DC, 0x9BC, 0x659, 0xBB8, 0x15A7, 0xFC6, 0x1C0, 0x1B1, 0x9CB, 0x82C, 0x1285, }; -static u_int16_t Data[] = { +static uint16_t Data[] = { 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3E80, 0x3E80, 0x3001, 0x3082, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,