6502/macross
1
0
Fork 0
mirror of https://github.com/Museum-of-Art-and-Digital-Entertainment/macross.git synced 2025-02-19 15:30:36 +00:00
Code Issues Projects Releases Wiki Activity

evaluateOperand takes only a single argument

Browse Source
This commit is contained in:
Peter De Wachter 2016-01-23 18:24:14 +01:00
parent 086027b1b5
commit c968f1bed4
3 changed files with 38 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
builtInFunsSD_6502.c
View File

@ -53,7 +53,7 @@ isARegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
A_REGISTER_OPND)); A_REGISTER_OPND));
} else { } else {
@ -72,7 +72,7 @@ isDirectModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
EXPRESSION_OPND)); EXPRESSION_OPND));
} else { } else {
@ -91,7 +91,7 @@ isImmediateModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
IMMEDIATE_OPND)); IMMEDIATE_OPND));
} else { } else {
@ -110,7 +110,7 @@ isIndexedModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
X_INDEXED_OPND || evaluatedParameter->addressMode == X_INDEXED_OPND || evaluatedParameter->addressMode ==
Y_INDEXED_OPND || evaluatedParameter->addressMode == Y_INDEXED_OPND || evaluatedParameter->addressMode ==
@ -132,7 +132,7 @@ isIndirectModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
INDIRECT_OPND)); INDIRECT_OPND));
} else { } else {
@ -151,7 +151,7 @@ isPostIndexedModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
POST_INDEXED_Y_OPND)); POST_INDEXED_Y_OPND));
} else { } else {
@ -170,7 +170,7 @@ isPreIndexedModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
PRE_INDEXED_X_OPND || evaluatedParameter-> PRE_INDEXED_X_OPND || evaluatedParameter->
addressMode == PRE_SELECTED_X_OPND)); addressMode == PRE_SELECTED_X_OPND));
@ -190,7 +190,7 @@ isXIndexedModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
X_INDEXED_OPND || evaluatedParameter->addressMode == X_INDEXED_OPND || evaluatedParameter->addressMode ==
X_SELECTED_OPND)); X_SELECTED_OPND));
@ -210,7 +210,7 @@ isXRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
X_REGISTER_OPND)); X_REGISTER_OPND));
} else { } else {
@ -229,7 +229,7 @@ isYIndexedModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
Y_INDEXED_OPND || evaluatedParameter->addressMode == Y_INDEXED_OPND || evaluatedParameter->addressMode ==
Y_SELECTED_OPND)); Y_SELECTED_OPND));
@ -249,7 +249,7 @@ isYRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(evaluatedParameter->addressMode == return(makeBooleanValue(evaluatedParameter->addressMode ==
Y_REGISTER_OPND)); Y_REGISTER_OPND));
} else { } else {

50
builtInFunsSD_68000.c
View File

@ -53,7 +53,7 @@ getAddressRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeIntegerValue(getAddressRegister( return(makeIntegerValue(getAddressRegister(
evaluatedParameter->addressMode))); evaluatedParameter->addressMode)));
} else { } else {
@ -72,7 +72,7 @@ getDataRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeIntegerValue(getDataRegister(evaluatedParameter-> return(makeIntegerValue(getDataRegister(evaluatedParameter->
addressMode))); addressMode)));
} else { } else {
@ -91,7 +91,7 @@ getIndexRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeIntegerValue(getIndexRegister(evaluatedParameter-> return(makeIntegerValue(getIndexRegister(evaluatedParameter->
addressMode))); addressMode)));
} else { } else {
@ -110,7 +110,7 @@ getRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeIntegerValue(getRegister(evaluatedParameter-> return(makeIntegerValue(getRegister(evaluatedParameter->
addressMode))); addressMode)));
} else { } else {
@ -129,7 +129,7 @@ getWLBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeIntegerValue(getWL(evaluatedParameter-> return(makeIntegerValue(getWL(evaluatedParameter->
addressMode))); addressMode)));
} else { } else {
@ -148,7 +148,7 @@ isAbsoluteModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == ABSOLUTE_SHORT_OPND || addressMode) == ABSOLUTE_SHORT_OPND ||
operandKindField(evaluatedParameter->addressMode) == operandKindField(evaluatedParameter->addressMode) ==
@ -169,7 +169,7 @@ isAbsoluteLongModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == ABSOLUTE_LONG_OPND)); addressMode) == ABSOLUTE_LONG_OPND));
} else { } else {
@ -188,7 +188,7 @@ isAbsoluteShortModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == ABSOLUTE_SHORT_OPND)); addressMode) == ABSOLUTE_SHORT_OPND));
} else { } else {
@ -207,7 +207,7 @@ isARegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == A_REGISTER_OPND)); addressMode) == A_REGISTER_OPND));
} else { } else {
@ -226,7 +226,7 @@ isCCRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == CC_REGISTER_OPND)); addressMode) == CC_REGISTER_OPND));
} else { } else {
@ -245,7 +245,7 @@ isControlRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == CONTROL_REGISTER_OPND)); addressMode) == CONTROL_REGISTER_OPND));
} else { } else {
@ -264,7 +264,7 @@ isDRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == D_REGISTER_OPND)); addressMode) == D_REGISTER_OPND));
} else { } else {
@ -283,7 +283,7 @@ isDFCRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == CONTROL_REGISTER_OPND && addressMode) == CONTROL_REGISTER_OPND &&
getRegister(evaluatedParameter->addressMode) == getRegister(evaluatedParameter->addressMode) ==
@ -304,7 +304,7 @@ isDisplacementModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == DISPLACEMENT_OPND)); addressMode) == DISPLACEMENT_OPND));
} else { } else {
@ -323,7 +323,7 @@ isImmediateModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == IMMEDIATE_OPND)); addressMode) == IMMEDIATE_OPND));
} else { } else {
@ -342,7 +342,7 @@ isIndexedModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == INDEXED_OPND)); addressMode) == INDEXED_OPND));
} else { } else {
@ -361,7 +361,7 @@ isIndirectModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == A_REGISTER_INDIRECT_OPND)); addressMode) == A_REGISTER_INDIRECT_OPND));
} else { } else {
@ -380,7 +380,7 @@ isPCDisplacementModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == PC_DISPLACEMENT_OPND)); addressMode) == PC_DISPLACEMENT_OPND));
} else { } else {
@ -399,7 +399,7 @@ isPCIndexedModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == PC_INDEXED_OPND)); addressMode) == PC_INDEXED_OPND));
} else { } else {
@ -418,7 +418,7 @@ isPostincrementModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == POSTINCREMENT_OPND)); addressMode) == POSTINCREMENT_OPND));
} else { } else {
@ -437,7 +437,7 @@ isPredecrementModeBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == PREDECREMENT_OPND)); addressMode) == PREDECREMENT_OPND));
} else { } else {
@ -456,7 +456,7 @@ isSFCRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == CONTROL_REGISTER_OPND && addressMode) == CONTROL_REGISTER_OPND &&
getRegister(evaluatedParameter->addressMode) == getRegister(evaluatedParameter->addressMode) ==
@ -477,7 +477,7 @@ isStatusRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == STATUS_REGISTER_OPND)); addressMode) == STATUS_REGISTER_OPND));
} else { } else {
@ -496,7 +496,7 @@ isUSPBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == USP_REGISTER_OPND)); addressMode) == USP_REGISTER_OPND));
} else { } else {
@ -515,7 +515,7 @@ isVBRegisterBIF(parameterList, kindOfFixup)
valueType *evaluateOperand(); valueType *evaluateOperand();
if (parameterList != NULL) { if (parameterList != NULL) {
evaluatedParameter = evaluateOperand(parameterList, NO_FIXUP); evaluatedParameter = evaluateOperand(parameterList);
return(makeBooleanValue(operandKindField(evaluatedParameter-> return(makeBooleanValue(operandKindField(evaluatedParameter->
addressMode) == CONTROL_REGISTER_OPND && addressMode) == CONTROL_REGISTER_OPND &&
getRegister(evaluatedParameter->addressMode) == getRegister(evaluatedParameter->addressMode) ==

4
lookups.c
View File

@ -444,7 +444,7 @@ bindFunctionArguments(argumentList, parameterList, functionName)
nextArgument!=NULL) && parameterList!=NULL) { nextArgument!=NULL) && parameterList!=NULL) {
saveEnvironment = currentEnvironment; saveEnvironment = currentEnvironment;
currentEnvironment = currentEnvironment->previousEnvironment; currentEnvironment = currentEnvironment->previousEnvironment;
argument = evaluateOperand(parameterList, NO_FIXUP); argument = evaluateOperand(parameterList);
currentEnvironment = saveEnvironment; currentEnvironment = saveEnvironment;
if (firstArgument == NULL) if (firstArgument == NULL)
firstArgument = argument; firstArgument = argument;
@ -495,7 +495,7 @@ bindFunctionArguments(argumentList, parameterList, functionName)
saveEnvironment = currentEnvironment; saveEnvironment = currentEnvironment;
currentEnvironment = currentEnvironment-> currentEnvironment = currentEnvironment->
previousEnvironment; previousEnvironment;
argument = evaluateOperand(parameterList, NO_FIXUP); argument = evaluateOperand(parameterList);
currentEnvironment = saveEnvironment; currentEnvironment = saveEnvironment;
if (firstArgument == NULL) if (firstArgument == NULL)
firstArgument = argument; firstArgument = argument;