From: Roga Danar <smithm.nojunk@stelnj.nojunk.com>
Subject: Constraint Error. Why?
Date: 1999/01/12
Date: 1999-01-12T19:54:50+00:00 [thread overview]
Message-ID: <369BB766.CB18AAD2@stelnj.nojunk.com> (raw)
The following code was compiled with Rational Apex Ada95 on WinNT.
Before you ask. Yes, I have run it through the debugger but it has been no
help
at all. It just tell me:
*****************************************
"Handle
=> Could not find start address of "x25.write_to_port".
=>
Cannot find frame for "x25.write_to_port" on call stack."
********************************************
Okay then. Why am I getting a contraint error when I check for null first?
Thanks in advance.
Code for the subroutine exactly as it is:
function Write_To_Port return Boolean is
--Host_Name
-- Port_Name : constant String :=
X25 : constant String := "\\\\GATEWAY_PC_15\\lcp1";
Com2 : constant String := "Com2";
Com3 : constant String := "Com3";
Com4 : constant String := "Com4";
Handle : Windows.Handle := null;
Null_Handle : Windows.Pvoid := null;
Null_Void : Windows.Void := null;
function "=" (L, R : Windows.Pvoid) return Boolean renames Windows."=";
function "=" (L, R : Windows.Void) return Boolean renames Windows."=";
Status : Boolean := False;
begin
Win_Show.Display ("Creating the file named: " & Com2);
Handle := Winbase.Createfile (
Com2,
V_Bits.Bit_Or
(Windows.Generic_Read,
Windows.Generic_Write),
0,
null,
Winbase.Open_Existing,
Winbase.File_Flag_Overlapped,
null);
--** Constriant Error on this line **
if Handle /= null and then Handle.all /= null then
--
if Handle.all.all /= Winbase.Invalid_Handle_Value then
Win_Show.Display ("Created file !!");
Status := True;
end if;
end if;
return Status;
exception
when E: others =>
Win_Show.Display
(" ** Somethin' BAD happened processing " & Com2 & " ** " &
Aen (E));
end Write_To_Port;
--
next reply other threads:[~1999-01-12 0:00 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-01-12 0:00 Roga Danar [this message]
1999-01-14 0:00 ` Constraint Error. Why? Corey Ashford
1999-01-14 0:00 ` Roga Danar
1999-01-15 0:00 ` Corey Ashford
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox