123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- { %NORUN }
- { %SKIPTARGET=macos }
- { The .so of the library needs to be in the current dir when
- testing the loading at runtime }
- {$ifdef win32}
- {$define supported}
- {$define supportidx}
- {$endif win32}
- {$ifdef Unix}
- {$define supported}
- {$endif Unix}
- {$ifndef fpc}
- {$define supported}
- {$endif}
- {$ifdef supported}
- library bug;
- const
- publicname='TestName';
- publicindex = 1234;
- procedure Test;export;
- begin
- writeln('Hoi');
- end;
- exports
- Test name publicname;
- {$ifdef supportidx}
- exports
- Test index publicindex;
- {$endif}
- begin
- end.
- {$else supported}
- begin
- Writeln('No library for that target');
- end.
- {$endif supported}
|