Hi, the following code results in a error.
program compiler_bug_1;
{$mode objfpc}
var
a,b: integer;
c,d,e,f: boolean;
function Ok: boolean;
begin
result := ( a = b )
and c = d
and e = f;
end;
var
r: boolean;
begin
a := 1;
b := 2;
c := false;
d := true;
e := false;
f := true;
r := Ok;
end.
here is the output
Free Pascal Compiler version 1.1 [2003/07/11] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Linux for i386
Compiling tst.pas
tst.pas(15,2) Note: Local variable "r" is assigned but never used
tst.pas(11,7) Error: Asm: Duplicate label .L3
tst.pas(10,9) Error: Asm: Duplicate label .L4
tst.pas(25,1) Fatal: There were 2 errors compiling module, stopping
Regards.
Jesus Reyes A.
_________________________________________________________
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.
http://net.yahoo.com.mx
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
