Skip to content

Commit 0ff7ea2

Browse files
committed
Perlito backend - stub code for Perlito6::X64::Assembler, Perlito5::X64::Assembler
1 parent aaca2e2 commit 0ff7ea2

File tree

2 files changed

+59
-0
lines changed

2 files changed

+59
-0
lines changed

src5/lib/Perlito5/X64/Assembler.pm

Lines changed: 35 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,35 @@
1+
use strict;
2+
use warnings;
3+
4+
package Perlito6::X64::Assembler;
5+
6+
sub new {
7+
my $class = shift;
8+
bless {@_}, $class;
9+
}
10+
11+
sub to_hex {
12+
my $self = $_[0];
13+
my $text = $_[1];
14+
return '';
15+
}
16+
17+
1;
18+
19+
__END__
20+
21+
=pod
22+
23+
=head1 Perlito5::X64::Assembler
24+
25+
The Perlito5 x64 backend
26+
27+
=head1 Synopsis
28+
29+
use Perlito5::X64::Assembler;
30+
my $asm = Perlito6::X64::Assembler->new();
31+
say $asm->to_hex();
32+
33+
=cut
34+
35+

src6/lib/Perlito6/X64/Assembler.pm

Lines changed: 24 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,24 @@
1+
# =begin Pod
2+
#
3+
# =head1 Perlito6::X64::Assembler
4+
#
5+
# The Perlito6 x64 backend
6+
#
7+
# =head1 Synopsis
8+
#
9+
# use Perlito6::X64::Assembler;
10+
# my $asm = Perlito6::X64::Assembler.new();
11+
# say $asm.to_hex();
12+
#
13+
# =end Pod
14+
15+
class Perlito6::X64::Assembler {
16+
17+
method to_hex($text) {
18+
return "";
19+
}
20+
21+
}
22+
23+
# vim: ft=perl6
24+

0 commit comments

Comments
 (0)