diff options
| author | Drahflow <drahflow@gmx.de> | 2014-01-01 23:45:00 +0100 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2014-01-01 23:45:00 +0100 |
| commit | def28d4cbac907f45ad083f01a34aca5f1c78fe8 (patch) | |
| tree | c2fad80cca96c75c0e342d6c2ac09b0144346056 | |
| parent | 5427dd384017d27dc3f86fc23aa0019a9defe8e7 (diff) | |
Low-level typing by '' (free ' for day-to-day use)
| -rw-r--r-- | compiler/elymasGlobal.ey | 2 | ||||
| -rw-r--r-- | elymas/lib/txt.ey | 8 | ||||
| -rw-r--r-- | notes | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/compiler/elymasGlobal.ey b/compiler/elymasGlobal.ey index 4bc5075..2e5e098 100644 --- a/compiler/elymasGlobal.ey +++ b/compiler/elymasGlobal.ey @@ -1679,7 +1679,7 @@ 16 /r15 :pushqMemDisp8 24 /r15 :addqImm8Reg :retn - ]] /ey' defv + ]] /ey'' defv # concatenate two functions # 0 -> function g diff --git a/elymas/lib/txt.ey b/elymas/lib/txt.ey index 01bd495..914f0d7 100644 --- a/elymas/lib/txt.ey +++ b/elymas/lib/txt.ey @@ -4,7 +4,7 @@ # 0 <- leading digits converted to int (0, if none) { "^(\\d*)" regex -- ==n [ n { 48 sub } each ] reverse 10 math .unbase - } [ "" ] [ 0 ] ' /u deffd + } [ "" ] [ 0 ] '' /u deffd # 0 -> string # 0 <- leading hexadecimal digits converted to int (0, if none) @@ -18,7 +18,7 @@ { "^([0-9A-Fa-f]*)" regex -- ==n [ n { 48 sub hexDigitsReverse } each ] reverse 16 math .unbase - } [ "" ] [ 0 ] ' /hu deffd + } [ "" ] [ 0 ] '' /hu deffd > /consume defvd < @@ -26,13 +26,13 @@ # 0 <- decimal representation as string { _ { [ -01 10 math .base reverse "0123456789" each ] str .fromArray } { -- "0" } ? * - } [ 0 ] [ "" ] ' /u deffd + } [ 0 ] [ "" ] '' /u deffd # 0 -> positive integer (or zero) # 0 <- hexadecimal representation as string { _ { [ -01 16 math .base reverse "0123456789ABCDEF" each ] str .fromArray } { -- "0" } ? * - } [ 0 ] [ "" ] ' /hu deffd + } [ 0 ] [ "" ] '' /hu deffd > /produce defvd > /txt defvd @@ -66,8 +66,8 @@ dup = _ A->int B->int add -> B->A->int A->int A->int add -> A->int -# argument order to ' is from stack-top to stack-lower -[ 1 2 3 ] [ /foo /bar /quux ] { defv }' [ "" 1 ] [ ] ' * +# argument order to '' is from stack-top to stack-lower +[ 1 2 3 ] [ /foo /bar /quux ] { defv }' [ "" 1 ] [ ] '' * = Characters = |