主页 / coding / 问题 / 78116641
Accepted
Rawley Fowler
Asked: 2024-03-07 02:28:44 +0800 CST

Perl if 语句在幕后是如何工作的？

  • 772

Perl 的解释器如何执行 if 语句？我想尝试为用作谓词的 if 语句实现一个简单的Lazy-Basic-Block-Versioningref，也许随后也可以为子例程实现。

在研究了源代码之后，我看到了除了控制流之外的所有操作代码。我的解释器经验非常有限，但我假设会看到一个OP_IF会弹出堆栈的谓词操作代码或类似的内容。我发现KEY_if它来自 Yacc 语法，随后在 中使用toke.c并翻译为 a KW_IF，但我找不到KW_IF实际使用的位置。

我最初打算只向 中添加一些带有全局状态的基本优化peep.c，但由于没有，所以OP_IF我很难了解如何处理控制流的全局。

perl

1 个回答

  1. Best Answer

    if被编译成andoror操作。

    perl -MO=Concise,-exec -e'if ( f() ) { ... }'

    1  <0> enter v
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s
4  <#> gv[*f] s/EARLYCV
5  <1> entersub[t2] sKS/TARG
6  <|> and(other->7) vK/1
7      <0> pushmark s
8      <$> const[PV "Unimplemented"] s
9      <@> die vK/1
a  <@> leave[1 ref] vKP/REFC
-e syntax OK

    perl -MO=Concise,-exec -e'if ( !f() ) { ... }'

    1  <0> enter v
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s
4  <#> gv[*f] s/EARLYCV
5  <1> entersub[t2] sKS/TARG
6  <|> or(other->7) vK/1
7      <0> pushmark s
8      <$> const[PV "Unimplemented"] s
9      <@> die vK/1
a  <@> leave[1 ref] vKP/REFC
-e syntax OK

    Concise 中的操作码映射到名为inname的函数（有一些例外）。pp_namepp*.c

    • 2

相关问题