luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Free 14 bytecode slots by using 'ADD QUICK' for numbers between -255 and 255 only.

Browse source 
[COMPILER]
* NEW: Free 14 bytecode slots by using 'ADD QUICK' for numbers between -255 and 255 only.
This commit is contained in:
Benoît Minisini 2022-09-12 15:02:39 +02:00
parent c2005ad919
commit 1cec6f118b
1 changed files with 20 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
main/share/gb_code_temp.h
View file

@ -899,27 +899,30 @@ void CODE_op(short op, short subcode, short nparam, bool fixed)
printf("ADD QUICK %d\n", value);
#endif
*last_code = C_ADD_QUICK | (value & 0x0FFF);
use_stack(1 - nparam);
// Now, look if we are PUSH QUICK then ADD QUICK
last_code = get_last_code2();
if (last_code && ((*last_code & 0xF000) == C_PUSH_QUICK))
if (COMP_version < 0x03180000 || (value >= -255 && value <= 255))
{
value2 = *last_code & 0xFFF;
if (value2 >= 0x800) value2 |= 0xF000;
value += value2;
*last_code = C_ADD_QUICK | (value & 0x0FFF);
if (value >= -2048L && value < 2048L)
use_stack(1 - nparam);
// Now, look if we are PUSH QUICK then ADD QUICK
last_code = get_last_code2();
if (last_code && ((*last_code & 0xF000) == C_PUSH_QUICK))
{
*last_code = C_PUSH_QUICK | (value & 0x0FFF);
CODE_undo();
}
}
value2 = *last_code & 0xFFF;
if (value2 >= 0x800) value2 |= 0xF000;
value += value2;
return;
if (value >= -2048L && value < 2048L)
{
*last_code = C_PUSH_QUICK | (value & 0x0FFF);
CODE_undo();
}
}
return;
}
}
}