github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-25 08:20:03 +00:00
Code Issues Projects Releases Wiki Activity

Remove unnecessary codepaths for ISC. (#230)

Browse Source 
ISC support had some extra code paths that were largely
duplicates of what was for non-ISC. They are not needed
any longer.
This commit is contained in:
Bruce Mitchener
2021-01-16 12:01:40 +07:00
committed by GitHub
parent 7ce6a55499
commit be7f43322e
2 changed files with 2 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/mvs.c
View File

@@ -80,11 +80,7 @@ newframe:
#endif /* RESWAPPEDCODESTREAM */
newpc:
#ifdef ISC
opcode = (short)((unsigned char)*((char *)pc));
#else
opcode = (short)((unsigned char)GETBYTE((char *)pc));
#endif
switch (opcode) {
case opc_RETURN:
case opc_SLRETURN:
@@ -116,11 +112,7 @@ newpc:
case opc_JUMPX: {
register short displacement;
#ifdef ISC
displacement = (short)(*((char *)pc + 1));
#else
displacement = (short)(GETBYTE((char *)pc + 1));
#endif
if (displacement >= 128) displacement -= 256;
pc += displacement;
goto newpc;
@@ -185,11 +177,7 @@ newframe:
#endif /* RESWAPPEDCODESTREAM */
newpc:
#ifdef ISC
opcode = (short)((unsigned char)*((char *)pc));
#else
opcode = (short)((unsigned char)GETBYTE((char *)pc));
#endif
switch (opcode) {
case opc_RETURN:
case opc_SLRETURN:
@@ -221,11 +209,7 @@ newpc:
case opc_JUMPX: {
register short displacement;
#ifdef ISC
displacement = (short)(*((char *)pc + 1));
#else
displacement = (short)(GETBYTE((char *)pc + 1));
#endif
if (displacement >= 128) displacement -= 256;
pc += displacement;
goto newpc;