Re: [fpc-devel] (no subject)

2019-04-29 Thread Jonas Maebe

On 27/04/2019 23:17, Григорий Параскевов via fpc-devel wrote:
command line tools are already installed, use "Software Update" to 
install updates", но при очередной попытке 
установить fpc-3.0.4.intel.macosx выходит сообщение "you have to install 
Xcode and its command line tools before installing this package. 
Помогите, не знаю что делать.




Try executing "xcode-select --install" in a terminal window.

If that does not help, which version of macOS and Xcode are you using?


Jonas
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel


[fpc-devel] (no subject)

2019-04-28 Thread Григорий Параскевов via fpc-devel
Здравствуйте! Я не могу установить Лазарю на свой Мак. После того, как скачиваю 
fpc-3.0.4.intel.macosx и в терминал ввожу xcode-select ---install, пишет "
command line tools are already installed, use "Software Update" to install 
updates", но при очередной попытке установить fpc-3.0.4.intel.macosx выходит 
сообщение "you have to install Xcode and its command line tools before 
installing this package. Помогите, не знаю что делать. ___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel


[fpc-devel] (no subject)

2011-08-20 Thread John Clymer
DIFF attached for comment and review.  Provides the following features / 
difference:

1) Switched operation of cpuinfo.pas - there is still a SET containing  the ct_ 
constants, but that now indexes an array of structures rather  than a 
collection 
of arrays.  The array contains the info from the old  arrays, PLUS FLASH, SRAM 
and EPROM memory definitions i.e. BASE and SIZE  for each.
NOTE:  Switched for both ARM and AVR.  AVR changes will compile the  cross 
compiler, but choke while building the RTL  (complaining about a  function 
being 
too complex). However, the SVN and daily build exhibit  the same behaviour - so 
I do not believe I have broken the AVR any  further than it was broken.

2) Added LM3FURY controller unit file - this will be built up into a  base unit 
file for all the Fury class Stellaris controllers.

3) I intend to leave the Stellaris controller class with the intention  that 
those that don't want a full set of system defines can use this  class and will 
receive nothing more than the bare minimum to boot a chip  into PASCALMAIN.  
The 
Flash and SRAM sizes will be set very large - so  caveat emptor to the user if, 
as they will need to ensure the programs  do not require more resources than 
their chip require.

4) t_embed.pas was changed.  The case() statement is still in there, but  all 
the cases fall down to the same code - which uses the cpuinfo.pas  memory 
definitions to create the linker file.

5) put a test in t_embed.pas - if we are only compiling to assembly,  then we 
skip the Internal Error on not having a link definition.

6) option.pas, globals.pas, ncgutil.pas and pmodules.pas were modified to 
accommodate the addition of the structure.

7) IF controllerunitstr is empty - then no added file is included in the  build 
(again, to support a base controller type - with no defines  what so ever - 
power user option)

NOTE:  The Makefile changes were picked up by svn diff - not sure why  they 
changed so much, my incantation of fpcmake must be different than  the original 
sources code

NOTE:  The AVR link script generation has not been changed to  accommodate the 
additional information - the original link script did  not set memory sizes to 
match the processor.

JohnIndex: rtl/embedded/Makefile.fpc
===
--- rtl/embedded/Makefile.fpc   (revision 18278)
+++ rtl/embedded/Makefile.fpc   (working copy)
@@ -48,7 +48,7 @@
 SYSINIT_UNITS=
 
 ifeq ($(ARCH),arm)
-CPU_UNITS=lpc21x4 at91sam7x256 stellaris stm32f103
+CPU_UNITS=lpc21x4 at91sam7x256 stellaris stm32f103 lm3fury
 endif
 
 ifeq ($(ARCH),avr)
Index: rtl/embedded/Makefile
===
--- rtl/embedded/Makefile   (revision 18278)
+++ rtl/embedded/Makefile   (working copy)
@@ -1,8 +1,8 @@
 #
-# Don't edit, this file is generated by FPCMake Version 2.0.0 [2011/08/11]
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2011/04/23]
 #
 default: all
-MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd 
i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware 
i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc 
i386-wince i386-embedded i386-symbian i386-nativent i386-iphonesim m68k-linux 
m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos 
m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos 
powerpc-darwin powerpc-morphos powerpc-embedded powerpc-wii sparc-linux 
sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd 
x86_64-solaris x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos 
arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux 
powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded 
mipsel-linux
+MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd 
i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware 
i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc 
i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd 
m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux 
powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos 
powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded 
x86_64-linux x86_64-freebsd x86_64-solaris x86_64-darwin x86_64-win64 
x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds 
arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded 
avr-embedded armeb-linux armeb-embedded mipsel-linux
 BSDs = freebsd netbsd openbsd darwin
 UNIXs = linux $(BSDs) solaris qnx haiku
 LIMIT83fs = go32v2 os2 emx watcom
@@ -189,11 +189,7 @@
 TARGETSUFFIX=$(OS_TARGET)
 SOURCESUFFIX=$(OS_SOURCE)
 else
-ifneq ($(findstring $(OS_TARGET),$(LIMIT83fs)),)
-TARGETSUFFIX=$(OS_TARGET)
-else
 TARGETSUFFIX=$(FULL_TARGET)
-endif
 SOURCESUFFIX=$(FULL_SOURCE)
 endif
 ifneq 

[fpc-devel] (no subject)

2009-11-24 Thread Peter Beisel

-- 
Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla Firefox 3.5 -
sicherer, schneller und einfacher! http://portal.gmx.net/de/go/chbrowser
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread Marco van de Voort
 Interesting switch in FPC 2.1.1:
 
-Skload fpcylix unit
 
 what is it for?

Afaik it implicitely USES the fpcylix unit that contains some identifiers
for Kylix compat that we _really_ didn't want in the normal system/sysutils
unit.

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread rstar

Marco van de Voort wrote:


Interesting switch in FPC 2.1.1:

  -Skload fpcylix unit

what is it for?
   



Afaik it implicitely USES the fpcylix unit that contains some identifiers
for Kylix compat that we _really_ didn't want in the normal system/sysutils
unit.

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


 


where can i find it ?

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread Peter Vreman
Interesting switch in FPC 2.1.1:

   -Skload fpcylix unit

what is it for?
Afaik it implicitely USES the fpcylix unit that contains some identifiers
for Kylix compat that we _really_ didn't want in the normal
 system/sysutils
unit.
 where can i find it ?

~/fpc find . -name 'fpcylix.pp'
./rtl/linux/fpcylix.pp


___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread Vincent Snijders

[EMAIL PROTECTED] wrote:

Marco van de Voort wrote:


Interesting switch in FPC 2.1.1:

  -Skload fpcylix unit

what is it for?
  



Afaik it implicitely USES the fpcylix unit that contains some identifiers
for Kylix compat that we _really_ didn't want in the normal 
system/sysutils

unit.



where can i find it ?



http://svn.freepascal.org/svn/fpc/trunk/rtl/linux/fpcylix.pp

Vincent.
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread Tomas Hajny
Marco van de Voort wrote:
 Interesting switch in FPC 2.1.1:

-Skload fpcylix unit

 what is it for?

 Afaik it implicitely USES the fpcylix unit that contains some identifiers
 for Kylix compat that we _really_ didn't want in the normal
 system/sysutils
 unit.

BTW, looking at the current implementation - shouldn't GetModuleName be
changed to return name part of ParamStr (0) (without path and extension),
and GetModuleFileName the complete ParamStr (0)?

Tomas

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread Florian Klaempfl
Tomas Hajny wrote:

 Marco van de Voort wrote:
 
Interesting switch in FPC 2.1.1:

   -Skload fpcylix unit

what is it for?

