paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:49:11 +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 implementation
uses uses
Dos,Drivers,{Views,App,}{$ifndef FPC}strings,{$endif} Dos,{$ifndef FPC}strings,{$endif}
{$ifdef DEBUG} {$ifdef DEBUG}
verbose, verbose,
{$endif DEBUG} {$endif DEBUG}
WUtils,CUtils, CUtils,
globtype,globals,comphook, globtype,globals,comphook,
finput,fmodule, finput,fmodule,
cpuinfo,aasm, cpuinfo,aasm,
@ -2125,7 +2125,10 @@ begin
end. end.
{ {
$Log$ $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 * updates so it works with the ide
Revision 1.1.2.6 2001/03/22 17:30:11 pierre 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 is_number(const s : string) : boolean;
function ispowerof2(value : longint;var power : longint) : boolean; function ispowerof2(value : longint;var power : longint) : boolean;
function maybequoted(const s:string):string; function maybequoted(const s:string):string;
function CompareText(S1, S2: string): longint;
{ releases the string p and assignes nil to p } { releases the string p and assignes nil to p }
{ if p=nil then freemem isn't called } { if p=nil then freemem isn't called }
@ -606,6 +607,19 @@ uses
end; 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 GetSpeedValue
@ -734,7 +748,10 @@ initialization
end. end.
{ {
$Log$ $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 * m68k updates from v10 merged
Revision 1.8 2001/07/01 20:16:15 peter Revision 1.8 2001/07/01 20:16:15 peter