Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Support PChar 'var' parameters.

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@30 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
jr 2007-03-12 00:01:32 +00:00
parent 2c053e9c87
commit 0483833f75
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSRuntime.pas
View File

@ -9236,7 +9236,7 @@ var
btInterface,
btClass,
{$IFNDEF PS_NOWIDESTRING} btWideString, btWideChar, {$ENDIF} btU8, btS8, btU16,
btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btChar, btCurrency
btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
{$IFNDEF PS_NOINT64}, bts64{$ENDIF}:
begin
Varptr := fvar.Dta;