Macho-loader/test.pas at master · Coldzer0/Macho-loader · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
{
  Macho library - Just for test .

  Copyright(c) 2018 Coldzer0 .
  contact : <Coldzer0 [at] protonmail.ch> .
  License: GPLv2 .
}
library test;

{$mode Delphi}
{$OPTIMIZATION STACKFRAME}
{$SMARTLINK ON}

{$IFDEF Darwin}
    {$LINKLIB c}
{$ELSE}
    this_code_works_on_OSX_only
{$ENDIF}

uses
  sysinit;

Function printf (Const fmt : PCHar; arg : Array Of Const) : size_t; cdecl; external;

function main() : boolean;
begin
 printf('that Do Evil stuff ^_^'#10,[]);
end;

exports
  main name '_main';

begin
 printf('im a good library :D'#10,[]);
end.