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

* browcol has no depends on ide/fv

Browse Source
This commit is contained in:
peter 2001-08-04 11:06:29 +00:00
parent 2cade09e9f
commit 5ecf1a62b2
2 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/browcol.pas
View File

@ -261,11 +261,11 @@ procedure RegisterSymbols;
implementation
uses
Dos,Drivers,{Views,App,}{$ifndef FPC}strings,{$endif}
Dos,{$ifndef FPC}strings,{$endif}
{$ifdef DEBUG}
verbose,
{$endif DEBUG}
WUtils,CUtils,
CUtils,
globtype,globals,comphook,
finput,fmodule,
cpuinfo,aasm,
@ -2125,7 +2125,10 @@ begin
end.
{
$Log$
Revision 1.18 2001-08-04 10:23:54 peter
Revision 1.19 2001-08-04 11:06:29 peter
* browcol has no depends on ide/fv
Revision 1.18 2001/08/04 10:23:54 peter
* updates so it works with the ide
Revision 1.1.2.6 2001/03/22 17:30:11 pierre

19
compiler/cutils.pas
View File

@ -59,6 +59,7 @@ interface
function is_number(const s : string) : boolean;
function ispowerof2(value : longint;var power : longint) : boolean;
function maybequoted(const s:string):string;
function CompareText(S1, S2: string): longint;
{ releases the string p and assignes nil to p }
{ if p=nil then freemem isn't called }
@ -606,6 +607,19 @@ uses
end;
function CompareText(S1, S2: string): longint;
begin
UpperVar(S1);
UpperVar(S2);
if S1<S2 then
CompareText:=-1
else
if S1>S2 then
CompareText:= 1
else
CompareText:=0;
end;
{*****************************************************************************
GetSpeedValue
@ -734,7 +748,10 @@ initialization
end.
{
$Log$
Revision 1.9 2001-07-30 20:59:27 peter
Revision 1.10 2001-08-04 11:06:30 peter
* browcol has no depends on ide/fv
Revision 1.9 2001/07/30 20:59:27 peter
* m68k updates from v10 merged
Revision 1.8 2001/07/01 20:16:15 peter