ASort() error

[StefanHaupt]

Hi,

with harbour I get a strange compiler error in this line

Code: Select all  Expand view

aPair :=   { {"Sun",8}, {"Mon",1}, {"Tue",57}, {"Wed",-6} }
ASORT( aPair,,, {| x, y | x[2] < y[2] } ) // syntax error at "["

with xHarbour it´s compiling fine.

Does anyone has an idea why it does not compile with harbour ?

[anserkk]

Your code is working fine here with Harbour and xHarbour

Code: Select all  Expand view

#Include "FiveWin.ch"
Function Main()
  Local aPair
  aPair :=   { {"Sun",8}, {"Mon",1}, {"Tue",57}, {"Wed",-6} }
  ASORT( aPair,,, {| x, y | x[2] < y[2] } ) // syntax error at "["
  ? "Completed"
Return NIL

Anser

[ADutheil]

Compiled without problem with HARBOUR:

Version: Harbour 3.2.0dev (Rev. 18819)
Compiler: Microsoft Visual C++ 16.0.30319 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3
ChangeLog last entry: 2013-02-03 12:59 UTC+0100 Viktor Szakats

[hmpaquito]

Stephan,

Perhaps is waste hidden characters from your code editor. Delete line and retyped function.

Regards

[StefanHaupt]

thanks for all hints, finally I found it

I had a wrong #translate direction in my code. Because harbour does not support the new bit operators (bit or: <x> | <y> ) I tried to simulate it with

Code: Select all  Expand view

#translate <x> | <y>  =>  HB_BITOR( <x>, <y> )

but this failed in codeblocks