编译器源代码:搞爆编译器的代码

pascal:

{$inline on} procedure a; inline; begin end; procedure b; inline; begin a;a;a;a;a;a;a;a;a;a end; procedure c; inline; begin b;b;b;b;b;b;b;b;b;b end; procedure d; inline; begin c;c;c;c;c;c;c;c;c;c end; procedure e; inline; begin d;d;d;d;d;d;d;d;d;d end; procedure f; inline; begin e;e;e;e;e;e;e;e;e;e end; procedure g; inline; begin f;f;f;f;f;f;f;f;f;f end; procedure h; inline; begin g;g;g;g;g;g;g;g;g;g end; procedure i; inline; begin h;h;h;h;h;h;h;h;h;h end; procedure j; inline; begin i;i;i;i;i;i;i;i;i;i end; procedure k; inline; begin j;j;j;j;j;j;j;j;j;j end; begin k;k;k;k;k;k;k;k;k;k end.

C/C++：

#define A(x) x##x #define B(x) A(x)A(x) #define C(x) B(B(x)) #define D(x) C(C(x)) #define E(x) D(D(x)) #define F(x) E(E(x)) #define G(x) F(F(x)) #define H(x) G(G(x)) int main() { int H(x) = 0; }

fpc由于一直没把内存耗完，所以一直没停下来，倒是把系统弄得很慢。

g++把2G内存耗完后就爆了，耗时23s

运行着g++时：

$ free -m
             total       used       free     shared    buffers     cached
Mem:          2023       1975         48          0          1         14
-/+ buffers/cache:       1958         64
Swap:         4102        164       3937

$ time g++ test1.cpp

cc1plus: out of memory allocating 536870912 bytes after a total of 2060288 bytes

real    0m23.594s
user    0m12.542s
sys     0m3.652s


$ time fpc test.pas
Free Pascal Compiler version 2.2.4 [2009/03/28] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Linux for i386
Compiling test.pas
Fatal: Compilation aborted


real    3m36.956s
user    0m0.000s
sys     0m0.034s

这些代码看似无聊，却对OJ系统的安全构成巨大威胁。。 看来要限制编译时间才行。

延伸阅读

• 2010-12-15-- 编译原理,编译问题
• 2011-6-9-- 编译器,谈.NET,由编译器开始谈起
• 2011-8-2-- 托管代码,自己动手开发编译器（十二）生成托管代码
• 2010-12-8-- 编译器,VisualStudio2010代码编译器特性分析
• 2010-12-6-- gcc编译器,Gccgo编译器进入GCC
• 2010-12-21-- 编译器源代码,源代码编译安装Nagios
• 2011-5-20-- 编译器,编译器历史简要
• 2010-12-23-- 编译器,编译器处理while，for结构的小发现
• 2011-6-8-- 开发编译器,自己动手开发编译器（一）编译器的模块化工程
• 2011-6-16-- 开源编译器,PathScale开源EKOPath 4编译器