Re: [fpc-devel] compilation error of h2pas.pas on Mac OS X in the course of make all of the SVN sources

2005-09-23 Thread Jonas Maebe


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

2005-09-23 Thread Ales Katona

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

2005-09-23 Thread Ales Katona

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

2005-09-23 Thread Paul Davidson

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

2005-09-23 Thread Peter Vreman
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