this w32 program compiles ok with w32 release, but gives error message with latest snapshot...! Why?

<<SIMP.ZIP>>
c:\pas>pas simp
win32/snap(s) c:\ppw\bin\ppc386 (20/09/00 02:07 258560)-- rtl path in .cfg is -FuC:\PPw\RTL\win32
Free Pascal Compiler version 1.1 [2000/09/20] for i386 Copyright (c) 1993-2000 by Florian Klaempfl
Target OS: Win32 for i386
Compiling simp.pp
simp.pp(27,5) Fatal: Syntax error, BEGIN expected but OUT found

c:\pas>pas simp
win32/rel(s) c:\ppwr\bin\ppc386 (10/07/00 15:45 245760)-- rtl path in .cfg is -FuC:\PPwr\RTL\win32
Free Pascal Compiler version 1.00 [2000/07/10] for i386 Copyright (c) 1993-2000 by Florian Klaempfl
Target OS: Win32 for i386
Compiling simp.pp
Linking simp.exe
670 Lines compiled, 2.9 sec

begin 600 SIMP.ZIP
M4$L#!!0````(`/B,-"F#T06+'!(``/,V```'````4TE-4"Y04.T[[6[;N+*_ M;X"\PQ1HCZ68R4JVD^W*5=LT2<\&R+9%TWL*W&X0R!(=*Y$H5:03IT$?];S+ MY9"41,G.WIZ]V!_W(TEM:<@9#F?(^2+[\/2W]\<G<'QR]N'7T^_;6P]/%[OR MZ]\YY?`Y94EQQTE2\.GV5EPP+@"VMT#]Y-'JLJR*F(>^YTUKZ&PYY^FW<+3C M>Z.)^FB:N(@J$27ATXF'/PT\CB0&#?V#\?.V<UPN1;@_]KV??_[9!I:TBA$N ';@7S3XEQZ89QK^>P\>%Z8AZ#4D
MA=`->[V&,M;P9Q8\2X7(:#C:QPF)^Y+"++V*PJBJHOLO_M[>`4KK`HJYHM"@ M;6_=1A5PPGV":B!Q7A(>W9(DY251\DMSV4+5<QIP4:7LRF"OR#V!2OCX,2*5 M2(@@\JV,B43R"2+KSU'`)5:&H^)H3/9`<)0HJF4L'V)!KDE<+))^R. ML(JPF+!;PN:D#+*"7:5,F+'GQ5*0N1QZ/B+S<2#HJFF9!3!/,]J;*O:/LDRA MI147!**E*$@>L664$2A83$F\H/'-94YS`HS>^1#,BB*C$3,DRC3A07(G16\` ""B-M&UY`$H[T%5/=YY+3A69/.4H0]$\E19S
M*-0S<@,!G'@H+E.6F*=25'+&E[%8PWO[3H+.;57'"]G5#^)%
M5!D(6^8]E:3\&ZV*GLQ$(?J:RWH`EJ6,\AY0*JCT23GJKKB93V8C,AN3V83, M]GM#%27YNDSC&Y(4E[-($'[/XEX75*W\5\:$2=7WAHP7HM>="[\[OL3EMM9& @-'>T!99>X(YOMK>VM^9+%(BT8Q,C&I23L<,."V[*"^K[N
M"\QB=49EP_:6!(@_]*4V(*/L2BP<[D)2-#VWM](Y./C+OUQ?P,L0 M;1I$+-&`%R$:,W!!TE&`$&V5?!<+RD`/Q/TAMDR53=G>,P_L,6WA MS41%FE^*XI+3F#O-'%QK<CA9^9-PLN`DYX3+OTE7%FC^?)*-238BV80D9$%R M8J^H9IH/WZ(2TBRC5U'&OTO.)Y:(LE%/1CX*"1ITE)@,P(M(B M4Q`M1$M*M5;DD'PRU)T:B>C/A^VMNRH5U!E(L80#.5$RV,6O+_X%?HXN",BO ML7K95Y\'<!W-<%%<0=YQ.XA`-RMG$`9)3BI)><!!=LO&0>@]-NF) MFK2.A/S7K)QHB(+4J*GA?(O\&0H_O5S:-NLVEK)\DG9HY0
M3R"37<N"HR^4#0A,>!#&17DO&2-2QY-=7T%I1B4%`T/(.N;<E1 MF>KQ-LJ<A).$9*HWOBXX65BO.2>Y]8H+V;PV(I$$D(V%_LKUE^R(JR#13;I% M-UB2L_91$#K)SOC`\W9&DZ')U\R-UILSD?)`*J'1'4RNGLRI2S93YS M>*!<%C3>U^UYG5GM[\SBGDEQ?"EQ66L*DA5P9B]#%2V9[3%[H5Y_<<&U#,+; M>,)&XKBV7SI2D6227J7HP0Y5H//4V]M[^O8"WL_A
M:"'Y"V'@>_'+XY.CYYB[O]'[(I-325_5QI>V*3?Z-GU+090P'P MMI#(N&D^%9*QXP)AIO.#"8QJ#/,PU%Q^B>!0"N"IYWEO+[36L/<IX[02SGH7 M4A,BX.OEAMVC(()OA^PG0P(CLNZ*H9<7L+&^!!PHQR'RH:96AM*8$< M-=[HNA+=\$P93\)]SPM,K&.4>T4%XCMM!^1*HF/L[NTXBYT#3_X-<@Q] M;X?KL'[-[+-".3=6M"NK8]+YFC<#J!.`"B0>X6WL"X9<$')K+&M-O5]6)VR9 MFTSD*,JR-U%\XWQ:T%\_OSL.\&,*<(T+N)))884Z"KLJAJEW0. M$'1"I*,^X,/I,01P_/G]Q^,:<MR'O()>_1BS)J(3_>OCN^.RD M#IXDX&V:U1'FNV7^D49)?QCY_J&0W-.JI?=&`N7\WQ1%5L==Y)K<D, M1K\VNQRL?7#*8L=$E+Z6_?D7[P*"$(X6E0-GA2/__DZ%EO(GNA*'M80)O#Y' M%P:C_7W7U1M?2FPC^E$6<?XNRJF-?;';0127%\:$J8LKY:6(1D,IH MMU!'P"&\+RDS.,Z'C^^/3L[/+P_/SBX/C_"1P-O#L_,3`H:$)G`ZQU'/(BY. MJJJH0D^[.GB`TT$.28'&1"Q2#F54";BKI(3A%"';Q=N;
M6Y2:YF?T#!FSAW8P:>+4.7=#\X3)FZM#C9;:&GGU8Y$V?KC4DT=G3&"`N15+ M=G>MY-+\7.NPH0-[`![=4K7810%75$`DS,PU58BNHI0]L>8,33(5RL]I!PQV M-\J2SG!'6<&IUIO3:%!S^9'(EA4%NA)5]+]OZQ*,>T=_
MO(&5]9?ZP'`04F:R%<BHD*/\A%Z:5J]LAZ!<=Y-W_('WCQ=U1FC6F01T_+]R M__'"SB?B19U-;'(+*9=L_>FAL^*.5FH[(!.NXD+2:[F(.EQ\ZW'1Y^._&?\@ M!3O^B;KQS[?NX`^X=8QJG!D5=Y0R55(`_\"#O^E'#\L8;<9)=#4,42(!#.MN M;)EEN,-9H?"*2N*H_6PK6`YUJ2FTHF:/..)^EKPAS\QU_!PO*D>.Z1+NJB1! M<I&_J%,$U=4:6$530%>IF)IMWF2K=PNLWJA<-+]X\1+)>;
MY*`Y2E^RE`_;?%,)1$B:V!QJBG5BUN5)6U\;UDE;S7#PH.Q)WZ9MLH\B+Q?* M'"J0<]`\DN>N98+_I,NRPR0Y:L-.[;$L=O74&GX^2Z5+
M)(23YX\&;A36$29<'QWBL(QMONA-_M9Q&F4)!B9Z;IM7SP5
M+6DD>L#?BEOJU/95SH+`9,T7:;L8PL?6X?]&\Z*Z;SV#PGP=1^0\_4:+N7-T MZ)+:[J[1:SFMGX9<H\716N=:1G57S,-(0P*2]!:P:*W`4N(S]*H#PI9Y98;^ MMWJ]7*M5VO?/UZ&_;^\;1,O85*VOOE/$(B$3:=8,_]*(>JBKZ+NZ,EX7"#J( MK0\+Z\+Z%%WZ7<K&(\NXR"Y2OJ]>O8)U&JJ:&H3S*..TSQC;L"&P$-6'/;80 M_H+E,$NOOEQ?$"T4^6ZM!V6&RZ7`TEP]9\!-H`MY:NJ9WRX0JX)RC<'/]=!H M>-=O+9.J]&(A)(3/5I;0-$I%R95:O;M2T4;O-\Q":
M];"&](/KJ*U7H)DP;(0#PG:M%2ZEQ2K))*=-;<K1GX3
MN$O%`D-)N$IO*0.GF./:%47IJE"4%?KDQ0!1L45UWW.%6+`%97#;.$H2;U_4 MF463J$Z5WT^O5&C0<Y9_4>CX5\:*CR;:_R/\S:/K72IP?84_8GK^"A/C7^`1 M0\>\V"D.*X+0WAAK@;!>EW^T*G^D=*)M13>`JY>N=4X0A&8;Z+`#=Y9D7G9" MMKE5(6>F5LP*K!%C[7.(P11.F%V80N:FT$8SA-&-,0UZ/%VOL6)@A6!OSW+Y MXV+X_XWY?WQC*H;_S,ZTUR#^?FC*!F<I-Z4E7A</-I6(S4DK,F'BG4]]P.D< MK!*D\WIS29*`/_;'G3J.K?Q->^M\&>.$G[3EFB;GZ560G,&G0D09?(XX#(@I MY0U`.]%!?4R,>-*(Y<W)WT_?X8,^N%0*LP\61YZ=CN$!Z)?KBR#< MQ7YH6_3;2+]Q]3;@]"563=WBKE8QE548Z58E5R+$IS5%,,2.F[ M+SU=W\"3VU`E>*JQ-(U:M>I,V*!]K=&VM_0AL8'?M7!U:JRAO(4J<2I*1C7- MB6+$>7K%''4?81`'OY>@],&JF-W*)LKW7]>E0
MTS)V\31Y0\/$Q86\#M]WS1GWM3MMCW:1>NCI,TO97#^R(L3DNC$!O:VOIZQ( M`ZTJ5;4CH&](2,P!,1"5_RBP2G0*=]JQ"5JWCR2]-4&=V8<#TI+L4$02*[,X M&I>E/1;VTUTP%;'.SC76/6+MKM`_+3F%Z%:74+`R^S=5<L5C#8Y`310BKD$B MRLOO:E1O;W_'J<1PY?[DZVM'VUME$'9.KY6*K4E*<3;SC,LEI&BSD2[.4<^+ MXWYK3F8D?!4<!#ZV)30340V]1ZB>2TU1+;@281W(JNV)]1=<!R]>>MU%NRX\ M=2%"B\_?(+\-4_771BY1,,%^,#)5+?F1<=KKI.Y*P=H\M.AB3`JLO;)IO:AE MY;E[>)&BE!J9;>@>Q=#;IR
M>Y#M(EY\[]F]_8/.+0&=8`;>@(2U&=U
M5L1#8#+R)L^?>WCR<:`N$>EIR:'WIW4098*VNNLUQFUF!=AL[MO665NE:W6L M;'A4Z]$N2$K$Y^JA,\S3B>>/]O>M8>Q!)O_J(#FZ=]7H7TB:$VN-.X.LB"., M`DE<,$&9X&UYK&;CN5O??D`V;BPVS-F&Z:^&N+D@(U>/L&F15&+4N)Y_V:X# MV`RHVUS(!"Z&&Z-_[%0?0VQ>@E=DYJX;+&^V%%;%X
M(3H73;!"CG<WIH`7MTS-4Y4=],9L^K4F"F^_89*-,\&KA9K$7DUB\&S0EBUT MN09T>I[A3D0L=<3@'WC_#/[I\#**J:;@*/%-T7:V"U4J7IU?R-U"? M'E:7'F`%^9(+F%'09Q/?^S.<23TY6K(A%IR5(S/O>"<C
MC:BF[/+`BBJ/,CGZ3$Y>#FJJ]]AY.+9&0G`-/ZCAOEEHLTE;&I,TYTO&[G7` MI97M05WKIU&\4`+$$<=K(QX\,J((T-S=G8)NFC:'!-
MK3>-'V_:?[SIY[II4^,OC^/Y?HMH>->JQWL*R']]B"`586ZFX*5(B:AET8&- MC!=^%&FR`6F_\3B2,XTV[J&--J!-ZK$>0WJ^`<GWVL$F!F_2PQL_-IA"DW+S M7*8?%SXO;\>WV28DDA"\)]?;8AG_S1M#-\IOW)@ZJ9S>D=E!6]38LE-R9H M"/,BRXH[-`X%HZ8HROWOT)C_F]T,#=_-,%,N`(DK/U@''V#.9^IRP; M@"J0WESL9FVJH%*,BR"4W^9DR(I)?+?.(>INW""
M$VS6).OWFI,F&A4=0&8XP71(?;67X_ICW2B29JJ]X);[^KO'M&O%S;4:;Z2D '[KW'0G]:BKO#<O0U:M1Y1K//3:G4JH`'C/:P*NC0%>-[PS
M\<B/!'CJ"1<:^MPT09>[M[>GDP+$6O/+NL]&M]R-3PV!'V$"PV[ENC!PA#G> MF5:'`E<4[XVS*+OG%)Q<2LD-500Z:D),?F&O&6TDPU5*]\0
M>;?,=<.JFLFPMVI<DXIQ>_J])*O.L#IK$$8[#O+1P7OW1M_I8#"+A+Y4KUR7 MNMZ1LGF!U]/A#B\5Z!31'W3PU9X(S1ZSPSXY+9U_][/I&U,P$*94T`TO%1W[ M<.4Q_66%!-U&&=8YKDFS=[71J3,C?'_9#9H4`]>U83)5"\V.07C$DN31"L?2 MN]P:T=KK$;ZH;6Y+PI+()J)P0\R==27(&V(3`VL8M\/TS<6C1.WM%?'?>9J7 @]/4_PO/_T]*'E(BTK=SFE\P5KH2?$.
M%>S&$<,J3ES12-`-'$:JTO5*E9_3ZM7`5!E&395!\C#\WK=(KVF\**"8SSN+ M4[=E193,1`X%&ZRG3/9RZZ)5-+?U'-6I3;W,FA?>K+EU`JUZS:W,_U+)%EFM M\76B"!'@X`CN4&[9TL:U9[(#%<NRUEZ=_5)!*ZVEXBLX*87BIU**A^C@ MX>OW];E(,@>FUJ9-J2I/PV6O\GR!?6F:)=_%(=UR@
MS?I<;]96;H-)6UO!\*STY;)])S,%F9U7OU)-WQWOX_9]02P$"%``4 M````"@``!P`````````!`"``````````4TE-4"Y0

`
end

'OUT' is apparently some kind of calling convention for which support was added in version 1.1 (and as such, 'out' is now a keyword). I don't know what it's used for.

Jonas

yup, thanks it's ok w/o out - suppose I should've guessed that out had become keyword... Don't remember this being announced - what is it? ... hope it's in new docs. BTW when will we get rel 1.01, with new docs?

yup, thanks it's ok w/o out - suppose I should've guessed that out had become keyword... Don't remember this being announced - what is it? ... hope it's in new docs. BTW when will we get rel 1.01, with new docs?

I don't know when 1.01 will be released, but I don't think it will include much changed docs. After all, 1.01 won't include this 'out' keyword and most other additions.

Jonas

Jonas Maebe wrote

'OUT' is apparently some kind of calling convention for which support was added in version 1.1 (and as such, 'out' is now a keyword). I don't know what it's used for.

OUT is used for COM support. It uses the same mechanism as VAR but no value is passed when calling the procedure, only the output is important. This has only consequences for ref. counted types as ansistrings and interfaces.

OUT is used for COM support. It uses the same mechanism as VAR but no value is passed when calling the procedure, only the output is important.

How does this work? AFAIK using VAR parameters, the address is passed, not the value.

Andras

Yes, but you removed the important sentence:
This has only consequences for ref. counted types as ansistrings and interfaces.

This means:

procedure p(out a : ansistring);
  begin
  end;
var
   ga : ansistring;

...

   p(ga);

...

Before calling p, the ref. count of ga is decreased (and if it is zero, the data is disposed). and ga is set to zero/nil.

The same happens for COM interfaces where this is necessary when you request an interface.

For other data types (if they don't contain a ref. counted type) there is _no_ difference to var calling conventions.