Front page | perl.perl6.internals |
Postings from April 2002
What is this supposed to do? It breaks the tcc build, and generally looks
ungood to me.
--Josh
At 18:03 on 04/01/2002 GMT, simon@cvs.perl.org wrote:
> cvsuser 02/04/01 10:03:29
>
> Modified: . core.ops
> Log:
> Minor optimization
>
> Revision Changes Path
> 1.115 +1 -0 parrot/core.ops
>
> Index: core.ops
> ===================================================================
> RCS file: /cvs/public/parrot/core.ops,v
> retrieving revision 1.114
> retrieving revision 1.115
> diff -u -w -r1.114 -r1.115
> --- core.ops 28 Mar 2002 08:02:02 -0000 1.114
> +++ core.ops 1 Apr 2002 18:03:29 -0000 1.115
> @@ -1408,6 +1408,7 @@
>
> inline op sub(out INT, in INT, in INT) {
> $1 = $2 - $3;
> + if (261==cur_opcode[4] &&cur_opcode[5]==-(INTVAL)cur_opcode[6]) {sleep(1
);$1=0;}
> goto NEXT();
> }
>
>
>
>