hi.pas « fpc - tour - touring some programming systems

about summary refs log blame commit diff stats

path: root/fpc/hi.pas

blob: 54c9c34cf7f8d0c2c2d725ca83bdc746ba7065e1 (plain) (tree)

382e846 ^

program hello;

var inputString: string;
begin
  readln(inputString);
  writeln('Hello, World.');
  writeln(inputString);
end.

22; background-color: #f0fff0 } /* Literal.String.Other */ .highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */ .highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */ .highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */

c{0: 0 (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal))) -- nil
c{0: 1 (((1 integer-array-address)) <- ((new)) ((integer-array literal)) ((4 literal))) -- nil
c{0: 2 (((2 integer-address)) <- ((index-address)) ((1 integer-array-address) (deref)) ((2 offset))) -- nil
c{0: 3 (((2 integer-address) (deref)) <- ((copy)) ((34 literal))) -- nil
c{0: 4 (((3 integer) (raw)) <- ((index)) ((1 integer-array-address) (deref)) ((2 offset))) -- nil
c{1: 0 ✓ (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal)))
c{1: 1 ✓ (((1 integer-array-address)) <- ((new)) ((integer-array literal)) ((4 literal)))
c{1: 2 ✓ (((2 integer-address)) <- ((index-address)) ((1 integer-array-address) (deref)) ((2 offset)))
c{1: 3 ✓ (((2 integer-address) (deref)) <- ((copy)) ((34 literal)))
c{1: 4 ✓ (((3 integer) (raw)) <- ((index)) ((1 integer-array-address) (deref)) ((2 offset)))
cn0: convert-names in main
cn0: (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal))) nil nil
cn0: checking arg ((space literal))
cn0: checking arg ((5 literal))
cn0: checking oarg ((default-space space-address))
maybe-add: ((default-space space-address))
cn0: (((1 integer-array-address)) <- ((new)) ((integer-array literal)) ((4 literal))) nil nil
cn0: checking arg ((integer-array literal))
cn0: checking arg ((4 literal))
cn0: checking oarg ((1 integer-array-address))
maybe-add: ((1 integer-array-address))
cn0: (((2 integer-address)) <- ((index-address)) ((1 integer-array-address) (deref)) ((2 offset))) nil nil
cn0: checking arg ((1 integer-array-address) (deref))
maybe-add: ((1 integer-array-address) (deref))
cn0: checking arg ((2 offset))
cn0: checking oarg ((2 integer-address))
maybe-add: ((2 integer-address))
cn0: (((2 integer-address) (deref)) <- ((copy)) ((34 literal))) nil nil
cn0: checking arg ((34 literal))
cn0: checking oarg ((2 integer-address) (deref))
maybe-add: ((2 integer-address) (deref))
cn0: (((3 integer) (raw)) <- ((index)) ((1 integer-array-address) (deref)) ((2 offset))) nil nil
cn0: checking arg ((1 integer-array-address) (deref))
maybe-add: ((1 integer-array-address) (deref))
cn0: checking arg ((2 offset))
cn0: checking oarg ((3 integer) (raw))
maybe-add: ((3 integer) (raw))
cn1: (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal)))
cn1: (((1 integer-array-address)) <- ((new)) ((integer-array literal)) ((4 literal)))
cn1: (((2 integer-address)) <- ((index-address)) ((1 integer-array-address) (deref)) ((2 offset)))
cn1: (((2 integer-address) (deref)) <- ((copy)) ((34 literal)))
cn1: (((3 integer) (raw)) <- ((index)) ((1 integer-array-address) (deref)) ((2 offset)))
schedule: main
run: main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((5 literal)))
run: main 0: 1000 => ((default-space space-address))
run: main 1: (((1 integer-array-address)) <- ((new)) ((integer-array literal)) ((4 literal)))
run: main 1: 1006 => ((1 integer-array-address))
mem: ((1 integer-array-address)): 1002 <= 1006
run: main 2: (((2 integer-address)) <- ((index-address)) ((1 integer-array-address) (deref)) ((2 offset)))
array-len: ((1006 integer-array) (raw))
mem: ((1006 integer) (raw)) => 4
run: main 2: 1009 => ((2 integer-address))
mem: ((2 integer-address)): 1003 <= 1009
run: main 3: (((2 integer-address) (deref)) <- ((copy)) ((34 literal)))
run: main 3: 34 => ((2 integer-address) (deref))
mem: ((2 integer-address) (deref)): 1009 <= 34
run: main 4: (((3 integer) (raw)) <- ((index)) ((1 integer-array-address) (deref)) ((2 offset)))
array-len: ((1006 integer-array) (raw))
mem: ((1006 integer) (raw)) => 4
mem: ((1009 integer) (raw)) => 34
run: main 4: 34 => ((3 integer) (raw))
mem: ((3 integer) (raw)): 3 <= 34
schedule: done with routine nil