Forráskód Böngészése

* link to libc using initc instead of manual $linklib.
Allows to change name of libc library and $linklib in one place.

git-svn-id: trunk@31115 -

marco 10 éve
szülő
commit
5f52ae8fbf

+ 2 - 3
packages/ncurses/examples/t2form.pp

@@ -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

+ 2 - 3
packages/ncurses/examples/t3form.pp

@@ -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

+ 2 - 3
packages/ncurses/examples/tclock.pp

@@ -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

+ 2 - 3
packages/ncurses/examples/tnlshello.pp

@@ -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