"if b.0=1" funktioniert nicht

robert

Benutzer

Geschlecht: keine Angabe
Herkunft: Hildesheim / Deutschland
Beiträge: 249
Dabei seit: 04 / 2006

Betreff:

"if b.0=1" funktioniert nicht

· Gepostet: 09.08.2010 - 11:39 Uhr · #1

Hallo,
warum geht das nicht? Die Zuweisung "b.0 := 1" funktioniert. Ich glaube, dass der Vergleich auch schon mal funktionierte....

Code

program bla;

Device = mega128, VCC=5;

Import
  SysTick,
  SerPort;

From System import ;

Define
  ProcClock      = 16000000;       {Hertz}
  SysTick        = 10;             {msec}
  StackSize      = $0100, iData;
  FrameSize      = $0100, iData;
  {----------------------------------------------------------------------------}
  SerPort        = 57600, Stop2;    {Baud, StopBits|Parity}
  RxBuffer       = 8, iData;
  TxBuffer       = 8, iData;

Implementation

{$IDATA}

const

type

var
  b : byte;

begin
  EnableInts;
  b.0 := 1;
  WriteLn(SerOut, ByteToBin(b));
  if (b.0 = 1) then
    WriteLn(SerOut, 'Hier sollte er hin...  ' + ByteToBin(b));
  else
    WriteLn(SerOut, 'aber hier geht er hin! ' + ByteToBin(b));
  endif;
end bla.

Merlin

Administrator

Geschlecht:
Alter: 25
Beiträge: 1474
Dabei seit: 03 / 2005

Betreff:

Re: "if b.0=1" funktioniert nicht

· Gepostet: 09.08.2010 - 11:59 Uhr · #2

Hi Robert.

My prefered way of dealing with this is

Code

var
  b: byte;
  b0 [@b,0] : bit;

...

  if b0 then...

Cheers

Merlin.

robert

Benutzer

Geschlecht: keine Angabe
Herkunft: Hildesheim / Deutschland
Beiträge: 249
Dabei seit: 04 / 2006

Betreff:

Re: "if b.0=1" funktioniert nicht

· Gepostet: 09.08.2010 - 12:15 Uhr · #3

Hi Merlin,
yes, in most cases I make it like you. But sometimes, writing b.0 is easier. What do you do, if your var is located in the heap? In this case, you only know the adress at runtime.

If an expression like "if b.0 = 1" isn't allowed, the compiler should generate an error, but not wrong code!

robert

Merlin

Administrator

Geschlecht:
Alter: 25
Beiträge: 1474
Dabei seit: 03 / 2005

Betreff:

Re: "if b.0=1" funktioniert nicht

· Gepostet: 09.08.2010 - 12:23 Uhr · #4

Hi Robert.

Yes I agree that it should not generate wrong code.

To answer tour question about the heap (frame?) I have always used

if bit( b, 0) then
...

Regards

Merlin.

Administrator

Geschlecht:
Herkunft: Germany
Alter: 25
Homepage: e-lab.de
Beiträge: 5558
Dabei seit: 03 / 2002

Betreff:

Re: "if b.0=1" funktioniert nicht

· Gepostet: 09.08.2010 - 16:20 Uhr · #5

Hallo Robert,

der Ausdruck if b.x = gibt ein boolean (00/ff) zurück, ein compare mit "1" ergibt dehalb immer ein false.

rolf

robert

Benutzer

Geschlecht: keine Angabe
Herkunft: Hildesheim / Deutschland
Beiträge: 249
Dabei seit: 04 / 2006

Betreff:

Re: "if b.0=1" funktioniert nicht

· Gepostet: 09.08.2010 - 16:39 Uhr · #6

Hallo Rolf,
dann ist es klar. Ist nur etwas verwirrend, weil man ja auch 0 und 1 zuweisen kann, nicht nur true und false.

Gruß
Robert

Habe gerade noch einmal was ausprobiert:
var bool : boolean;
if bool = 1 then... Compiler meldet ganz brav einen Type Mismatch
if true = 1 then... Compiler ignoriert die unterschiedlichen Typen.

"if b.0=1" funktioniert nicht

Registrierte in diesem Topic