Afaik it implicitely USES the fpcylix unit that contains some identifiers
for Kylix compat that we _really_ didn't want in the normal
system/sysutils
unit.
 
 
 BTW, looking at the current implementation - shouldn't GetModuleName be
 changed to return name part of ParamStr (0) (without path and extension),
 and GetModuleFileName the complete ParamStr (0)?

No, the situation is more complex, that's not implemented yet.
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread Marco van de Voort
 Marco van de Voort wrote:
 
 Afaik it implicitely USES the fpcylix unit that contains some identifiers
 for Kylix compat that we _really_ didn't want in the normal system/sysutils
 unit.
 
 Is FPC able to compile Kylix forms (*.xfm) now?

Forms are something of a higher level than FPC. They are compiled by an
(external) resourcecompiler and then stored as a resource in a file.

However for CrossFPC's sake, resourcehandling has been made more compatible,
but I assume one still needs a resourcecompiler for this.


___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread Michael Van Canneyt


On Mon, 7 Nov 2005 [EMAIL PROTECTED] wrote:

 Marco van de Voort wrote:
 
   Interesting switch in FPC 2.1.1:
   
   -Skload fpcylix unit
   
   what is it for?
   
   
  
  Afaik it implicitely USES the fpcylix unit that contains some identifiers
  for Kylix compat that we _really_ didn't want in the normal
  system/sysutils
  unit.
  
  ___
  fpc-devel maillist  -  fpc-devel@lists.freepascal.org
  http://lists.freepascal.org/mailman/listinfo/fpc-devel
  
  
  
  
 Is FPC able to compile Kylix forms (*.xfm) now?

Yes, using an external resource compiler. 
It will embed .xfm, .dfm  and .res files.

But you'll still need an .rc - .res compiler for icons, bitmaps etc.

Michael.
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-11-07 Thread rstar

Michael Van Canneyt wrote:


On Mon, 7 Nov 2005 [EMAIL PROTECTED] wrote:

 


Marco van de Voort wrote:

   


Interesting switch in FPC 2.1.1:

-Skload fpcylix unit

what is it for?


   


Afaik it implicitely USES the fpcylix unit that contains some identifiers
for Kylix compat that we _really_ didn't want in the normal
system/sysutils
unit.

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel




 


Is FPC able to compile Kylix forms (*.xfm) now?
   



Yes, using an external resource compiler. 
It will embed .xfm, .dfm  and .res files.


But you'll still need an .rc - .res compiler for icons, bitmaps etc.

Michael.
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


 


Is it automated in CrossFCP?

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


[fpc-devel] (no subject)

2005-08-12 Thread Ростислав Окулов
How I can aligh data in FPC like in C?

struct __declspec(align(16)) VECTOR4F
{
float x;
float y;
float z;
float w;
};


___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


[fpc-devel] (no subject)

2005-08-12 Thread Ростислав Окулов
Will be an SSE3 for assembler support?

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-08-12 Thread Florian Klaempfl
Ростислав Окулов wrote:

Ростислав Окулов wrote:

How I can aligh data in FPC like in C?

struct __declspec(align(16)) VECTOR4F
{
float x;
float y;
float z;
float w;
};

FPC can align local data only up to 4 byte boundaries. Aligning to 16 byte
boundaries done by the compiler requires too much extra code because at every
procedure entry the stack must be realigned so causing often a slow down.

 
 Ok. By when you use SSE2 or SSE3 data *MUST* be alligned to 16 bytes..

