pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
1996-11-28
1996-11-28 03:04:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
d3bef36982a9850f9ea98bdb66d7673205497939 (
19
lines) (+
8
/-
11
)
[
Show
|
Annotate
]
Branch:
7.9
F_NUMBER and friends fixed..
Rev: src/interpret.c:1.13
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
12
1996/11/
21
23
:
50
:
33
hubbe Exp $");
+
RCSID("$Id: interpret.c,v 1.
13
1996/11/
28
03
:
04
:
44
hubbe Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
540:
prefix+=EXTRACT_UCHAR(pc++)<<8; break; /* Push number */
-
CASE(F_CONST0);
sp->type=T
_
INT; sp->u.integer=
0;
sp++;
break;
-
CASE(F_CONST1);
sp->type=T
_
INT; sp->u.integer=
1;
sp++;
break;
-
CASE(F_CONST_1);
sp->type=T_INT;
sp
-
>u.integer=-
1;
sp++;
break;
-
CASE(F_BIGNUM);
sp->type=T
_
INT; sp->u.integer=
0x7fffffff;
sp++;
break;
-
CASE(F_NUMBER);
sp->type=T
_
INT; sp->u.integer=
GET_ARG();
sp++;
break;
-
CASE(F_NEG_NUMBER);
-
sp->type=T
_
INT;
-
sp
-
>u.integer=-
GET_ARG();
-
sp++;
-
break;
+
CASE(F_CONST0);
push
_
int(
0
)
; break;
+
CASE(F_CONST1);
push
_
int(
1
)
; break;
+
CASE(F_CONST_1);
push
_
int(
-1
)
; break;
+
CASE(F_BIGNUM);
push
_
int(
0x7fffffff
)
; break;
+
CASE(F_NUMBER);
push
_
int(
GET_ARG()
)
; break;
+
CASE(F_NEG_NUMBER);
push
_
int(
-GET_ARG()
)
; break;
/* The rest of the basic 'push value' instructions */ CASE(F_STRING);