l8 53680

Author: ktye

x/l8.h

@@ -26,16 +26,15 @@ static void wl(ulong x){ //debug-only
  int i=31;while(x){s[--i]='0'+(x%10);x/=10;}
  swrite(1,s+i,32-i);}
 
-extern char _end[];
-#define M_ _end
+static char*M_;
 #define I_ ((int*)M_)
 #define U_ ((ulong*)M_)
 static void*F_[];   //dispatch table
 #define int32_t int //some literals
 static ulong pages_=0;
 static int Memorysize(void){return pages_;}
-static int Memorygrow(int d){pages_+=d;if(pages_>16384)return -1;brk((pages_<<16)+(ulong)_end);return pages_-d;}
-static void Memory(int x){Memorygrow(x);wl(brk(0)-(long)_end);}
+static int Memorygrow(int d){pages_+=d;if(pages_>16384)return -1;brk((pages_<<16)+(ulong)M_);return pages_-d;}
+static void Memory(int x){M_=(char*)brk(0);Memorygrow(x);}
 static void Memory2(int x){}
 
 //todo try/catch

x/mk

@@ -22,9 +22,8 @@ elif [ "$1" = "ctest" ]; then
  ./kc ../k.t -e
 elif [ "$1" = "l8" ]; then
  k k.k cc.k -e 'x:`<cc``l8' >  k.c
- gcc -Os -s -nostdlib -static -fomit-frame-pointer -Wl,--nmagic -Wl,--build-id=none -fno-asynchronous-unwind-tables -ol8 k.c
- #gcc -Wall -Wfatal-errors -Os -s -nostdlib -static -Wl,--nmagic -Wl,--build-id=none -fno-asynchronous-unwind-tables -ol8 k.c
- #gcc -Wall -Wfatal-errors -nostdlib -static -ol8 k.c -lm
+ gcc -Os -s -nostdlib -static -Wl,--nmagic -Wl,--build-id=none -fno-asynchronous-unwind-tables -ol8_ k.c
+ objcopy --remove-section .comment l8_ l8
 elif [ "$1" = "wa" ]; then
  k k.k wa.k -e 'x:`<wa``' >  k.wa
  /c/local/wabt/wat2wasm k.wa