Re: [fpc-devel] compilation error of h2pas.pas on Mac OS X in the course of make all of the SVN sources
On 16 sep 2005, at 15:32, Dr. Rolf Jansen wrote: powerpc-darwin -dpowerpc -dRELEASE h2pas.pas h2pas.pas:5526:Fixup of 34988 too large for field width of 16 bits h2pas.pas:5502:Fixup of 35076 too large for field width of 16 bits h2pas.pas:5484:Fixup of 35140 too large for field width of 16 bits h2pas.pas:5444:Fixup of 35288 too large for field width of 16 bits h2pas.pas:5365:Fixup of 35580 too large for field width of 16 bits h2pas.pas:5363:Fixup of 35588 too large for field width of 16 bits h2pas.pas:5360:Fixup of 35600 too large for field width of 16 bits h2pas.pas(2879,15) Error: Error while assembling exitcode 1 h2pas.pas(2879,15) Fatal: There were 2 errors compiling module, stopping h2pas.pas(2879,15) Fatal: Compilation aborted make[3]: *** [h2pas] Error 1 make[2]: *** [h2pas_all] Error 2 make[1]: *** [utils_all] Error 2 make: *** [build-stamp.powerpc-darwin] Error 2 (Finally) fixed. Jonas ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
[fpc-devel] Libc patch 2
Apply after the 1st one. This patch fixes crypto function in libc unit. Ales Index: crypth.inc === --- crypth.inc (revision 1156) +++ crypth.inc (working copy) @@ -1,9 +1,9 @@ { defined earlier in unistdh.inc... -function crypt(__key:Pchar; __salt:Pchar):Pchar;cdecl;external clib name 'crypt'; -procedure setkey(__key:Pchar);cdecl;external clib name 'setkey'; -procedure encrypt(__block:Pchar; __edflag:longint);cdecl;external clib name 'encrypt'; +function crypt(__key:Pchar; __salt:Pchar):Pchar;cdecl;external cryptlib name 'crypt'; +procedure setkey(__key:Pchar);cdecl;external cryptlib name 'setkey'; +procedure encrypt(__block:Pchar; __edflag:longint);cdecl;external cryptlib name 'encrypt'; } type Pcrypt_data = ^crypt_data; @@ -20,9 +20,9 @@ initialized : longint; end; -function crypt_r(__key:Pchar; __salt:Pchar; __data:Pcrypt_data):Pchar;cdecl;external clib name 'crypt_r'; -procedure setkey_r(__key:Pchar; __data:Pcrypt_data);cdecl;external clib name 'setkey_r'; -procedure encrypt_r(__block:Pchar; __edflag:longint; __data:Pcrypt_data);cdecl;external clib name 'encrypt_r'; +function crypt_r(__key:Pchar; __salt:Pchar; __data:Pcrypt_data):Pchar;cdecl;external cryptlib name 'crypt_r'; +procedure setkey_r(__key:Pchar; __data:Pcrypt_data);cdecl;external cryptlib name 'setkey_r'; +procedure encrypt_r(__block:Pchar; __edflag:longint; __data:Pcrypt_data);cdecl;external cryptlib name 'encrypt_r'; { - Borland compatibility types Index: dlfcnh.inc === --- dlfcnh.inc (revision 1156) +++ dlfcnh.inc (working copy) @@ -3,10 +3,10 @@ RTLD_NEXT = Pointer(-1); RTLD_DEFAULT = nil; -function dlopen(__file:Pchar; __mode:longint):pointer;cdecl;external clib name 'dlopen'; -function dlclose(__handle:pointer):longint;cdecl;external clib name 'dlclose'; -function dlsym(__handle:pointer; __name:Pchar):pointer;cdecl;external clib name 'dlsym'; -function dlvsym(__handle:pointer; __name:Pchar; __version:Pchar):pointer;cdecl;external clib name 'dlvsym'; +function dlopen(__file:Pchar; __mode:longint):pointer;cdecl;external dllib name 'dlopen'; +function dlclose(__handle:pointer):longint;cdecl;external dllib name 'dlclose'; +function dlsym(__handle:pointer; __name:Pchar):pointer;cdecl;external dllib name 'dlsym'; +function dlvsym(__handle:pointer; __name:Pchar; __version:Pchar):pointer;cdecl;external dllib name 'dlvsym'; function dlerror:Pchar;cdecl;external clib name 'dlerror'; type @@ -19,7 +19,7 @@ dli_saddr : pointer; end; -function dladdr(__address:pointer; __info:PDl_info):longint;cdecl;external clib name 'dladdr'; +function dladdr(__address:pointer; __info:PDl_info):longint;cdecl;external dllib name 'dladdr'; { - Borland compatibility types @@ -29,5 +29,5 @@ TDLInfo = Dl_info; PDLInfo = ^TDLInfo; -function dladdr(__address:pointer; var __info: Dl_info):longint;cdecl;external clib name 'dladdr'; +function dladdr(__address:pointer; var __info: Dl_info):longint;cdecl;external dllib name 'dladdr'; Index: libc.pp === --- libc.pp (revision 1156) +++ libc.pp (working copy) @@ -9,6 +9,8 @@ Const clib = 'c'; + dllib = 'dl'; + cryptlib = 'crypt'; threadslib = 'pthread'; {$i glue.inc} // C to Pascal type mappings ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
Re: [fpc-devel] Libc patch 2
Ales Katona wrote: Apply after the 1st one. This patch fixes crypto function in libc unit. Ales Index: crypth.inc === --- crypth.inc (revision 1156) +++ crypth.inc (working copy) @@ -1,9 +1,9 @@ { defined earlier in unistdh.inc... -function crypt(__key:Pchar; __salt:Pchar):Pchar;cdecl;external clib name 'crypt'; -procedure setkey(__key:Pchar);cdecl;external clib name 'setkey'; -procedure encrypt(__block:Pchar; __edflag:longint);cdecl;external clib name 'encrypt'; +function crypt(__key:Pchar; __salt:Pchar):Pchar;cdecl;external cryptlib name 'crypt'; +procedure setkey(__key:Pchar);cdecl;external cryptlib name 'setkey'; +procedure encrypt(__block:Pchar; __edflag:longint);cdecl;external cryptlib name 'encrypt'; } type Pcrypt_data = ^crypt_data; @@ -20,9 +20,9 @@ initialized : longint; end; -function crypt_r(__key:Pchar; __salt:Pchar; __data:Pcrypt_data):Pchar;cdecl;external clib name 'crypt_r'; -procedure setkey_r(__key:Pchar; __data:Pcrypt_data);cdecl;external clib name 'setkey_r'; -procedure encrypt_r(__block:Pchar; __edflag:longint; __data:Pcrypt_data);cdecl;external clib name 'encrypt_r'; +function crypt_r(__key:Pchar; __salt:Pchar; __data:Pcrypt_data):Pchar;cdecl;external cryptlib name 'crypt_r'; +procedure setkey_r(__key:Pchar; __data:Pcrypt_data);cdecl;external cryptlib name 'setkey_r'; +procedure encrypt_r(__block:Pchar; __edflag:longint; __data:Pcrypt_data);cdecl;external cryptlib name 'encrypt_r'; { - Borland compatibility types Index: dlfcnh.inc === --- dlfcnh.inc (revision 1156) +++ dlfcnh.inc (working copy) @@ -3,10 +3,10 @@ RTLD_NEXT = Pointer(-1); RTLD_DEFAULT = nil; -function dlopen(__file:Pchar; __mode:longint):pointer;cdecl;external clib name 'dlopen'; -function dlclose(__handle:pointer):longint;cdecl;external clib name 'dlclose'; -function dlsym(__handle:pointer; __name:Pchar):pointer;cdecl;external clib name 'dlsym'; -function dlvsym(__handle:pointer; __name:Pchar; __version:Pchar):pointer;cdecl;external clib name 'dlvsym'; +function dlopen(__file:Pchar; __mode:longint):pointer;cdecl;external dllib name 'dlopen'; +function dlclose(__handle:pointer):longint;cdecl;external dllib name 'dlclose'; +function dlsym(__handle:pointer; __name:Pchar):pointer;cdecl;external dllib name 'dlsym'; +function dlvsym(__handle:pointer; __name:Pchar; __version:Pchar):pointer;cdecl;external dllib name 'dlvsym'; function dlerror:Pchar;cdecl;external clib name 'dlerror'; type @@ -19,7 +19,7 @@ dli_saddr : pointer; end; -function dladdr(__address:pointer; __info:PDl_info):longint;cdecl;external clib name 'dladdr'; +function dladdr(__address:pointer; __info:PDl_info):longint;cdecl;external dllib name 'dladdr'; { - Borland compatibility types @@ -29,5 +29,5 @@ TDLInfo = Dl_info; PDLInfo = ^TDLInfo; -function dladdr(__address:pointer; var __info: Dl_info):longint;cdecl;external clib name 'dladdr'; +function dladdr(__address:pointer; var __info: Dl_info):longint;cdecl;external dllib name 'dladdr'; Index: libc.pp === --- libc.pp (revision 1156) +++ libc.pp (working copy) @@ -9,6 +9,8 @@ Const clib = 'c'; + dllib = 'dl'; + cryptlib = 'crypt'; threadslib = 'pthread'; {$i glue.inc} // C to Pascal type mappings ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel Hups sorry, it's a clear patch, apply only the second one. Ales ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
Re: [fpc-devel] Darwin make failure
fpc/compiler/powerpc/units/powerpc-darwin does exist. On Sep 23, 2005, at 7:10, Jonas Maebe wrote: On 23 sep 2005, at 13:04, Paul Davidson wrote: Darwin. Checked out revision 1162. cutils.pas(1203) Error: Can't create assembler file: powerpc/units/powerpc-darwin/cutils.s cutils.pas(36,17) Fatal: There were 1 errors compiling module, stopping cutils.pas(157,19) Fatal: Compilation aborted make[5]: *** [ppcppc] Error 1 That probably means that the directory powerpc/units/powerpc-darwin does not exist. It should be automatically created by the Makefile (at least the units/powerpc-darwin part) if you use make all in the fpc dir or make cycle in the fpc/compiler dir. Jonas ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel P Davidson ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
[fpc-devel] Section smartlinking enabled for i386-linux
For i386-linux smartlinking using sections is now enabled by default and that -CX and -XX will do nothing. Please report all issues on this mailing list. If it doesn't work, disabling it locally can be done by reverting the following patch. ~/fpc/compiler svn diff -r 1165:1166 systems Index: systems/i_linux.pas === --- systems/i_linux.pas (revision 1165) +++ systems/i_linux.pas (revision 1166) @@ -46,7 +46,7 @@ system : system_i386_LINUX; name : 'Linux for i386'; shortname: 'Linux'; -flags: [tf_needs_symbol_size,tf_pic_uses_got{,tf_smartlink_sections}]; +flags: [tf_needs_symbol_size,tf_pic_uses_got,tf_smartlink_sections]; cpu : cpu_i386; unit_env : 'LINUXUNITS'; extradefines : 'UNIX;HASUNIX'; ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel