5a2a287752
* *
* partial sync with the 3.4 fork codebase. These are the things
synces for the most part:
- copyright headers
- grammar/typos in comments and some readmes
- comment/whitespace/decorations
- variable scoping in C files
- DO CASE/SWITCH and some other alternate syntax usage
- minimal amount of human readable text in strings
- minor code updates
- HB_TRACE() void * casts for pointers and few other changes to
avoid C compiler warnings
- various other, minor code cleanups
- only Harbour/C code/headers were touched in src, utils, contrib,
include. No 3rd party code, no make files, and with just a few
exceptions, no 'tests' code was touched.
- certain components were not touched were 3.4 diverged too much
already, like f.e. hbmk2, hbssl, hbcurl, hbexpat
- the goal was that no actual program logic should be altered by
these changes. Except some possible minor exceptions, any such
change is probably a bug in this patch.
It's a massive patch, if you find anything broken after it, please
open an Issue with the details. Build test was done on macOS.
The goal is make it easier to see what actual code/logic was changed
in 3.4 compared to 3.2 and to make patches easier to apply in both
ways.
253 lines
18 KiB
C
253 lines
18 KiB
C
/*
|
|
* Header file for the PCODE declarations
|
|
*
|
|
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; see the file LICENSE.txt. If not, write to
|
|
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#ifndef HB_PCODE_H_
|
|
#define HB_PCODE_H_
|
|
|
|
/* NOTE:
|
|
*
|
|
* IMPORTANT:
|
|
* Always add new pcodes to the end of the list to maintain compatibility.
|
|
*
|
|
*/
|
|
|
|
/* NOTE:
|
|
* Please update any opcode lookup tables present in
|
|
* genc.c
|
|
* harbour.c
|
|
* when new opcode is added
|
|
*/
|
|
typedef enum
|
|
{
|
|
HB_P_AND = 0, /* 0 performs the logical AND of two latest stack values, removes them and places result */
|
|
HB_P_ARRAYPUSH, /* 1 places on the virtual machine stack an array element */
|
|
HB_P_ARRAYPOP, /* 2 pops a value from the eval stack into an array element */
|
|
HB_P_ARRAYDIM, /* 3 instructs the virtual machine to build an array with some specific dimensions */
|
|
HB_P_ARRAYGEN, /* 4 instructs the virtual machine to build an array and load element from the stack */
|
|
HB_P_EQUAL, /* 5 check if the latest two values on the stack are equal, removing them and leaving the result */
|
|
HB_P_ENDBLOCK, /* 6 end of a codeblock definition */
|
|
HB_P_ENDPROC, /* 7 instructs the virtual machine to end execution */
|
|
HB_P_EXACTLYEQUAL, /* 8 check if the latest two values on the stack are exactly equal, removing them and leaving the result */
|
|
HB_P_FALSE, /* 9 pushes false on the virtual machine stack */
|
|
HB_P_FORTEST, /* 10 For STEP. If step > 1 less. If step < 1 greater. */
|
|
HB_P_FUNCTION, /* 11 instructs the virtual machine to execute a function saving its result */
|
|
HB_P_FUNCTIONSHORT, /* 12 instructs the virtual machine to execute a function saving its result */
|
|
HB_P_FRAME, /* 13 instructs the virtual machine about how many parameters and locals a function uses */
|
|
HB_P_FUNCPTR, /* 14 returns a function address pointer */
|
|
HB_P_GREATER, /* 15 checks if the second latest value on the stack is greater that the latest one */
|
|
HB_P_GREATEREQUAL, /* 16 checks if the second latest value on the stack is greater equal that the latest one, leaves the result only */
|
|
HB_P_DEC, /* 17 decrements the latest value on the virtual machine stack */
|
|
HB_P_DIVIDE, /* 18 divides the latest two values on the stack, removing them and leaving the result */
|
|
HB_P_DO, /* 19 instructs the virtual machine to execute a function discarding its result */
|
|
HB_P_DOSHORT, /* 20 instructs the virtual machine to execute a function discarding its result */
|
|
HB_P_DUPLICATE, /* 21 places a copy of the latest virtual machine stack value on to the stack */
|
|
HB_P_PUSHTIMESTAMP, /* 22 places a timestamp constant value on the virtual machine stack */
|
|
HB_P_INC, /* 23 increments the latest value on the virtual machine stack */
|
|
HB_P_INSTRING, /* 24 checks if the second latest value on the stack is a substring of the latest one */
|
|
HB_P_JUMPNEAR, /* 25 jumps to a relative offset 1 Byte */
|
|
HB_P_JUMP, /* 26 jumps to a relative offset 2 Bytes */
|
|
HB_P_JUMPFAR, /* 27 jumps to a relative offset 3 Bytes */
|
|
HB_P_JUMPFALSENEAR, /* 28 checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPFALSE, /* 29 checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPFALSEFAR, /* 30 checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPTRUENEAR, /* 31 checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPTRUE, /* 32 checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_JUMPTRUEFAR, /* 33 checks a logic expression of the stack and jumps to a relative offset */
|
|
HB_P_LESSEQUAL, /* 34 checks if the second latest value on the stack is less equal that the latest one, leaves the result only */
|
|
HB_P_LESS, /* 35 checks if the second latest value on the stack is less that the latest one */
|
|
HB_P_LINE, /* 36 currently compiled source code line number */
|
|
HB_P_LOCALNAME, /* 37 sets the name of local variable */
|
|
HB_P_MACROPOP, /* 38 compile and run - pop a value from the stack */
|
|
HB_P_MACROPOPALIASED, /* 39 compile and run - pop a field value from the stack */
|
|
HB_P_MACROPUSH, /* 40 compile and run - leave the result on the stack */
|
|
HB_P_MACROARRAYGEN, /* 41 generate array from arguments set on HVM stack { &var } */
|
|
HB_P_MACROPUSHLIST, /* 42 compile and run - leave the result on the stack */
|
|
HB_P_MACROPUSHINDEX, /* 43 push array items using macro array index */
|
|
HB_P_MACROPUSHPARE, /* 44 compile and run - leave the result on the stack */
|
|
HB_P_MACROPUSHALIASED, /* 45 compile and run - leave the field value on the stack */
|
|
HB_P_MACROSYMBOL, /* 46 compile into a symbol name (used in function calls) */
|
|
HB_P_MACROTEXT, /* 47 macro text substitution */
|
|
HB_P_MESSAGE, /* 48 sends a message to an object */
|
|
HB_P_MINUS, /* 49 subs the latest two values on the stack, removing them and leaving the result */
|
|
HB_P_MODULUS, /* 50 calculates the modulus of the two values on the stack, removing them and leaving the result */
|
|
HB_P_MODULENAME, /* 51 sets the name of debugged module */
|
|
/* start: pcodes generated by the macro compiler - the symbol address is used */
|
|
HB_P_MMESSAGE, /* 52 */
|
|
HB_P_MPOPALIASEDFIELD, /* 53 */
|
|
HB_P_MPOPALIASEDVAR, /* 54 */
|
|
HB_P_MPOPFIELD, /* 55 */
|
|
HB_P_MPOPMEMVAR, /* 56 */
|
|
HB_P_MPUSHALIASEDFIELD, /* 57 */
|
|
HB_P_MPUSHALIASEDVAR, /* 58 */
|
|
HB_P_MPUSHBLOCK, /* 59 */
|
|
HB_P_MPUSHFIELD, /* 60 */
|
|
HB_P_MPUSHMEMVAR, /* 61 */
|
|
HB_P_MPUSHMEMVARREF, /* 62 */
|
|
HB_P_MPUSHSYM, /* 63 */
|
|
HB_P_MPUSHVARIABLE, /* 64 */
|
|
/* end: */
|
|
HB_P_MULT, /* 65 multiplies the latest two values on the stack, removing them and leaving the result */
|
|
HB_P_NEGATE, /* 66 numerically negates the latest value on the stack */
|
|
HB_P_NOOP, /* 67 no operation */
|
|
HB_P_NOT, /* 68 logically negates the latest value on the stack */
|
|
HB_P_NOTEQUAL, /* 69 checks if the latest two stack values are equal, leaves just the result */
|
|
HB_P_OR, /* 70 performs the logical OR of two latest stack values, removes them and places result */
|
|
HB_P_PARAMETER, /* 71 creates PRIVATE variables and assigns values to functions parameters */
|
|
HB_P_PLUS, /* 72 adds the latest two values on the stack, removing them and leaving the result */
|
|
HB_P_POP, /* 73 removes the latest value from the stack */
|
|
HB_P_POPALIAS, /* 74 pops the item from the eval stack and selects the current workarea */
|
|
HB_P_POPALIASEDFIELD, /* 75 pops aliased field */
|
|
HB_P_POPALIASEDFIELDNEAR, /* 76 pops aliased field */
|
|
HB_P_POPALIASEDVAR, /* 77 pops aliased variable (either a field or a memvar) */
|
|
HB_P_POPFIELD, /* 78 pops unaliased field */
|
|
HB_P_POPLOCAL, /* 79 pops the contents of the virtual machine stack onto a local variable */
|
|
HB_P_POPLOCALNEAR, /* 80 pops the contents of the virtual machine stack onto a local variable */
|
|
HB_P_POPMEMVAR, /* 81 pops the contents of a memvar variable to the virtual machine stack */
|
|
HB_P_POPSTATIC, /* 82 pops the contents of the virtual machine stack onto a static variable */
|
|
HB_P_POPVARIABLE, /* 83 pops the contents of an undeclared variable from the virtual machine stack */
|
|
HB_P_POWER, /* 84 calculates the power of the two values on the stack, removing them and leaving the result */
|
|
HB_P_PUSHALIAS, /* 85 saves the current workarea number on the eval stack */
|
|
HB_P_PUSHALIASEDFIELD, /* 86 pushes aliased field */
|
|
HB_P_PUSHALIASEDFIELDNEAR, /* 87 pushes aliased field */
|
|
HB_P_PUSHALIASEDVAR, /* 88 pushes aliased variable (either a field or a memvar) */
|
|
HB_P_PUSHBLOCK, /* 89 start of a codeblock definition */
|
|
HB_P_PUSHBLOCKSHORT, /* 90 start of a codeblock definition */
|
|
HB_P_PUSHFIELD, /* 91 pushes an unaliased field */
|
|
HB_P_PUSHBYTE, /* 92 places a 1 byte integer number on the virtual machine stack */
|
|
HB_P_PUSHINT, /* 93 places an integer number on the virtual machine stack */
|
|
HB_P_PUSHLOCAL, /* 94 pushes the contents of a local variable to the virtual machine stack */
|
|
HB_P_PUSHLOCALNEAR, /* 95 pushes the contents of a local variable to the virtual machine stack */
|
|
HB_P_PUSHLOCALREF, /* 96 pushes a local variable by reference to the virtual machine stack */
|
|
HB_P_PUSHLONG, /* 97 places an integer number on the virtual machine stack */
|
|
HB_P_PUSHMEMVAR, /* 98 pushes the contents of a memvar variable to the virtual machine stack */
|
|
HB_P_PUSHMEMVARREF, /* 99 pushes the a memvar variable by reference to the virtual machine stack */
|
|
HB_P_PUSHNIL, /* 100 places a nil on the virtual machine stack */
|
|
HB_P_PUSHDOUBLE, /* 101 places a double number on the virtual machine stack */
|
|
HB_P_PUSHSELF, /* 102 pushes Self for the current processed method */
|
|
HB_P_PUSHSTATIC, /* 103 pushes the contents of a static variable to the virtual machine stack */
|
|
HB_P_PUSHSTATICREF, /* 104 pushes the a static variable by reference to the virtual machine stack */
|
|
HB_P_PUSHSTR, /* 105 places a string on the virtual machine stack */
|
|
HB_P_PUSHSTRSHORT, /* 106 places a string on the virtual machine stack */
|
|
HB_P_PUSHSYM, /* 107 places a symbol on the virtual machine stack */
|
|
HB_P_PUSHSYMNEAR, /* 108 places a symbol on the virtual machine stack */
|
|
HB_P_PUSHVARIABLE, /* 109 pushes the contents of an undeclared variable to the virtual machine stack */
|
|
HB_P_RETVALUE, /* 110 instructs the virtual machine to return the latest stack value */
|
|
HB_P_SEND, /* 111 send operator */
|
|
HB_P_SENDSHORT, /* 112 send operator */
|
|
HB_P_SEQBEGIN, /* 113 BEGIN SEQUENCE */
|
|
HB_P_SEQEND, /* 114 END SEQUENCE */
|
|
HB_P_SEQRECOVER, /* 115 RECOVER statement */
|
|
HB_P_SFRAME, /* 116 sets the statics frame for a function */
|
|
HB_P_STATICS, /* 117 defines the number of statics variables for a PRG */
|
|
HB_P_STATICNAME, /* 118 sets the name of static variable */
|
|
HB_P_SWAPALIAS, /* 119 restores the current workarea number from the eval stack */
|
|
HB_P_TRUE, /* 120 pushes true on the virtual machine stack */
|
|
HB_P_ZERO, /* 121 places a ZERO on the virtual machine stack */
|
|
HB_P_ONE, /* 122 places a ONE on the virtual machine stack */
|
|
HB_P_MACROFUNC, /* 123 execute a function saving its result */
|
|
HB_P_MACRODO, /* 124 execute a function discarding its result */
|
|
HB_P_MPUSHSTR, /* 125 Macro compiled pushed string */
|
|
HB_P_LOCALNEARADDINT, /* 126 Add/Subtract specified int into specified local without using the stack. */
|
|
HB_P_MACROPUSHREF, /* 127 Reference to macro variable @&mvar */
|
|
HB_P_PUSHLONGLONG, /* 128 places an integer number on the virtual machine stack */
|
|
HB_P_ENUMSTART, /* 129 Start of FOR EACH loop */
|
|
HB_P_ENUMNEXT, /* 130 Next item of FOR EACH loop */
|
|
HB_P_ENUMPREV, /* 131 Previous item of FOR EACH loop */
|
|
HB_P_ENUMEND, /* 132 End of FOR EACH loop */
|
|
HB_P_SWITCH, /* 133 SWITCH using long values */
|
|
HB_P_PUSHDATE, /* 134 places a data constant value on the virtual machine stack */
|
|
/* optimization of inlined math operations */
|
|
HB_P_PLUSEQPOP, /* 135 adds a value to the variable reference */
|
|
HB_P_MINUSEQPOP, /* 136 subs a value from the variable reference */
|
|
HB_P_MULTEQPOP, /* 137 multiplies a variable reference by a value */
|
|
HB_P_DIVEQPOP, /* 138 divides the var reference by a value */
|
|
HB_P_PLUSEQ, /* 139 adds a value to the variable reference, leave result on the stack */
|
|
HB_P_MINUSEQ, /* 140 subs a value from the variable reference, leave result on the stack */
|
|
HB_P_MULTEQ, /* 141 multiplies a variable reference by a value, leave result on the stack */
|
|
HB_P_DIVEQ, /* 142 divides the var reference by a value, leave result on the stack */
|
|
HB_P_WITHOBJECTSTART, /* 143 start WITH OBJECT code */
|
|
HB_P_WITHOBJECTMESSAGE, /* 144 push message for WITH OBJECT */
|
|
HB_P_WITHOBJECTEND, /* 145 end WITH OBJECT code */
|
|
HB_P_MACROSEND, /* 146 send operator with macro list params */
|
|
HB_P_PUSHOVARREF, /* 147 pushes reference to object variable */
|
|
HB_P_ARRAYPUSHREF, /* 148 pushes reference to array element */
|
|
HB_P_VFRAME, /* 149 frame with variable number of parameters */
|
|
HB_P_LARGEFRAME, /* 150 frame with more then 255 locals */
|
|
HB_P_LARGEVFRAME, /* 151 frame with variable number of parameters and more then 255 locals */
|
|
HB_P_PUSHSTRHIDDEN, /* 152 places a "hidden" string on the virtual machine stack */
|
|
HB_P_LOCALADDINT, /* 153 Add/Subtract specified int into specified local without using the stack. */
|
|
HB_P_MODEQPOP, /* 154 calculates the modulus of var reference and a value */
|
|
HB_P_EXPEQPOP, /* 155 calculates the power of var reference and a value */
|
|
HB_P_MODEQ, /* 156 calculates the modulus of var reference and a value, leave result on the stack */
|
|
HB_P_EXPEQ, /* 157 calculates the power of var reference and a value, leave result on the stack */
|
|
HB_P_DUPLUNREF, /* 158 places a copy of the latest virtual machine stack value on to the stack and unreference the source one */
|
|
HB_P_MPUSHBLOCKLARGE, /* 159 code block generated by the macro compiler larger then 64 KiB */
|
|
HB_P_MPUSHSTRLARGE, /* 160 Macro compiled pushed string */
|
|
HB_P_PUSHBLOCKLARGE, /* 161 start of a codeblock definition */
|
|
HB_P_PUSHSTRLARGE, /* 162 places a string on the virtual machine stack */
|
|
HB_P_SWAP, /* 163 swap n+1 times two items starting from the most top one on the virtual machine stack */
|
|
HB_P_PUSHVPARAMS, /* 164 push variable function/method parameters on HVM stack */
|
|
HB_P_PUSHUNREF, /* 165 push unreferenced top item on HVM stack */
|
|
HB_P_SEQALWAYS, /* 166 set BEGIN SEQUENCE/ALWAYS section */
|
|
HB_P_ALWAYSBEGIN, /* 167 start ALWAYS section */
|
|
HB_P_ALWAYSEND, /* 168 finish ALWAYS section */
|
|
HB_P_DECEQPOP, /* 169 decrements the var reference */
|
|
HB_P_INCEQPOP, /* 170 increments the var reference */
|
|
HB_P_DECEQ, /* 171 decrements the var reference, leave result on the stack */
|
|
HB_P_INCEQ, /* 172 increments the var reference, leave result on the stack */
|
|
HB_P_LOCALDEC, /* 173 decrements the local variable */
|
|
HB_P_LOCALINC, /* 174 increments the local variable */
|
|
HB_P_LOCALINCPUSH, /* 175 increments the local variable, push result on the stack */
|
|
HB_P_PUSHFUNCSYM, /* 176 places a symbol on the virtual machine stack */
|
|
HB_P_HASHGEN, /* 177 instructs the virtual machine to build a hash and load element from the stack */
|
|
HB_P_SEQBLOCK, /* 178 set BEQIN SEQUENCE WITH block */
|
|
HB_P_THREADSTATICS, /* 179 mark thread static variables */
|
|
HB_P_PUSHAPARAMS, /* 180 push array items on HVM stack */
|
|
HB_P_LAST_PCODE /* 181 this defines the number of defined pcodes */
|
|
} HB_PCODE;
|
|
|
|
#endif /* HB_PCODE_H_ */
|