[fpc-pascal]Sablopas and FPC

[Fernando Lozano]

Hi Peter,

> > Based on previous posts to the list I dowload Sablopas but could
> > not compile using FPC 1.0.6 on Windows 95:
> 
> Maybe you need to compile it in delphi-mode. Try the -Sd commandline option.

Got the same errors. :-(

fpc  -Sd "C:\soft\sablopas\units\SablotEngine.pas"
Free Pascal Compiler version 1.0.6 [2002/04/23] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Win32 for i386
Compiling c:\soft\sablopas\units\sablotengine.pas
handlers.inc(30,31) Hint: Parameter ALLFIELDS not used
handlers.inc(24,48) Hint: Parameter PROCESSOR_ not used
handlers.inc(77,29) Hint: Parameter USERDATA not used
handlers.inc(77,46) Hint: Parameter PROCESSOR_ not used
handlers.inc(78,5) Hint: Parameter CODE not used
handlers.inc(78,19) Hint: Parameter LEVEL not used
handlers.inc(78,38) Hint: Parameter FIELDS not used
handlers.inc(83,34) Hint: Parameter USERDATA not used
handlers.inc(83,51) Hint: Parameter PROCESSOR_ not used
handlers.inc(84,13) Hint: Parameter SEVERITY not used
handlers.inc(84,22) Hint: Parameter FACILITY not used
handlers.inc(84,31) Hint: Parameter CODE not used
handlers.inc(115,23) Error: Illegal type conversion
handlers.inc(116,12) Error: Illegal type conversion
handlers.inc(129,15) Error: Illegal type conversion
handlers.inc(130,13) Error: Illegal type conversion
sablotengine.pas(352,25) Error: Incompatible types: got "<procedure variable type of procedure(void_pointer,ulong,LONGINT,LONGINT,LONGINT);ClearStack;Cdecl>" expected "PSMESSAGEHANDLERMAKECODE"
sablotengine.pas(353,20) Error: Incompatible types: got "<procedure variable type of procedure(void_pointer,ulong,ulong,ulong,var TSERRORFIELDS);ClearStack;Cdecl>" expected "PSMESSAGEHANDLERLOG"
sablotengine.pas(354,22) Error: Incompatible types: got "<procedure variable type of procedure(void_pointer,ulong,ulong,ulong,var TSERRORFIELDS);ClearStack;Cdecl>" expected "PSMESSAGEHANDLERERROR"
sablotengine.pas(375,50) Error: Illegal type conversion
sablotengine.pas(375,65) Error: Illegal type conversion
sablotengine.pas(468,34) Error: Illegal type conversion
sablotengine.pas(476,24) Error: Incompatible types: got "<procedure variable type of function(void_pointer,ulong,LONGINT,const PCHAR,var LONGINT):LongInt;ClearStack;Cdecl>" expected "PSCHEMEHANDLERPUT"
sablotengine.pas(477,24) Error: Incompatible types: got "<procedure variable type of function(void_pointer,ulong,LONGINT,var PCHAR,LONGINT):LongInt;ClearStack;Cdecl>" expected "PSCHEMEHANDLERGET"
sablotengine.pas(478,25) Error: Incompatible types: got "<procedure variable type of function(TSABLOTENGINE,ulong,const PCHAR,const PCHAR,var LONGINT):LongInt;ClearStack;Cdecl>" expected "PSCHEMEHANDLEROPEN"
sablotengine.pas(479,26) Error: Incompatible types: got "<procedure variable type of function(void_pointer,ulong,LONGINT):LongInt;ClearStack;Cdecl>" expected "PSCHEMEHANDLERCLOSE"
sablotengine.pas(480,27) Error: Incompatible types: got "<procedure variable type of function(void_pointer,ulong,const PCHAR,const PCHAR,var PCHAR,var LONGINT):LongInt;ClearStack;Cdecl>" expected "PSCHEMEHANDLERGETALL"
sablotengine.pas(481,31) Error: Incompatible types: got "<procedure variable type of function(void_pointer,ulong,var PCHAR):LongInt;ClearStack;Cdecl>" expected "PSCHEMEHANDLERFREEMEMORY"
sablotengine.pas(495,29) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(497,43) Error: Illegal type conversion
sablotengine.pas(497,53) Error: Illegal type conversion
sablotengine.pas(512,29) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(513,43) Error: Illegal type conversion
sablotengine.pas(513,53) Error: Illegal type conversion
sablotengine.pas(527,29) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(529,46) Error: Illegal type conversion
sablotengine.pas(529,56) Error: Illegal type conversion
sablotengine.pas(542,14) Error: Illegal type conversion
sablotengine.pas(544,14) Error: Illegal type conversion
sablotengine.pas(567,28) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(570,44) Error: Illegal type conversion
sablotengine.pas(583,29) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(606,28) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(612,46) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(617,80) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(641,31) Error: Illegal type conversion
sablotengine.pas(649,54) Error: Illegal type conversion
sablotengine.pas(649,70) Error: Illegal type conversion
sablotengine.pas(649,86) Error: Illegal type conversion
sablotengine.pas(688,35) Error: Illegal type conversion
sablotengine.pas(694,41) Error: Illegal type conversion
sablotengine.pas(699,45) Error: Illegal type conversion
sablotengine.pas(705,51) Error: Illegal type conversion
sablotengine.pas(708,66) Error: Duplicate identifier BASE
sablotengine.pas(708,66) Hint: Identifier already defined in sablotengine.pas at line 174
sablotengine.pas(714,28) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(730,29) Error: call by var parameters have to match exactly: Got SHORTSTRING expected ANSISTRING
sablotengine.pas(746) Fatal: There were 44 errors compiling module, stopping
>Exit code: 1