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

* link to libc using initc instead of manual $linklib.

Browse Source 
Allows to change name of libc library and $linklib in one place.

git-svn-id: trunk@31115 -
This commit is contained in:
marco 2015-06-18 09:04:28 +00:00
parent 5e8d1078a7
commit 5f52ae8fbf
4 changed files with 8 additions and 12 deletions

5
packages/ncurses/examples/t2form.pp
View File

@ -3,11 +3,10 @@ program form_test_2;
{$MODE OBJFPC}
uses
ncurses, form;
ncurses, form, initc;
{$linklib c}
procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
procedure setlocale(cat : integer; p : pchar); cdecl; external clib;
const

5
packages/ncurses/examples/t3form.pp
View File

@ -6,10 +6,9 @@ program form_test_3;
{$MODE OBJFPC}
uses
ncurses, form;
ncurses, form, initc;
{$linklib c}
procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
procedure setlocale(cat : integer; p : pchar); cdecl; external clib;
const

5
packages/ncurses/examples/tclock.pp
View File

@ -2,10 +2,9 @@ program tclock;
{$MODE OBJFPC}
uses
ncurses, sysutils;
ncurses, sysutils, initc;
{$linklib c}
procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
procedure setlocale(cat : integer; p : pchar); cdecl; external clib;
const

5
packages/ncurses/examples/tnlshello.pp
View File

@ -8,10 +8,9 @@ program nlshello;
{$mode objfpc}
uses
gettext, ncurses;
gettext, ncurses, initc;
{$linklib c}
procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
procedure setlocale(cat : integer; p : pchar); cdecl; external clib;
const