Only vector data. The compiler doesn't generate vector instruction so you need
it for assembler only and in assembler procedures you can align the stack 
yourself.

 and if it is? we can use movups or movaps instead movss(FPC use this 
 instruction, but It's more sloly than use mov*ps)

Clock cycle count of mov*ps might be lower but: movups/movaps move 16 bytes
while movss moves only 4 bytes: higher memory traffic. Further, if you load a
single, using mov*ps is dangerous because you could access data outside valid
memory which can cause segmentation faults, if the segment limits aren't aligned
to 16 byte boundaries.


___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


[fpc-devel] (no subject)

2005-02-10 Thread rstar
Hint: fpc-1.9.7.i386-win32.exe 8/2/2005 is corrupt!
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2005-01-13 Thread Tomas Hajny
On Thu, 13 Jan 2005 14:04:10 +0100 (CET), Ladislav  Lacina wrote
 Message: 2
 Date: Wed, 12 Jan 2005 17:31:41 +0100
 From: Tomas Hajny [EMAIL PROTECTED]
 Subject: Re: [fpc-devel] The new 1.9.6 release
 To: FPC developers' list fpc-devel@lists.freepascal.org
 Message-ID: [EMAIL PROTECTED]
 Content-Type: text/plain; charset=iso-8859-2
 
  Ladislav Lacina wrote:
 
   There are many problems in this version - at least under the GO32V2
   target. Mainly the things asociated with the FreeVision. Even the
   installer doesn't work properly. The mouse is not visible and the 'OK'
   button is in strange way hidden. Nor in the IDE is the mouse not shown.
   Interresting is, that if you go to the Dosshell and return, the mouse
   works properly. And there are many other problems.
   Anyway thanks for the FreeVision. Finally. I modified it to use with the
   previous 1.0.10 version.
   And the last thing - will be in IDE in the official 2.0 version support
   for VESA modes?
   I very miss it.
 
 1) The mouse cursor issue is already known, it will be researched and
 hopefully fixed.
 
 2) For the other problems, please, report them using the bug repository
 accesible from our WWW pages.
 
 3) Regarding VESA modes, what exactly do you miss there - extended text modes
 (132x50, 132x60 etc.), or something else?
 
 Regards
 Tomas
 
 Yes, I mean the extended text modes (132x50, 132x60,...)

I guess that implementing this functionality shouldn't be that hard, in fact.
It needs the following changes in video.pp for GO32v2 as far as I can see:

- New function checking for VESA availability and adding the found text modes
to SysVMD table (which must be extended to be able to accomodate the new
modes) - let's call it GetVESAModes. This function can be derived from
vesa.inc located in the GO32v2 directory in RTL sources (GetVESAInfo,
GetVESAModeInfo). The found information should be kept in (copied to) global
structure to allow finding mode number when switching to this mode.

- Add call to this new function to unit initialization (after SetVideoDriver
call).

- Provide new DoSetVESAMode function which can find the requested mode in the
list of all available VESA modes (kept from GetVESAModes call), derive the
appropriate mode number from it and change to this video mode using function
4F02h on interrupt 10h (see SetVESAMode in vesa.inc).

- Change SysSetVideoMode to call DoSetVESAMode for video modes placed in
SysVMD with index 5 and above.

I don't have time to do that myself, but I'm willing to assist anybody in
resolving encountered problems etc. (you can contact me directly).


Tomas


___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel


[fpc-devel] (no subject)

2004-11-06 Thread rstar
the new directory structure has broken something!?
D:\Lazarusmake
process_begin: CreateProcess((null), ppc386.exe -iVSPTPSOTO, ...) failed.
process_begin: CreateProcess((null), ppc386.exe -iSP, ...) failed.
process_begin: CreateProcess((null), ppc386.exe -iTP, ...) failed.
process_begin: CreateProcess((null), ppc386.exe -iSO, ...) failed.
process_begin: CreateProcess((null), ppc386.exe -iTO, ...) failed.
makefile:154: *** The Makefile doesn't support target , please run 
fpcmake first.  Stop.
D:\Lazarus




___
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2004-11-06 Thread Peter Vreman
 the new directory structure has broken something!?

 D:\Lazarusmake
 process_begin: CreateProcess((null), ppc386.exe -iVSPTPSOTO, ...) failed.
 process_begin: CreateProcess((null), ppc386.exe -iSP, ...) failed.
 process_begin: CreateProcess((null), ppc386.exe -iTP, ...) failed.
 process_begin: CreateProcess((null), ppc386.exe -iSO, ...) failed.
 process_begin: CreateProcess((null), ppc386.exe -iTO, ...) failed.
 makefile:154: *** The Makefile doesn't support target , please run
 fpcmake first.  Stop.
 D:\Lazarus

The lazarus Makefiles aren't updated. So there is something wrong in your
setup




___
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel] (no subject)

2004-11-06 Thread Darren Reynolds
[EMAIL PROTECTED] wrote:
I got the latest lazarus and fpc snap. The message comes since the new 
directories are being introduces
e.g.  win32 -- i386-win32
just noticed this dir change myself, i'm assuming that it should be ok 
to copy the non-updated files from the old bin dir to the new one?

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.279 / Virus Database: 264.12.7 - Release Date: 01/11/2004
___
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel](no subject)

2004-01-06 Thread Michael Van Canneyt


On Tue, 6 Jan 2004 [EMAIL PROTECTED] wrote:



 Why is there no daily binary snapshot at

 ftp://ftp.freepascal.org/pub/fpc/snapshot/v11/win32-i386/ ???

 Latest files are marked with 14/12/03.

It probably means that the build fails for some reason.

Michael.

___
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel


[fpc-devel](no subject)

2004-01-05 Thread rstar


Why is there no daily binary snapshot at

ftp://ftp.freepascal.org/pub/fpc/snapshot/v11/win32-i386/ ???

Latest files are marked with 14/12/03.



___
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel


Re: [fpc-devel](no subject)

2003-04-06 Thread Sebastian Günther
Am Fre, 2003-04-04 um 09.40 schrieb Jeff Pohlmeyer:
 Patch for /fpc/fcl/passrc/pscanner.pp 
 so it will recognize '', '', and ''
 
 - Not sure why these were omitted, maybe it has 
 something to do with fpdoc's tag generation?

No, as Michael said, it's just because until now it only scans
interfaces; and at the moment I only implement what I need. But I think
these units will evolve and improve a lot over time. Thanks for the
patch for now...
(In the future, the scanner will recognise more symbols, and will be
much faster as well.)


- Sebastian

___
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel


[fpc-devel](no subject)

2003-04-03 Thread Jeff Pohlmeyer
Patch for /fpc/fcl/passrc/pscanner.pp 
so it will recognize '', '', and ''

- Not sure why these were omitted, maybe it has 
something to do with fpdoc's tag generation?

[PATCH]

--- pscanner.oldThu Mar 27 10:32:48 2003
+++ pscanner.newThu Apr  3 23:48:57 2003
@@ -51,7 +51,9 @@
 tkDivision,// '/'
 tkColon,   // ':'
 tkSemicolon,   // ';'
+tkLessThan, // ''
 tkEqual,   // '='
+tkGreaterThan,  // ''
 tkAt,  // '@'
 tkSquaredBraceOpen,// '['
 tkSquaredBraceClose,// ']'
@@ -59,6 +61,7 @@
 // Two-character tokens
 tkDotDot,  // '..'
 tkAssign,  // ':='
+tkNotEqual, // ''
 // Reserved words
 tkabsolute,
 tkand,
@@ -230,13 +233,16 @@
 '/',
 ':',
 ';',
+'',
 '=',
+'',
 '@',
 '[',
 ']',
 '^',
 '..',
 ':=',
+'',
 // Reserved words
 'absolute',
 'and',
@@ -726,10 +732,25 @@
 Inc(TokenStr);
 Result := tkSemicolon;
   end;
+'':
+  begin
+Inc(TokenStr);
+   if TokenStr[0] = '' then
+   begin
+ Inc(TokenStr);
+ Result := tkNotEqual;
+   end else
+  Result := tkLessThan;
+  end;
 '=':
   begin
 Inc(TokenStr);
 Result := tkEqual;
+  end;
+'':
+  begin
+Inc(TokenStr);
+Result := tkGreaterThan;
   end;
 '@':
   begin


[/PATCH]

Hoping to use this unit in a little project I am working on...

Thanks,
 - Jeff

__
Do you Yahoo!?
Yahoo! Tax Center - File online, calculators, forms, and more
http://tax.yahoo.com
___
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel