|
@@ -1979,6 +1979,8 @@ begin
|
|
writeln(space,' Range : ',getaint,' to ',getaint);
|
|
writeln(space,' Range : ',getaint,' to ',getaint);
|
|
write (space,' Options : ');
|
|
write (space,' Options : ');
|
|
readarraydefoptions;
|
|
readarraydefoptions;
|
|
|
|
+ readdefinitions('symbols');
|
|
|
|
+ readsymbols('symbols');
|
|
end;
|
|
end;
|
|
|
|
|
|
ibprocdef :
|
|
ibprocdef :
|
|
@@ -2076,6 +2078,12 @@ begin
|
|
readcommondef('WideString definition',defoptions);
|
|
readcommondef('WideString definition',defoptions);
|
|
writeln(space,' Length : ',getlongint);
|
|
writeln(space,' Length : ',getlongint);
|
|
end;
|
|
end;
|
|
|
|
+
|
|
|
|
+ ibunicodestringdef :
|
|
|
|
+ begin
|
|
|
|
+ readcommondef('UnicodeString definition',defoptions);
|
|
|
|
+ writeln(space,' Length : ',getlongint);
|
|
|
|
+ end;
|
|
|
|
|
|
ibansistringdef :
|
|
ibansistringdef :
|
|
begin
|
|
begin
|
|
@@ -2143,7 +2151,6 @@ begin
|
|
for j:=1to 16 do
|
|
for j:=1to 16 do
|
|
getbyte;
|
|
getbyte;
|
|
writeln(space,' IID String : ',getstring);
|
|
writeln(space,' IID String : ',getstring);
|
|
- writeln(space,' Last VTable idx : ',getlongint);
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
l:=getlongint;
|
|
l:=getlongint;
|