diff --git a/compiler/browcol.pas b/compiler/browcol.pas index bb05ac359b..902e3ae1f6 100644 --- a/compiler/browcol.pas +++ b/compiler/browcol.pas @@ -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 diff --git a/compiler/cutils.pas b/compiler/cutils.pas index 4b5fd9f7e3..93d4de17da 100644 --- a/compiler/cutils.pas +++ b/compiler/cutils.pas @@ -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 S1S2 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