From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,869a3dfe4257254f
X-Google-Attributes: gid103376,public
From: Roga Danar <smithm.nojunk@stelnj.nojunk.com>
Subject: Re: Constraint Error. Why?
Date: 1999/01/14
Message-ID: <369E5053.5C5EF4A5@stelnj.nojunk.com>#1/1
X-Deja-AN: 432634361
Content-Transfer-Encoding: 7bit
References: <369BB766.CB18AAD2@stelnj.nojunk.com>
 <369DA73D.4E2CBB64@rocketmail.com>
To: Corey Ashford <yeroca@rocketmail.com>
Content-Type: text/plain; charset=us-ascii
X-Trace: news1.exit109.com 916341111 26720 208.225.73.22 (14 Jan 1999 19:11:51
 GMT)
Organization: AlphaSoft, Inc.
Mime-Version: 1.0
Reply-To: p1@alphasoft-inc.com
NNTP-Posting-Date: 14 Jan 1999 19:11:51 GMT
Newsgroups: comp.lang.ada
Date: 1999-01-14T19:11:51+00:00
List-Id: <comp.lang.ada>

Thanks for your reply.  I have fixed the problem by looking at an older example of
code of I had a similiar problem.

The exception *is* coming from the "if" statement and not the Createfile call.

Handle is an access to an access to an integer.

What (appearently) is happening here is that the pointer is NOT NULL when it is
check by the "if" statement but pointing to anything which I can validly
deference.

The problem is easily solved with a call to a function which converts the HANDLE
to an integer which I can then check against the "Invalid_Handle_Value".

Michael

Corey Ashford wrote:

> Assuming you purchased Apex, you ought to contact Rational's technical
> support
> with the problem(s) you are having with the product.  I'd suggest
> sending
> mail to support@rational.com.

I *have* been working with Rational for weeks now on problem like this one. Thanks
though.

>
>
> You might want to double check that the constraint_error is coming from
> that
> "if" statement instead of, say, the previous call to Winbase.Createfile.
>
> If it is the "if" statement, then I don't know what the problem is.  The
> source
> code looks correct.  If you are x86 assembler savvy, you might want to
> look at
> the disassembly of the "if" statement in the debugger to see if you can
> tell
> what's going wrong.
>
> Roga Danar wrote:
> >
> > 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."
> >
> > ********************************************
> [code deleted because my news server won't let post with so many quoted
> lines]

--