Lines Matching refs:self
106 my $self = {
110 bless $self, $class;
112 return $self;
117 my ($self, $c) = @_;
119 $self->{code} .= $c;
124 my ($self) = @_;
126 return $self->{code};
131 my ($self) = @_;
133 return "bn_mul_mont_fixed_n" . $self->{n};
138 my ($self, $l) = @_;
140 return "L" . $l . "_" . $self->{n};
145 my ($self, @labels) = @_;
150 $out{"$l"} = $self->get_label("$l");
158 my ($self) = @_;
160 $self->add_code("\n");
165 my ($self) = @_;
167 my ($n) = $self->{n};
170 $self->add_code(<<___);
179 my ($self) = @_;
181 my ($n) = $self->{n};
182 my $fname = $self->get_function_name();
183 my $label = $self->get_labels("outer", "enter", "sub", "copy", "end");
185 $self->add_code(<<___);
193 $self->save_registers();
195 $self->add_code(<<___);
204 $self->mul_c_0($tp[0], $apj, $bp0, $c0);
207 $self->add_code(<<___);
210 $self->mul($tp[$j], $apj, $bp0, $c0);
213 $self->add_code(<<___);
217 $self->mul_last($tp[$n-1], $tp[$n], $apj, $bp0, $c0);
219 $self->add_code(<<___);
224 $self->add_code(<<___);
236 $self->mul_add_c_0($tp[0], $tp[0], $apj, $bpi, $c0);
239 $self->add_code(<<___);
242 $self->mul_add($tp[$j], $tp[$j], $apj, $bpi, $c0);
245 $self->add_code(<<___);
250 $self->add_code(<<___);
258 $self->mul_add_c_0($lo, $tp[0], $bpi, $npj, $c0);
261 $self->add_code(<<___);
264 $self->mul_add($tp[$j-1], $tp[$j], $npj, $bpi, $c0);
267 $self->add_code(<<___);
287 $self->add_code(<<___);
294 $self->add_code(<<___);
302 $self->add_code(<<___);
308 $self->add_code(<<___);
315 $self->copy_result();
317 $self->add_code(<<___);
322 $self->restore_registers();
324 $self->add_code(<<___);
345 my ($self) = @_;
347 my $n = $self->{n};
349 $self->add_code(<<___);
354 $self->{code}.=<<___;
359 $self->add_code(<<___);
366 my ($self) = @_;
368 my $n = $self->{n};
370 $self->add_code(<<___);
375 $self->{code}.=<<___;
380 $self->{code} .=<<___;
388 my ($self, $r, $a, $w, $c) = @_;
390 $self->add_code(<<___);
403 my ($self, $r, $a, $w, $c) = @_;
405 $self->add_code(<<___);
416 my ($self, $r1, $r2, $a, $w, $c) = @_;
418 $self->add_code(<<___);
430 my ($self, $r_out, $r_in, $a, $w, $c) = @_;
432 $self->add_code(<<___);
447 my ($self, $r_out, $r_in, $a, $w, $c) = @_;
449 $self->add_code(<<___);
473 my ($self) = @_;
475 return "bn_mul_mont_300_fixed_n" . $self->{n};
480 my ($self, $l) = @_;
482 return "L" . $l . "_300_" . $self->{n};
488 my ($self, $r, $a, $w, $c, $last) = @_;
490 $self->add_code(<<___);
500 my ($self, $r1, $r2, $a, $w, $c) = @_;
502 $self->add_code(<<___);
513 my ($self, $r, $a, $w, $c) = @_;
515 $self->add_code(<<___);
525 my ($self, $r_out, $r_in, $a, $w, $c) = @_;
527 $self->add_code(<<___);
540 my ($self, $r_out, $r_in, $a, $w, $c) = @_;
542 $self->add_code(<<___);
548 $self->add_code(<<___);
553 $self->nl();
