[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference turris::pascal

Title:DEC Pascal Notes
Notice:See note 1 for kits. Bug reports to CLT::DEC_PASCAL_BUGS
Moderator:TLE::REAGAN
Created:Sat Jan 25 1986
Last Modified:Tue Jun 03 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:2675
Total number of notes:13409

2665.0. "%descr passes wrong datatype in descriptor" by LNZALI::BACHNER (Mouse not found. Click OK to continue) Fri Mar 21 1997 12:27

DEC Pascal V5.5-54
OpenVMS VAX V7.0

When a program passes [byte] -128..127 or [word] -32768..32767 variables by
descriptor, the datatype in the descriptor is always set to longword integer.

The behaviour was correct with V5.1 of the compiler (I could not check other
versions in between yet).

Following are two sample source files which illustrate the problem.

Is it already a known problem or should I IPMT it ?

Thanks for your help,
Hans.

--------------------- sample main program -----------------------
[inherit("sys$library:starlet.pen")]
program siemens_main (output);

TYPE
    $byte = [byte] -128..127;
    $word = [word] -32768..32767;

var
  element : $byte;
  scaling : $word;

PROCEDURE  WRITEATTR ( DSC: DSC1$TYPE ); external;

    begin 
         writeattr ( %descr element );
         writeattr ( %descr scaling );

end.
--------------------- sample subprogram -----------------------
[inherit("sys$library:starlet.pen")]
module siemens_test (output);

TYPE
    $byte = [byte] -128..127;
    $word = [word] -32768..32767;

[GLOBAL]
PROCEDURE  WRITEATTR ( DSC: DSC1$TYPE );

BEGIN
   WITH DSC  DO
           BEGIN
	    writeln (dsc$b_dtype);

           { DSC$B_DTYPE is always 8 (longword integer), but should be
	     6 for the $byte argument and 7 for the $word argument)
           }

	  end{ with };
end;
end.
T.RTitleUserPersonal
Name
DateLines
2665.1TLE::REAGANAll of this chaos makes perfect senseFri Mar 21 1997 14:025
    This is new to me.  I'll move it to CLT::DEC_PASCAL_BUGS.  You don't
    need to IPMT it, posting here is sufficient.  How critical is this
    to your customer?
    
    				-John
2665.2LNZALI::BACHNERMouse not found. Click OK to continueFri Mar 21 1997 18:269
Oooops, sorry for posting this in the wrong conference.

How critical ... I don't know (yet), I'll find out on Monday. Do you have other
versions of Pascal between V5.1 and V5.5 installed nearby so I can tell him what
the latest usable version is for him ?  It could save me a few installations ;-)
If not, I'll certainly try it myself.

Thanks for your help,
Hans.
2665.3TLE::REAGANAll of this chaos makes perfect senseMon Mar 24 1997 12:294
    V5.4-46 would be the last usable version until I get the next network
    kit finished.
    
    				-John