paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Cosmetic changes

Browse Source
This commit is contained in:
michael 2000-06-15 20:05:56 +00:00
parent b0dfc46f1a
commit f3ee8d8432
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
docs/progex/plsubs.pp
View File

@ -1,11 +1,12 @@
program testsubs;
Type
TSubStrFunc = function (const CString: PChar; FromPos, ToPos: longint): PChar; cdecl;
TSubStrFunc =
function(const CString:PChar;FromPos,ToPos: longint):PChar;cdecl;
Function dlopen(name : pchar; mode : longint) : pointer; cdecl; external 'dl';
Function dlsym(lib : pointer; name : pchar) : pointer; cdecl;external 'dl';
Function dlclose(lib : pointer) : longint; cdecl; external 'dl';
Function dlopen(name: pchar;mode: longint):pointer;cdecl;external 'dl';
Function dlsym(lib: pointer; name: pchar):pointer;cdecl;external 'dl';
Function dlclose(lib: pointer):longint;cdecl;external 'dl';
var
s: PChar;