Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
$ cat system.pas
unit system;
interface
procedure test;
implementation
procedure test;
var t: longint;
begin
begin t:=1; end;
t:=t+2;
end;
begin
end.
$ ./pp -Ooconstprop -Oodeadstore -al -Si -O3 system
Free Pascal Compiler version 2.7.1 [2012/12/06] for i386
Copyright (c) 1993-2012 by Florian Klaempfl and others
Note: Switching assembler to default source writing assembler
Target OS: Linux for i386
Compiling system.pas
Unreferenced assignment: 9
Assembling system
14 lines compiled, 0.0 sec
1 note(s) issued
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.