os-k-team
/
kvisc
mirror of https://gitlab.os-k.eu/os-k-team/kvisc.git
1
0
Fork 0
Code Releases Activity

sal

This commit is contained in:
julianb0 2019-08-06 14:42:31 +02:00
parent 683dd8c473
commit f5f599c5e6
No known key found for this signature in database
GPG Key ID: 9C7ACF0C053FB8A1
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
vm/in/ALU
View File

@ -44,14 +44,12 @@ shl 3
shr 3
#
# Arithmetical left/right shift (SAL/SAR)
# Arithmetical right shift (SAR)
#
# $dest = $src1 <<< $src2 (SAL)
# $dest = $src1 >>> $src2 (SAR)
#
# Preserves all flags
#
sal 3
sar 3
#---------------------------------------------------------------------------#

1
vm/in/alu.c
View File

@ -16,7 +16,6 @@ IMPL_START(xor) { SRCP(p2); SRCP(p3); *r1 = p2->val ^ p3->val; return 1; }
IMPL_START(shl) { SRCP(p2); SRCP(p3); *r1 = p2->val << p3->val; return 1; }
IMPL_START(shr) { SRCP(p2); SRCP(p3); *r1 = p2->val >> p3->val; return 1; }
IMPL_START(sal) { SRCP(p2); SRCP(p3); *r1 = (ulong)((long)p2->val << (long)p3->val); return 1; }
IMPL_START(sar) { SRCP(p2); SRCP(p3); *r1 = (ulong)((long)p2->val >> (long)p3->val); return 1; }
//----------------------------------------------------------------------------//