6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-05 21:29:03 +00:00
Code Issues Projects Releases Wiki Activity

Inline shifts in g_asl as is already the case in g_scale.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3987 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2009-07-30 19:41:25 +00:00
parent 043acb1d98
commit 66391bfc25
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/cc65/codegen.c
View File

@ -387,8 +387,8 @@ void g_defimport (const char* Name, int ZP)
void g_importstartup (void)
/* Forced import of the startup segment */
{
#if 0
{
#if 0
AddTextLine ("\t.forceimport\t__STARTUP_RUN__");
#endif
}
@ -3119,11 +3119,20 @@ void g_asl (unsigned flags, unsigned long val)
/* Done */
return;
} else if (val >= 1 && val <= 4) {
if (flags & CF_UNSIGNED) {
AddCodeLine ("jsr shlax%ld", val);
} else {
AddCodeLine ("jsr aslax%ld", val);
}
if (IS_Get (&CodeSizeFactor) >= (long) (val+1)*130) {
AddCodeLine ("stx tmp1");
while (val--) {
AddCodeLine ("asl a");
AddCodeLine ("rol tmp1");
}
AddCodeLine ("ldx tmp1");
} else {
if (flags & CF_UNSIGNED) {
AddCodeLine ("jsr shlax%ld", val);
} else {
AddCodeLine ("jsr aslax%ld", val);
}
}
return;
}
break;