Mercurial > repos > tabletprog
comparison modules/bytearray.tp @ 180:270d31c6c4cd
Add support for jmps and labels in x86 module
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sat, 24 Aug 2013 15:08:00 -0700 |
| parents | e823e104b845 |
| children | fb922651db29 |
comparison
equal
deleted
inserted
replaced
| 179:75aca5f87969 | 180:270d31c6c4cd |
|---|---|
| 57 totalSize <- bytes fold: 0 with: :acc el { | 57 totalSize <- bytes fold: 0 with: :acc el { |
| 58 acc + (el length) | 58 acc + (el length) |
| 59 } | 59 } |
| 60 ba <- executable: totalSize | 60 ba <- executable: totalSize |
| 61 bytes fold: 0 with: :idx el { | 61 bytes fold: 0 with: :idx el { |
| 62 el fold: idx with: :idx byte { | 62 el flattenTo: ba at: idx |
| 63 ba set: idx byte | |
| 64 idx + 1 | |
| 65 } | |
| 66 } | 63 } |
| 67 ba | 64 ba |
| 68 } | 65 } |
| 69 } | 66 } |