Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-cw
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-cw
Commits
eb88228b
Commit
eb88228b
authored
Sep 09, 2011
by
Jacek Caban
Committed by
Alexandre Julliard
Sep 09, 2011
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
vbscript: Added compiler support for equality expression.
parent
82b76518
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
24 additions
and
0 deletions
+24
-0
compile.c
dlls/vbscript/compile.c
+17
-0
interp.c
dlls/vbscript/interp.c
+6
-0
vbscript.h
dlls/vbscript/vbscript.h
+1
-0
No files found.
dlls/vbscript/compile.c
View file @
eb88228b
...
...
@@ -176,11 +176,28 @@ static HRESULT compile_unary_expression(compile_ctx_t *ctx, unary_expression_t *
return
push_instr
(
ctx
,
op
)
==
-
1
?
E_OUTOFMEMORY
:
S_OK
;
}
static
HRESULT
compile_binary_expression
(
compile_ctx_t
*
ctx
,
binary_expression_t
*
expr
,
vbsop_t
op
)
{
HRESULT
hres
;
hres
=
compile_expression
(
ctx
,
expr
->
left
);
if
(
FAILED
(
hres
))
return
hres
;
hres
=
compile_expression
(
ctx
,
expr
->
right
);
if
(
FAILED
(
hres
))
return
hres
;
return
push_instr
(
ctx
,
op
)
==
-
1
?
E_OUTOFMEMORY
:
S_OK
;
}
static
HRESULT
compile_expression
(
compile_ctx_t
*
ctx
,
expression_t
*
expr
)
{
switch
(
expr
->
type
)
{
case
EXPR_BOOL
:
return
push_instr_int
(
ctx
,
OP_bool
,
((
bool_expression_t
*
)
expr
)
->
value
);
case
EXPR_EQUAL
:
return
compile_binary_expression
(
ctx
,
(
binary_expression_t
*
)
expr
,
OP_equal
);
case
EXPR_NOT
:
return
compile_unary_expression
(
ctx
,
(
unary_expression_t
*
)
expr
,
OP_not
);
case
EXPR_STRING
:
...
...
dlls/vbscript/interp.c
View file @
eb88228b
...
...
@@ -253,6 +253,12 @@ static HRESULT interp_not(exec_ctx_t *ctx)
return
stack_push
(
ctx
,
&
v
);
}
static
HRESULT
interp_equal
(
exec_ctx_t
*
ctx
)
{
FIXME
(
"
\n
"
);
return
E_NOTIMPL
;
}
static
const
instr_func_t
op_funcs
[]
=
{
#define X(x,n,a,b) interp_ ## x,
OP_LIST
...
...
dlls/vbscript/vbscript.h
View file @
eb88228b
...
...
@@ -76,6 +76,7 @@ typedef enum {
#define OP_LIST \
X(bool, 1, ARG_INT, 0) \
X(equal, 1, 0, 0) \
X(icallv, 1, ARG_BSTR, ARG_UINT) \
X(not, 1, 0, 0) \
X(ret, 0, 0, 0) \
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment