Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
abcl
abcl
Commits
08c6a25d
Commit
08c6a25d
authored
Aug 15, 2012
by
ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Fix test failures by fixing test incorrectnesses.
parent
e8c65209
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/lisp/abcl/class-file.lisp
View file @
08c6a25d
...
...
@@ -232,8 +232,8 @@
(
jvm::class-add-method
file
method
)
(
jvm::with-code-to-method
(
file
method
)
(
jvm::emit
'aload
0
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
object
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
object
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
symbol
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
symbol
+
)
(
jvm::emit-invokespecial-init
jvm::+lisp-primitive+
(
list
jvm::+lisp-object+
jvm::+lisp-object+
))
...
...
@@ -241,7 +241,7 @@
(
let
((
method
(
jvm::make-jvm-method
"execute"
jvm::+lisp-object+
nil
)))
(
jvm::class-add-method
file
method
)
(
jvm::with-code-to-method
(
file
method
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
object
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
symbol
+
)
(
jvm::emit
'jvm::areturn
)))
(
jvm::finalize-class-file
file
)
(
with-open-stream
(
stream
(
sys::%make-byte-array-output-stream
))
...
...
@@ -260,7 +260,7 @@
(
let
((
method
(
jvm::make-jvm-method
:static-initializer
:void
nil
:flags
'
(
:static
))))
(
jvm::class-add-method
file
method
)
(
jvm::with-code-to-method
(
file
method
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
object
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
symbol
+
)
(
jvm::emit-putstatic
class
"N1"
jvm::+lisp-object+
)
(
jvm::emit
'return
)))
(
let
((
method
(
jvm::make-jvm-method
:constructor
:void
nil
)))
...
...
@@ -294,8 +294,8 @@
(
jvm::class-add-method
file
method
)
(
jvm::with-code-to-method
(
file
method
)
(
jvm::emit
'aload
0
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
object
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
object
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
symbol
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
symbol
+
)
(
jvm::emit-invokespecial-init
jvm::+lisp-primitive+
(
list
jvm::+lisp-object+
jvm::+lisp-object+
))
...
...
@@ -303,7 +303,7 @@
(
let
((
method
(
jvm::make-jvm-method
"execute"
jvm::+lisp-object+
nil
)))
(
jvm::class-add-method
file
method
)
(
jvm::with-code-to-method
(
file
method
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
object
+
)
(
jvm::emit-getstatic
jvm::+lisp+
"NIL"
jvm::+lisp-
symbol
+
)
(
jvm::emit
'jvm::areturn
)))
(
let
((
method
(
jvm::make-jvm-method
"execute"
jvm::+lisp-object+
(
list
jvm::+lisp-object+
))))
...
...
@@ -339,7 +339,8 @@
(
jvm::allocate-register
:int
)
(
push
jvm::*register*
registers
))
(
jvm::allocate-register
:int
)
(
push
jvm::*register*
registers
))
(
push
jvm::*register*
registers
)
(
jvm::emit
'return
))
(
jvm::finalize-class-file
file
)
(
nreverse
registers
))
(
1
2
3
4
5
))
...
...
@@ -365,7 +366,8 @@
(
jvm::allocate-register
:int
)
(
push
jvm::*register*
registers
))
(
jvm::allocate-register
:int
)
(
push
jvm::*register*
registers
))
(
push
jvm::*register*
registers
)
(
jvm::emit
'return
))
(
jvm::finalize-class-file
file
)
(
nreverse
registers
))
(
1
1
2
2
3
))
...
...
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