cpstrnew branch (was Re: [fpc-devel] Freepascal 2.4.0rc1 released)

[Martin Schreiber]

On Wednesday 11 November 2009 15:11:07 Florian Klaempfl wrote:
>
> What rtl did you use? You need one from the branch.

Compiling the cpstrnew rtl with fixes_2_4 does not work:
"
Free Pascal Compiler version 2.3.1 [2009/11/01] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling pp.pas
pp.pas(158,6) Warning: MINSTACKSIZE is not supported by the target OS
Compiling /home/mse/packs/standard/svn/fp/cpstrnew/rtl/linux/system.pp
systemh.inc(296,31) Fatal: Syntax error, ";" expected but "<" found
Fatal: Compilation aborted
"
No surprise. ;-)

make clean all in cpstrnew/compiler with FPC 2.2.4 and compiling overhead.pas 
with the new ppc386:

"
Free Pascal Compiler version 2.3.1 [2009/11/11] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling overhead.pas
Compiling /home/mse/packs/standard/svn/fp/cpstrnew/rtl/linux/system.pp
Fatal: Compilation aborted
An unhandled exception occurred at $FFFFFFF4 :
EAccessViolation : Access violation
  $FFFFFFF4
  $081310A4
  $08130FE4
  $081313DA
  $081316B1
  $0812E384
  $08130A5E
  $0817D3B3
  $08165E2D
  $08174B0C
  $0817BB8C
  $0817BEDA
  $0817F4A7
  $08165E67
  $080628C6
  $08048236

"

"
#!/bin/sh
 fpcdir=/home/mse/packs/standard/svn/fp/cpstrnew
cd ..
cd ${fpcdir}/rtl
make clean
cd ..
make OPT="-gl -O-" FPC=${fpcdir}/compiler/ppc386 rtl
"
->
"
[...]
/home/mse/packs/standard/svn/fp/cpstrnew/compiler/ppc386 -Ur -Ur -Xs -O2 -n -Fi../inc -Fi../i386 -Fi../unix -Fii386 -FE. -FU/home/mse/packs/standard/svn/fp/cpstrnew/rtl/units/i386-linux -gl -O- -di386 -dRELEASE ../unix/cwstring.pp
cwstring.pp(731,26) Error: Incompatible types: got "<address of 
procedure(PWideChar,var AnsiString,LongInt);Register>" expected "<procedure 
variable type of procedure(PWideChar,var 
RawByteString,Word,LongInt);Register>"
cwstring.pp(732,26) Error: Incompatible types: got "<address of 
procedure(PChar,var WideString,LongInt);Register>" expected "<procedure 
variable type of procedure(PChar,Word,var WideString,LongInt);Register>"
cwstring.pp(756,29) Error: Incompatible types: got "<address of 
procedure(PWideChar,var AnsiString,LongInt);Register>" expected "<procedure 
variable type of procedure(PUnicodeChar,var 
RawByteString,Word,LongInt);Register>"
cwstring.pp(757,29) Error: Incompatible types: got "<address of 
procedure(PChar,var WideString,LongInt);Register>" expected "<procedure 
variable type of procedure(PChar,Word,var UnicodeString,LongInt);Register>"
cwstring.pp(780) Fatal: There were 4 errors compiling module, stopping
Fatal: Compilation aborted
make[2]: *** [cwstring.ppu] Fehler 1
make[2]: Leaving directory 
`/home/mse/packs/standard/svn/fp/cpstrnew/rtl/linux'
make[1]: *** [linux_all] Fehler 2
make[1]: Leaving directory `/home/mse/packs/standard/svn/fp/cpstrnew/rtl'
make: *** [rtl] Fehler 2
"

Martin