Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2024-11-21 09:30:50 +00:00
Code Issues Projects Releases Wiki Activity

Update call.pas

Browse Source
This commit is contained in:
MikeW50 2018-03-27 08:58:20 -06:00 committed by GitHub
parent 7d6b083546
commit 8ca93af80b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
call.pas
View File

@ -1281,7 +1281,7 @@ if gattr.typtr <> nil then
lsp := eltype^.recvar; lsp := eltype^.recvar;
end; {if} end; {if}
end {if} end {if}
else if (form = objects) and (objdef) then begin else if (form = objects) and objdef then begin
lsize := objsize; lsize := objsize;
ofld := objfld; ofld := objfld;
end {else if} end {else if}