moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 02:30:19 -05:00
Code Issues Releases Wiki Activity

Fixed lil bug in PS + Updated Todo.txt

Browse Source
This commit is contained in:
Raymond 2010-04-14 16:13:03 +02:00
parent 48ad089549
commit 0ba578ee9f
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/PascalScript/x86.inc
View File

@ -550,7 +550,7 @@ begin
if assigned(res) then begin if assigned(res) then begin
case res^.aType.BaseType of case res^.aType.BaseType of
{$IFNDEF PS_NOWIDESTRING}btWideString, btUnicodeString, {$ENDIF} {$IFNDEF PS_NOWIDESTRING}btWideString, btUnicodeString, {$ENDIF}
btInterface, btArray, btrecord, {$IFNDEF PS_FPCSTRINGWORKAROUND}btstring, {$ENDIF}btVariant, btStaticArray: GetPtr(res); btInterface, {$IFNDEF FPC} btArray, {$ENDIF}btrecord, {$IFNDEF PS_FPCSTRINGWORKAROUND}btstring, {$ENDIF}btVariant, btStaticArray: GetPtr(res);
btSet: btSet:
begin begin
if TPSTypeRec_Set(res.aType).aByteSize >4 then GetPtr(res); if TPSTypeRec_Set(res.aType).aByteSize >4 then GetPtr(res);

1
todo.txt
View File

@ -6,5 +6,4 @@
- Installer - Installer
- Test scripts - Test scripts
- DWS - DWS
- OCR exceptions + proper implementation of len
- Documentation + wiki - Documentation + wiki