← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid

« back to all changes in this revision

Viewing changes to debugger/test/Gdbmi/TestApps/ArgVPrg.pas

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Paul Gevers
  • Date: 2014-02-22 10:25:57 UTC
  • mfrom: (1.1.11)
  • Revision ID: package-import@ubuntu.com-20140222102557-ors9d31r84nz31jq
Tags: 1.2~rc2+dfsg-1
http://bugs.debian.org/724776
[ Abou Al Montacir ]
* New upstream pre-release.
  + Moved ideintf to components directory.
  + Added new package cairocanvas.
* Remove usage of depreciated parameters form of find. (Closes: Bug#724776)
* Bumped standard version to 3.9.5.
* Clean the way handling make files generation and removal.

[ Paul Gevers ]
* Remove nearly obsolete bzip compression for binary packages
  (See https://lists.debian.org/debian-devel/2014/01/msg00542.html)
* Update d/copyright for newly added dir in examples and components
* Update Vcs-* fields with new packaging location
* Update d/watch file to properly (Debian way) change upstreams versions
* Prevent 46MB of package size by sym linking duplicate files
* Patches
  - refresh to remove fuzz
  - add more Lintian found spelling errors
  - new patch to add shbang to two scripts in lazarus-src
* Drop lcl-# from Provides list of lcl-units-#
* Make lazarus-ide-qt4-# an arch all until it really contains stuff
* Make all metapackages arch all as the usecase for arch any doesn't
  seem to warrant the addition archive hit
* Fix permissions of non-scripts in lazarus-src-#

Show diffs side-by-side

added added

removed removed

Lines of Context:
debugger/test/Gdbmi/TestApps/ArgVPrg.pas
 
1
program ArgVPrg;
 
2
 
 
3
{$mode objfpc}{$H+}
 
4
 
 
5
uses
 
6
  {$IFDEF UNIX}{$IFDEF UseCThreads}
 
7
  cthreads,
 
8
  {$ENDIF}{$ENDIF}
 
9
  Classes, sysutils
 
10
  { you can add units after this };
 
11
 
 
12
var
 
13
  i: Integer;
 
14
  p: PChar;
 
15
  s: String;
 
16
begin
 
17
  s := '';
 
18
  for i := 1 to argc - 1 do begin
 
19
    p := (argv+i)^;
 
20
    while p^ <> #0 do begin
 
21
      s := s + IntToHex(ord(p^), 2);
 
22
      inc(p);
 
23
    end;
 
24
    s := s + ' ';
 
25
  end;
 
26
  WriteLn(s);
 
27
end.
 
28