Skip to content

Commit e0c3209

Browse files
committed
Amended the OSX fix.
1 parent 5ea2f2d commit e0c3209

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Source/VarPyth.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1090,7 +1090,7 @@ function GetDispatchInvokeArgs(CallDesc: PCallDesc; Params: Pointer; var Strings
10901090
begin
10911091
PVarParm^.VType := varOleStr;
10921092
Temp := VarArgGetValue(VAList, Pointer);
1093-
if PAnsiString(Temp)^ <> '' then
1093+
if AnsiString(Temp) <> '' then
10941094
begin
10951095
{
10961096
This line causes a crash and is replaced with the one below in line with unicode strings

0 commit comments

Comments
 (0)