paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed warning/notes

Browse Source
This commit is contained in:
peter 2000-06-01 10:59:22 +00:00
parent dd4c5959f3
commit 8ee8e1cebd
5 changed files with 144 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/forms/fd2pascal.pp
View File

@ -77,7 +77,7 @@ Const
To force setting of a property, put 'FL_FORCE' as a string. To force setting of a property, put 'FL_FORCE' as a string.
Mind : Case sensitive } Mind : Case sensitive }
DefProps : array[ObjClasses,AdjProps] of string[25] = DefProps : array[ObjClasses,AdjProps] of string[30] =
(('FL_INVALID','','','','','','FL_NORMAL_STYLE','FL_FORCE'), (('FL_INVALID','','','','','','FL_NORMAL_STYLE','FL_FORCE'),
('BUTTON','FL_UP_BOX','FL_COL1 FL_COL1','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), ('BUTTON','FL_UP_BOX','FL_COL1 FL_COL1','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'),
('LIGHTBUTTON','FL_UP_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), ('LIGHTBUTTON','FL_UP_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'),

5
packages/ibase/ibase60.pp
View File

@ -747,7 +747,7 @@ type
{ } { }
{ Service manager functions } { Service manager functions }
{ } { }
{!!MVC (*!!MVC
#define ADD_SPB_LENGTH(p, length) { (p)++ = (length); \ #define ADD_SPB_LENGTH(p, length) { (p)++ = (length); \
(p)++ = (length) >> 8;} (p)++ = (length) >> 8;}
@ -755,7 +755,8 @@ type
(p)++ = (data) >> 8; \ (p)++ = (data) >> 8; \
(p)++ = (data) >> 16; \ (p)++ = (data) >> 16; \
(p)++ = (data) >> 24;} (p)++ = (data) >> 24;}
!!MVC } !!MVC *)
function isc_service_attach(_para1:PISC_STATUS; _para2:word; _para3:Pchar; _para4:Pisc_svc_handle; _para5:word; function isc_service_attach(_para1:PISC_STATUS; _para2:word; _para3:Pchar; _para4:Pisc_svc_handle; _para5:word;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;

8
utils/fprcp/expr.pp
View File

@ -1,7 +1,7 @@
{$ifdef win32} {$ifdef win32}
{$H-} {$H-}
{$endif} {$endif}
{$N+} {$ifndef fpc}{$N+}{$endif}
Unit Expr; Unit Expr;
interface interface
const const
@ -67,7 +67,7 @@ FUNCTION add_subt: Real;
'ARCTAN','LN','LOG','EXP','FACT', 'ARCTAN','LN','LOG','EXP','FACT',
'PRED','SUCC','ROUND','TRUNC'); 'PRED','SUCC','ROUND','TRUNC');
VAR VAR
E, L, Start : Integer; L, Start : Integer;
Funnet : Boolean; Funnet : Boolean;
F : Real; F : Real;
Sf : StdFunc; Sf : StdFunc;
@ -106,7 +106,7 @@ FUNCTION add_subt: Real;
IF Copy(Formula,Posn,l)=StdFuncName[sf] THEN IF Copy(Formula,Posn,l)=StdFuncName[sf] THEN
BEGIN BEGIN
Posn:=Posn+l-1; ParseNext; Posn:=Posn+l-1; ParseNext;
f:=UnsignedOp; f:=UnsignedOp{$ifdef fpc}(){$endif};
CASE sf of CASE sf of
fabs: f:=abs(f); fabs: f:=abs(f);
fsqrt: f:=SqrT(f); fsqrt: f:=SqrT(f);
@ -208,7 +208,7 @@ function HexToDecS:longbool;
DecError:longbool; DecError:longbool;
procedure Decim(const pattern:string); procedure Decim(const pattern:string);
var var
i,p,b,x:longint; p,b,x:longint;
ss,st:string; ss,st:string;
begin begin
repeat repeat

14
utils/fprcp/fprcp.pp
View File

@ -2,7 +2,7 @@ program FreePasResourcePreprocessor;
{$ifdef win32} {$ifdef win32}
{$APPTYPE CONSOLE} {$APPTYPE CONSOLE}
{$endif} {$endif}
{$N+} {$ifndef fpc}{$N+}{$endif}
uses uses
Comments,PasPrep,Expr Comments,PasPrep,Expr
{$ifndef win32} {$ifndef win32}
@ -171,7 +171,7 @@ function GetSwitch(const switch:str255):str255;
if paramstr(i)='-'+switch then if paramstr(i)='-'+switch then
GetSwitch:=paramstr(succ(i)); GetSwitch:=paramstr(succ(i));
end; end;
procedure saveproc(const key,value:str255;CaseSent:longbool);far; procedure saveproc(const key,value:str255;CaseSent:longbool);{$ifndef fpc}far;{$endif}
var var
c:pReplaceRec; c:pReplaceRec;
begin begin
@ -341,9 +341,8 @@ function do_include(name:str255):longbool;
var var
buf:pchars; buf:pchars;
f:file; f:file;
i,size,nextpos:longint; size:longint;
s1,s2:str255; s1:str255;
done:longbool;
procedure trim; procedure trim;
begin begin
delete(name,1,1); delete(name,1,1);
@ -373,6 +372,7 @@ function do_include(name:str255):longbool;
do_pascal(buf,size,@saveProc); do_pascal(buf,size,@saveProc);
end; end;
FreeMem(buf,size); FreeMem(buf,size);
do_include:=true;
end; end;
function CheckRight(const s:str255;pos:longint):longbool; function CheckRight(const s:str255;pos:longint):longbool;
begin begin
@ -412,7 +412,7 @@ var
c:pReplaceRec; c:pReplaceRec;
j,kk:longint; j,kk:longint;
sss,sst:str255; sss,sst:str255;
MustBeReplaced,includeStatement,beginline:longbool; MustBeReplaced:longbool;
begin begin
if(paramcount=0)or isSwitch('h')or isSwitch('-help')or((paramcount>1)and(GetSwitch('i')=''))then if(paramcount=0)or isSwitch('h')or isSwitch('-help')or((paramcount>1)and(GetSwitch('i')=''))then
begin begin
@ -500,8 +500,6 @@ begin
else else
begin begin
sss:=''; sss:='';
includeStatement:=false;
beginline:=true;
i:=1; i:=1;
sss:=''; sss:='';
while i<=size do while i<=size do

6
utils/ptopu.pp
View File

@ -134,7 +134,6 @@ Type
TPrettyPrinter=Object(TObject) TPrettyPrinter=Object(TObject)
Private Private
RecordSeen, RecordSeen,
ConfigFileRead,
CRPending : BOOLEAN; CRPending : BOOLEAN;
currchar,nextchar : charinfo; currchar,nextchar : charinfo;
currsym,nextsym : symbolinfo; currsym,nextsym : symbolinfo;
@ -1223,7 +1222,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2000-05-03 13:04:08 pierre Revision 1.8 2000-06-01 10:59:22 peter
* removed warning/notes
Revision 1.7 2000/05/03 13:04:08 pierre
* avoid a problem with range check * avoid a problem with range check
Revision 1.6 2000/02/09 16:44:15 peter Revision 1.6 2000/02/09 16:44:15 peter