Old scaffolding removed

1 files changed, 0 insertions, 149 deletions

diff --git a/compiler/elymasAsmLib.ey b/compiler/elymasAsmLib.ey
index c92dd9f..91e3689 100644
--- a/compiler/elymasAsmLib.ey
+++ b/compiler/elymasAsmLib.ey
@@ -1162,155 +1162,6 @@
       } rep
     ]
   } /constStringCode deff
-
-  <
-    [
-      32 { "." } rep
-      " " "!" "\"" "#" "$" "%" "&" "´" "(" ")" "*" "+" "," "-" "." "/"
-      /0 /1 /2 /3 /4 /5 /6 /7 /8 /9 ":" ";" "<" "=" ">" "?"
-      "@" /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P
-      /Q /R /S /T /U /V /W /X /Y /Z "[" "\\" "]" "^" "_"
-      "`" /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p
-      /q /r /s /t /u /v /w /x /y /z "{" "|" "}" "~" "."
-      128 { "." } rep
-    ] /ASCII defv
-
-    { # ==addr
-      [ -01 7 add 8 { _ sys .asm .peek -01 1 sub } rep -- ] { -01 256 mul add } fold
-    } /peekImm64 deff
-
-    { # ==addr
-      [ -01 3 add 4 { _ sys .asm .peek -01 1 sub } rep -- ] { -01 256 mul add } fold
-    } /peekImm32 deff
-
-    { # ==addr
-      sys .asm .peek
-    } /peekImm8 deff
-
-    [ /0 /1 /2 /3 /4 /5 /6 /7 /8 /9 /A /B /C /D /E /F ] ==base16singleDigits
-    [ base16singleDigits { ==first base16singleDigits { first -01 cat } each } each ] ==base16digits
-
-    {
-      [ -01 8 { _ 256 mod -01 256 div } rep -- ]
-      base16digits *
-      reverse |cat fold
-    } /base16encode64 deff
-
-    {
-      [ -01 4 { _ 256 mod -01 256 div } rep -- ]
-      base16digits *
-      reverse |cat fold
-    } /base16encode32 deff
-
-    { ==objAddr
-      "  int\n" sys .out .writestr
-    } /intDump deff
-
-    { ==objAddr
-      "  \"" sys .out .writestr
-      objAddr 16 add peekImm64 ==length
-      objAddr 24 add _ length add range peekImm8 ASCII * |cat fold sys .out .writestr
-      "\"\n" sys .out .writestr
-    } /stringDump deff
-
-    { ==objAddr
-      "  scope\n" sys .out .writestr
-
-      objAddr       peekImm32
-      objAddr 4 add peekImm32 16777215 band 4294967296 mul add ==length
-
-      objAddr 8 add peekImm64 ==nameTable
-      objAddr 16 add peekImm64 ==parent
-      objAddr 24 add peekImm64 ==extensionArea
-
-      nameTable 8 add peekImm64 ==nameTableEnd
-      16 { _ nameTableEnd lt } {
-        _ nameTable add base16encode64 ": " cat sys .out .writestr
-        _ nameTable add peekImm64 stringDump
-        _ 16 sub 2 div 32 add _ length lt { ==offset
-            offset objAddr add peekImm64 memDump
-          } { length sub 8 add ==offset
-            offset extensionArea add peekImm64 memDump
-          } ? *
-        16 add
-      } loop --
-    } /scopeDump deff
-
-    { ==objAddr
-      "  nameTable\n" sys .out .writestr
-    } /nameTableDump deff
-
-    { ==objAddr
-      "  extensionArea\n" sys .out .writestr
-    } /extensionAreaDump deff
-
-    { ==objAddr
-      "  function\n" sys .out .writestr
-    } /functionDump deff
-
-    { ==objAddr
-      "  code\n" sys .out .writestr
-    } /codeDump deff
-
-    { ==addr
-      [
-        "  "
-        addr base16encode64
-        ": "
-        # the perl interpreter does not like full 64bit numbers and converts them into floats
-        addr 4 add peekImm32 _ ==heapValueB base16encode32
-        addr       peekImm32 _ ==heapValueA base16encode32
-        " "
-        [ [ heapValueA heapValueB ] { 4 { _ 256 mod -01 256 div } rep -- } each ] ASCII * 8 dearray
-        "\n"
-      ] |cat fold sys .out .writestr
-    } /memDump deff
-
-    { ==objAddr
-      "Object at " objAddr base16encode64 cat " ----------\n" cat sys .out .writestr
-      objAddr       peekImm32
-      objAddr 4 add peekImm32 16777215 band 4294967296 mul
-        add 8 div ==length
-      0 length range { 8 mul objAddr add memDump } each
-
-      objAddr 7 add peekImm8 16 div
-      [
-        |intDump |stringDump |scopeDump |nameTableDump |extensionAreaDump |functionDump |codeDump |die
-        |die |die |die |die |die |die |die |die
-      ] *
-      objAddr -01*
-      "^^^^^^^^^^^^^^^^^^^^^^^^^^^\n" sys .out .writestr
-    } /heapDump deff
-
-    {
-      :mainStack .base :STACKSIZE add ==stackEnd
-      "Stack ------------\n" sys .out .writestr
-      :mainStack .base peekImm64 ==addr
-      addr stackEnd gt { [ -01 stackEnd ] die } rep # Stack corrupted
-
-      { addr stackEnd lt } {
-        [
-          addr base16encode64 ": "
-          addr peekImm64 ==value
-          value base16encode64
-          "\n"
-        ] |cat fold sys .out .writestr
-
-        value 105553116266496 ge value 123145302310912 lt and {
-          value       peekImm32
-          value 4 add peekImm32 16777215 band 4294967296 mul
-            add 8 div ==length
-          0 length range { 8 mul value add memDump } each
-        } rep
-        addr 8 add =addr
-      } loop
-      "^^^^^^^^^^^^^^^^^^\n" sys .out .writestr
-    } /stackDump
-
-    {
-      currentScope peekImm64 heapDump
-    } /globalScopeDump
-  > -- 2 |deff rep
 > /assemblerLibrary defv
 
 # vim: syn=elymas