paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 19:09:10 +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.
Mind : Case sensitive }
DefProps : array[ObjClasses,AdjProps] of string[25] =
DefProps : array[ObjClasses,AdjProps] of string[30] =
(('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'),
('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 }
{ }
{!!MVC
(*!!MVC
#define ADD_SPB_LENGTH(p, length) { (p)++ = (length); \
(p)++ = (length) >> 8;}
@ -755,7 +755,8 @@ type
(p)++ = (data) >> 8; \
(p)++ = (data) >> 16; \
(p)++ = (data) >> 24;}
!!MVC }
!!MVC *)
function isc_service_attach(_para1:PISC_STATUS; _para2:word; _para3:Pchar; _para4:Pisc_svc_handle; _para5:word;
_para6:Pchar):ISC_STATUS; cdecl; external;

8
utils/fprcp/expr.pp
View File

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

14
utils/fprcp/fprcp.pp
View File

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

6
utils/ptopu.pp
View File

@ -134,7 +134,6 @@ Type
TPrettyPrinter=Object(TObject)
Private
RecordSeen,
ConfigFileRead,
CRPending : BOOLEAN;
currchar,nextchar : charinfo;
currsym,nextsym : symbolinfo;
@ -1223,7 +1222,10 @@ end.
{
$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
Revision 1.6 2000/02/09 16:44:15 peter