pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

instantfpc

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1535 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2011-03-25 17:53:45 +00:00
parent f0b8257f5a
commit 337f293416
8 changed files with 498 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
applications/instantfpc/examples/exitcode.pas Executable file
View File

@ -0,0 +1,13 @@
#!/usr/bin/env instantfpc
{$mode objfpc}{$H+}
uses SysUtils;
var i: integer;
begin
i:=StrToInt(ParamStr(1));
writeln('exit code: ',i);
Halt(i);
end.