Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-29 17:50:35 +00:00
Code Issues Projects Releases Wiki Activity

some arrays can be in BSS

Browse Source
This commit is contained in:
Irmen de Jong 2023-10-18 23:59:37 +02:00
parent e15c5cde53
commit 3dc5a0e7f8
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/source/todo.rst
View File

@ -3,7 +3,7 @@ TODO
- [on branch: shortcircuit] investigate McCarthy evaluation again? this may also reduce code size perhaps for things like if a>4 or a<2 .... - [on branch: shortcircuit] investigate McCarthy evaluation again? this may also reduce code size perhaps for things like if a>4 or a<2 ....
- [on branch: ir-less-branch-opcodes] IR: reduce the number of branch instructions such as BEQ, BEQR, etc (gradually), replace with CMP(I) + status branch instruction - [on branch: ir-less-branch-opcodes] IR: reduce the number of branch instructions such as BEQ, BEQR, etc (gradually), replace with CMP(I) + status branch instruction
- IR: reduce amount of CMP/CMPI after instructions that set the status bits correctly (LOADs? INC? etc), but only after setting the status bits is verified! - IR: reduce amount of CMP/CMPI after instructions that set the status bits correctly (LOADs? INC? Bitwise operations, etc), but only after setting the status bits is verified!
... ...

6
examples/textelite.p8
View File

@ -292,7 +292,7 @@ ship {
ubyte fuel = Max_fuel ubyte fuel = Max_fuel
uword cash = 1000 ; actually has to be 4 bytes for the ultra rich.... uword cash = 1000 ; actually has to be 4 bytes for the ultra rich....
ubyte[17] cargohold = 0 ubyte[17] cargohold
sub init() { sub init() {
sys.memset(cargohold, len(cargohold), 0) sys.memset(cargohold, len(cargohold), 0)
@ -318,8 +318,8 @@ market {
str[17] names = ["Food", "Textiles", "Radioactives", "Slaves", "Liquor/Wines", "Luxuries", "Narcotics", "Computers", str[17] names = ["Food", "Textiles", "Radioactives", "Slaves", "Liquor/Wines", "Luxuries", "Narcotics", "Computers",
"Machinery", "Alloys", "Firearms", "Furs", "Minerals", "Gold", "Platinum", "Gem-Stones", "Alien Items"] "Machinery", "Alloys", "Firearms", "Furs", "Minerals", "Gold", "Platinum", "Gem-Stones", "Alien Items"]
ubyte[17] current_quantity = 0 ubyte[17] current_quantity
uword[17] current_price = 0 uword[17] current_price
sub init(ubyte fluct) { sub init(ubyte fluct) {
; Prices and availabilities are influenced by the planet's economy type ; Prices and availabilities are influenced by the planet's economy type

6
examples/vm/textelite.p8
View File

@ -233,7 +233,7 @@ ship {
ubyte fuel = Max_fuel ubyte fuel = Max_fuel
uword cash = 1000 ; actually has to be 4 bytes for the ultra rich.... uword cash = 1000 ; actually has to be 4 bytes for the ultra rich....
ubyte[17] cargohold = 0 ubyte[17] cargohold
sub init() { sub init() {
sys.memset(cargohold, len(cargohold), 0) sys.memset(cargohold, len(cargohold), 0)
@ -259,8 +259,8 @@ market {
str[17] names = ["Food", "Textiles", "Radioactives", "Slaves", "Liquor/Wines", "Luxuries", "Narcotics", "Computers", str[17] names = ["Food", "Textiles", "Radioactives", "Slaves", "Liquor/Wines", "Luxuries", "Narcotics", "Computers",
"Machinery", "Alloys", "Firearms", "Furs", "Minerals", "Gold", "Platinum", "Gem-Stones", "Alien Items"] "Machinery", "Alloys", "Firearms", "Furs", "Minerals", "Gold", "Platinum", "Gem-Stones", "Alien Items"]
ubyte[17] current_quantity = 0 ubyte[17] current_quantity
uword[17] current_price = 0 uword[17] current_price
sub init(ubyte fluct) { sub init(ubyte fluct) {
; Prices and availabilities are influenced by the planet's economy type ; Prices and availabilities are influenced by the planet's economy type