Skip to content

Instantly share code, notes, and snippets.

@tangentstorm
Created December 6, 2012 13:33
Show Gist options
  • Save tangentstorm/4224472 to your computer and use it in GitHub Desktop.
Save tangentstorm/4224472 to your computer and use it in GitHub Desktop.
$ 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