Bugs with integer() in packed records_(re)

Mon, 21 Jul 1997 16:58:53 +0200 (MET DST)


According to Frank Heckenbach:
> 
> I found some bugs with the new integer() types in packed records.

Fixed.

The uuencoded gzipped diff below should also fix some other bugs.

Greetings,

    Peter

 Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer
peter.gerwinski@uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201]
 maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

8< ---- gpc-970719-970721.diff.gz.uu -----------------------------------------

begin 644 gpc-970719-970721.diff.gz
M'XL(`,EQTS,"`^Q<>7/;1K+_F_P4LXHW)D60(GA((K6.+5.4(Z]$ZHETG%0V
M!8/`D$0$`E@<.M;V=W_=/8.+ARPYM?5*]:@XQ-5S]73_^I@!>G/=F?&`35V?
MS3R#37UW@2?5SD']0.W4BL6>I+`<-K5L.+EW(V;H#O.YX3I!Z$=&R&ZM<,[>
M6H'K*(R'^BQ0V$*_YI8S=96B[IALS']E<_V&LPGG#G,75AARL\;8R%UPYDY9
M..19^I`P?Z,@I!-[HN3R+)-RYDA(3/4/I3_379&T--3GT.1
MI2JA!G['C2@455@!UK&`CA6+C%%7V?CXW8AAAYEY8['JE%W`72Q=LYQB$4:/
M=9L6C#IT_7MLX-UECP5NY!LFC,6=53B\4IY\1)*R2RJ6O;[BW>H":8CE/M16&M.)YSG&5'7_"E%J$+
MT"ATLHAE6-5GU0]-5AVPZAW;K;GB8+LS>6V;>!+S$\]!.Y_'A#./^U-Q2;,H;M=>OT[/XDIK>G1'IZ^-
M&L[$KKR_6YN'"UOTE^8?3T)7-)<\.QN,QL?GYWAZ>OG/F^#=X`.>!QXW`C$,
MGX8C>XZG?ACD!X(WY'#C`<3C,#Q/GJIXM*T)]3C#("HQ^=U2C#^JU/5Y]D&8
MO0!9"'T(Q$/JL3P-]85'=84+V2/N[,HG,_Z[6FW](>HS
M[,BDX;VN5(C`$/TT#(/Z+;O/G7]'EN##U';UL#873,Y>+"([M&!\HD$XV17#
MC!P3>(5L%,RZ@WFBHVT!9,0]MD)>XW>>F)N)?BU.@EO!/<.H-FH'M0;\)Z0^
MU8\];^_XP_CGX=4(;Z97Q6JUNI:L,)Y'[#W@"U-97>W6Z_"/J4!5K%0J^3H*
MH\AA[R.;-9"BVVYW&_MPTCDHOGG#JG6ESBJJTFBP-V^*E2L^LX*0^X@B/=>[
M]ZW9/!0@C")UJ0>&;AYPIUAAS/`YX2>@B81`
M?F=P#U7>!7RPL7D3P!A47T'ZB1[`M2M0[ETO!K8:UG[)L:OON`\H$5Q;V>J1
M9XYK\J!F\JDB\(1:`[P4PKC'%W=[BL`Z:AJ>F*ZQA[640G?&H8PO[`?PN?I>
MU[VR(.=W(7<"ZX8#!BY<`!HK.Q[`?AJY+,-N8))`=MC/W/K3S/,`@:=J@Q4#
MC5>RL*XPO%M--$->2^6@X6`]RR-BI1PO\T,M+W%APUB)IT`+:+"'/=H58\9+
M4=DNL?[8!K/U)_O%M=WKN7N39[U5G>O!O&8HZ?E<5&-8OF'SZB2:XM,E9F(E
M"3_A)`)>&+(UF^D1C,H/8@G1)RX8;;+<>A!8,T=8.,N',4NY12'V=+"Y:&PJ
MTRB,0/D-Z36@F4PD.C9=IS[G8/FGX2T:O:D+6J_C%+#2Z>BT7-L:E:U1>5Y&
M1?C(YR";PB0DUZN&)7F4M1?U1K?>[#:EO4A-2TI\X4IBE:G[W<9!MZZFQD55
MFFA[2UA6DT^N.H?GUST:Z=GYWWM_/BWX8#+LQLY[3$M2",XH"FL7
MA0Y$-]2`7`-%-:Y+Y2[YK*!_W"%G%T,`!`7VZ77W9;:6\!Y$[!IKH7A`,S0#
M@`R%P+C[KN@D$&LPSFGD&*C&FFY@V*(M]/L)SXR^2PWK&":P
M3V^FKON2V3>Z'D.T"+$\"$P53HPA!.
MK3LA*9-H%L23`W&AC1,C1BX*:*85&#X@A*,+`9"C`(R`"#,@V*.VA2@"`H,P
MVC92T@`];=#_V*5H%`'\$W#L):MBU+4@JSGALN\D/28W[",&IA,-[`Y@)'24
MVR8,1_<=BM8<&`KW?6#X`F/+F90'+`@2K5T[[JT#?`JP`ZBM6&W`=BZX><5U
M>X<&OW/NHE4.Z4X\>.P?N$<0UH?(`V!0Y&F1(XR]AM5@E1CM^Q!+
M?02FNO8-1RT%_IB:G&[13S,R9+RJ+W345QUDQMPZ%5NGXGDY%6M,K/`*5A^L
MNAFK-.1"7.@^:[28V@(][%*@FO,WUI3*1[50JME)'8^VJJ@M5L'#/OH>K&!4
M/5^?+?2:@6I;K#9KV309N_4Q\>>(-"/`*UE(=DRI+])9;X\%T23)--78V`4#
M@X8V+)(P1BB?(L;"`>\R2D\!"0'[W(UL#&N9Z;N>AQG&8SMPE8SN&K#'V3+(76&LV
MC-SBYQ8_GQ=^8BPB<0U/5S$2[Q;&$6?'GH\)OD8=\4T]7$9%HLL&8&JW>=!M
M9[)[346MLTI3:=8)!8O@YZ$.$&P@(DQP24+F0.+%"WIPZ_J@,J!P&$OX+.#@
M\B!<5-G9P@-7'F"/Z!86>)S@!?8QC8.K#+(RX(WKAWO6`@]LRG5,OJ#O564C
MCP-=Y&$GR-4K5BYMW4F6>H!U*M`M_R%=E9T"F&*J#9UD`6L02TQXJ,<"7Q-T
ME]R?ZQZ$.J@.;V$PZ&4&80104?IT3!'$2X5]\MP`#K5:K4S>R,:&,UQ8",(ZQQTUXFURTRP'"N$N,*">(E(*G^9>]C*_T10)>7(+!,J
MPE,_[L&E#'FX#+7BZ`4"REE$S6+Z+)!,ZMD02_'X:CCY$^S"GH$WV1FZK1`F
MX=,MP&X!]ED!;-8]D%"9\QA6`#?[M("QH0@,R1UM=ELKP)NGSSFB\*]^F,V`
MM3$#UD;XK>[MLAZ5!+"93@%6?1<7?F6Z@A8X`)>+5<;2Q1=6ZI49@Q!U*3E]
MFB2G%5!63),_7'MV^6:E?HJ!O]4``,P8T9;T&XZ@H&$^C8XT6[#8@L6S`HML
M$EBJ=_;6*EADGZZ"17L%+'+T&6\-UVP;W68K`Q;M5I/BUO@$?3;YM[L7GUK@
MPI0HM75Q-A!)+5;";%@Y(<:_'W]DXZM^7^L-3^#Y6OHR>_4*1'C_TGHC
MB-8+F8(?!J.S=X/^25PY/82_UU@$R;7S<99(8>L;20IV,P4?H!?Y;NQ&:6T_
M*K*ZIWS?0/GEXJLY_PCF+]YV&O;45B8*YL?^,8B
M&5Y]>QJ^ITO9PH_N4X;1(M]/69Q=SUU`Z@[
MN&"[UK=%1:/@$V)'L?)#KF-`JSO)ZAMYHKUTF^0:5U?M'!XJV$:#?IOTVZ+?
M]C==X`=JJY*/^Q=)9XD2\.R&CW_&M]5@1/WTL6B3T*^YM-A9N
M-]K[R@&KT+%5SWJW&1\KXSJ1[4=/Z7*(OM*5ALX!N@$%Z8VEI&Y">]4_/B="
M(EOUQU8)R46E?0/L5;S/0M`IC&Z#/U$I?":G)7$?1&7B\;(SE_&=AE>D#&#NR8/;2Y34T=HE)/:XB>OVN'L.'"9![,)X059ODV5S
M20\29UN&%>*N@9"2K+>T1=XW+0>WS.$R?BU3@'839O\>"%0J;/7O>P*6K!_Y
M.%?U(7^59O/;T<-ZQ_7!PN6U0]X<4:SCSW=&%LO=?CR7GNS8"VU86]&CG'Q1
M?BVS8L'=X/*S*FA`Y!BXNPO=_USYK[2?)*.[2R-G?WNU''31I=!#V:FLHE+W
M+Z_ZO;/1V7"0K67IP6HUFY18O!?AQ(845S9N76&1`H7QVBRK:92=GW'P0JH_
ML9XN%1(O1"CQP_6U.3T;HZ03ME4:67;83Q2*$L3\`..#\7$<<-<
M,/LY'G2,X%J\)PO;Q2`XD;`>58S>MUCEL6YXM8<;Y,#E[&]*QV#.*FGW9$#AT?RUE<<
M8QRM9P<9,]UP<2L$+RI)?&?DUTN:WSQ^-GC
M//&$.KLIH-%5][NM]N:X_8+VZ+`@\FBYN:2;IH5SA>ZD7$(J+Z\A?><:U7]S
MY0F'UC@@C,)##%%!4+OF]V!(ZDE6$&]/<;<49Z4?`["O@?4?#O65@@"\$!6N
MA0LA-CJ7TIW."65Z2^`:KO1KP*L)-\$V.JS"U'JC53Z"GO\`J`\L9)=7PUY_
M--(&X+N5'`7M"C#M7P1DD65J'G0QX*$&YU`%/`4#"14`!6WDJ!_@P)KU0SDP
M`G]W.M7`/_>.T@O?>VK7T5):"^BYAOP%(`>],ZXU'!(WRTNF!J0[1P$,7"T+
M%6]Q>8O+SPJ7XXV*$DO3/9#+F!P_>0PBKZ/%/0('W4;CT7C\3>05"=).&_[?
M5[X;AEO5[2Z`K?K_?U5_N3E9ZFVRY7E9^>6#Q^A^3)IUQ=K=]B&^:)*H?JL-
MX2?8=3HVQ8)_(4TT7!Z/>C(AJ(UZ/_($\@4^:Z19IEH]`L%#+&_,'#T\(TAS05%T4/7AYN%S^S%/RR,V7["^H((
M1`("T^3-)[$+O02.R==OO1Y%SREM6J`8=)1]R^IVSO'=(_'2%GXG`]\ZI*SGU-9GVNU<
M#S5/[.C\D;W53C31!B4+ZN6T"$MB[=).1!M"Y=REQ.
M1BJR`M(L9XE)1))\BI`5R1&1$RI-928."B;EOHH3RK*L\N"[>PX2<S+[&B>#;"DM\5=
MOGW?[XUSM2U57,X9]TP'X&&20$9ME#GJ5OM`,*33B'<#YN0PY`OO*+[W-3,)
M57$K_P(P*Q'_E#CO#[*OX=L`K)2PAZ0V%=ME3<'VDFE=KC:+B_F_1[>W,C&K
M?%D&7\&"AP$Z,_M9?13(^DB94J1,B7DY/%14%2:FW:S'"!MS+)DA,("8TD<[
MJ`7A(I0#DRM>+_;+Y:.4V',]F]]P8&8=%")G+>0@7OPC)+/0?OJ$4\BXYL^8
MZY:#*OR-"8(?ZFVJ3YG.?)^HL(?^GMJO_ROI28%IXFGO^N.+_@4)DFZ$$0`>
M!``@.OA">8)(V[!X&Q8_L[`8;O%@+R534[*'GJ\+G3>0TIN.[R&@!B15#[K-
M>K?17@VF-Q7.?W^F?M!5LRL=9#_I%S'ZT1\8Q'?IL/]I:]ARS:CA=TVHOR/N
M,;7!&DUH3VZ*;!>KU.'E0DOC:W2Z]48ROG7T2T/:3S(&#,>T7ZY$S]-7$C^/T/]DHNE"!G&@?I2N[GG3?&CB)0;8>$D[XY9OS]
ML^X$5O>P\Y7]_;/C!B&PT-C%BQ[^W.#/,5V?T>\E_)S]:Y6!TFF.F1@/$IER
MV&VWNHW##4Q,"CZ!D6F9AYG9ZBB'K`*_,(62#VA$IJZ_6/8",5**[U_U3_M7
M_4&OGUV,CA>V5S'%Y
MWO]UI2EE=0K,R1U]2T6*,7Y!$+D)"M/$+S>I]0TS$)=[P@0D11[F?Z?>06'&
M@_A(U-)^CJD'86<(,Z('"[2&"MLYJJI'.Y*/:E,E!:<#E880:QB%H,00-28Q
MI@@BD34UAA$I*C\%:_A^,VXXN.=W.%N(ZA5D4>`
M$-SG/*4W?&&$CGM;6^4W3D/,;?&BD,,:'93WQK[$J?U5;HM23^"U++#*Z<,,
MIQMUE5A-QX/#-;S6)[3Z*UG;.B09%0=)+`4/T02_[(/?F0#?[HZ57`]\5M=3
M%6;0PF7\,1Y/P>_X<425`OE.I1)>HPJ]/?\GGI97N0:P;%9IEU>6=P2X^[BK
M%'G7V""IV;)/X&"NV,-\;!YVQ$HL'M7#K/[.7)2S('`-2P]QTY#(QXC],I6E
M;3.4!47='7X8G)#R=I.*0(@_XB=N/6[J#N"Z`M)+.=V(/IB8)-9DWM3A%GV_
M,3@::V_/QB/M$OR>CVV9Z>GJ^[C[7NVZ63AYH
M:?&],1Q3^D-29?:-U%BOW@7RCTRQBY.#E,'KR/S1)'+D!:ZM0%3+$.28KZ6/
MKZ*I^?&5<,*:P<2*IZ^L,[D=*GJZH"_S].I:6)"'R"R#TUG"JH'BL@ZZO?9!
MB6HP[;90#;;)!HNBTR�O]HM8+IC\/S%-.50%<_G!X_G![_*J<'IR<3SX/)
M=Y9W9_#G3P$"R),Y',#;,%'N_B%M"_*3%A,CH"UX^_Z6LW1#O7LV("Q'Y/"&
M(8ATDG1FX<2=YG0RK^XTU![?P.$$&TT$#J#\3*)-9[N0"13Q91&BADA1)]=$
MA?HC4E^.+\BM:I*ZQO8V!(KNU_[@Y**O-2)P\+@.![@1T*,]8\(]BQTBI/\F
M=CR"W\64EO6.H`W2K&X,29#F\^(#=E;YE"Q0#D!!48PX&A-/T5A+?D%4;!D,
M]S(O@9?ZUEC>4?HEJYEI]>$#CS\:L]>19%-"UL._]4D
M(PPA)5+6*HSNBN:+!Q,Q?A[?]^Q,VZHE96-VIK3?OP)9M:L^+69?HID"U'KE
MWZX^$^JE/HYF8]VD6M!Z0..B"=35,+HYQ=J=&UJZM4WLAM:U[^Y;TL(5TMC$
MP2<#(G`IIT%(E3!35R>F>%(V.X$X04L3>O=)910[%+0.1,(4>D>.X!`[D?=Z
M0H"20D]S/1Z[_OH]16&.>
M7V!/ZHP3G6.1F3SFM!'^P4R\],CY_*`WR\/<,M'<-&Q6?'FQ::G!Q"X1VW^Y
M7QIU<"=D=*^6!][B'7<>VJCN49K$"VU?05-BZW8YZ%4E22=)&E>,P4(UN^#?
MX=R3\?5UD2PLNEZF(X\!!.8'.<^?XM2?W[-8G@Q8ZG=\TG
M+);>UH"21*1(6T[P@24O^>V\FK)>V1\[)?3MISYVX
M/6I6\-\G;G_^WLZRY$8L$@S2-!E_B`(!/!]DT5=S:.OL0FY]<`$
MM(MV.W0/U^D>&C\DX]]4@ZU*O=(0TSR7^G%T:AKKHUET%=N<@:RGFM+44!AD
M&)(I5C(7YB&/)6??SS6UMC)GBMHK,L<)\(\QLW:U%%I@(V*K-H;55S92UZ*3
MY]4=XS5D^709'MU]>U!_4X)D)&$+A54HGT0C%[2SX;QGQ^LPH-+`C=TB'H]\+OR>
MZVLI;?S'DOAXW#]7N]%=A$.$60MO.G09>]@R8PV03:'M.$APJ\>JAH^UYBJ`
ME5"RD'6=5Q]^!]@T.VGDC'A!HBV74H(+SL"H_&E1J566L2^5-6J
M%N_-Y^@1*@2^`0=UDL/O;*F/N(GN9OZ@S\A3HC>YCQY(D?%P'^ZWZZVW&.]V
MI]YJ6^4G`?PRYLHE/>#(=77E+"[9&'$2X!HH8W7YP)GNX?V;N\8Q/HNG
M&-F,?4TTW2L&'4C,"+5:S7[XB%\>O<0@)G_?(LNX
M0I"9K508Q])4%F^G%)2%2UI1A`D$Q@[]\:Y&5R\!!%=2L8BZ.6RW",39.3SP
M,T`$!U9SBI9UW*"3),9/DDHP0JU\*+7XF0D8H64`9H>V+C!@V$XP#$;H@QY@Z
MX0M1Z*^%>.6`F[#E9)MARA8RO%$0J;`W4C:7,;T0)'(/9P:NSK]FR=C8$]1-
MX0OF7@ES6*M3UI.F[!)6+D4L*+M&O.M!ZHAIOP*N"7YRJ5-'R@S]&2C4('#G*T>%IV.6=_Y_!--XS>H!ASK!6A
MFZ1-2.NX1\Z(/F)+G2W]T#``&._0.";%?>[D2'
M&23`8N1#LR1?KK7!G0\G'$\(#SY3^Z!+^;7Q.7I*B_C+\9E70LN5S\*:6L(,/"L,>?;0I3;J_[*.7(*EMUM4Q[5VT.[H7[K>
MU#D>#-Y?#`E<7DFUP)97MRM;M*1ZJ/"D1D\-EIW6U7HM5=D_['U@O,:A2I*=@[4#6QW+EZWZ?A`SSI>-CCJ9YN^&9$37<)
MUDDI"H#FKU.C-*,5PGVZ@N$1&VAE=LPUZ3W!4X[%('.\G3R+CGL%FY@!=X$C
M_C:?BH$5AYXB#EY/#X_UBOZ*Z_3K._B9R,B6-Q5=D%Q;+1Z1@4`5*3@P1,_/
MQ80W**U5$7!DF]'5_'V"*KWQ0FYE)@0SU6?-6TT%E4(2E)C`F5R_.3['T8\)
MU59TT<;^Z][B?T;OGCX*M,*,Y'>DH'\X#U;*D+07;(.N:G11UA*PA'6&^)SV
MH3VQ@.Q=-O=#I/A(:T?+PCMSC]F=(!RKT)2(%IA*#9I*5,\=C@]MA7T^'_7/
M^\/1\&-_$,IZ^_9ETEJFE/%CA*'C=W([DO^=E^SI4;0`(ZY>OQ7(52=G;^5+
M!>I-]W<@M1>5^HM)AK!#SG?FQJC^XL6^O_L64)"*@AZ5,E*;*%&I%Q3FTH3H
MAMIOK*AY;?VK2.-QMD1\T4KK3:\AS8G_,AJUS:)@,FHM&;7C&[[`NKSG`LU:
ML?64VZAW*3W=73R9H/Y--;"G"C@8C6B-P8P*%UM]_T>RF!\(D7\70B1`"!+(
M(_@DCQ4)`86Y@A'=WNMV"!A9BS]L]3I^XAB@^$(TWU/`?%MB^0(H7YC%\)\$
?\MD4LMO`^+9#\175!'@ZAF\K")_:^3_)^'>RP88`````
`
end


Peter Gerwinski (peter@agnes.dida.physik.uni-essen.de)

HTML conversion by Lluís de Yzaguirre i Maura
Institut de Lingüística Aplicada - Universitat "Pompeu Fabra"
e-mail: de_yza@upf.es