Commit 0876eb80 authored by Martin Schreiber's avatar Martin Schreiber

* Suppress FPC 3.2 warnings.

parent b8b9fc9a
......@@ -19,6 +19,14 @@ unit breakpointsform;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
mseforms,msewidgetgrid,msedataedits,msegdbutils,msetypes,msegrids,
msegraphedits,msestat,msemenuwidgets,msemenus,msestrings,mseedit,mseevent,
......@@ -132,11 +140,18 @@ var
breakpointsfo: tbreakpointsfo;
implementation
uses
breakpointsform_mfm,msefileutils,sourceform,projectoptionsform,msedatalist,
main,msewidgets,actionsmodule,watchpointsform,mseformatstr,msegraphutils,
disassform;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
type
stringconsts = (
......
......@@ -26,7 +26,6 @@ interface
{$warn 6058 off}
{$endif}
{$endif}
uses
msetypes,classes,mclasses,mseforms,mseguiglob,msegui,mseevent,msegraphutils,
msegraphics,
......@@ -441,6 +440,15 @@ uses
setcreateorderform,componentstore,msearrayutils,actionsmodule,msecomptree
{$ifndef FPC},classes_del{$endif};
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
type
stringconsts = (
sc_wishrevert, //0 Do you wish to revert to inherited
......
......@@ -27,6 +27,14 @@ unit main;
{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
mseforms,msesimplewidgets,mseguiglob,msegui,msegdbutils,mseactions,
......@@ -390,6 +398,15 @@ uses
{$ifdef unix},mselibc {$endif}, //SIGRT*
mseprocutils
{$ifdef mse_dumpunitgroups},dumpunitgroups{$endif};
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
procedure handleerror(const e: exception; const text: string);
begin
......
......@@ -54,6 +54,14 @@ for param entry or if the template name can not be found.
*)
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
msestrings,msehash,msemacros,msetypes,mseforms;
......@@ -101,6 +109,14 @@ implementation
uses
msefileutils,msesys,msestat,msestream,mseparamentryform,mseglob,msearrayutils,
msetemplateselectform,msedataedits;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
{ tcodetemplates }
......
......@@ -19,6 +19,14 @@ unit msedesigner;
{$ifdef FPC}{$mode objfpc}{$h+}{$interfaces corba}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
classes,mclasses,msegraphutils,mseglob,mseguiglob,msedesignintf,
mseforms,mselist,msearrayutils,msebitmap,msetypes,sysutils,msehash,mseclasses,
......@@ -634,7 +642,6 @@ function isdatasubmodule(const acomponent: tobject;
const both: boolean = false): boolean;
implementation
uses
msestream,msefileutils,
// {$ifdef mswindows}windows{$else}mselibc{$endif},
......@@ -643,6 +650,14 @@ uses
pascaldesignparser,msearrayprops,rtlconsts,msedatamodules,
msesimplewidgets,msesysutils,mseobjecttext,msestreaming,msedatanodes,main,
actionsmodule,mseeditglob;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
const
renewbackuptag = 0;
......
......@@ -19,6 +19,14 @@ unit msedesignparser;
{$if FPC_FULLVERSION >= 030100} {$define mse_fpc_3_2} {$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
mseglob,msedatalist,mselist,mseparser,msetypes,typinfo,msestrings,
msearrayutils;
......@@ -532,6 +540,14 @@ implementation
uses
{sourceupdate,}sysutils,cdesignparser;
//todo: remove cdesignparser, extract c+pascaldesignparser code
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
{$ifdef FPC}{$goto on}{$endif}
type
tparser1 = class(tparser);
......
......@@ -24,6 +24,14 @@ program mseide;
{$ifdef mswindows}
{$R mseide.res}
{$endif}
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
{$ifdef FPC}{$ifdef unix}cthreads,{$endif}{$endif}
// mseopenglgdiinit,
......
......@@ -26,7 +26,6 @@ interface
{$warn 6058 off}
{$endif}
{$endif}
uses
mseforms,msewidgets,msegrids,msewidgetgrid,classes,mclasses,mseclasses,
msepropertyeditors,mseglob,mseguiglob,msearrayutils,msedragglob,msegui,mseedit,
......@@ -258,6 +257,15 @@ uses
msebitmap,msedrag,mseeditglob,msestockobjects,msedropdownlist,
sourceupdate,sourceform,msekeyboard,main,msedatalist,msecolordialog;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
const
ado_rereadprops = 1; //asyncevent codes
ado_updatecomponentname = 2;
......
......@@ -19,6 +19,14 @@ unit panelform;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
classes,mclasses,msegui,mseclasses,mseforms,msemenus,msestat,
msetypes{msestrings},
......@@ -55,6 +63,14 @@ implementation
uses
panelform_mfm,main,sysutils,msekeyboard,mselist,msedatalist,
msearrayutils,mseformatstr;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
var
panellist: tpointerlist;
......
......@@ -22,6 +22,14 @@ unit projectoptionsform;
{$define mse_with_ifi}
//MSEide needs mse_with_ifi, switch for compiling test only
{$endif}
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
interface
uses
......@@ -1179,6 +1187,14 @@ uses
{$ifndef mse_no_db}{$ifdef FPC},msedbfieldeditor{$endif}{$endif}
{$ifndef mse_no_ifi}{$ifdef FPC},mseificomponenteditors,
mseififieldeditor{$endif}{$endif};
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
var
projectoptionsfo: tprojectoptionsfo;
......
......@@ -19,6 +19,14 @@ unit settaborderform;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
msetypes,mseforms,msegrids,msegui,msewidgetgrid,msedataedits,msesimplewidgets,
msedesigner,
......@@ -64,6 +72,15 @@ procedure settaborderdialog(const awidget: twidget;
implementation
uses
settaborderform_mfm,msegraphutils;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
type
twidget1 = class(twidget);
......
......@@ -19,6 +19,14 @@ unit sourceform;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
msetextedit,msewidgetgrid,mseforms,classes,mclasses,msegdbutils,
......@@ -202,6 +210,14 @@ uses
projectoptionsform,main,mseeditglob,watchform,msesys,msewidgets,msedesigner,
selecteditpageform,sourceupdate,pascaldesignparser,mseclasses,msearrayutils,
msebits,msesysutils,mseintegerenter,panelform;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
type
tsourcepage1 = class(tsourcepage);
......
......@@ -19,7 +19,14 @@ unit sourcepage;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
msetextedit,msewidgetgrid,mseforms,classes,mclasses,msegdbutils,
msegraphedits,mseevent,
......@@ -166,7 +173,6 @@ function getpascalvarname(const edit: tsyntaxedit;
procedure findintextedit(const edit: tcustomtextedit; var info: findinfoty;
var findpos: gridcoordty; const backward: boolean = false);
implementation
uses
sourcepage_mfm,msefileutils,sourceform,main,
sysutils,msewidgets,finddialogform,replacedialogform,msekeyboard,
......@@ -175,6 +181,14 @@ uses
mseedit,msedrawtext,msebits,msearrayutils,msestream,msedesignintf,
msesysutils,msedesignparser,msesyntaxpainter,msemacros,msecodetemplates,
mselatex,msesystypes;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
const
pascaldelims = msestring(' :;+-*/(){},=<>' + c_linefeed + c_return + c_tab);
......
......@@ -19,6 +19,14 @@ unit sourceupdate;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
msedesigner,mseclasses,msedesignintf,classes,mclasses,typinfo,
msetypes,msestrings,pascaldesignparser,cdesignparser,mseglob,
......@@ -238,6 +246,14 @@ implementation
uses
sysutils,msesys,msefileutils,sourceform,sourcepage,projectoptionsform,
msegui,msearrayutils,projecttreeform;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
function findprogramlanguage(const afilename: filenamety): proglangty;
var
......
......@@ -214,6 +214,15 @@ const
implementation
uses
msesysutils,msedatalist,msearrayutils;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
const
errormessages: array[midierrorty] of msestring = (
'',
......
......@@ -321,6 +321,14 @@ implementation
uses
msestrings,msefileutils,msectypes,mseapplication,msesysintf1,
sysutils,msesysutils{$ifdef mswindows},activex{$endif};
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
const
disconnecttag = 5936727;
......
......@@ -1116,6 +1116,14 @@ procedure setremotedatalist(const aintf: idatalistclient;
implementation
uses
rtlconsts,msestreaming,msesys,msestat,msebits,msefloattostr,mseformatstr;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
var
datalistclasses: array[listdatatypety] of datalistclassty =
......
......@@ -344,6 +344,14 @@ type
implementation
uses
rtlconsts,msebits,msedatalist,msesysintf1,msesysintf;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
const
growstep = 32;
......
......@@ -10,6 +10,14 @@
unit msessl;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
classes,mclasses,msecryptio,mseopenssl,mseopensslevp,mseopensslrand,
msestrings,msesystypes,msecryptohandler,msetypes,msesys,
......@@ -263,6 +271,14 @@ uses
sysutils,msesysintf1,msefileutils,msesocketintf,mseopensslbio,mseopensslpem,
mseopensslrsa,msebits,
msesysintf,msectypes;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
procedure raisesslerror(const err: cryptoerrorty);
const
......
......@@ -24,6 +24,14 @@
unit memds;
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
sysutils,classes,mclasses,mdb,msetypes;
const
......@@ -169,6 +177,14 @@ type
end;
implementation
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
ResourceString
SErrFieldTypeNotSupported = 'Fieldtype of Field "%s" not supported.';
......
......@@ -240,6 +240,14 @@ implementation
uses
strutils,msesysintf1,msebits,msefloattostr,msedatabase,msesqlresult,msefbutils
{$ifndef FPC},classes_del{$ifdef mswindows},windows{$endif}{$endif};
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
function clientversion: string;
var
......
......@@ -26,6 +26,14 @@
{$MACRO on}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
classes,mclasses,SysUtils,msqldb,mdb,dynlibs,msetypes{msestrings},msedb,
......@@ -208,6 +216,15 @@ Type
implementation
uses
msestrings,dbconst,msebufdataset,msesqlresult;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
type
tmsebufdataset1 = class(tmsebufdataset);
......
......@@ -29,8 +29,15 @@ unit mmysqlconn;
{$endif}
interface
uses
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
classes,mclasses,SysUtils,msqldb,mdb,{$ifdef FPC}dynlibs,{$endif}msestrings,
msedb,mysqldyn,msetypes,msectypes;
......@@ -237,6 +244,15 @@ uses
{$ifdef FPC}dbconst{$else}dbconst_del,classes_del{$endif},
msebufdataset,typinfo,dateutils,msefileutils,msedatabase,msedynload,
msesqlresult;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
type
tmsebufdataset1 = class(tmsebufdataset);
var
......
......@@ -18,6 +18,14 @@ interface
uses
classes,mclasses,SysUtils, msqldb, mdb, odbcsqldyn,msetypes,msedb,msestrings;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
type
......@@ -176,9 +184,16 @@ type
end;
implementation
uses
Math, {$ifdef FPC}DBConst{$else}dbconst_del{$endif},msedatabase;
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
{$define ODBCVER3}
......
......@@ -18,7 +18,14 @@ unit mpqconnection;
{$Define LinkDynamically}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
uses
classes,mclasses,SysUtils, msqldb, mdb,
{$ifdef FPC}dbconst{$else}dbconst_del{$endif},
......@@ -187,10 +194,17 @@ type
end;
implementation
uses
math,msestream,msedatalist,mseformatstr,msedatabase,msectypes,msestrings,
variants,msevariants,msesqlresult{$ifndef FPC},classes_del{$endif};
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}
{$warn 5093 off}
{$warn 6058 off}
{$endif}
{$endif}
ResourceString
SErrRollbackFailed = 'Rollback transaction failed';
......
......@@ -24,6 +24,14 @@ unit msebufdataset;
{$endif}
interface
{$ifndef mse_allwarnings}
{$if fpc_fullversion >= 030100}
{$warn 5089 off}
{$warn 5090 off}